586185d936
* contrib/hbdroid/hbdroid.hbp
* minor cleanup
* contrib/rddbm/rddbm.hbp
! missed to add .hbx as source
* contrib/rddsql/tests/arrayrdd.prg
+ fixed to work when run as script.
(Could not achieve the same with SDD tests.)
* utils/hbmk2/hbmk2.prg
+ added very experimental support for using macros
in source filenames. The search for options and
special extensions will be done before macro
expansion, ie. if it doesn't match any options or
special extensions, it will be considered a
source a file and then expanded. Useful f.e. for
'${hb_name}.hbx', but plain '${ENVVAR}' will also
be considered a source filename. Can be abused, too,
but not recommended.
37 lines
1.0 KiB
Plaintext
37 lines
1.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#require "rddsql"
|
|
|
|
REQUEST SQLMIX
|
|
|
|
PROCEDURE Main()
|
|
|
|
CLS
|
|
|
|
#if defined( __HBSCRIPT__HBSHELL )
|
|
rddRegister( "SQLBASE" )
|
|
rddRegister( "SQLMIX" )
|
|
#endif
|
|
|
|
rddSetDefault( "SQLMIX" )
|
|
dbCreate( "persons", { { "NAME", "C", 20, 0 }, { "FAMILYNAME", "C", 20, 0 }, { "BIRTH", "D", 8, 0 }, { "AMOUNT", "N", 9, 2 } }, , .T., "persons" )
|
|
|
|
dbAppend(); AEval( { PadR( "Bil", 20 ), PadR( "Gatwick", 20 ), SToD( "19650124" ), 123456.78 }, {| X, Y | FieldPut( Y, X ) } )
|
|
dbAppend(); AEval( { PadR( "Tom", 20 ), PadR( "Heathrow", 20 ), SToD( "19870512" ), 9086.54 }, {| X, Y | FieldPut( Y, X ) } )
|
|
dbAppend(); AEval( { PadR( "John", 20 ), PadR( "Weber", 20 ), SToD( "19750306" ), 2975.45 }, {| X, Y | FieldPut( Y, X ) } )
|
|
dbAppend(); AEval( { PadR( "Sim", 20 ), PadR( "Simsom", 20 ), SToD( "19930705" ), 32975.37 }, {| X, Y | FieldPut( Y, X ) } )
|
|
|
|
dbGoTop()
|
|
Browse()
|
|
|
|
INDEX ON FIELD->AMOUNT TO amount
|
|
dbGoTop()
|
|
Browse()
|
|
dbCloseAll()
|
|
|
|
RETURN
|
|
|
|
PROCEDURE RDDSYS() ; RETURN
|