这几句代码不灵了？

Question

主窗本出来了，子窗体关不了啊？为什么？
unit Unit_login;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, ADODB;type
  TForm1 = class(TForm)
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    Edit_username: TEdit;
    Edit_password: TEdit;
    Label2: TLabel;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit_main;{$R *.DFM}
procedure TForm1.Button3Click(Sender: TObject);
 var password :string;
begin
if(trim(edit_username.text)='')then
begin
  showmessage('请输入用户名');
  exit;
end;ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from abin where 用户名=:username');
ADOQuery1.Parameters.ParamByName('username').value :=trim(edit_username.Text);
ADOQuery1.Prepared;
ADOQuery1.Open;
if not ADOQuery1.Eof then
begin
  password:=trim(ADOQuery1.FieldByName('口令').AsString);
end
else
begin
  showmessage('用户名输入错误，请核实！');
  exit;
end;if trim(edit_password.Text)<>password then
begin
  showmessage('密码错误，请检查后重新输入！');
  edit_password.SetFocus;
  exit;
end
else
begin
  showmessage('密码正确，登录成功！');
  form2.show;
  form1.close;  //关闭子窗体啊
  end;
end;end.

Answer 1

form1.close; 
form2.show;

Answer 2

//--子窗体  subform.close
action:=caFree;
-----//

Answer 3

  form1.close;  //关闭子窗体啊form2.show;