2f285ca6c2
* contrib/hbamf/tests/tstendin.prg
* contrib/hbblat/blatcls.prg
* contrib/hbct/tests/ctwtest.prg
* contrib/hbct/tests/token2.prg
* contrib/hbhttpd/readme.txt
* contrib/hbhttpd/widgets.prg
* contrib/hbmisc/fileread.prg
* contrib/hbmisc/hbedit.prg
* contrib/hbmysql/diff-en.txt
* contrib/hbmysql/diff-es.txt
* contrib/hbmysql/tests/dbf2mysq.prg
* contrib/hbmysql/tmysql.prg
* contrib/hbmysql/tsqlbrw.prg
* contrib/hbnetio/tests/netiot03.prg
* contrib/hbnetio/tests/netiotst.prg
* contrib/hbnf/doc/en/fttext.txt
* contrib/hbodbc/browodbc.prg
* contrib/hbodbc/tests/odbcdemo.prg
* contrib/hbodbc/todbc.prg
* contrib/hbtip/ftpcli.prg
* contrib/hbwin/tests/olesrv1.prg
* contrib/rddads/ads.ch
* contrib/rddsql/readme.txt
* contrib/sddodbc/tests/test2.prg
* contrib/xhb/dbf2txt.c
* contrib/xhb/hbcompat.ch
* contrib/xhb/hblog.prg
* contrib/xhb/html.ch
* contrib/xhb/tfile.prg
* contrib/xhb/tframe.prg
* contrib/xhb/ttable.prg
* ChangeLog
* doc/en/dbdelim.txt
* doc/en/dbsdf.txt
* doc/en/rdddb.txt
* doc/en/terminal.txt
* extras/gtwvw/tests/wvt2wvw.ch
* extras/httpsrv/cookie.prg
* extras/httpsrv/modules/tableservletdb.prg
* extras/rddado/adordd.ch
* extras/rddado/adordd.prg
* include/assert.ch
* include/hbsix.ch
* src/debug/dbgbrwsr.prg
* src/debug/dbgtinp.prg
* src/rdd/*.prg
* src/rtl/*.prg
* tests/*.prg
* tests/rddtest/rddtst.prg
* tests/usrrdd/exarr.prg
* tests/usrrdd/exfcm.prg
* utils/hbtest/hbtest.prg
* more minor
55 lines
1.4 KiB
Plaintext
55 lines
1.4 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL aStruct := { ;
|
|
{ "CHARACTER", "C", 25, 0 }, ;
|
|
{ "NUMERIC", "N", 8, 0 }, ;
|
|
{ "DOUBLE", "N", 8, 2 }, ;
|
|
{ "DATE", "D", 8, 0 }, ;
|
|
{ "MEMO", "M", 10, 0 }, ;
|
|
{ "LOGICAL", "L", 1, 0 } }
|
|
|
|
CLS
|
|
dbUseArea( .T., "DBFCDX", "test", "TESTDBF", .T., .F. )
|
|
dbCreate( "testcdx", aStruct, "DBFCDX", .T., "TESTCDX" )
|
|
|
|
? "RddName:", rddName()
|
|
// ? "Press any key to continue..."
|
|
// Inkey( 0 )
|
|
Select( "TESTDBF" )
|
|
SET FILTER TO TESTDBF->SALARY > 140000
|
|
TESTDBF->( dbGoTop() )
|
|
// WHILE ! TESTDBF->( Eof() )
|
|
// TESTCDX->( dbAppend() )
|
|
// TESTCDX->CHARACTER := TESTDBF->FIRST
|
|
// TESTCDX->NUMERIC := TESTDBF->SALARY
|
|
// TESTCDX->MEMO := TESTDBF->FIRST + Chr( 13 ) + Chr( 10 ) + ;
|
|
// TESTDBF->LAST + Chr( 13 ) + Chr( 10 ) + ;
|
|
// TESTDBF->STREET
|
|
// TESTDBF->( dbSkip() )
|
|
// ENDDO
|
|
|
|
? TESTCDX->( RecCount() )
|
|
TESTCDX->( dbGoTop() )
|
|
? TESTCDX->( Eof() )
|
|
WHILE ! TESTCDX->( Eof() )
|
|
? TESTCDX->( RecNo() ), TESTCDX->NUMERIC
|
|
? TESTCDX->MEMO
|
|
TESTCDX->( dbSkip() )
|
|
// ? "Press any key to continue..."
|
|
// Inkey( 0 )
|
|
ENDDO
|
|
|
|
hb_dbDrop( "testcdx.cdx" )
|
|
|
|
Select( "TESTCDX" )
|
|
ordCreate( "testcdx", "Character", "CHARACTER", FIELD->CHARACTER, .F. )
|
|
|
|
dbCloseAll()
|
|
hb_dbDrop( "testcdx",, "DBFCDX" )
|
|
|
|
RETURN
|