如何控制数据集字段被引用的所有控件的Visible、Enabled、ReadOnly

var
  //AQuery:TSQLDataSet;
  UserDataField:TUserDataField;
begin
  if AQuery=nil then
    AQuery:=TSQLDataSet.Create(self);
  AQuery.Database.URL:='Biz:\EYKJ\EYSJK.Database';
  AQuery.SQL.Text:='SELECT * FROM ACC_DETAILS';

  AQuery.Open;

  UserDataField:=TUserDataField(AQuery.FindBizField('AccountID'));
  UserDataField.DataSet:=AQuery;
  UserDataField.ID:='AccountID';
  UserDataField.Attributes.Visible.Text:='False';

  UserDataField:=TUserDataField(AQuery.FindBizField('AccountCode'));
  UserDataField.DataSet:=AQuery;
  UserDataField.ID:='AccountCode';
  UserDataField.Attributes.Enabled.Text:='False';

  UserDataField:=TUserDataField(AQuery.FindBizField('AccountName'));
  UserDataField.DataSet:=AQuery;
  UserDataField.ID:='AccountName';
  UserDataField.Attributes.ReadOnly.Text:='True';

  DataSource1.DataSet:=AQuery;