>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