PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** *-- Form: form1 (c:\nec\temp.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 07/27/01 10:26:09 AM * DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 295 Width = 416 DoCreate = .T. Caption = "Form1" Visible = .T. Name = "Form1" ADD OBJECT text1 AS textbox WITH ; ControlSource = "foo.n1", ; Format = "KZ", ; Height = 23, ; InputMask = "999.99", ; Left = 148, ; SelectOnEntry = .T., ; Top = 101, ; Width = 100, ; Name = "Text1" ADD OBJECT text2 AS textbox WITH ; ControlSource = "foo.n1", ; Format = "KZ", ; Height = 23, ; InputMask = "999.99", ; Left = 148, ; Top = 133, ; Width = 100, ; Name = "Text2" ADD OBJECT command1 AS commandbutton WITH ; Top = 167, ; Left = 148, ; Height = 27, ; Width = 84, ; Caption = "Command1", ; Name = "Command1" PROCEDURE Load CREATE CURSOR foo (n1 n(6,2)) INSERT INTO foo (n1) VALUES (1.1) INSERT INTO foo (n1) VALUES (0.0) APPEND BLANK IN foo GO top ENDPROC PROCEDURE command1.Click SKIP 1 IN foo IF EOF('foo') GO TOP IN foo ENDIF THISFORM.REFRESH ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************