Question

关于一个delphi程序，很简单，请帮忙！

要求是：设计一个用户登陆的窗体，在用户输入正确的用户名和密码后，弹出对话框，提示：登陆成功！（用户名和密码固化在程序中）如果三次输入错误，则提示你已输入三次用户名和密码，待用户单击确定按钮则退出程序!只要代码！高手帮忙

Answer 1

try
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'Select * from USERDATA where USERPASS=''' + EnCrypt(Add_semicolon(Trim(TxtPass.Text)), NHB) + '''';
ADOQuery1.Open;
if ADOQuery1.RecordCount = 0 then
begin
// MSG.MessageDlg('您输入的密码不正确!', mtInformation, [mbYES], 0);
raise EAbort.Create('Abort it');
end
else
begin
Application.CreateForm(TFmain, Fmain);
// FMAIN.ShowModal;
// raise EAbort.Create('Abort it');

end;
except
MSG.MessageDlg('请您输入登陆密码有误!', mtInformation, [mbYES], 0);
TxtPass.SetFocus;
raise EAbort.Create('Abort it');
end;

-----------------------------------------------

简单的写了一段，你理解后稍微改动下，这样对你才有好处。

Answer 2

楼上的，人家要求密码用户名固化在程序中，你搞这么复杂做什么，呵呵！