哪位高手帮我解释一下这个过程。谢谢(50分)

C

chen_ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #1

procedure TDatabase.ApplyUpdates(const DataSets: array of TDBDataSet);
var
I: Integer;
DS: TDBDataSet;
begin
StartTransaction;
try
for I := 0 to High(DataSets)do
begin
DS := DataSets;
if DS.Database <> Self then
DatabaseError(Format(SUpdateWrongDB, [DS.Name, Name]));
DataSets.ApplyUpdates;
end;
Commit;
except
Rollback;
raise;
end;
for I := 0 to High(DataSets)do
DataSets.CommitUpdates;
end;

 

S

smartkid

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #2

procedure TDatabase.ApplyUpdates(const DataSets: array of TDBDataSet);
var
I: Integer;
DS: TDBDataSet;
begin
StartTransaction;
//开始事务
try
for I := 0 to High(DataSets)do
begin
DS := DataSets;
if DS.Database <> Self then
//如果这个dataset不属于当前的Database则报错
DatabaseError(Format(SUpdateWrongDB, [DS.Name, Name]));
DataSets.ApplyUpdates;
//将DataSet中的数据更新至数据库中，和CacheUpdates属性有关
end;
Commit;
//若所有的DataSet都已更新则向服务器提交事务
except
Rollback;
//否则回滚事务
raise;
end;
for I := 0 to High(DataSets)do
DataSets.CommitUpdates;//通知DataSet数据已保存了
end;

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #3

>>

 

H

hansong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #4

smartkid:为何不在此地宣传一下你的网页?

 

S

smartkid

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #5

呵呵，是坏人吗？说得有理
我的主页正在劳动改造...
smartkid.yeah.net

 

C

chen_ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-21

• #6

接受答案了.

 

H

hansong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-21

• #7

呵呵,我可不是坏人.
我真不是坏人啊! :-O