《房屋租赁管理系统》是一款全面而高效的软件工具，专为房东和租客设计。它提供包括房源发布、合同签订、租金支付等一站式服务，确保租赁过程便捷安全。
以下是经过调整的代码段：
```pascal
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 用户名 = + QuotedStr(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;
End
end // 用户不存在时执行以下操作
else begin
MessageDlg(指定的用户已被注销！你无权使用本系统！, mtError, [mbOk], 0);
Login := False;
End;
end;
```
这段代码主要完成了登录功能，包括用户名密码验证、错误处理以及成功登录后的信息保存。
5星
