[结贴]功能上的数据语义策略，如何在运行期，控制打开与关闭?

yuhong

一个业务功能，加了多个数据语义策略，如何在运行期只设置一个起作用？

下边这个方法通过，但没达到作用。

procedure TfrmBillCreate.ApplyPolicy;
var
  i: Integer;
begin
  Inherited;
  for i := 0 to FuncBroker.Func.PolicyCount - 1 do
  begin
    if FuncBroker.Func.Policies is TSememicDataPolicy then
      if FuncBroker.Func.Policies.Name = FCustomBill.BillSememicDataPolicy then
        FuncBroker.Func.Policies.Enabled := True
      else
        FuncBroker.Func.Policies.Enabled := False;
  end;
end;

atiger

你的语义策略是控制数据集的范围吗？如果是，你关闭一下数据再打开看看

yuhong

最初由 atiger 发布
[B]你的语义策略是控制数据集的范围吗？如果是，你关闭一下数据再打开看看 [/B]

不是，控制字段的只读。

atiger

如果是只读的话，有问题了，因为策略除过滤数据范围可以通过数据集关闭再打开起作用，其他的是在功能打开的时候起作用，当功能已经打开了，就不行了，

如果在运行期间来调整字段只读，那可以通过代码设置字段的ReadOnly属性为True了

yancm

楼主，策略要在功能运行前设定才有效果。如下：

procedure TJDGN1.DoRun;
begin
  SememicDataPolicy1.Enabled:=false;
  inherited;
end;

yuhong

这么说的话，在运行期，就无法控制了。

结贴吧。