关于ELSE的问题找esale服装进销存

销售管理软件版1楼: procedure TForm1.Button1Click(Sender: TObject);
begin
form1.ADOQuery1.Close;
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add(＇＇Select * from TBL_password Where ID=＂＇＇+Edit1.Text+＇＇＂ and password=＂＇＇+edit2.text+＇＇＂＇＇);
form1.ADOQuery1.Open;
if ADOQuery1.RecordCount<>0 then
form2.Show
else
showmessage(＇＇你输入帐号不存在,或密码不正确!＇＇);
//edit1.text:=＇＇＇＇;
//edit2.Text:=＇＇＇＇; //为什么已经是ELSE中内容了还会执行？
activeControl:= edit1;
end;

我用户名密码都输入正确跳出FORM2，可是为什么这个时候，还会把EDIT1、2的内容给清空。为此只能屏蔽该语句了。[red][/red][code][/code]

2楼: if ADOQuery1.RecordCount<>0 then
form2.Show
else
begin/////////////////////（用Begin end 括起来）
showmessage(＇＇你输入帐号不存在,或密码不正确!＇＇);
//edit1.text:=＇＇＇＇;
//edit2.Text:=＇＇＇＇; //为什么已经是ELSE中内容了还会执行？
activeControl:= edit1;
end;////////////////////// 如esale服装进销存

3楼: else
begin
......
end;
end;

4楼: procedure TForm1.Button1Click(Sender: TObject);
begin
form1.ADOQuery1.Close;
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add(＇＇Select * from TBL_password Where ID=＂＇＇+Edit1.Text+＇＇＂ and password=＂＇＇+edit2.text+＇＇＂＇＇);
form1.ADOQuery1.ExecSQL;//改一下
if ADOQuery1.RecordCount<>0 then
begin
form2.Show;
end
else
begin
showmessage(＇＇你输入帐号不存在,或密码不正确!＇＇);
//edit1.text:=＇＇＇＇;
//edit2.Text:=＇＇＇＇; //为什么已经是ELSE中内容了还会执行？
activeControl:= edit1;
end;
end