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 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
| PROCEDURE Controle_Touche()
sSql est une chaîne
sdReq est une Source de Données
sSql=[
SELECT
CLIENT.IDCLIENT,
CLIENT.Code,
CLIENT.Nom,
CLIENT.NomPersonne,
CLIENT.Prenom,
CLIENT.Ville,
CLIENT.Activité,
CLIENT.Adresse,
CLIENT.Patente
FROM CLIENT
WHERE
Code LIKE %1
AND Nom LIKE %2
AND NomPersonne LIKE %3
AND Prenom LIKE %4
AND Ville LIKE %5
ORDER by Nom
]
sSql=ChaîneConstruit(sSql,"'%"+SAI_RECH_CODE+"%'",...
"'%"+SAI_RECH_SOCIETE+"%'",...
"'%"+SAI_RECH_NOM+"%'",...
"'%"+SAI_RECH_PRENOM+"%'",...
"'%"+SAI_RECH_VILLE+"%'")
//info(ssql)
SI PAS HExécuteRequêteSQL(sdReq,hRequêteDéfaut,sSql) ALORS
Erreur("ERREUR Requête Client "+HErreurInfo(hErrComplet))
SINON
TableSupprimeTout(TABLE_CLIENT)
POUR TOUT sdReq DEPUISDEBUT
//Remplissage de la table
TableAjoute(TABLE_CLIENT,...
sdReq.IDCLIENT+TAB+...
sdReq.Code+TAB+...
sdReq.Nom+TAB+...
sdReq.NomPersonne+TAB+...
sdReq.Prenom+TAB+...
sdReq.Ville+TAB+...
sdReq.Activité+TAB+...
sdReq.Adresse)
FIN
FIN
HAnnuleDéclaration(sdReq)
FinTimerSys(1) |
Partager