oX = CREATEOBJECT( 'form1' ) oX.show() READ EVENTS CANCEL ALL CLEAR ALL ************************************************** *-- Form: form1 (c:\nec\temp.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 08/05/99 12:40:02 PM * DEFINE CLASS form1 AS form DataSession = 2 Top = 0 Left = 0 Height = 95 Width = 214 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT combo1 AS combobox WITH ; BoundColumn = 2, ; ColumnCount = 2, ; RowSourceType = 3, ; RowSource = 'SELECT CNAME + ":" + CDESC AS CDESC, CNAME FROM oLookup INTO CURSOR vwLookUp ORDER BY 1', ; ControlSource = "oTable.cname", ; Height = 24, ; Left = 15, ; Top = 19, ; Width = 85, ; Name = "Combo1" ADD OBJECT command1 AS commandbutton WITH ; Top = 48, ; Left = 15, ; Height = 27, ; Width = 84, ; Caption = "<<Go Back", ; Name = "Command1" ADD OBJECT command2 AS commandbutton WITH ; Top = 48, ; Left = 103, ; Height = 27, ; Width = 84, ; Caption = ">>Go Forward", ; Name = "Command2" ADD OBJECT text1 AS textbox WITH ; ControlSource = "oTable.dadded", ; Height = 23, ; Left = 103, ; Top = 20, ; Width = 84, ; Name = "Text1" PROCEDURE UnLoad CLEAR EVENTS ENDPROC PROCEDURE Load CREATE CURSOR oLookup ( CNAME C (3), CDESC C (100) ) INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N1', 'Really Long Description1' ) INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N2', 'Really Long Description2' ) INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N3', 'Really Long Description3' ) INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N4', 'Really Long Description4' ) INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N5', 'Really Long Description5' ) INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N6', 'Really Long Description6' ) INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N7', 'Really Long Description7' ) INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N8', 'Really Long Description8' ) INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N9', 'Really Long Description9' ) INSERT INTO oLookup ( CNAME, CDESC ) VALUES ( 'N10', 'Really Long Description10' ) GO TOP IN oLookup CREATE CURSOR oTable ( CNAME C (10), DADDED D ) INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) ) INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) ) INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) ) INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) ) INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) ) INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) ) INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) ) INSERT INTO oTable ( CNAME, DADDED ) VALUES ( '', DATE() + RECCOUNT( 'oTable' ) ) GO TOP IN oTable ENDPROC PROCEDURE command1.Click SKIP -1 IN oTable IF BOF( 'oTable' ) LOCATE ENDIF thisform.refresh ENDPROC PROCEDURE command2.Click SKIP 1 IN oTable IF EOF( 'oTable' ) GO BOTTOM ENDIF thisform.refresh ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************