delphi 问题

显示全部楼层 · 2010-11-23 14:18:51

计划是做一个密码登录的界面出来，当用户输入正确时可以进入，输入错误出现提示，错误超过三次则自动退出。
我这里出现的问题是，输入正确能够进入，可是输入错误则不出现提示。
以下是具体的代码
var
t:integer=0;
procedure TForm1.Button1Click(Sender: TObject);
begin
t:=t+1;
guanli.adoTable1.Open;
if guanli.adoTable1.Locate('user_id',combobox1.Text,[]) then
if trim(edit1.Text)=guanli.adoTable1.Fields[1].AsString then

begin

form1.hide;

form2.Show;

end
else
begin

beep;

showmessage('账号或密码错误，请重新输入');

combobox1.Clear;

edit1.Clear;

if t=3 then

begin

beep;

showmessage('账号或密码输入错误超过3次，自动退出');

form1.Close;

end

end;
form2.Label3.Caption:=combobox1.Text;
end;
明白了！受教。。。

千问 · 2010-11-23 14:18:51

请问下你的combobox1.Text 是不是设置了可以输入的？如果你在combobox1.Text 这里面就输错了就不会提示，如果只是edit1.Text这里输错了就有提示。if guanli.adoTable1.Locate('user_id',combobox1.Text,[]) thenif trim(edit1.Text)=guanli.adoTable1.Fields[1].AsString then建议改成if (guanli.adoTable1.Locate('user_id',combobox1.Text,[]))and(trim(edit1.Text)=guanli.adoTable1.Field

千问 · 2010-11-23 14:18:51

if guanli.adoTable1.Locate('user_id',combobox1.Text,[]) thenif trim(edit1.Text)=guanli.adoTable1.Fields[1].AsString then
begin
form1.hide;
form2.Show;