1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| with SqlQuery1 do
begin
Close;
with Sql do
begin
Clear;
if (cree=false) then
begin
Add('INSERT INTO commande(numero) ');
add('values ('' '+edit1.Text+' '' )');
cree:=true;
end;
Add('INSERT INTO lot(numero,designation,nom_dir,reference,quantite,');
add('prix_unitaire,prix_total,annee,numero_cmd)');
add('values ( '+edit4.Text);
add(','' '+edit5.text+' '' ');
add(','' '+ComboBox1.Text+' '' ');
add(','' '+edit6.Text+' ''');
add(','+edit7.Text);
add(','+edit8.Text);
add(','+edit9.Text);
add(','+annee.ComboBox1.Text);
add(','' '+edit1.Text+' '')');
end;
Try
ExecSql;
except
on e: Exception do
showmessage(' *** pb_insert '+ e.Message);
end;
end; // with SqlQuery1
end; |
Partager