1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| procedure TForm2.enregistrerClick(Sender: TObject);
var dte: TDateTime;
begin
dte := date();
adoquery1.Open;
adoquery1.Insert;
adoquery1.FieldByName( 'Date' ).AsDateTime := dte;
adoquery1.FieldByName( 'Type_Requête' ).AsString := DBEdit1.text;
adoquery1.FieldByName( 'Requête' ).AsString := dbmemo1.text;
adoquery1.FieldByName( 'Nombre_Exécution' ).AsInteger := StrToInt(dbedit18.Text);
adoquery1.FieldByName( 'commentaire_Requête' ).AsString := dbmemo2.text;
adoquery1.FieldByName( 'Nombre_Enregistrement' ).AsInteger := StrToInt(DBEdit2.text);
adoquery1.FieldByName( 'Chargement_BDE' ).AsString := dbedit15.Text;
adoquery1.FieldByName( 'Chargement_ADO' ).AsString := dbedit10.Text;
adoquery1.FieldByName( 'Chargement_DBExpress' ).AsString := dbedit7.Text;
adoquery1.Post;
adoquery1.Close;
end; |