Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Smallest object in VFP 7
Message
De
10/12/2001 22:16:38
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Programmation Orientée Object
Divers
Thread ID:
00590364
Message ID:
00592504
Vues:
30
>David,
>
>I forgot to show you Utilities.prg;
>
>
>* Utilities.prg
>* Defines various utility classes
>
>DEFINE CLASS Addr AS Session
>
>PROCEDURE Init
>This.Datasession = 2
>IF NOT USED("Addresses")
>   USE Addresses ALIAS Addresses AGAIN SHARED
>ENDIF
>
>ENDPROC
>
>PROCEDURE Exists(tcAddrNum)
>
>RETURN IndexSeek(m.nAddrNum, 'Address', 'Addrnum')
>ENDPROC
>
>* Other possible Mehotds
>PROCEDURE AddAddr( ... )
>
>ENDPROC
>
>PROCEDURE DelAddr( ... )
>
>ENDPROC
>
>ENDDEFINE
>
>* Other utility class definitions would be added here
>
Thanks Jim, that all makes sense. One more thing. We have already an enhanced "custom" base class called "custom_nv" which has a lot of nice things to support our application framework. Is there any way of adding the private datasession to custom_nv, apart from rewriting the properties/methods in "custom_nv" into a prg as you show above?
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform