下面是代码,大体的意思是,经过用户名和密码的验证,如果正确的话会打开form2窗体,
我可以实现,但我想在打开form2的同时,关闭密码验证窗体form1,可实现不了,不知道为什么???如下解释处!!!!谢谢!!!
cedure TForm1.BitBtn1Click(Sender: TObject);
var
 flag:boolean;
 logname,password:string;
 begin
  flag:=false;
  logname:=edit1.Text;
  password:=edit2.Text;
  table1.Open;
  table1.First;
    while not table1.Eof do
      begin
        if (logname=table1.Fields[0].asstring) and (password=table1.Fields[1].asstring) then
           flag:=true;
           table1.Next;
      end;
        if flag then
           begin
             form2.show;    {注:在这我可以打开form2窗体,但我如果加上
                             form1.close;  测试的时候form2 窗体也一起关闭
                             了??我想form2留下form1关闭,不知道该怎么写
                              ??谢谢}           
           end
             else
               if (edit1.Text='') or (edit2.Text='') then
                 begin
                   showmessage('请您将两项输入完整!');
                   end
                     else
                       showmessage('输入错误,请重输!!');
                       edit1.Clear;
                       edit2.Clear;
                       edit1.SetFocus;
           end;