怎样在三层中对多表操作！(100分)

我在界面有多个edit，这多个edit对应多个表，现在我要将这些edit中的数据插入到表中，
怎样将这多个edit中的数据打成一个数据包发送到中间层，然后又怎么在中间层将其分开，
然后分别插入到各对应的表中。插入失败后还要回滚！最好有一些源码，多谢各位！
中间层用的是Adoconnection,Adoquery,

看李维的书！

AdoConnction在李维的书上有将其如何处理事务的
Adoconnection1.begin
Trans;
Adoconnection1.CommitTrans;
Adoconnection1.RollbackTrans
我想你会怎么用吧，不会就看李维的书Ado/mts/com+那本
对于多edit可以用
A := VarArrayCreate([0, 4], varVariant);
A[0] := 1;
A[1] := 1234.5678;
A[2] := 'Hello world';
A[3] := True;
A[4] := VarArrayOf([1, 10, 100, 1000]);
我想够清楚吧，不懂网上来找我

接受答案了.