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