盒子论坛 v2.1

请问高手，我做的文件登录模块一闪就很短暂的时间就没了，根本就没时间登录验证用户信息！！！不知道是什么地方设置错了！登录窗口是非父子窗口，主程序窗口是父窗口，请你帮我看看？给点意见？错在什么地方？？？
Unit xtlogin_Form; //****页面模块****//

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB, jpeg, ExtCtrls;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses jxc_Form;

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin

end;
//**********//

end.

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, jpeg, ExtCtrls,xtsd_Form;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    Image1: TImage;
    StatusBar1: TStatusBar;
    HeaderControl1: THeaderControl;
    N53: TMenuItem;
    procedure N6Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit4, ck_Form, czygl_Form, rkd_Form, tkd_Form, xtlogin_Form,
  xhgl_Form.dcu, yhgl_Form, jhjk_Form, thfk_Form, rkdcx_Form, tlcx_Form,
  ckdcx_Form, cxcx_Form, thdcx_Form, jzcx_Form, kccx_Form, bfen_Form,
  datacs, jldw_Form, hwglei_Form, fkuanfs_Form, bmszhi_Form,
  ckfshi_Form, jhqdao_Form, xtlog, databackup_Form;

{$R *.dfm}

procedure TForm1.N6Click(Sender: TObject);
begin
  TForm4.Create(self);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
TForm3.Create(self);
end;

procedure TForm1.N14Click(Sender: TObject);
begin
close;
end;

procedure TForm1.N21Click(Sender: TObject);
begin
ck_Form.TForm7.Create(self);
end;

procedure TForm1.N17Click(Sender: TObject);
begin
tform5.Create(self);
end;

procedure TForm1.N18Click(Sender: TObject);
begin
tkd_Form.TForm6.Create(self);
end;

procedure TForm1.N53Click(Sender: TObject);
begin
  tform2.create(self);
end;

procedure TForm1.N22Click(Sender: TObject);
begin
tform8.Create(self);
end;

procedure TForm1.N23Click(Sender: TObject);
begin
Tform9.Create(self);
end;

procedure TForm1.N26Click(Sender: TObject);
begin
tform10.Create(self);
end;

procedure TForm1.N27Click(Sender: TObject);
begin
Tform11.Create(self);
end;

procedure TForm1.N30Click(Sender: TObject);
begin
tform12.Create(self);
end;

procedure TForm1.N31Click(Sender: TObject);
begin
tform13.Create(self);
end;

procedure TForm1.N33Click(Sender: TObject);
begin
Tform14.Create(self);
end;

procedure TForm1.N34Click(Sender: TObject);
begin
Tform14.Create(self);
end;

procedure TForm1.N35Click(Sender: TObject);
begin
tform16.Create(self);
end;

procedure TForm1.N37Click(Sender: TObject);
begin
tform17.Create(self);
end;

procedure TForm1.N39Click(Sender: TObject);
begin
tForm18.Create(self);
end;

procedure TForm1.N42Click(Sender: TObject);
begin
tForm20.Create(self);
end;

procedure TForm1.N45Click(Sender: TObject);
begin
Tform21.Create(self);
end;

procedure TForm1.N48Click(Sender: TObject);
begin
form19.Show;

end;

procedure TForm1.N8Click(Sender: TObject);
begin
tForm22.Create(self);
end;

procedure TForm1.N9Click(Sender: TObject);
begin
tform23.Create(self);
end;

procedure TForm1.N10Click(Sender: TObject);
begin
tform24.Create(self);
end;

procedure TForm1.N12Click(Sender: TObject);
begin
tform26.Create(self);
end;

procedure TForm1.N11Click(Sender: TObject);
begin
tform25.Create(self);
end;

procedure TForm1.N13Click(Sender: TObject);
begin
tform27.Create(self);
end;

procedure TForm1.N47Click(Sender: TObject);
begin
tform28.Create(self);
end;

procedure TForm1.N43Click(Sender: TObject);
begin
tform29.Create(self);
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if application.MessageBox('确实要退出本系统吗？','提示',mb_yesno)= idyes then
CanClose:=true
else
CanClose:=false;

end;

end.
----------------------------------------------
谢谢！

作者：

liu55721 ( )	★☆☆☆☆	-
	盒子活跃会员

2005/6/29 18:05:21

1楼：

登录窗口的启动及动作语句应当放在主窗体的创建事件中.
比如
procedure Tfrm_zck.FormCreate(Sender: TObject);
begin

F_dlck:=Tf_dlck.create(self);/f_dlck就是非自动创建的登录窗口
f_dlck.ShowModal;

end;
----------------------------------------------
-

作者：

slwj (Delphi/System)	★☆☆☆☆	-
	盒子活跃会员

2005/6/30 10:34:03

2楼：

大哥？把你的邮件留下，我给你发一份，你帮我调试好吗？
我实在没招了？？！！！
----------------------------------------------
谢谢！

信息

登陆以后才能回复