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 dinsé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;
} |
Partager