【结】流转问题:FlowBroker1BeforeFlowOut**

crystal

unit TSSH;

interface

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

type
  TTSSH = class(JYSQX.TTSJY)
    DataSetBroker1: TDataSetBroker;
    DataSetBroker2: TDataSetBroker;
    Query1: TQuery;
    FlowBroker1: TFlowBroker;
    procedure FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
    procedure FlowBroker1BeforeFlowFinish(Sender: TObject; Command: TFlowFinishCommand);
    procedure FlowBroker1BeforeFlowBack(Sender: TObject; Command: TFlowBackCommand);
    procedure FlowBroker2BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TTSSH.FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  i:integer;
begin
   Inherited;
    //i:=0;
    Dialogs.ShowMessage('0');
    {  DataSetBroker1.DataSet.First ;
      while not DataSetBroker1.DataSet.Eof do
      begin
        try
        Query1 :=TQuery.Create(Self);
        Query1.ConnectionString := 'DATABASEURL=Biz:\OABGZDHXT\BGZDHSJK.DATABASE';
        Query1.Close;
        Query1.CommandText := 'Update TSZB set JYSL=JYSL+'+DataSetBroker1.DataSet.FieldByName('JYSL').AsString+' where TSBH='''+ DataSetBroker1.DataSet.FieldByName('TSBH').AsString +'''';
        Query1.Execute;
        i:=1;
        except
          on e:Exception do
          Dialogs.ShowMessage(e.Message);
        end;
        DataSetBroker1.DataSet.Next;
      end;
    if i=1 then
     Dialogs.ShowMessage('库存量已经更改');  }

end;

procedure TTSSH.FlowBroker1BeforeFlowFinish(Sender: TObject; Command: TFlowFinishCommand);
var
  i:integer;
begin
   Inherited;
    i:=0;
    Dialogs.ShowMessage('0');
      DataSetBroker1.DataSet.First ;
      while not DataSetBroker1.DataSet.Eof do
      begin
        try
        Query1 :=TQuery.Create(Self);
        Query1.ConnectionString := 'DATABASEURL=Biz:\OABGZDHXT\BGZDHSJK.DATABASE';
        Query1.Close;
        Query1.CommandText := 'Update TSZB set JYSL=JYSL+'+DataSetBroker1.DataSet.FieldByName('JYSL').AsString+' where TSBH='''+ DataSetBroker1.DataSet.FieldByName('TSBH').AsString +'''';
        Query1.Execute;
        i:=1;
        except
          on e:Exception do
          Dialogs.ShowMessage(e.Message);
        end;
        DataSetBroker1.DataSet.Next;
      end;
    if i=1 then
     Dialogs.ShowMessage('库存量已经更改');

end;

procedure TTSSH.FlowBroker1BeforeFlowBack(Sender: TObject; Command: TFlowBackCommand);
begin
  Inherited;
   Dialogs.ShowMessage('111');
end;

procedure TTSSH.FlowBroker2BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  i:integer;
begin
   Inherited;
    i:=0;
    Dialogs.ShowMessage('0');
      DataSetBroker1.DataSet.First ;
      while not DataSetBroker1.DataSet.Eof do
      begin
        try
        Query1 :=TQuery.Create(Self);
        Query1.ConnectionString := 'DATABASEURL=Biz:\OABGZDHXT\BGZDHSJK.DATABASE';
        Query1.Close;
        Query1.CommandText := 'Update TSZB set JYSL=JYSL+'+DataSetBroker1.DataSet.FieldByName('JYSL').AsString+' where TSBH='''+ DataSetBroker1.DataSet.FieldByName('TSBH').AsString +'''';
        Query1.Execute;
        i:=1;
        except
          on e:Exception do
          Dialogs.ShowMessage(e.Message);
        end;
        DataSetBroker1.DataSet.Next;
      end;
    if i=1 then
     Dialogs.ShowMessage('库存量已经更改');

end;


end.

zfang

我看你这个功能的主窗体设置。

crystal

FlowBroker2BeforeFlowOut  是继承的原来窗体的.
FlowBroker1BeforeFlowOut  是我自己放的一个.

zfang

。。。。。
我是指你这个功能，主窗体属性，你指的是哪个？
把它贴图看看。

crystal

功能下只有一个窗体.主窗体的设置 是指什么?

crystal

我是继承入口的功能窗体的.我现在打包发上来..

crystal

这是 申请 审核..数据库..流程  
审核是继承申请的,我想在审核的流转时执行代码的.

zfang

楼主，我导入你的包后，看到的是这样的一个主窗体设置，那当然就不会进入业务模型OA办公自动化系统图书管理\借阅申请审核新图书审核这个里面的代码了。

crystal

我直接继承的没有改,,OK,,可以结帖了..把主窗体改成审核 就OK了..谢谢.

zfang

哦，好，下次注意，继承的功能，他的主窗体默认为父功能的主窗体。
结贴。