要保证数据库的数据一致性在DELPHI 中怎么实现？？

Question

数据库中有两个有主从关系的表，要在删除的时候在DELPHI中实现
先删从表的莫条记录，在删主表中的，这个SQL 语句在DELPHI前台
怎么实现？/

Answer 1

var
  id : String;
begin
  id := IntToStr(ClientDataSet1.FieldByName('id').asieger);//从表的ID
  colse;
  commandtext:='Delete 从表 From Where id = '+id;
  commandtext:='Delete 主表 From Where id = '+id;//删除
  execute;
  colse;
  commandtext:='Select * From 主表 ';//刷新
  open;
end;end.

Answer 2

var
  id : String;
begin
  id := IntToStr(ClientDataSet1.FieldByName('id').asineger);//从表的ID
  colse;
  commandtext:='Delete 从表 From Where id = '+id;
  commandtext:='Delete 主表 From Where id = '+id;//删除
  execute;
  colse;
  commandtext:='Select * From 主表 ';//刷新
  open;
end;end.

Answer 3

或者你写好SQL语句啊。
Exec aa
Delete From 从表 Where id = @id
Delete From 主表 Where id = @id
Select * From 主表
Select * From 从表
var
  id : String;
begin  
  colse;
  commandtext:='Execute aa '+id;
  execute;
end;
end.