f4d02db8f1
* tests/ac_test.prg
* tests/ac_test2.prg
* tests/begin.prg
* tests/box.prg
* tests/byref.prg
* tests/codebl.prg
* tests/codebloc.prg
* tests/db_brows.prg
* tests/ddate.prg
* tests/ifinline.prg
* tests/memvar.prg
* tests/menutest.prg
* tests/readhrb.prg
* tests/speed.prg
* tests/speedtst.prg
* tests/stripem.prg
* tests/switch.prg
* tests/testbrw.prg
* tests/testcdx.prg
* tests/testdecl.prg
* tests/testhrb.prg
* tests/testpre.prg
* tests/testwarn.prg
* tests/tstalias.prg
* tests/tstmacro.prg
* tests/varparam.prg
* more cleanups. (assignment operator and string quote usage)
52 lines
1.4 KiB
Plaintext
52 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
|
|
|
|
FErase( "testcdx.cdx" )
|
|
|
|
SELECT( "TESTCDX" )
|
|
ordCreate( "testcdx", "Character", "CHARACTER", FIELD->CHARACTER, .F. )
|
|
|
|
RETURN
|