起步软件技术论坛-X3

 找回密码
 立即注册
搜索
楼主: trickle

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

[复制链接]
发表于 2008-4-11 16:00:43 | 显示全部楼层
放个流程代理控件。调用 TSystemCore.SystemInterface.ShowFlowView(FlowBroker1.FlowControl.Flow );  只要是任务启动起来功能,就能看到当前流程的流程图了。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-11 16:08:34 | 显示全部楼层
还是不对~~~~~~ ;)

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

5.jpg

27 KB, 下载次数: 107

回复 支持 反对

使用道具 举报

发表于 2008-4-11 16:30:07 | 显示全部楼层
楼主删除掉你自己做的那个流程浏览的窗体
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-11 17:09:48 | 显示全部楼层
我自己做的那个流程浏览窗体不叫流程浏览~叫窗体test
是不是在我没有做任何东西的情况下,加个流程代理,然后在button的代码部分写上代码就ok了?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-11 22:40:10 | 显示全部楼层

还是不行啊!!!!!!!!!!

我在我的窗体中加了一个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端运行,点击相应功能)

e11.jpg

58.53 KB, 下载次数: 96

回复 支持 反对

使用道具 举报

发表于 2008-4-12 09:36:32 | 显示全部楼层
你双击窗体中的button1 ,然后把15楼的代码放进(去掉procedure TZCGZSQCT.Button1Click(Sender: TObject);)

楼上的错误,你检查一下声明,即看看button1 的onClick事件是否挂上了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-12 12:28:44 | 显示全部楼层
无奈了,这是窗体全部的代码,实在不知道哪里错了:

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.
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-12 12:53:42 | 显示全部楼层
编译错误

12.jpg

91.97 KB, 下载次数: 95

回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-12 13:01:29 | 显示全部楼层

onclick

如下

13.jpg

7.66 KB, 下载次数: 98

回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-12 13:22:50 | 显示全部楼层

getidstr 如何使用?

[警告] 循环引用: "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' 过程声明了,但没有实现
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 13:50 , Processed in 0.045221 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表