1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
procedure TForm3.Button1Click(Sender: TObject);
var requete,x2,x3,x4 : string;
x1,x5,x6 : integer;
begin
x1:= strtoint(edit1.text);
x2:= edit2.Text; x3:= edit3.Text; x4:= edit4.Text; x5:= strtoint(edit5.Text);
x6:= strtoint(edit6.Text);
requete := 'insert into Table_Client(Code_Client,Nom_Client,Prenom_Client,Adress_Client,Tel_Client,Code_Postal) Values(:x1,:x2,:x3,:x4,:x5,:x6)';
form2.query1.close;
form2.query1.sql.clear;
form2.query1.sql.add(requete);
form2.query1.parambyname('x1').asinteger := strtoint(edit1.Text);
form2.query1.parambyname('x2').asstring := edit2.text;
form2.query1.parambyname('x3').asstring := edit3.text;
form2.query1.parambyname('x4').asstring := edit4.text;
form2.query1.parambyname('x5').asinteger := strtoint(edit5.Text);
form2.query1.parambyname('x6').asinteger := strtoint(edit6.Text);
form2.query1.execsql;
end; |
Partager