下面是代码,大体的意思是,经过用户名和密码的验证,如果正确的话会打开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;
我可以实现,但我想在打开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;
用form1.hide
就可以了
在project/options中调整MAIN FORM为FORM2即可!
可是 我是DELPHI的初学者,你上面的代码我有些看不懂,另外我应该把上面的代码加到什么地方啊??????????????