高分求救,窗体有模显示以后,free了也不能执行下面的语句吗

[chenliang2001]

高分求救,窗体有模显示以后,free了也不能执行下面的语句吗,我是在工程文件里写的,比如frmlogo:=tfrmlogo.creat(application);
frmlogo.ShowModal;
frmlogo.updata;
然后在frmlogo的单击事件中写frmlogo.free;
还有就是检查用户名密码的问题,其实我让窗体有模显示都是为了检查用户名密码的问题

[insert2003]

Free
后
要显示再

creat

[chenliang2001]

不是啊,请看下边的代码



program FANGWU;

uses
Forms,
MAIN in 'MAIN.pas' {Frmmain},
DENGLU in 'DENGLU.pas' {Frmdenglu},
FUWU in 'FUWU.pas' {Frmfuwu},
MYCOM in 'MYCOM.pas',
LOGO in 'LOGO.pas' {FRMLOGO};

{$R *.res}

begin
Application.Initialize;
Application.Title := '房屋中介管理系统';

frmlogo:=tfrmlogo.Create(application);
frmlogo.ShowModal;
frmlogo.Update;

frmfuwu:=tfrmfuwu.Create(application);
frmfuwu.ShowModal;
frmfuwu.Update;
if mycom.fuwubool=TRUE then
begin
frmdenglu:=tfrmdenglu.Create(application);
frmdenglu.ShowModal;
frmdenglu.Update;

if mycom.denglubool=TRUE then
begin
Application.CreateForm(TFrmmain, Frmmain);
Application.Run;
end;
end
else
application.Terminate;

end.

[myart]

在
frmdenglu
中判断密码是否正确
如果正确返回一个值
不正确返回一个值
if frmdenglu.showmodal=mrok then

else

[Tensionli]

同意楼上,先判断再释放

[chenliang2001]

请楼上的老兄说清楚一点,最好写出代码,先谢谢了,什么时候返回frmdenglu.showmodal=mrok
是frmdenglu显示以后就返回mrok吗,小弟才学DELPHI,让各位见笑了

[nicolas2003]

TDengLu.Create(Application).ShowModal;
if bDenglu = true then(在登陆窗口里定义一个bDenglu来判断密码是否正确）
begin
Application.CreateForm(TFormMain, FormMain);
Application.Run;
end;

在登陆窗口的确定按钮里写
procedure TDengLu.QuedingClick(Sender: TObject);
begin
判断密码是否正确
if 正确 then bDenglu:=true
else 提示密码不正确
end;

[chenliang2001]

可是楼上的大哥，ShowModal;以后就不执行了怎么办

[miky]

ShowModal后，程序会挂起，等待Modal窗口返回。
把你的判断代码放到那个Modal窗口里。

给个例子你看看：

class function TfrmLogin.Execute:Boolean;
begin
with TfrmLogin.Create(Application) do ShowModal;
Result := IsLogined;
end;

procedure TfrmLogin.Button1Click(Sender: TObject);
begin
Inc(FLoginTimes);
With frmMain.ADOQuery do
begin
try
SQL.Clear;
SQL.Add(Format(SGetPassWordSQL,[cmbUserName.text]));
Open;

if RecordCount = 0 then
begin
MessageBox(Handle,Pchar(SInvalidUserName),Pchar(Application.Title),
MB_OK or MB_ICONSTOP);
exit;
end;

if edtPassword.Text = Fields.FieldByName('UserPassword').AsString then
begin
IsLogined := True;
strUserName := cmbUserName.text;
Self.Close;
exit;
end;
finally
Close;
end;
end;
if FLoginTimes = 3 then
begin
MessageBox(Handle,Pchar(S3Times),PChar(Application.Title),MB_OK or MB_ICONSTOP);
Self.Close;
end
else begin
MessageBox(Handle,Pchar(SInvalidPassword),Pchar(Application.Title),MB_OK or MB_ICONSTOP);
EdtPassword.SetFocus;
EdtPassword.SelectAll;
end;
end;

[upingking]

不要让工程自动创建你的登陆窗体，手动创建即可。否则窗体是不会free的，即使free了，最后关闭程序时也会处地址错误。

[aiirii]

>>然后在frmlogo的单击事件中写frmlogo.free;
改成 frmlogo.close;

其它，修改如下:
begin
Application.Initialize;
Application.Title := '房屋中介管理系统';

frmlogo:=tfrmlogo.Create(application);
frmlogo.Show; //这行修改
frmlogo.Update;

frmfuwu:=tfrmfuwu.Create(application);
frmfuwu.ShowModal;

if mycom.fuwubool then
begin
frmdenglu:=tfrmdenglu.Create(application);
frmdenglu.ShowModal;

if mycom.denglubool then
begin
Application.CreateForm(TFrmmain, Frmmain);
Application.Run;
end;
end
if assigned(frmdenglu) then FreeAndNil(frmdenglu);
if assigned(frmfuwu) then freeAndNil(frmfuwu);

end.

//你的代码，逻辑很混乱！！！