UC知道delphi 密码代码设置
来源：百度知道 编辑：UC知道 时间：2024/07/04 11:37:07
输入密码，如果正确（假定密码为123456），则进入修改框，错误则提示。怎么编程？
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;