这是登陆按钮的代码，为什么登陆失败关闭不了主窗体，form2为主窗体

Question

这是登陆按钮的代码，为什么登陆失败关闭不了主窗体，form2为主窗体
procedure Tlogin.BitBtn1Click(Sender: TObject);
var sqltr:string;
begin
    sqltr:='select * from 管理员 where (username='''+edit1.Text+''') and (password='''+edit2.text+''')';    ADOquery1.Close ;
    ADOquery1.SQL.Clear ;
    ADOquery1.SQL.Add(Sqltr);
    ADOquery1.Open;
    if   ADOquery1.Recordcount<>0   then
        begin
       showmessage('登录成功');
       Form2.show;
       end
    else
       begin
       showmessage('登陆失败，用户名或密码错误');
       from2.close;
       end;end;

Answer 1

看你的代码，在登录之前form2还没show出来，怎么关闭呢？要关闭程序，也要用Application.Terminate; 

Answer 2

procedure Tlogin.BitBtn1Click(Sender: TObject); 
var sqltr:string; 
begin 
    sqltr:='select * from 管理员 where (username='''+edit1.Text+''') and (password='''+edit2.text+''')';     ADOquery1.Close ; 
    ADOquery1.SQL.Clear ; 
    ADOquery1.SQL.Add(Sqltr); 
    ADOquery1.Open; 
    if  ADOquery1.Recordcount <>0  then 
        begin 
      showmessage('登录成功'); 
      Form2.show; 
      end 
    else 
      begin 
      showmessage('登陆失败，用户名或密码错误'); 
      Application.Terminate;
      end; end;