ادخال بيانات من قاعدة الى قاعدة بشرط

كود :

if ABSTable1.State in [dsInsert] then
begin
  ABSTable2.Append;
  ABSTable2.FieldByName('ID').Value := ABSTable1.FieldByName('ID').Value;
  ABSTable2.Post;
end;

كود :

if (E is EABSEngineError) then
    begin
      Showmessage('Error');
      Abort;
    end;

كود :

dbDemos.StartTransaction;
  try

    AbsTable1.Insert;
    AbsTable1.FieldByName('name').AsString := 'Kelly';
    AbsTable1.Post;
  AbsTable2.Insert;
 AbsTable2.FieldByName('name').AsString := 'Kelly';
 AbsTable2.Post;
    dbDemos.Commit(cbFlush.Checked);
  except
    dbDemos.Rollback;
  end;

كود :

with ABSQuery1 do
    begin
      SQL.Text := 'START TRANSACTION; INSERT INTO friends (name) values ("Junior");';
      if cbFlush.Checked then
        SQL.Text := SQL.Text + 'COMMIT;'
      else
        SQL.Text := SQL.Text + 'COMMIT NOFLUSH;';
      try
        ExecSQL;
      except
        SQL.Text := 'ROLLBACK';
        ExecSQL;
      end;
    end;

كود :

procedure TForm1.ABSTable1AfterEdit(DataSet: TDataSet);
begin
label1.Caption := '1';
end;

procedure TForm1.ABSTable1AfterInsert(DataSet: TDataSet);
begin
label1.Caption := '0';
end;

procedure TForm1.ABSTable1AfterPost(DataSet: TDataSet);
begin
if label1.Caption = '0' then
begin
  ABSTable2.Append;
  ABSTable2.FieldByName('ID').Value := ABSTable1.FieldByName('ID').Value;
  ABSTable2.FieldByName('auto').Value := ABSTable1.FieldByName('auto').Value;
  ABSTable2.Post;
end;
if label1.Caption = '1' then
begin

  With Qr1 Do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Update Table2 Set ID = '+ InttoStr(ABSTable1ID.Value) +' Where auto = '+ IntToStr(ABSTable1auto.Value) +'');
    ExecSQL;
    ABSTable2.Refresh;
  end;

end;

end;

procedure TForm1.ABSTable1BeforeDelete(DataSet: TDataSet);
begin
  With Qr1 Do
  begin
    Close;
    SQL.Clear;
    SQL.Add('delete from table2 where auto = '+ inttostr(ABSTable1auto.Value) +'');
    ExecSQL;
    ABSTable2.Refresh;
  end;
end;

procedure TForm1.ABSTable1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
    if (E is EABSEngineError) then
    begin
      Showmessage('Error');
      Abort;
    end;

end;

كود :

drop table MyTable;
create table MyTable (ID AutoInc, val1 Integer, val2 string(10));
insert into MyTable (val1, val2) values (2,'Start');
start transaction;
insert into MyTable (val1, val2) values (4,'Rollback');
rollback;
start transaction;
insert into MyTable (val1, val2) values (5,'Commit');
commit;
select * from MyTable;

كود :

drop table MyTable;
create table MyTable (ID AutoInc, val1 Integer, val2 string(10));
insert into MyTable (val1, val2) values (2,'2');
insert into MyTable (val1, val2) values (4,'3');
start transaction;
insert into MyTable (val1, val2) values (5,'Flush1');
insert into MyTable (val1, val2) values (7,'Flush2');
commit flush;
select * from MyTable;

كود :

if ABSTable1.State in [dsEdit] then

كود :

if ABSTable1.State in [dsInsert] then

كود :

  dbdemo2.StartTransaction;
if ABSTable1.State in [dsInsert] then
BEGIN
    try
    AbsTable2.Insert;
    ABSTable2.FieldByName('ID').Value := ABSTable1.FieldByName('ID').Value;
    AbsTable2.Post;
    dbdemo2.Commit(cbFlush.Checked);
    except
    dbdemo2.Rollback;
end;
end;