1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| with DM.ADQLibre do
begin
// try
close;
SQL.Clear;
SQL.Add('INSERT INTO boisson(libBois) values(:libBois)');
Parameters.ParamByName('libBois').Value:=EdNomBois.Text;
Prepared:=True;
ExecSQL;
//Ajout dans cotification
close;
SQL.Clear;
SQL.Add('INSERT INTO cotification(codBois,codCond,prix) values(:codBois, :codCond, :prix)');
Parameters.ParamByName('codBois').Value:=IntToStr(Maximum('boisson','codBois'));
Parameters.ParamByName('codCond').Value:=DBLCBCond.KeyValue;
Parameters.ParamByName('prix').Value:=EdPrixBois.Text;
Prepared:=True;
ExecSQL;
ShowMessage('Nouveau Conditionnement ajoute avec succes!!');
//Except
ShowMessage('Echec d''enregistrement');
//end;
end; |
Partager