该房屋租赁管理系统提供全面的功能。

简介：
这是一套完整的租赁管理系统，与作业版有所不同，该功能预计能够满足实际需求。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;