1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
//DMcode.contacts.close;
DMCode.IBSQL1.SQL.Clear;
DMCode.IBSQL1.SQL.Add('insert into CONTACTS (ID_CONTACT, SERVEUR, SIRET,SERVEUR_SIRET,NOM,PRENOM,CIVILITE,TELEPHONE,PORTABLE,EMAIL,FONCTION)');
DMCode.IBSQL1.SQL.Add('VALUES (:CONTACT,:NSERVEUR,:SIRET,:SERVEUR,:NOM,:PRENOM,:LACOMBO,:TELEPHONE,:PORT,:MAIL,:FONCTION)');
DMCODE.IBSQL1.ParamByName('CONTACT').Value := id_contact;
DMCODE.IBSQL1.ParamByName('NSERVEUR').Value := num_serveur;
DMCODE.IBSQL1.ParamByName('SIRET').Value := DMCode.Prospects.FieldByName('SIRET').AsString;
DMCODE.IBSQL1.ParamByName('SERVEUR').Value := DMCode.Prospects.FieldByName('serveur').Asstring
DMCODE.IBSQL1.ParamByName('NOM').Value := NOM.text;
DMCODE.IBSQL1.ParamByName('PRENOM').Value := PRENOM.text;
DMCODE.IBSQL1.ParamByName('LACOMBO').Value := ComboBox1.text;
DMCODE.IBSQL1.ParamByName('TELEPHONE').Value := TEL.text;
DMCODE.IBSQL1.ParamByName('PORT').Value := PORT.text;
DMCODE.IBSQL1.ParamByName('MAIL').Value := EMAIL.text;
DMCODE.IBSQL1.ParamByName('FONCTION').Value := Fonction.text;
DMCode.IBSQL1.ExecQuery;
DMCode.IBSQL1.Close; |
Partager