37 lines
885 B
Plaintext
37 lines
885 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
function main()
|
|
|
|
local aStruct := { { "CHARACTER", "C", 25, 0 }, ;
|
|
{ "NUMERIC", "N", 8, 0 }, ;
|
|
{ "DOUBLE", "N", 8, 2 }, ;
|
|
{ "DATE", "D", 8, 0 }, ;
|
|
{ "LOGICAL", "L", 1, 0 }, ;
|
|
{ "MEMO1", "M", 10, 0 }, ;
|
|
{ "MEMO2", "M", 10, 0 } }
|
|
|
|
dbCreate( "testdbf", aStruct )
|
|
dbUseArea(,, "testdbf" )
|
|
? "[" + FIELD->MEMO1 + "]"
|
|
? "[" + FIELD->MEMO2 + "]"
|
|
? "-"
|
|
FIELD->MEMO1 := "Hello world!"
|
|
FIELD->MEMO2 := "Harbour power"
|
|
? "[" + FIELD->MEMO1 + "]"
|
|
? "[" + FIELD->MEMO2 + "]"
|
|
dbAppend()
|
|
FIELD->MEMO1 := "111"
|
|
FIELD->MEMO2 := "222"
|
|
? "[" + FIELD->MEMO1 + "]"
|
|
? "[" + FIELD->MEMO2 + "]"
|
|
|
|
FIELD->NUMERIC := 90
|
|
FIELD->DOUBLE := 120.138
|
|
|
|
? "[" + Str(FIELD->DOUBLE) + "]"
|
|
? "[" + Str(FIELD->NUMERIC) + "]"
|
|
|
|
return nil
|