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 36 37 38 39
|
t := ('insert into tb_courrier (nature_courrier, famille, type_courrier, reference,');
t := t + ('date_correspondance, objet, mots_cles, chemin_dur)');
t := t + (' values (:cb_Nature, :cb_Famille, :cb_Type, :ed_Ref, :ed_Date, :ed_Objet, :ed_Mots_Cles, :ed_Chemin)');
dmData.IBQ_Courrier.SQL.Clear;
dmData.IBQ_Courrier.SQL.Add(t);
// appel de la fonction d'ajout de courrier
if Ajouter_Courrier(cb_Nature.Text, cb_Famille.Text, cb_Type.Text, ed_Ref.Text, ed_Date.Text,
ed_Objet.Text, ed_Mots_Cles.Text, ed_Chemin.Text ) then
// reste du code
function TfmMain.Ajouter_Courrier(f_Nature, f_Famille, f_Type, f_Ref,
f_Date, f_Objet, f_Mots_Cles, f_Chemin : string) : boolean;
begin
try
with dmData.IBQ_Courrier.Params do
begin
ParamByName('cb_Nature').Text := f_Nature;
ParamByName('cb_Famille').Text := f_Famille;
ParamByName('cb_Type').Text := f_Type;
ParamByName('ed_Ref').Text := f_Ref;
ParamByName('ed_Date').Text := f_Date;
ParamByName('ed_Objet').Text := f_Objet;
ParamByName('ed_Mots_Cles').Text := f_Mots_Cles;
ParamByName('ed_Chemin').Text := f_Chemin;
dmData.IBQ_Courrier.ExecSQL;
dmData.IBTrans_Courrier.CommitRetaining;
Result := True;
end;
except
on e: exception do
begin
Result := False;
ShowMessage(e.Message);
end;
end;
end; |
Partager