>LOCAL oDE
>oDE = CREATEOBJECT('custom_de')
>set
>WAIT WINDOW "DataEnviroment has been created"
>BROWSE
>
>DEFINE CLASS custom_de as dataenvironment
> AutoOpenTables = .T.
> AutoCloseTables = .T.
> ADD OBJECT oCustomer as csrCustomer
>
> PROCEDURE Init
> IF This.AutoOpenTables
> WAIT WINDOW "OpenTables() is about to be called"
> This.OpenTables()
> ENDIF
> ENDPROC
>
> PROCEDURE Destroy
> IF this.AutoCloseTables
> WAIT WINDOW "CloseTables() is about to be called"
> This.CloseTables()
> ENDIF
> ENDPROC
>
> PROCEDURE OpenTables
> WAIT WINDOW "Currently executing the OpenTables() method"
> ENDPROC
>
> PROCEDURE CloseTables
> WAIT WINDOW "Currently executing the CloseTables() method"
> ENDPROC
>ENDDEFINE
>
>DEFINE CLASS csrCustomer as Cursor
> Alias = "Customer"
> CursorSource = "Customer"
> Database = HOME(2) + "Data\TestData.dbc"
>ENDDEFINE
>