Delphi 10.4中DBEdit控件OnExit事件主键重复验证实现求助

你之前用DBEditChange事件没达到预期，是因为这个事件会在用户每输入一个字符时就触发——既频繁查询数据库影响性能，也会在用户还没输入完就弹出提示，体验很差。正确的时机应该是用户**退出DBEdit控件（失去焦点）**时验证，对应DBEdit的OnExit事件。

实现步骤与代码示例 #

假设你用的是ADO组件（如果是FireDAC等其他数据库组件，只需替换对应的查询类即可）：

1. 确保你的DBEdit已经正确绑定到数据集的student_num字段（通过DataSource关联到TADODataSet/TADOTable）。
2. 给DBEdit的OnExit事件添加以下代码：

procedure TYourForm.DBEditStudentNumExit(Sender: TObject);
var
  CheckQuery: TADOQuery;
  InputNum: string;
begin
  // 获取输入的主键值，先去掉前后空格
  InputNum := Trim(DBEditStudentNum.Text);
  if InputNum = '' then Exit; // 空值跳过验证

  // 强制同步DBEdit内容到数据集字段（避免未更新的旧值）
  DBEditStudentNum.UpdateData;

  // 创建临时查询对象验证主键是否存在
  CheckQuery := TADOQuery.Create(nil);
  try
    CheckQuery.Connection := YourADOConnection; // 替换成你的数据库连接组件
    CheckQuery.SQL.Text := 'SELECT COUNT(*) FROM 你的表名 WHERE student_num = :StudentNum';
    // 绑定参数，避免SQL注入
    CheckQuery.Parameters.ParamByName('StudentNum').Value := InputNum;

    try
      CheckQuery.Open;
      // 判断查询结果：COUNT>0表示主键已存在
      if CheckQuery.Fields[0].AsInteger > 0 then
      begin
        ShowMessage('该学号已存在，请重新输入！');
        DBEditStudentNum.SetFocus; // 将焦点拉回输入框，强制用户修改
      end;
    except
      on E: Exception do
        ShowMessage('验证失败：' + E.Message); // 捕获数据库异常
    end;
  finally
    CheckQuery.Free; // 释放查询对象
  end;
end;

补充说明 #

• 如果使用FireDAC，只需将TADOQuery替换为TFDQuery，参数绑定逻辑基本一致。
• 若要验证当前数据集内的重复（而非整个数据库），可以用数据集的Locate方法替代SQL查询：

  if YourDataSet.Locate('student_num', InputNum, [loCaseInsensitive]) then
  begin
    ShowMessage('该学号已存在！');
    DBEditStudentNum.SetFocus;
  end;
  

  但这种方式仅能检测当前数据集已加载的记录，若数据库中有未加载的重复数据，还是用SQL查询更准确。

内容的提问来源于stack exchange，提问作者Yassine. Brh