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;