Question

delphi 密码代码设置

输入密码，如果正确（假定密码为123456），则进入修改框，错误则提示。怎么编程？

Answer 1

if (password.Text<>Q.Fields[0].AsString) then
begin
Application.MessageBox('用户密码错误','警告',MB_ICONWARNING);
inc(logc);
exit;
end;
//Fmain.username:=username.Text;
//Fmain.teamname:=Q.Fields[1].AsString;
//Fmain.fullname:=Q.Fields[2].AsString;
Fmain.sb.Panels[0].Text:='当前用户:'+username.Text;
Fmain.sb.Panels[1].Text:='welcome you....';
Q.Close;
users.Destroy;
close;