Query1.SQL.Clear; Query1.SQL.Add('insert into A(Field1, Field2) values(:Field1, :Field2)'); Query1.SQL.Add('insert into B(Field1, Field2) values(:Field1, :Field2)'); Query1.ParamByName('Field1').AsString:='姓名'; Query1.ParamByName('Field2').AsString:=''; Query1.ExecSQL;Query1.SQL.Clear; Query1.SQL.Add('delete from A where Field1=:Field1'); Query1.SQL.Add('delete from B where Field1=:Field1'); Query1.ParamByName('Field1').AsString:='姓名'; Query1.ExecSQL;
Query1.SQL.Add('insert into A(Field1, Field2) values(:Field1, :Field2)');
Query1.SQL.Add('insert into B(Field1, Field2) values(:Field1, :Field2)');
Query1.ParamByName('Field1').AsString:='姓名';
Query1.ParamByName('Field2').AsString:='';
Query1.ExecSQL;Query1.SQL.Clear;
Query1.SQL.Add('delete from A where Field1=:Field1');
Query1.SQL.Add('delete from B where Field1=:Field1');
Query1.ParamByName('Field1').AsString:='姓名';
Query1.ExecSQL;