FUNCTION createDE LPARAMETER tcDEName LOCAL lode loDE=createobject(tcDEName) RETURN loDE DEFINE CLASS Cursor1 AS otCursor Left = 10 Top = 20 Width = 95 Height = 90 Alias = "title" Database = "..\data\zoom.dbc" CursorSource = "title" Name = "Cursor1" ENDDEFINE DEFINE CLASS Cursor2 AS otCursor Left = 149 Top = 10 Width = 95 Height = 90 Alias = "customers" Database = "..\data\zoom.dbc" CursorSource = "customers" Name = "Cursor2" ENDDEFINE DEFINE CLASS rptde AS otDataEnvironment Left = 98 Top = 344 Width = 520 Height = 200 Name = "rptde" ADD OBJECT oCursor1 AS Cursor1 ADD OBJECT oCursor2 AS Cursor2 ENDDEFINE DEFINE CLASS srchde AS otDataEnvironment Left = 1 Top = 220 Width = 520 Height = 200 Name = "srchform" ADD OBJECT oCursor1 AS Cursor1 ENDDEFINE