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
|
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->Text = DateTimeToStr(Now());
if ( Edit1->Text!="" && Edit2 ->Text!="" &&
Edit3->Text!="" )
{
try
{
Query1 ->ParamByName("Ed1")->AsDateTime = Edit1->Text ;
Query1->ParamByName("Ed2")->AsDateTime= DateTimeToStr(Edit1 ->Text)+20;Query1->ParamByName("Ed3")->AsDateTime =DateTimeToStr(Edit1 ->Text)+15;// je veut que Edit2,Edit3 prend la valeur de Edit1+15 jour
if (MessageDlg("vous été entrain d’insérer les dates " ,
mtInformation, TMsgDlgButtons() << mbOK <<mbCancel, 0)== mrOk)
{
Query1 ->ExecSQL();
}
}
Catch (...)
{
ShowMessage("") ;
}
}
else
{
ShowMessage("ddttt ") ;
}
Query2->Active=0;
Query2->SQL->Clear();
Query2->SQL->Add("SELECT date1,date2,date3 FROM ma table");
Query2->Active=1;
Edit1->Text=Query2->FieldByName("date1") ->AsDateTime;
Edit2->Text=Query2->FieldByName("date2") ->AsDateTime;
Edit3->Text=Query2->FieldByName("date3") ->AsDateTime;
} |
