procedure TForm1.ApplyButtonClick(Sender: TObject);
begin
with CustomerQuery do
begin
Database1.StartTransaction;
try
ApplyUpdates; {try to write the updates to the database};
// 데이타베이스의 TEMP영역에 작업을 합니다.
Database1.Commit; {on success, commit the changes};
// 데이타베이스에 실적용을 하죠
except
Database1.Rollback; {on failure, undo the changes};
// 에러가 있다면(Key 에러, 기타 넽,웍등등) 원래상태로 복원합니다.
raise; {raise the exception to prevent a call to CommitUpdates!}
end;
CommitUpdates; {on success, clear the cache}
// 메모리에 남아있던 작업리스트를 없애줍니다.
end;
begin
with CustomerQuery do
begin
Database1.StartTransaction;
try
ApplyUpdates; {try to write the updates to the database};
// 데이타베이스의 TEMP영역에 작업을 합니다.
Database1.Commit; {on success, commit the changes};
// 데이타베이스에 실적용을 하죠
except
Database1.Rollback; {on failure, undo the changes};
// 에러가 있다면(Key 에러, 기타 넽,웍등등) 원래상태로 복원합니다.
raise; {raise the exception to prevent a call to CommitUpdates!}
end;
CommitUpdates; {on success, clear the cache}
// 메모리에 남아있던 작업리스트를 없애줍니다.
end;
end;