55801b18c4
* tests/longdev.prg
* tests/hbpptest/hbpptest.prg
* tests/testcgi.prg
* tests/foreach.prg
* tests/onidle.prg
* tests/tstchbx.prg
* tests/codebl.prg
* tests/tstdbi.prg
* tests/vmasort.prg
* tests/tstasort.prg
* tests/testbrw.prg
* tests/inkeytst.prg
* tests/testrdd2.prg
* tests/keywords.prg
* tests/testhtml.prg
* tests/readhrb.prg
* tests/stripem.prg
* tests/wvtext.prg
* tests/testpre.prg
* tests/seconds.prg
* tests/fsplit.prg
* tests/mousetst.prg
* contrib/hbmysql/tmysql.prg
* contrib/hbct/numconv.prg
* contrib/hbct/ctmisc.prg
* contrib/hbodbc/todbc.prg
* contrib/hbapollo/tests/apollo.prg
* contrib/hbnf/acctyear.prg
* contrib/hbnf/acctadj.prg
* contrib/hbnf/nwsem.prg
* contrib/hbnf/week.prg
* contrib/hbnf/acctmnth.prg
* contrib/hbnf/savearr.prg
* contrib/hbnf/madd.prg
* contrib/hbnf/mouse1.prg
* contrib/hbnf/month.prg
* contrib/hbnf/findith.prg
* contrib/hbnf/acctweek.prg
* contrib/hbnf/pegs.prg
* contrib/hbnf/acctqtr.prg
* contrib/hbnf/nooccur.prg
* contrib/hbnf/dayofyr.prg
* contrib/hbnf/menu1.prg
* contrib/hbnf/sqzn.prg
* contrib/hbnf/asum.prg
* contrib/hbnf/aavg.prg
* contrib/hbnf/any2any.prg
* contrib/hbnf/adessort.prg
* contrib/hbnf/amedian.prg
* contrib/hbnf/blink.prg
* contrib/hbnf/qtr.prg
* contrib/hbnf/aredit.prg
* contrib/hbnf/xbox.prg
* contrib/hbnf/ftround.prg
* contrib/hbnf/invclr.prg
* contrib/hbnf/tempfile.prg
* contrib/hbnf/diskfunc.prg
* contrib/hbnf/mouse2.prg
* contrib/hbnf/daytobow.prg
* contrib/hbnf/anomatch.prg
* contrib/hbnf/datecnfg.prg
* contrib/hbnf/tbwhile.prg
* contrib/hbnf/year.prg
* contrib/hbnf/elapsed.prg
* contrib/hbnf/dfile.prg
* contrib/hbnf/clrsel.prg
* contrib/hbmisc/twirler.prg
* contrib/hbmisc/fileread.prg
* contrib/hbmisc/stringp.prg
* contrib/hbgf/hbgfw32/winctrl.prg
* contrib/hbgf/hbgfw32/form.prg
* contrib/hbgf/hbgfos2/winctrl.prg
* contrib/hbgf/hbgfos2/tform.prg
* contrib/hbtip/httpcln.prg
* contrib/hbvpdf/hbvpdf.prg
* contrib/hbvpdf/hbvpdft.prg
* contrib/examples/guestbk/guestbk.prg
* contrib/examples/pe/editorhi.prg
* Some more general code cleanups ( if() -> iif() ).
70 lines
1.5 KiB
Plaintext
70 lines
1.5 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#ifdef __HARBOUR__
|
|
#define CRLF hb_osnewline()
|
|
#else
|
|
#define CRLF chr(13)+chr(10)
|
|
#endif
|
|
|
|
funct main()
|
|
|
|
local i
|
|
local cStr := ""
|
|
|
|
USE "test" NEW
|
|
|
|
for i := 1 to 100
|
|
cStr += Str( i ) + " " + xToStr( DbInfo( i ) ) + CRLF
|
|
next
|
|
cStr += Str( 101 ) + " " + xToStr( DbInfo( 101 ) ) + CRLF
|
|
cStr += Str( 101 ) + " " + xToStr( DbInfo( 101, 1 ) ) + CRLF
|
|
cStr += Str( 101 ) + " " + xToStr( DbInfo( 101, 2 ) ) + CRLF
|
|
cStr += Str( 102 ) + " " + xToStr( DbInfo( 102 ) ) + CRLF
|
|
cStr += Str( 101 ) + " " + xToStr( DbInfo( 102, 1 ) ) + CRLF
|
|
cStr += Str( 101 ) + " " + xToStr( DbInfo( 102, 2 ) ) + CRLF
|
|
cStr += Str( 999 ) + " " + xToStr( DbInfo( 999 ) ) + CRLF
|
|
cStr += Str( 1000 ) + " " + xToStr( DbInfo( 1000 ) ) + CRLF
|
|
|
|
#ifdef __HARBOUR__
|
|
MemoWrit( "dbihb.txt", cStr )
|
|
#else
|
|
MemoWrit( "dbicl.txt", cStr )
|
|
#endif
|
|
|
|
? DbRecordInfo( 1 )
|
|
? DbRecordInfo( 2 )
|
|
? DbRecordInfo( 3 )
|
|
? DbRecordInfo( 4 )
|
|
? DbRecordInfo( 5 )
|
|
|
|
? DbFieldInfo( 1, 1 )
|
|
? DbFieldInfo( 2, 1 )
|
|
? DbFieldInfo( 3, 1 )
|
|
? DbFieldInfo( 4, 1 )
|
|
|
|
return nil
|
|
|
|
static function xToStr( xValue )
|
|
|
|
LOCAL cType := ValType( xValue )
|
|
LOCAL cRet := ""
|
|
|
|
do case
|
|
case cType == "N"
|
|
cRet := Str( xValue )
|
|
case cType == "D"
|
|
cRet := DToC( xValue )
|
|
case cType == "C" .or. cType == "M"
|
|
cRet := xValue
|
|
case cType == "L"
|
|
cRet := iif( xValue, ".T.", ".F." )
|
|
case cType == "A"
|
|
cRet := "A" + AllTrim( Str( Len( xValue ) ) )
|
|
case cType == "U"
|
|
cRet := "NIL"
|
|
endcase
|
|
|
|
return cRet
|