>Numbers = CreateObject("Numbers") >Numbers.Convert.HexToDec("FFF") >SQL = CreateObject("MSSQL") >SQL.SQL2000.Server="Myserver" >SQL.SQL2005.Connection.Authenticate = "Local" >>
> >** Frame_Initialize.prg >&& create all the classes and add class to each other > >** common.prg >Public oCommon && <-- Should I public this variable? >oCommon = CreateObject("Common") >Define Class common as Session OLEPublic > **** PEMs >Enddefine > >** class1.prg >Define Class Class_1 as Session OLEPublic > **** PEMs > Procedure Init > AddProperty(oCommon,"common") > Endpr >Enddefine > >** class2.prg >Define Class Class_2 as Session OLEPublic > **** PEMs > Procedure Init > AddProperty(oCommon,"common") > Endpr >Enddefine > >** class3.prg >Define Class Class_3 as Session OLEPublic > **** PEMs > Procedure Init > AddProperty(oCommon,"common") > Endpr >Enddefine >>