CLASS TCustomerForm OF FORM WITH oCustomerTable = NEW DATATABLE() FUNCTION INIT() THIS.oCustomerTable.DATABASE := "SALES" THIS.oCustomerTable.TABLENAME := "CUSTOMER.DBF" THIS.oCustomerTable.OPEN() ENDFUNC ENDCLASS