procedure TForm2.Button1Click(Sender: TObject);
begin
with ADOQuery1 do begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
SQL.ADD(‘Insert Into Tabstudents’);
SQL.ADD(‘values (:Id,:Epitheto, :Onoma,:Onkidemona, :phone,:Adress)’);
Parameters.ParseSQL(ADOQuery1.SQL.Text, True);
Parameters.ParamValues[‘Id’]:=DBEdit1.Text;
Parameters.ParamValues[‘Epitheto’]:=DBEdit2.Text;
Parameters.ParamValues[‘Onoma’]:=DBEdit3.Text;
Parameters.ParamValues[‘Onkidemona’]:=DBEdit4.Text;
Parameters.ParamValues[‘phone’]:=DBEdit5.Text;
Parameters.ParamValues[‘Adress’]:=DBEdit6.Text;
ADOQuery1.ExecSQL;
ADOTable1.Close;
ADOTable1.Open;
end;
DBEdit1.Text:=”;
DBEdit2.Text:=”;
DBEdit3.Text:=”;
DBEdit4.Text:=”;
DBEdit5.Text:=”;
DBEdit6.Text:=”;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
with ADOQuery1 do begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
// SQL.ADD(‘delete * from tabstudents’);
ADOQuery1.ExecSQL;
ADOTable1.Close;
ADOTable1.Open;
ADOQuery1.SQL.Text:= ‘select * from tabstudents order by id’;
end;
DBEdit1.Text:=”;
DBEdit2.Text:=”;
DBEdit3.Text:=”;
DBEdit4.Text:=”;
DBEdit5.Text:=”;
DBEdit6.Text:=”;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
case MessageDlg(‘Σίγουρα θέλεις να κάνεις την επεξεργασία’, mtConfirmation, [mbOK, mbCancel], 0) of mrOk:
begin
with ADOQuery1 do begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
SQL.ADD(‘UPDATE Tabstudents’);
SQL.ADD(‘SET Epitheto= :Epitheto, Onoma=:Onoma, Onkidemona=:Onkidemona, phone=:phone, Adress=:Adress’);
SQL.ADD(‘WHERE id= :id’);
Parameters.ParseSQL(ADOQuery1.SQL.Text, True);
Parameters.ParamValues[‘Id’]:=DBEdit1.Text;
Parameters.ParamValues[‘Epitheto’]:=DBEdit2.Text;
Parameters.ParamValues[‘Onoma’]:=DBEdit3.Text;
Parameters.ParamValues[‘Onkidemona’]:=DBEdit4.Text;
Parameters.ParamValues[‘phone’]:=DBEdit5.Text;
Parameters.ParamValues[‘Adress’]:=DBEdit6.Text;
ADOQuery1.ExecSQL;
ADOTable1.Close;
ADOTable1.Open;
ADOQuery1.SQL.Text:= ‘select * from Data_sale’;
end;
end;
mrCancel:
end;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
case MessageDlg(‘Σίγουρα θέλεις να κάνεις την διαγραφή’, mtConfirmation, [mbOK, mbCancel], 0) of mrOk:
begin
with ADOQuery1 do begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
SQL.ADD(‘delete * from tabstudents where id like ‘+DBEdit1.Text);
ADOQuery1.ExecSQL;
ADOTable1.Close;
ADOTable1.Open;
ADOQuery1.SQL.Text:= ‘select * from tabstudents order by id’;
end;
DBEdit1.Text:=”;
DBEdit2.Text:=”;
DBEdit3.Text:=”;
DBEdit4.Text:=”;
DBEdit5.Text:=”;
DBEdit6.Text:=”;
end;
mrCancel:
end;
end;
procedure TForm2.Button5Click(Sender: TObject);
begin
Close();
end;
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
with ADOQuery1 do begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
SQL.ADD(‘Insert Into onefield’);
SQL.ADD(‘values (:Id)’);
Parameters.ParseSQL(ADOQuery1.SQL.Text, True);
ADOQuery1.ExecSQL;
ADOTable1.Close;
ADOTable1.Open;
end;
DBEdit1.Text:=”;
end;
end.
ΕΙΣΑΓΩΓΗ, ΕΠΕΞΕΡΓΑΣΙΑ ΚΑΙ ΔΙΑΓΡΑΦΗ ΜΕ SQL ΣΕ EMBARCADERO DELPHI.
