如何显示流程的执行历史

john

函数声明：procedure LoadFlow(AGuid:String;AFlow: TFlow);
参数说明：AGuid：流程GUID

1、AFlow：需要加载的流程
函数声明：procedure LoadFlow(AGuid:String;AFlow: TFlow);
参数说明：

2、AGuid：流程GUID
函数声明：procedure ShowFlowView (AFlow: TFlow);
参数说明：AFlow：需要显示的流程

procedure TMainForm.ShowFlowView();
var
  lFlow: TFlow;
  lFlowGuid: String;
begin
  lFlowGuid:=FlowDDLR.FlowControl.Flow.GUID;
  if lFlowGuid <> '' then
  begin
    lFlow := TFlow.Create;
    Flow.FlowEngine.LoadFlow(lFlowGuid, lFlow);//加载流程
    if lFlow <> nil then
    begin
      SystemCore.TSystemCore.SystemInterface.ShowFlowView(lFlow); //显示流程执行历史
    end;
    lFlow.Free;
  end
  else
begin
    jsDialogs.ShowWarning('没有正确监控到流程！','注意');
  end;
end;


提示： 在功能中引用“业务模型\系统空间\系统运行库\系统核心库”

atiger

可以参考“系统空间\用户界面基础\系统接口\流程流转”功能来实现。步骤：

1、在功能窗体上，放置TFlowGanttView、TFlowPertView、TFlowTrackView控件；

2、在代码中对控件的Flow属性赋值。

例如：FlowTrackView1.Flow := FlowDDSH.FlowControl.Flow;