Delphi ADO组件Required属性始终为False的问题求助（SQL Server环境）

这是Delphi ADO组件的已知行为，并非严格意义上的Bug——Delphi的TField.Required属性并非直接映射SQL的NOT NULL约束，它依赖ADO驱动返回的字段元数据，但ADO驱动默认不会主动将NOT NULL约束信息传递给Delphi的封装层，所以才会出现你遇到的情况，且跨多个Delphi版本、ADO驱动和SQL Server版本存在。

以下是可行的解决办法：

• 手动查询系统表获取字段约束
  通过SQL Server的系统视图INFORMATION_SCHEMA.COLUMNS直接查询字段的可空性，替代TField.Required的判断。示例代码：

  function IsFieldRequired(Conn: TADOConnection; TableName, FieldName: string): Boolean;
  var
    Qry: TADOQuery;
  begin
    Result := False;
    Qry := TADOQuery.Create(nil);
    try
      Qry.Connection := Conn;
      Qry.SQL.Text := Format('SELECT IS_NULLABLE FROM INFORMATION_SCHEMA.COLUMNS ' +
                             'WHERE TABLE_NAME = ''%s'' AND COLUMN_NAME = ''%s''',
                             [TableName, FieldName]);
      Qry.Open;
      if not Qry.Eof then
        Result := (Qry.FieldByName('IS_NULLABLE').AsString = 'NO');
    finally
      Qry.Free;
    end;
  end;
  

  使用时调用该函数即可，比如把你的原代码中判断逻辑替换为：

  if IsFieldRequired(ADOConnection1, 'TABLENAME', 'NOT_NULL_FIELDNAME') then 
    ShowMessage('Field is not null') 
  else 
    ShowMessage('Field is null');
  

• 强制ADO连接返回完整元数据
  在打开ADOConnection前，设置连接的扩展属性，促使驱动返回更详细的字段元数据。示例代码调整如下：

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    ADOConnection1.ConnectionString := 'Provider=MSOLEDBSQL;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=AKTEST_1;Data Source=SERVER1\XYZ,49010';
    ADOConnection1.Properties['Extended Properties'].Value := 'DataTypeCompatibility=80';
    ADOConnection1.LoginPrompt := false;
    ADOConnection1.Connected := true;
    ADOTable1.Connection := ADOConnection1;
    ADOTable1.TableName := 'TABLENAME';
    ADOTable1.Active := true;
    if ADOTable1.FieldByName('NOT_NULL_FIELDNAME').Required then 
      ShowMessage('Field is not null') 
    else 
      ShowMessage('Field is null');
  end;
  

  注意：这个方法的效果可能因ADO驱动版本而异，需要在你的环境中测试验证。

• 自定义字段类重写Required属性
  继承TField类，在自定义类中通过查询系统表来返回正确的Required值，然后替换原有字段类。这个方法适合需要全局统一处理该问题的场景，但实现复杂度较高。

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