怎么用代码控制数据集不允许插入、删除、修改等？

john

使用代码通过数据集策略控制数据集是否允许插入、删除、修改有两种方法:
1、一种是在设计器定义一个数据集策略，然后在运行期进一步通过代码灵活控制；分别如下：

在功能层直接定义一个数据集策略DataSetPolicy1，然后在程序中进一步通过代码控制：

begin
  DataSet.Close;
  TYWGN1(FuncBroker.Func).DataSetPolicy1.ReadOnlyFields.Text := 'aa';
  DataSet.Open;
end;

2、另一种是完全在运行期通过代码控制，

代码创建数据集策略，并设置它的相关属性：

var
  p: TDataSetPolicy;
begin
   DataSet.Close;
   p := TDataSetPolicy.Create(FuncBroker.Func);
   p.ReadOnlyFields.Add('aa');
   { 指定是YWXX1业务信息的BZSJJ1数据集 }
   p.Target.RefID := 'YWXX1.BZSJJ1';
   DataSet.Open;
end;


提示：  这两种方法都需要关闭数据集再打开才起作用，刷新数据集时不会应用策略。