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
|
IBTable4->Open();
IBQuery1->SQL->Clear();
IBQuery1->SQL->Add((String)"INSERT INTO SUIVI (CODECLIENT,DATE1,OFFRE1,ECHANT1,COMMENT1,"
"DATE2,OFFRE2,ECHANT2,COMMENT2,"
"DATE3,OFFRE3,ECHANT3,COMMENT3,"
"DATE4,OFFRE4,ECHANT4,COMMENT4,"
"DATE5,OFFRE5,ECHANT5,COMMENT5,"
"DATE6,OFFRE6,ECHANT6,COMMENT6,"
"DATE7,OFFRE7,ECHANT7,COMMENT7,"
"DATE8,OFFRE8,ECHANT8,COMMENT8,"
"DATE9,OFFRE9,ECHANT9,COMMENT9,"
"DATE10,OFFRE10,ECHANT10,COMMENT10) VALUES("
+ QuotedStr(Edit10->Text) + ", "
+ QuotedStr(MaskEdit1->Text) + ", " + offre1 + ", " + echant1 + ", " + QuotedStr(Edit165->Text) + ", "
+ QuotedStr(MaskEdit2->Text) + ", " + offre2 + ", " + echant2 + ", " + QuotedStr(Edit166->Text) + ", "
+ QuotedStr(MaskEdit3->Text) + ", " + offre3 + ", " + echant3 + ", " + QuotedStr(Edit167->Text) + ", "
+ QuotedStr(MaskEdit4->Text) + ", " + offre4 + ", " + echant4 + ", " + QuotedStr(Edit168->Text) + ", "
+ QuotedStr(MaskEdit5->Text) + ", " + offre5 + ", " + echant5 + ", " + QuotedStr(Edit169->Text) + ", "
+ QuotedStr(MaskEdit6->Text) + ", " + offre6 + ", " + echant6 + ", " + QuotedStr(Edit170->Text) + ", "
+ QuotedStr(MaskEdit7->Text) + ", " + offre7 + ", " + echant7 + ", " + QuotedStr(Edit171->Text) + ", "
+ QuotedStr(MaskEdit8->Text) + ", " + offre8 + ", " + echant8 + ", " + QuotedStr(Edit172->Text) + ", "
+ QuotedStr(MaskEdit9->Text) + ", " + offre9 + ", " + echant9 + ", " + QuotedStr(Edit173->Text) + ", "
+ QuotedStr(MaskEdit10->Text) + ", " + offre10 + ", " + echant10 + ", " + QuotedStr(Edit174->Text) + ")");
IBQuery1->ExecSQL();
Form1->IBTransaction1->Commit();
Close(); |
Partager