TA还没有准备介绍自己
加载中
个人主页
关注
TA的源代码 (1)
Delphi－登录窗口体验分享
暂无评分
procedureTLogin.btnLoginClick(Sender:TObject);
begin//登录
withDM.FDQueryUsersdo
begin
Close;
SQL.Clear;
SQL.Text:='select*fromUserswhereName=:UName';
ParamByName('UName').Value:=scGPEdtUser.Text;//为UNmae赋值
Open;
end;
ifDM.FDQueryUsers['Name']=Nullthen//如果账号查找不到，说明账号错
begin
ShowMessage('用户名错误，请检查用户名！');
Exit;
end;
ifDM.FDQueryUsers['Password']<>scGPPWEdtPW.Textthen
begin
ShowMessage('密码错误'+IntToStr(InputTimes)+'次，请重新登录！');
exit;//退出当前函数
end;
ModalResult:=mrOk;//对话框mrok返回主窗体
end;
lu55111634 0 0
1
没有更多了~