306fdd0446
* package/*
* src/compiler/harbour.y
* src/compiler/harbour.yyc
* src/macro/macro.y
* src/macro/macro.yyc
* src/pp/hbpp.1
* tests/*/*
* utils/*
* stripped svn header manually
* tests/hbdocext.hb
* tests/lang2po.hb
* tests/big5_gen.prg
* tests/uc16_gen.prg
* do not add svn ids to generated sources
+ tests/stripsvn.hb
+ added script to strip svn header from sources
46 lines
1.2 KiB
Plaintext
46 lines
1.2 KiB
Plaintext
|
|
#include "dbinfo.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
FIELD FIRST, LAST, STREET, CITY
|
|
LOCAL n, hs
|
|
|
|
dbCreate( "_tst", { ;
|
|
{ "FIRST", "C", 20, 0 }, ;
|
|
{ "LAST", "C", 20, 0 }, ;
|
|
{ "STREET", "C", 30, 0 }, ;
|
|
{ "CITY", "C", 30, 0 }, ;
|
|
{ "STATE", "C", 2, 0 }, ;
|
|
{ "ZIP", "C", 10, 0 }, ;
|
|
{ "HIREDATE", "D", 8, 0 }, ;
|
|
{ "MARRIED", "L", 1, 0 }, ;
|
|
{ "AGE", "N", 2, 0 }, ;
|
|
{ "SALARY", "N", 6, 0 }, ;
|
|
{ "NOTES", "C", 70, 0 } } )
|
|
USE _tst
|
|
HSX_CREATE( "_tst", "FIRST+LAST+STREET+CITY", 2, 0, .T., 3 )
|
|
APPEND FROM test
|
|
|
|
/* Look for all records which have 'SHERMAN' string inside */
|
|
hs := HSX_HANDLE( "_tst" )
|
|
hs_Set( hs, "SHERMAN" )
|
|
DO WHILE ( n := hs_Next( hs ) ) > 0
|
|
dbGoto( n )
|
|
IF hs_Verify( hs ) > 0
|
|
? RTrim( FIRST + LAST + STREET + CITY )
|
|
ENDIF
|
|
ENDDO
|
|
WAIT
|
|
|
|
/* Does RDD support Record Map Filters? */
|
|
IF dbInfo( DBI_RM_SUPPORTED )
|
|
/* if yest then let set filter for all records with 'SHERMAN'
|
|
word and look at them in browser */
|
|
hs_Filter( hs, "SHERMAN" )
|
|
dbGoTop()
|
|
Browse()
|
|
ENDIF
|
|
|
|
RETURN
|