【搞定】一个信息代码使用另一个信息中的代码？**

atiger

如果另一个失败怎么办？那么前面那个信息的数据集也回滚吗？还是不管

zwjcooldd

向另一个数据集中插入数据，没有是否同时成功，同时失败的要求。

zwjcooldd

插入时，会查找第三个表，看看这个表中有没有职工工种一样的，有的话就插入。没有就不管。

zwjcooldd

我这种处理方案可行不？我那个错误是怎么回事？{没有声明标识符InitFFAddNewWorkTypeLBP}

zwjcooldd

procedure TGZLBPXX.DataSetGZLBPSJJAfterApplyUpdates(Sender: TObject; var OwnerData: object);
var WorkType,LaobaoGUID:string;
    GZLBPXX:TGZLBPXX;
begin
           WorkType:=DataSetGZLBPSJJ.FieldByName('GZ').AsString;
         LaobaoGUID:=DataSetGZLBPSJJ.FieldByName('LBP').AsString;
         GZLBPXX.Create(nil);
         GZLBPXX.InitFFAddNewWorkTypeLBP(LaobaoGUID,WorkType);

end;

atiger

1、为啥不把这两个数据集放到一个信息呢？

2、信息和数据集都需要环境来创建的，不能传nil。

3、现在遇到哪些具体问题，前面太多，看的有点晕

zwjcooldd

1.当是两个信息分管不同的业务，所以就分开了。通过引入不是就能使用另一个信息中的功能么？
2：那我传Self行吧?
3:遇到的问题就是：（（信息）GZLBPXX.InitFFAddNewWorkTypeLBP(LaobaoGUID,WorkType);
   现在它告诉我：没有声明标识符InitFFAddNewWorkTypeLBP）
       在这个信息里，对另一个信息中的过程的调用时的错误！我已经引入了，另一个信息。

atiger

1.当是两个信息分管不同的业务，所以就分开了。通过引入不是就能使用另一个信息中的功能么？
可以，这样的处理也可以在功能上来做，

2：那我传Self行吧?
可以

3:遇到的问题就是：（（信息）GZLBPXX.InitFFAddNewWorkTypeLBP(LaobaoGUID,WorkType);
   现在它告诉我：没有声明标识符InitFFAddNewWorkTypeLBP）
       在这个信息里，对另一个信息中的过程的调用时的错误！我已经引入了，另一个信息。

你看你的定义在哪里，在TLBPFFXX这里（ procedure TLBPFFXX.InitFFAddNewWorkTypeLBP(LaoBaoPinGUID,WorkType:string);）
而你create  GZLBPXX  这个对象，就不是一个，当然访问不到了。

zwjcooldd

procedure TGZLBPXX.DataSetGZLBPSJJAfterApplyUpdates(Sender: TObject; var OwnerData: object);
var WorkType,LaobaoGUID:string;
    MyLBPFFXX:TLBPFFXX;//改正后的代码 TLBPFFXX (劳保品发放信息）
现在又出的问题：TLBPFFXX 未被声明的标识符。

zwjcooldd

uses LBPFFXX; //看来光是通过项目管理来引入是不行的啊，得写上这句话。
现在问题解决！顺便问一下： MyLBPFFXX.Create(self);//传的Self，指的是在这个信息环境下创建另一个环境么？为啥非得要个环境啊？仅仅为了使用一个过程就要要传个环境啊（我觉得nil也行吧）？