>> >>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 >>************************************************** >>