29a46a1302
* contrib/gtwvg/tests/_wvtcls.prg
* contrib/gtwvg/tests/demowvg.prg
* contrib/hbct/doc/en/dattime3.txt
* contrib/hbct/tests/datetime.prg
* contrib/hbnf/doc/en/acctadj.txt
* contrib/hbnf/doc/en/acctmnth.txt
* contrib/hbnf/doc/en/acctqtr.txt
* contrib/hbnf/doc/en/acctweek.txt
* contrib/hbnf/doc/en/acctyear.txt
* contrib/hbnf/doc/en/dayofyr.txt
* contrib/hbnf/doc/en/daytobow.txt
* contrib/hbnf/doc/en/elapsed.txt
* contrib/hbnf/doc/en/firstday.txt
* contrib/hbnf/doc/en/lastday.txt
* contrib/hbnf/doc/en/madd.txt
* contrib/hbnf/doc/en/month.txt
* contrib/hbnf/doc/en/qtr.txt
* contrib/hbnf/doc/en/savearr.txt
* contrib/hbnf/doc/en/setdate.txt
* contrib/hbnf/doc/en/wda.txt
* contrib/hbnf/doc/en/week.txt
* contrib/hbnf/doc/en/workdays.txt
* contrib/hbnf/doc/en/woy.txt
* contrib/hbnf/doc/en/year.txt
* contrib/hbnf/tests/elapsed.prg
* contrib/hbnf/tests/savearr.prg
* contrib/hbnf/tests/setdate.prg
* contrib/hbnf/tests/wda.prg
* contrib/hbnf/tests/workdays.prg
* contrib/hbnf/tests/woy.prg
* contrib/hbpgsql/tests/dbf2pg.prg
* contrib/hbsqlit3/hdbcsqlt.prg
* contrib/rddsql/tests/arrayrdd.prg
* doc/en/datetime.txt
* doc/en/math.txt
* doc/en/string.txt
* doc/hdr_tpl.txt
* extras/gtwvw/tests/ebtest7.prg
* extras/gtwvw/tests/wvwtest9.prg
* extras/guestbk/inifiles.prg
* extras/hbvpdf/core.prg
* extras/httpsrv/cgifunc.prg
* tests/array16.prg
* tests/bldtest/bldtest.c
* tests/byref.prg
* tests/dates.prg
* tests/gfx.prg
* tests/inifiles.prg
* tests/initexit.prg
* tests/longdev.prg
* tests/parseini.ini
* tests/parseini.prg
* tests/usrrdd/exarr.prg
* website/samples/byref.prg.html
* website/samples/initexit.prg.html
* website/samples/longdev.prg.html
* website/samples/mousetst.prg.html
* website/samples/parseini.ini.html
* website/samples/parseini.prg.html
* various cleanups
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 ), hb_SToD( "19650124" ), 123456.78 }, {| X, Y | FieldPut( Y, X ) } )
|
|
dbAppend(); AEval( { PadR( "Tom", 20 ), PadR( "Heathrow", 20 ), hb_SToD( "19870512" ), 9086.54 }, {| X, Y | FieldPut( Y, X ) } )
|
|
dbAppend(); AEval( { PadR( "John", 20 ), PadR( "Weber", 20 ), hb_SToD( "19750306" ), 2975.45 }, {| X, Y | FieldPut( Y, X ) } )
|
|
dbAppend(); AEval( { PadR( "Sim", 20 ), PadR( "Simsom", 20 ), hb_SToD( "19930705" ), 32975.37 }, {| X, Y | FieldPut( Y, X ) } )
|
|
|
|
dbGoTop()
|
|
Browse()
|
|
|
|
INDEX ON FIELD->AMOUNT TO amount
|
|
dbGoTop()
|
|
Browse()
|
|
dbCloseAll()
|
|
|
|
RETURN
|
|
|
|
PROCEDURE RDDSYS() ; RETURN
|