39 lines
990 B
Plaintext
39 lines
990 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 } }
|
|
|
|
REQUEST DBFCDX
|
|
|
|
dbCreate( "testdbf", aStruct, "DBFCDX", .t., "MYALIAS" )
|
|
|
|
? "[" + MYALIAS->MEMO1 + "]"
|
|
? "[" + MYALIAS->MEMO2 + "]"
|
|
? "-"
|
|
dbAppend()
|
|
MYALIAS->MEMO1 := "Hello world!"
|
|
MYALIAS->MEMO2 := "Harbour power"
|
|
? "[" + MYALIAS->MEMO1 + "]"
|
|
? "[" + MYALIAS->MEMO2 + "]"
|
|
dbAppend()
|
|
MYALIAS->MEMO1 := "111"
|
|
MYALIAS->MEMO2 := "222"
|
|
? "[" + MYALIAS->MEMO1 + "]"
|
|
? "[" + MYALIAS->MEMO2 + "]"
|
|
MYALIAS->NUMERIC := 90
|
|
MYALIAS->DOUBLE := 120.138
|
|
? "[" + Str( MYALIAS->DOUBLE ) + "]"
|
|
? "[" + Str( MYALIAS->NUMERIC ) + "]"
|
|
|
|
return nil
|
|
|