oData = CREATEOBJECT('customerdata') >oData.OpenCustomerTable() > >oForm = CREATEOBJECT('form') >oForm.AddObject('oGrid', 'grid') >oForm.oGrid.RecordSource = 'customer' >oForm.oGrid.Visible = .T. >oForm.Show(1) > >DEFINE CLASS customerdata AS Custom > PROCEDURE OpenCustomerTable > LOCAL oDataXML, lcXML > oDataXML = CREATEOBJECT('customerdataxml') > lcXML = oDataXML.OpenCustomerTable() > XMLTOCURSOR(lcXML, 'customer') > ENDPROC >ENDDEFINE > > >* Open up the customer table and return it in XML format >DEFINE CLASS customerdataXML AS Session OLEPUBLIC > PROCEDURE OpenCustomerTable > LOCAL lcXML > USE HOME(2) + 'Tastrade\Data\customer.dbf' > CURSORTOXML('customer', 'lcXML') > RETURN lcXML > ENDPROC >ENDDEFINE>