流程代理组件是否可以放在父类中**

YZYHZ

当流程代理组件放在父类中时，

然后在子类中编写流程代理组件的事件，为何执行父类的代码，而不执行子类的代码？

使用流程代理组件和数据代理组件有何限制和要求？？？？？

alang

没有特殊限制和要求，关键是看你在子类的代码怎么写的了

alang

或者你设置断点执行一下看看

YZYHZ

帮看看代码？应该如何来写？

procedure TCXBGSHwindow.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
  JsDialogs.ShowMsg('test','审核');
  Inherited;
end;
这是继承一个基类功能来做的，在继承的窗体上加了一个流程代理组件

下面这段代码是可以执行的，没有使用基类
procedure TCXBGZCT.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
  dsbCxbg.DataSet.Edit;
  dialogs.showmessage('1');
  dsbCxbg.DataSet.FieldByName('FState').asInteger := 1;
  dsbCxbg.DataSet.ApplyUpdates;
end;


不知为什么？

alang

子类中，Inherited;表示执行父类的事件，你没有写，当然不执行了

YZYHZ

在父类什么地方写？

能给个电话号码，我想联系一下

或者回个电话，你们的电话太难打？

这是审核功能窗体的所有代码？

unit CXBGSHwindow;

interface

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

type
  TCXBGSHwindow = class(FUNCPCBASE.TMainWindow)
    FlowBroker1: TFlowBroker;
    dsbCxbg: TDataSetBroker;

    procedure FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TCXBGSHwindow.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
  Inherited;
  JsDialogs.ShowMsg('test','审核');
end;

end.

alang

下面这段代码是可以执行的，没有使用基类
procedure TCXBGZCT.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
  dsbCxbg.DataSet.Edit;
  dialogs.showmessage('1');
  dsbCxbg.DataSet.FieldByName('FState').asInteger := 1;
  dsbCxbg.DataSet.ApplyUpdates;
  inherited;
end;

atiger

应该是子类继承后，没有修改主窗体的属性，功能继承后，这些属性都是跟父类一样的，见附件图片

YZYHZ

可以，谢谢。

dsbCxbg.DataSet.ApplyUpdates;

这个语句中的ApplyUpdates  是什么意思？ 和post 方法有何区别？

atiger

ApplyUpdates 是从客户端提交到数据库，

post ，仅仅是本地保存，没有跟数据库交互