【结贴】我想在执行过程中看到整个流程中的进行情况，该怎么做（仍未成功，呼唤解决！！！）

lixy

放个流程代理控件。调用 TSystemCore.SystemInterface.ShowFlowView(FlowBroker1.FlowControl.Flow );  只要是任务启动起来功能，就能看到当前流程的流程图了。

trickle

还是不对~~~~~~ ;)

button的代码：
procedure TZCGZSQCT.Button1Click(Sender: TObject);
begin
TSystemCore.SystemInterface.ShowFlowView(FlowBroker1.FlowControl.Flow);
end;

lixy

楼主删除掉你自己做的那个流程浏览的窗体

trickle

我自己做的那个流程浏览窗体不叫流程浏览~叫窗体test
是不是在我没有做任何东西的情况下，加个流程代理，然后在button的代码部分写上代码就ok了？

trickle

我在我的窗体中加了一个button1，其对应代码为：（参考您给的链接的代码）
procedure TZCGZSQCT.Button1Click(Sender: TObject);
begin
  FID := GetIDStr;
  if FID <> '' then
    with InfoQueryRule.TInfoQueryRule.Create(Context) do
    begin
      try
        GetFlowForm(FID, SysUtils.UpperCase('Biz:OPERATIONFLOWITEMENTRUST.PROC'));
      finally
        Free;
      end;
    end
  else
    JsDialogs.ShowMsg('请选择一条正确的数据查看！','提示');
end;

然后在窗体中也增加了流程代理
结果`还是不对啊
错误见图（business端运行，点击相应功能）

atiger

你双击窗体中的button1 ，然后把15楼的代码放进（去掉procedure TZCGZSQCT.Button1Click(Sender: TObject);）

楼上的错误，你检查一下声明，即看看button1 的onClick事件是否挂上了

trickle

无奈了，这是窗体全部的代码，实在不知道哪里错了：

unit ZCGZSQCT;

interface

uses
  Business.System, Business.Forms, Business.Model, Business.Data,
  Business.Model.Flow;

type
  TZCGZSQCT = class(TForm)
    DocViewBar: TDocViewBar;
    DataNavigator: TDataNavigator;
    InfoBroker1: TInfoBroker;
    dsbImportMain: TDataSetBroker;
    Label1: TLabel;
    DataEdit1: TDataEdit;
    Label2: TLabel;
    DataEdit2: TDataEdit;
    Label3: TLabel;
    DataEdit3: TDataEdit;
    Label4: TLabel;
    DataEdit4: TDataEdit;
    DataEdit5: TDataEdit;
    Label5: TLabel;
    DataGrid1: TDataGrid;
    dsbImportSub: TDataSetBroker;
    DataGrid1DeviceTypeID: TDataGridColumn;
    DataGrid1DeviceDescription: TDataGridColumn;
    DataGrid1AgentName: TDataGridColumn;
    DataGrid1UNITPrice: TDataGridColumn;
    DataGrid1Quantity: TDataGridColumn;
    DataGrid1JE: TDataGridColumn;
    DocView1: TDocView;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DataEdit6: TDataEdit;
    Label7: TLabel;
    DataEdit7: TDataEdit;
    DataEdit8: TDataEdit;
    dsbAudit1: TDataSetBroker;
    DataEdit9: TDataEdit;
    Label10: TLabel;
    DataEdit10: TDataEdit;
    Label11: TLabel;
    DataEdit11: TDataEdit;
    Label12: TLabel;
    DataEdit12: TDataEdit;
    Label13: TLabel;
    DataEdit13: TDataEdit;
    Label14: TLabel;
    Label15: TLabel;
    DataEdit14: TDataEdit;
    DataEdit15: TDataEdit;
    Label16: TLabel;
    DataEdit16: TDataEdit;
    DataEdit17: TDataEdit;
    Label17: TLabel;
    dsbAudit2: TDataSetBroker;
    dsbAudit3: TDataSetBroker;

    panel_toolbar: TPanel;
    Panel_whole_bottom: TPanel;

    panel_main_dataset: TPanel;
    panel_sub_dataset: TPanel;
    panel_audit_dataset: TPanel;

    panel_audit1: TPanel;
    panel_audit3: TPanel;
    panel_audit2: TPanel;

    FlowBroker1: TFlowBroker;
    Button1: TButton;
    procedure BizFormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TZCGZSQCT.BizFormCreate(Sender: TObject);
begin
//
  panel_main_dataset.Height := Panel_whole_bottom.Height div 4;
  panel_sub_dataset.Height  := Panel_whole_bottom.Height div 4;
  panel_audit_dataset.Height := Panel_whole_bottom.Height div 2;

  panel_audit1.Height :=  panel_audit_dataset.Height div 3;
  panel_audit2.Height :=  panel_audit_dataset.Height div 3;
  panel_audit3.Height :=  panel_audit_dataset.Height div 3;
end;

procedure TZCGZSQCT.Button1Click(Sender: TObject);
var
  FID: String;
begin
  FID := GetIDStr;
  if FID <> '' then
    with InfoQueryRule.TInfoQueryRule.Create(Context) do
    begin
      try
        GetFlowForm(FID, SysUtils.UpperCase('Biz:\OPERATION\FLOWITEMENTRUST.PROC'));
      finally
        Free;
      end;
    end
  else
    JsDialogs.ShowMsg('请选择一条正确的数据查看！','提示');
end;

end.

trickle

编译错误

trickle

如下

trickle

[警告] 循环引用: "Biz:\SCGATXXGLPT\ZCGLXT\ZCGZ\ZCSQ.FUNC"-->"Biz:\SCGATXXGLPT\ZCGLXT\ZCGZ\GDZCGZD.INFO"-->"Biz:\SCGATXXGLPT\ZCGLXT\ZCGZ\GDZCGZD.INFO"
[错误]Biz:\SCGATXXGLPT\ZCGLXT\ZCGZ\ZCSQ.FUNC.DIR\ZCGZSQCT.FORM.PAS(102, 10): Undeclared identifier
[错误]Biz:\SCGATXXGLPT\ZCGLXT\ZCGZ\ZCSQ.FUNC.DIR\ZCGZSQCT.FORM.PAS(104, 10): Undeclared identifier "InfoQueryRule"
[错误]Biz:\SCGATXXGLPT\ZCGLXT\ZCGZ\ZCSQ.FUNC.DIR\ZCGZSQCT.FORM.PAS(98, 11): Assertion failure (E:\DEVELOP\BUILD_MOSTNEW\TIB3\SRC_PROTECTED\COMMONLANGUAGE\ILCode\ILCode.pas, line 1209)
[错误]Biz:\SCGATXXGLPT\ZCGLXT\ZCGZ\ZCSQ.FUNC.DIR\ZCGZSQCT.FORM.PAS(76, 15): 'TZCGZSQCT.Button1Click' 过程声明了,但没有实现