72 lines
2.3 KiB
Plaintext
72 lines
2.3 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
Showing field properties
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL nArea, i, j
|
|
LOCAL cFile := "sixtest.dbf"
|
|
LOCAL aStruct := { { "TEST","C",10,0 }, ;
|
|
{ "MYDATE", "D", 8, 0 }, ;
|
|
{ "MYNUM", "N", 8, 2 }, ;
|
|
{ "MYMEMO", "M", 10, 0 }, ;
|
|
{ "MYLOGIC", "L", 1, 0 } }
|
|
|
|
//IF FILE( "sixtest.nsx" )
|
|
// FERASE( "sixtest.nsx" )
|
|
//ENDIF
|
|
// SX_DISABLEAUTOOPEN()
|
|
// SX_SETAUTOOPEN(.t.)
|
|
|
|
CREATE DBF cFile STRUCT aStruct RDD SDENSX
|
|
|
|
USE cFile ALIAS MYALIAS RDD SDENSX VAR nArea EXCLUSIVE
|
|
? "sx_version() = ", sx_version()
|
|
? "Alias() = ", Alias()
|
|
?
|
|
? "FCount() = ", i := FCount()
|
|
?
|
|
|
|
for j := 1 TO i
|
|
? "FieldName(" + ltrim( str( j ) ) + ") = ", FieldName( j )
|
|
next
|
|
|
|
?
|
|
? 'FieldType("TEST") = ', FieldType( "TEST" )
|
|
? 'FieldType("MYDATE") = ', FieldType( "MYDATE" )
|
|
? 'FieldType("MYNUM") = ', FieldType( "MYNUM" )
|
|
? 'FieldType("MYMEMO") = ', FieldType( "MYMEMO" )
|
|
? 'FieldType("MYLOGIC") = ', FieldType( "MYLOGIC" )
|
|
?
|
|
? 'FieldPos( TEST ) = ', FieldPos( TEST )
|
|
? 'FieldPos( MYDATE ) = ', FieldPos( MYDATE )
|
|
? 'FieldPos( MYNUM ) = ', FieldPos( MYNUM )
|
|
? 'FieldPos( MYMEMO ) = ', FieldPos( MYMEMO )
|
|
? 'FieldPos( MYLOGIC ) = ', FieldPos( MYLOGIC )
|
|
?
|
|
? 'FieldWidth("TEST") = ', FieldWidth( "TEST" )
|
|
? 'FieldWidth("MYDATE") = ', FieldWidth( "MYDATE" )
|
|
? 'FieldWidth("MYNUM") = ', FieldWidth( "MYNUM" )
|
|
? 'FieldWidth("MYMEMO") = ', FieldWidth( "MYMEMO" )
|
|
? 'FieldWidth("MYLOGIC") = ', FieldWidth( "MYLOGIC" )
|
|
?
|
|
? 'FieldOffset("TEST") = ', FieldOffset( "TEST" )
|
|
? 'FieldOffset("MYDATE") = ', FieldOffset( "MYDATE" )
|
|
? 'FieldOffset("MYNUM") = ', FieldOffset( "MYNUM" )
|
|
? 'FieldOffset("MYMEMO") = ', FieldOffset( "MYMEMO" )
|
|
? 'FieldOffset("MYLOGIC") = ', FieldOffset( "MYLOGIC" )
|
|
?
|
|
? 'FieldDecimals("TEST") = ', FieldDecimals( "TEST" )
|
|
? 'FieldDecimals("MYDATE") = ', FieldDecimals( "MYDATE" )
|
|
? 'FieldDecimals("MYNUM") = ', FieldDecimals( "MYNUM" )
|
|
? 'FieldDecimals("MYMEMO") = ', FieldDecimals( "MYMEMO" )
|
|
? 'FieldDecimals("MYLOGIC") = ', FieldDecimals( "MYLOGIC" )
|
|
|
|
CLOSE DATABASE
|