Delphi 无法将类型 (UnicodeString) 的变体转换为类型 (Boolean)

Question

我正在努力为我正在处理的程序创建登录表单。我尝试了很多不同的方法来让它工作。

我有一个 Access 数据库，其中包含不同用户的用户名和登录密码。

我收到错误消息：

无法将类型 (UnicodeString) 的变体转换为类型 (Boolean)

有人可以帮忙吗？我正在用这段代码进行测试：

procedure TfrmLogin.btnLoginClick(Sender: TObject);
var
  sRole :String;
  sPass  : string;
  bHQ : boolean;
begin

  sPass := edtPassword.Text;
  bHQ := False;

  with dmTest do
  begin
    adoAdmin.First;
    while NOT adoAdmin.Eof do
    begin
      if adoAdmin.Locate('Username', edtUsername.Text, []) AND
         adoAdmin['Password'] = sPass AND
         adoAdmin['HQ'] = True then
      begin
        ShowMessage('Working');
        adoAdmin.Next;
      end
      else
        ShowMessage('Not working');
    end;
  end;

Answer 1

我相信问题出在这里，adoAdmin['HQ'] = True。 数据库中 HQ 的字段类型是什么？