Delphi

procedure TForm4.Button1Click(Sender: TObject);

begin

with ADOQuery2 do begin

      ADOQuery2.Close;

      ADOQuery2.SQL.Clear;

SQL.ADD(‘select  * from diffAdik’);

        ADOQuery2.ExecSQL;

       ADOTable2.Close;

     ADOTable2.Open;

        end;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

with ADOQuery1 do begin

      ADOQuery1.Close;

      ADOQuery1.SQL.Clear;

SQL.ADD(‘select  * from LessOfTwo’);

        ADOQuery1.ExecSQL;

       ADOTable1.Close;

     ADOTable1.Open;

        end;

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

  close();

end;

procedure TForm4.Button4Click(Sender: TObject);

begin

case MessageDlg(‘Σίγουρα θέλεις να κάνεις την μεταφορά’, mtConfirmation, [mbOK, mbCancel], 0) of  mrOk:

  begin

   with ADOQuery1 do begin

      ADOQuery1.Close;

      ADOQuery1.SQL.Clear;

        SQL.ADD(‘INSERT INTO  TabapousiesOk SELECT distinct * FROM Tabapousies’);

//        SQL.ADD(‘delete * from tabapousies’);

        ADOQuery1.ExecSQL;

       ADOTable1.Close;

     ADOTable1.Open;

        end;

   with ADOQuery1 do begin

      ADOQuery1.Close;

      ADOQuery1.SQL.Clear;

        SQL.ADD(‘delete * from tabapousies’);

        ADOQuery1.ExecSQL;

       ADOTable1.Close;

     ADOTable1.Open;

        end;

end;

mrCancel:

   end;

   end;

   end.