用代码关闭字段的允许自动填充属性

atiger

在业务信息层，数据集上选择字段编辑器，增加要在程序中 自动填充 的字段，以便可以在程序中定义。

参考代码如下：

with TSQLDataSet(DataSetBroker1.DataSet) do
  begin
    Close;
    BizFieldByName('SZDW').AutoFillDef.Enabled := False;
    Open;
  end;

atiger

begin
  inherited;
  Tsqldataset(DataSetBroker1.DataSet).Open;
  Tsqldataset(DataSetBroker1.DataSet).BizFieldByName('gyid').AutoFillDef.Enabled := true;
  Tsqldataset(DataSetBroker1.DataSet).BizFieldByName('gyid').AutoFillDef.Expression.text := #39'ss'#39;
  Tsqldataset(DataSetBroker1.DataSet).BizFieldByName('gyid').AutoFillDef.Options := [0];
end;