browse in xbase - for SQL - how can it be easiest done
Verfasst: Do, 14. Mär 2019 23:21
Below i have showed a sample code for browsing a dbf file and selecting the right record.
Is there a sample prg which can browse from a SQL DATABANK (the name of the sql databank can be IPADRES ; field names ; NR, TANIM ;
(a similar sample like below) ?
Or a similar method of browsing and selecting a record from a SQL DATABANK (in xbase 2.0).
---------------------------- browse program ; the dbf file has 2 fields NR and TANIM ---------------------
******* DBF FILE *****************
SELECT 8
USE IP-ADRES SHARED
IF NETERR()=.T.
CLOSE ALL
RETURN
ENDIF
***********************************
GO TOP
APPBROWSE INTO oBrowse ;
for SUBSTR(CINS,1,1)="P";
TITLE "select the record" ;
FONT "14.MS Sans Serif";
POSITION CENTER, CENTER ;
SIZE 55,40 PERCENT;
APPFIELD ALLTRIM(NR) INTO oBROWSE CAPTION "NO";
ALIGN CENTER FONT "14.MS Sans Serif" COLOR GRA_CLR_WHITE,GRA_CLR_DARKGREEN READONLY
APPFIELD ALLTRIM(TANIM) INTO oBROWSE CAPTION "ANA TANIM";
ALIGN CENTER FONT "14.MS Sans Serif" COLOR GRA_CLR_WHITE,GRA_CLR_DARKGREEN READONLY
APPDISPLAY oBrowse MODELESS // Display Application Parts
KEYBOARD CHR(13)
DO WHILE nEvent <> xbeP_Close // Process events
nEvent := AppEvent( @mp1, @mp2, @obj )
obj:handleEvent( nEvent, mp1, mp2 )
IF NEVENT=1048609 /* MOUSE SOL TIKLA */
EXIT
ENDIF
IF NEVENT=1048977 /* ENTER to exit */
EXIT
ENDIF
IF NEVENT=1048628 .or. NEVENT=1048632 /* ESCAPE or mouse click to exit */
obrowse:DESTROY()
CLOSE ALL
RETURN
ENDIF
ENDDO
obrowse:DESTROY()
-----------------------------------------------------------------------------------------------------------------------------------------------------
İyi çalışmalar\Regards
Engin René D.
Is there a sample prg which can browse from a SQL DATABANK (the name of the sql databank can be IPADRES ; field names ; NR, TANIM ;
(a similar sample like below) ?
Or a similar method of browsing and selecting a record from a SQL DATABANK (in xbase 2.0).
---------------------------- browse program ; the dbf file has 2 fields NR and TANIM ---------------------
******* DBF FILE *****************
SELECT 8
USE IP-ADRES SHARED
IF NETERR()=.T.
CLOSE ALL
RETURN
ENDIF
***********************************
GO TOP
APPBROWSE INTO oBrowse ;
for SUBSTR(CINS,1,1)="P";
TITLE "select the record" ;
FONT "14.MS Sans Serif";
POSITION CENTER, CENTER ;
SIZE 55,40 PERCENT;
APPFIELD ALLTRIM(NR) INTO oBROWSE CAPTION "NO";
ALIGN CENTER FONT "14.MS Sans Serif" COLOR GRA_CLR_WHITE,GRA_CLR_DARKGREEN READONLY
APPFIELD ALLTRIM(TANIM) INTO oBROWSE CAPTION "ANA TANIM";
ALIGN CENTER FONT "14.MS Sans Serif" COLOR GRA_CLR_WHITE,GRA_CLR_DARKGREEN READONLY
APPDISPLAY oBrowse MODELESS // Display Application Parts
KEYBOARD CHR(13)
DO WHILE nEvent <> xbeP_Close // Process events
nEvent := AppEvent( @mp1, @mp2, @obj )
obj:handleEvent( nEvent, mp1, mp2 )
IF NEVENT=1048609 /* MOUSE SOL TIKLA */
EXIT
ENDIF
IF NEVENT=1048977 /* ENTER to exit */
EXIT
ENDIF
IF NEVENT=1048628 .or. NEVENT=1048632 /* ESCAPE or mouse click to exit */
obrowse:DESTROY()
CLOSE ALL
RETURN
ENDIF
ENDDO
obrowse:DESTROY()
-----------------------------------------------------------------------------------------------------------------------------------------------------
İyi çalışmalar\Regards
Engin René D.