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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
|
unit Help;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ADODB, DB, ComCtrls;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQAfficher: TADOQuery;
Button1: TButton;
EditNom: TEdit;
EditPrenom: TEdit;
DateTimePicker1: TDateTimePicker;
EditHeure: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TodateSql(Date: TDate): string;
var c: char;
begin
c := DateSeparator; // Sauvegarder le separateur de date
DateSeparator := '/'; // le slash est le caractère que reconnait le separateur de date de DBase
Result := FormatDateTime('mm/dd/yyyy', Date); // date sql est de type mois, jour, année
DateSeparator := c; // récupère le separateur de date sauvegardé
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQAfficher do
begin
Close;
SQL.Clear;
SQL.Add('insert into Table1');
SQL.Add('(nom,prenom)');
SQL.Add('Values(' + QuotedStr(editNom.Text) + ',' + QuotedStr(editPrenom.Text) + ')');
Prepared := True;
ExecSQL;
Close;
SQL.Clear;
SQL.Add('insert into Table2');
SQL.Add('([date],heure)');
SQL.Add('Values(#' + ToDateSql(DATETIMEPICKER1.Date) + '#,' + QuotedStr(editHeure.Text) + ')');
Prepared := True;
ExecSQL;
Close;
end;
end;
end. |
Partager