菜鸟求助 ( 积分: 5 )

我做了一个登陆窗口 然而却达不到效果 如果密码错误当我点确定按钮时弹出提示信息 关闭提示信息时 登陆窗口 子窗体都不见了 如果密码是对的话 子窗体显示了 但登陆窗口还是显示在屏幕上 我的代码是这样的
procedure TloginForm.BitBtn1Click(Sender: TObject);
var
adoquery1:tadoquery;
user,pass:string;
begin
adoquery1:=tadoquery.Create(self);
adoquery1.Connection:=adoconnection1;
user:=combobox1.Text ;
pass:=edit1.Text ;
with adoquery1 do
begin
close;
sql.Clear ;
sql.Add('select NM,PW from Tuser where NM='''+user+'''and PW='''+pass+'''') ;
open;
end;
if adoquery1.RecordCount=0 then
begin
application.MessageBox('登陆失败！','提示信息',mb_ok);
loginform.Visible:=true;
adoquery1.Close ;
end
else
mainform.ShowModal ; //系统的主窗体
loginform.Visible:=false; //登陆窗体
end;

application.MessageBox('登陆失败！','提示信息',mb_ok);
application.Terminate;
end;
else
self.close;

写错了上面end多了个符号

我试了 不行的

你要的是什么效果？？

我自己想了一下可以了