92 lines
1.6 KiB
Plaintext
92 lines
1.6 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
tsix.prg
|
|
Demo using TApollo Class
|
|
Class is not complete yet, please contribute codes to make it complete :-)
|
|
*/
|
|
|
|
#include "simpleio.ch"
|
|
|
|
EXTERNAL HB_GT_WIN_DEFAULT
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL oDBF := TApollo():New()
|
|
LOCAL oDBF1 := TApollo():New()
|
|
LOCAL nsec
|
|
|
|
SX_ERRORLEVEL( 0 )
|
|
|
|
oDBF1:cDBFFile := "test.dbf"
|
|
oDBF1:cAlias := "CUSTOMER"
|
|
oDBF1:cRDD := "SDENSX"
|
|
|
|
oDBF:cDBFFile := "test.dbf"
|
|
oDBF:cAlias := "MYTEST"
|
|
oDBF:cRDD := "SDENSX"
|
|
|
|
oDBF1:Open()
|
|
? "oDbf1:Reccount()", oDbf1:Reccount()
|
|
|
|
oDBF:Open()
|
|
? "oDbf:Reccount()", oDbf:Reccount()
|
|
|
|
? "oDBF1:nWorkArea()=", oDBF1:nWorkArea()
|
|
? "oDBF:nWorkArea()=", oDBF:nWorkArea()
|
|
|
|
? "oDBF1:cAlias=", oDBF1:cAlias
|
|
? "oDBF:cAlias=", oDBF:cAlias
|
|
|
|
? "oDBF1:cRDD=", oDBF1:cRDD
|
|
? "oDBF:cRDD=", oDBF:cRDD
|
|
|
|
? 'oDBF:FIRST=',oDBF:FIRST
|
|
? 'oDBF:AGE := 99'
|
|
oDBF:AGE := 99
|
|
oDBF:Commit()
|
|
? oDBF:AGE
|
|
? 'oDBF:AGE := 25'
|
|
oDBF:AGE := 25
|
|
oDBF:Commit()
|
|
? oDBF:AGE
|
|
? 'oDBF:FIRST=',oDBF:FIRST
|
|
? 'oDBF:FIRST="Andi"'
|
|
oDBF:FIRST := "Andi"
|
|
? 'oDBF:FIRST=',oDBF:FIRST
|
|
inkey(0)
|
|
|
|
nsec := seconds()
|
|
|
|
oDBF:dbGotop()
|
|
While !oDBF:Eof()
|
|
? oDbf:First + " " + oDbf:Last
|
|
oDbf:dbSkip()
|
|
Enddo
|
|
|
|
?
|
|
|
|
While !oDBF:Bof()
|
|
? oDbf:First + " " + oDbf:Last
|
|
oDbf:dbSkip(-1)
|
|
Enddo
|
|
|
|
? seconds() - nsec
|
|
? "Now browsing oDBF1", odbf1:cDBFFile
|
|
inkey(0)
|
|
|
|
nsec := seconds()
|
|
oDBF1:dbGotop()
|
|
While !oDBF1:Eof()
|
|
? oDbf1:First + " " + oDbf1:Last
|
|
oDbf1:dbSkip()
|
|
Enddo
|
|
|
|
oDBF:Close()
|
|
? "oDBF Closed ..."
|
|
? seconds() - nsec
|
|
? sx_version()
|
|
? sx_sxapi_version()
|