ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Exemple de classe basée sur CursorAdapter   


L'auteur

Miky
France France
Membre Simple
# 0000000116
enregistré le 08/11/2004
GILBLAS Mickael
de la société Cisa Informatique
Fiche personnelle

Note des membres
pas de note

Contributions > 06 - VCX - Bibliothèque de classes visuelles

Exemple de classe basée sur CursorAdapter
# 0000000147
ajouté le 17/02/2005 09:33:56 et modifié le 17/02/2005
consulté 8422 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0

Télécharger le ZIP (3.55 Ko)
Description

Voici un petit exemple d'utilisation de la classe CursorAdapter pour l'accès aux données.

J'ai réalisé cette classe pour tests, donc des choses sont en dur dans la classe notament le type d'acces aux donnees est en ODBC, le nom de la base de données est fixé en dur dans la classe ainsi que les paramètres pour y accéder. Aussi le handle de la connexion a SQL server est cherché dans _Screen.nHndSQL. Il y a aussi dans les méthodes d'ajout (AddRec) et de modification (SetRec) la mise a jour de champs particuliers a notre base de données (zones mouchards pour la création / modification de l'enregistrement).

Code source :
*** Utilisation de la classe : exemple d'appel
LOCAL oVue
oVue = CREATEOBJECT("*", "PPARTI", "CODART", "SIGSOC,CODDEP,CODART", ;
              "SIGSOC+CODDEP=zCodste+zCoddep", "", "", "CODART")

*** Parcours des codart commençant par "A"
oVue.SetKeyTo("A")
DO WHILE NOT EOF()
   ...
   SKIP
ENDDO

*** Récupération d'un enregistrement
LOCAL oEnreg
oEnreg = oVue.GetRec("MONARTICLE")
IF NOT ISNULL(oEnreg)    && Enreg trouvé
   ...
ENDIF

*** Ajout d'un enreg
SELECT (oVue.Alias)
SCATTER NAME oEnreg MEMO BLANK
oEnreg.Sigsoc = "001"
oEnreg.Coddep = "01"
oEnreg.Codart = "MONARTICLE"
oEnreg.Libart = "Libellé article"
oVue.AddRec(oEnreg)

*** Modification d'un enreg
oEnreg = oVue.GetRec("MONARTICLE")
IF NOT ISNULL(oEnreg)    && Enreg trouvé
   oEnreg.Libart = "Libellé article modifié"
   oVue.SetRec("MONARTICLE", oEnreg)
ENDIF

*** Suppression d'un enreg
oEnreg.DelRec("MONARTICLE")
Commentaires
Aucun commentaire enregistré ...
Publicité

Les pubs en cours :
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3