一套完成的租赁管理,和作业版不同,这个功能应该够用了。
procedure TFrm_Login.bbtnokClick(Sender: TObject);
begin
//录入检验
if cbUserId.text='' then
begin
messagedlg('请 选 择 用 户 名 !',mtInformation,[mbok],0);
cbUserId.SetFocus();
exit;
end;
//登录验证
with ADOQ_Temp do
begin
close;
SQL.Clear;
SQL.Add('SELECT * From 用户信息表 Where 用户名='+''''+cbUserId.Text+'''');
Open;
//用户有效性
IF not IsEmpty then
begin
//登录失败
If edtPassword.Text Fieldbyname('密码').AsString then
begin
messagedlg('口令错误,请修改 !',mterror,[mbok],0);
LoginNum:=LoginNum+1;
if LoginNum=3 then
begin
messagedlg('非法用户!你无权使用本系统',mterror,[mbok],0);
application.Terminate ;
end;
edtPassword.Text :='';
edtPassword.SetFocus;
exit;
end
//登录成功
else
begin
//保存登录的用户信息
gs_login_userid :=fieldbyname('用户名').asstring;
gs_login_username :=fieldbyname('用户名').asstring;
gs_login_userlevel :=fieldbyname('用户等级').asstring;
gs_login_Password :=fieldbyname('密码').asstring;
gt_login_time:=now();
Login:=true;
self.close;
end;
end
else
begin
messagedlg('指定的用户已被注销!你无权使用本系统!',mterror,[mbok],0);
Login:=False;
self.close;
end;
end;
end;
2021-10-27 09:17:59
1.02MB
房屋
1