Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Smallest object in VFP 7
Message
From
10/12/2001 22:16:38
 
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Miscellaneous
Thread ID:
00590364
Message ID:
00592504
Views:
29
>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?
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform