>>Hey all,
>>
>>I remember seeing a while back a simple class that would let you define
>>your own object for data sessions as a non-visual class. Shame on me, I lost the code where I was using it and cant remember how to do it?
>>
>>I think I remember something about using a form object in it...
>>
>>Anybody knows where I saw this information? An article somewhere maybe?
>>Or maybe someone remember how to do it?
>>
>>Thanks in advance
>>
>>Pascal
>
>Pascal,
>Was it this :)
>

set excl off
>oForm = createobject('myForm')
>oForm.Show
>read events
>
>define class myForm as Form
> procedure init
> 	this.Addobject('Sess1','Session1')
>	this.Addobject('Sess2','Session2')
> endproc
>enddefine	
>
>
>define class Session1 as Session
>	Datasession = 2
>	procedure init
>		use customer
>		use orders in 0 order cust_id
>		select customer
>		set relation to cust_id into orders
>	endproc
>enddefine
>
>define class Session2 as Session
>	Datasession = 2
>	procedure init
>		use employee
>		use orders in 0 order emp_id
>		select employee
>		set relation to emp_id into orders
>	endproc
>enddefine
>

Cetin

Oh no not this one. I remember one posted for nonVFP6 users.
Cetin