1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Req := 'INSERT INTO produits';
Req := Req + (' (Code_produit,Observations,Code_Caserne,Date_Maj,code_hierarchie,Code_tei');
Req := Req + (' ,code_etat,Code_Apsi,Num_Serie,Date_Garantie,affectation,cto,Code_TypeProduit,reseau )');
Req := Req + (' VALUES('+QuotedStr(IntToStr(prochain_numero))+',');
Req := Req + (''+Quotedstr(M_Obs.Text)+')');
Req := Req + (''+IntToStr(Integer(Cb_Caserne.items.objects[Cb_Caserne.itemindex])) +',');
Req := Req + ('' +Quotedstr(convertsqlDate(DateDuJour))+',');
Req := Req + (''+IntToStr(Integer(Cb_Hierarchie.items.objects[Cb_Hierarchie.itemindex])) +',');
Req := Req + (''+ quotedstr(Edt_Tei.text) +',');
Req := Req + (''+IntToStr(Integer(CB_Etat.items.objects[CB_Etat.itemindex])) +',');
Req := Req + ('' +QuotedStr(Edt_Apsi.Text)+','+QuotedStr(Edt_Serie.text)+',');
if Edt_DateGarantie.Text <> ' / / '
then Req := Req + ('' +Quotedstr(convertsqlDate(Edt_DateGarantie.Text))+',')
else Req := Req + ('' +''+',') ;
Req := Req + ('' +QuotedStr(Edt_Affectation.Text)+',');
Req := Req + ('' +QuotedStr(Edt_cto.Text)+',');
Req := Req + (''+IntToStr(Integer(CB_ClProduit.items.objects[CB_ClProduit.itemindex])) +')');
ExecuteQuery; |
Partager