Delphi中DataModule读写.accdb文件时登录验证失败问题排查

看起来你的登录验证逻辑和数据集状态都有一些小问题，我帮你一步步排查：

1. 先确认核心的连接与数据集状态 #

• 确保数据集已经激活：你的modFile.adoDataSet在登录前必须调用Open()方法。如果DataModule初始化时没打开它，哪怕RecordCount显示有数值，实际也可能没读到真实数据。可以在登录按钮代码开头加个判断，确保数据集处于激活状态。
• 检查数据库文件一致性：你用TAdoCommand创建的.accdb文件，和你用Access手动添加测试数据的文件是不是同一个？比如程序运行时可能把数据库生成在Debug/Release目录下，但你打开Access时可能编辑的是项目根目录的文件，两边数据根本不互通，自然读不到你加的测试用户。

2. 遍历记录的逻辑有缺陷 #

你用for循环依赖RecordCount的方式有问题：ADO的RecordCount在默认的服务器端游标（CursorLocation = clUseServer）下经常返回不准确的值，而且循环到最后一次Next后，数据集会走到EOF（末尾），这时候读取字段会得到空值，导致匹配失败。

修复后的登录按钮代码 #

procedure TLoginFrm.LoginBtnClick(Sender: TObject);
var
  Username, Password : String;
  IsMatch : Boolean;
begin
  // 先确保数据集处于打开状态
  if not modFile.adoDataSet.Active then
    modFile.adoDataSet.Open;

  if modFile.adoDataSet.RecordCount = 0 then
  begin
    NewUserFrm.Show;
    Application.Messagebox('There are currently no users. Please create new user.','Error');
    UsernameBox.Clear;
    PasswordBox.Clear;
  end
  else
  begin
    IsMatch := False;
    modFile.adoDataSet.First;
    
    // 用while循环遍历，直到找到匹配或遍历完所有记录
    while not modFile.adoDataSet.Eof do
    begin
      Username := modFile.adoDataSet.FieldByName('Username').AsString;
      Password := modFile.adoDataSet.FieldByName('Password').AsString;
      
      if (Username = UsernameBox.Text) and (Password = PasswordBox.Text) then
      begin
        LoginFrm.Hide;
        CurrentUser := Username;
        MainMenuFrm.Show;
        IsMatch := True;
        Break; // 找到匹配就跳出循环，不用继续遍历
      end;
      
      modFile.adoDataSet.Next;
    end;

    if not IsMatch then
    begin
      Application.MessageBox('Incorrect username or password. Try again.','Error');
      UsernameBox.Clear;
      PasswordBox.Clear;
      LoginBtn.SetFocus;
    end;
  end;
end;

3. 更高效的优化方案 #

其实完全不需要手动遍历所有记录，直接用SQL查询来匹配用户名和密码，效率更高也更可靠：

procedure TLoginFrm.LoginBtnClick(Sender: TObject);
begin
  // 直接用带参数的SQL查询匹配用户
  modFile.adoDataSet.Close;
  modFile.adoDataSet.SQL.Text := 'SELECT * FROM Users WHERE Username = :UN AND Password = :PW';
  modFile.adoDataSet.Parameters.ParamByName('UN').Value := UsernameBox.Text;
  modFile.adoDataSet.Parameters.ParamByName('PW').Value := PasswordBox.Text;
  modFile.adoDataSet.Open;
  
  if not modFile.adoDataSet.Eof then
  begin
    // 登录成功
    LoginFrm.Hide;
    CurrentUser := UsernameBox.Text;
    MainMenuFrm.Show;
  end
  else
  begin
    // 登录失败
    Application.MessageBox('Incorrect username or password. Try again.','Error');
    UsernameBox.Clear;
    PasswordBox.Clear;
    LoginBtn.SetFocus;
  end;
end;

这种方式让数据库直接帮你筛选结果，避免了手动遍历的麻烦，也减少了出错的可能。

4. 调试小技巧 #

如果还是有问题，可以加几个调试输出：

• 读取字段后加ShowMessage('读取到的用户名: ' + Username);，看看实际读到的内容是不是你在Access里添加的测试数据。
• 打印modFile.adoConnection.ConnectionString，确认连接的文件路径和你操作的Access文件完全一致。

内容的提问来源于stack exchange，提问作者user9155061