代码控制条件分支

ntcp

当流程的条件分支环节或者条件环节，需要比较复杂的判断来决定条件的值，可以在TFlowBroker的OnCalcProcCondition事件中，通过代码来作复杂的判断，根据判断结果对Command.Accept赋值，Command.Accept表示条件的计算结果（此处还需要对Command.Handled赋值为True，表示已经处理过条件的值，不需要计算条件表达式）。

procedure TMainForm.FlowDDSHCalcProcCondition(...);
var
  lStr: string;
begin
  if SysUtils.SameText(Command.ProcCondition.ID, 'TJ1') then  
    lStr := '0'
  else if SysUtils.SameText(Command.ProcCondition.ID, 'TJ2') then
    lStr := '1';
  Command.Accept := False;  
   //确定使用OnCalcProcCondition里的条件
  Command.Handled := True;  //true表示已经处理过条件的值，不需要计算条件表达式
  DsbDDSH.DataSet.First;
  while not DsbDDSH.DataSet.Eof do
  begin
    if DsbDDSH.DataSet.FieldByName('SHJL').AsString = lStr then
    begin
      Command.Accept := True; //如为true则使用流程规则的条件
      exit;
    end;
    DsbDDSH.DataSet.Next;
  end;
end;


提示：分支条件是代码优先