PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************* *-- Form: form1 (e:\ut\form1.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 04/02/07 08:59:05 PM * DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT edit1 AS editbox WITH ; Height = 135, ; Left = 19, ; Top = 35, ; Width = 336, ; Name = "Edit1" ADD OBJECT command1 AS commandbutton WITH ; Top = 201, ; Left = 119, ; Height = 25, ; Width = 134, ; Caption = "Make query", ; Name = "Command1" PROCEDURE Init ThisForm.edit1.Value = "SELECT * FROM login INTO CURSOR MyCursor" ENDPROC PROCEDURE command1.Click LOCAL lcoldpath, lcmyquery lcmyquery = ALLTRIM(ThisForm.edit1.Value) lcoldpath = SET("Path") SET PATH TO HOME(2) + "Solution\forms\" EXECSCRIPT(lcmyquery) BROWSE NORMAL SET PATH TO (lcoldpath) ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************