1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
/* $Id: sample1.cpp,v 1.6 1999/03/19 10:56:32 willy Exp $
Xbase project source code
This program creates a sample database and four indexes
Copyright (C) 1997 StarTech, Gary A. Kunkel
email - xbase@startech.keller.tx.us
www - http://www.startech.keller.tx.us/xbase.html
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
V 1.0 10/10/97 - Initial release of software
V 1.5 1/2/98 - Added memo field support
V 1.6a 5/1/98 - Added expression support
V 1.8 11/29/98 - Version 1.8 upgrade
*/
#include <xdb/xbase.h>
/* set the stack large for dos compiles */
#ifdef __XBDOS
#include <stdio.h>
extern unsigned _stklen = 100000;
#endif
int main()
{
int
i;
#ifdef XB_INDEX_NDX
char
expBuf[1024];
xbIndex
*index;
#endif // XB_INDEX_NDX
xbSchema MyRecord[] =
{
{ "FIRSTNAME", XB_CHAR_FLD, 15, 0 },
{ "LASTNAME", XB_CHAR_FLD, 20, 0 },
{ "BIRTHDATE", XB_DATE_FLD, 8, 0 },
{ "AMOUNT", XB_NUMERIC_FLD, 9, 2 },
{ "SWITCH", XB_LOGICAL_FLD, 1, 0 },
{ "FLOAT1", XB_FLOAT_FLD, 9, 2 },
{ "FLOAT2", XB_FLOAT_FLD, 9, 1 },
{ "FLOAT3", XB_FLOAT_FLD, 9, 2 },
{ "FLOAT4", XB_FLOAT_FLD, 9, 3 },
{ "MEMO1", XB_MEMO_FLD, 10, 0 },
{ "ZIPCODE", XB_NUMERIC_FLD, 5, 0 },
{ "",0,0,0 }
};
/* define the classes */
xbXBase x; /* initialize xbase */
xbDbf MyFile( &x ); /* class for table */
#ifdef XB_INDEX_NDX
xbNdx MyIndex1( &MyFile ); /* class for index 1 */
xbNdx MyIndex2( &MyFile ); /* class for index 2 */
xbNdx MyIndex3( &MyFile ); /* class for index 3 */
xbNdx MyIndex4( &MyFile ); /* class for index 4 */
#endif // XB_INDEX_NDX
xbShort rc;
MyFile.SetVersion( 4 ); /* create dbase IV style files */
if(( rc = MyFile.CreateDatabase( "MYFILE.DBF", MyRecord, XB_OVERLAY ))
!= XB_NO_ERROR )
cout << "\nError creating database = " << rc << "\n";
else
{
/* define a simple index */
#ifdef XB_INDEX_NDX
if(( rc = MyIndex1.CreateIndex(
"MYINDEX1.NDX", "LASTNAME", XB_NOT_UNIQUE, XB_OVERLAY )) != XB_NO_ERROR )
cout << "\nError creating index 1 = " << rc << "\n";
/* define a multi-field index "LASTNAME FIRSTNAME" */
if(( rc = MyIndex2.CreateIndex(
"MYINDEX2.NDX", "LASTNAME+FIRSTNAME", XB_NOT_UNIQUE, XB_OVERLAY )) != XB_NO_ERROR )
cout << "\nError creating index 2 = " << rc << "\n";
/* define a multi-field index "LASTNAMEFIRSTNAME" */
if(( rc = MyIndex3.CreateIndex(
"MYINDEX3.NDX", "LASTNAME-FIRSTNAME", XB_NOT_UNIQUE, XB_OVERLAY )) != XB_NO_ERROR )
cout << "\nError creating index 3 = " << rc << "\n";
/* define a numeric index "ZIPCODE" */
if(( rc = MyIndex4.CreateIndex(
"MYINDEX4.NDX", "ZIPCODE", XB_NOT_UNIQUE, XB_OVERLAY )) != XB_NO_ERROR )
cout << "\nError creating index 4 = " << rc << "\n";
#endif // XB_INDEX_NDX
}
printf("FieldCount = %ld\n", MyFile.FieldCount());
for(i = 0; i < MyFile.FieldCount(); i++)
{
printf("Field %d: Name = '%s', Type = '%c', Len = %d\n", i,
MyFile.GetFieldName(i), MyFile.GetFieldType(i),
MyFile.GetFieldLen(i));
}
printf("\n");
#ifdef XB_INDEX_NDX
printf("IndexCount = %d\n", MyFile.IndexCount());
for(i = 0; i < MyFile.IndexCount(); i++)
{
index = MyFile.GetIndex(i);
index->GetExpression(expBuf, 1024);
printf("Index %d: '%s'\n", i, expBuf);
}
#endif // XB_INDEX_NDX
MyFile.CloseDatabase(); /* Close database and associated indexes */
return 0;
}
|
