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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
|
object Form1: TForm1
Left = 384
Height = 439
Top = 109
Width = 554
Align = alTop
Caption = 'Form1'
ClientHeight = 439
ClientWidth = 554
OnShow = FormShow
LCLVersion = '0.9.31'
object DBGrid1: TDBGrid
Left = 0
Height = 171
Top = 0
Width = 554
Align = alTop
Color = clWindow
Columns = <>
DataSource = Datasource1
TabOrder = 0
end
object DBGrid2: TDBGrid
Left = 0
Height = 150
Top = 176
Width = 554
Align = alClient
Color = clWindow
Columns = <>
DataSource = Datasource2
TabOrder = 1
end
object Splitter1: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 171
Width = 554
Align = alTop
ResizeAnchor = akTop
end
object Panel1: TPanel
Left = 0
Height = 108
Top = 331
Width = 554
Align = alBottom
Caption = 'Panel1'
ClientHeight = 108
ClientWidth = 554
TabOrder = 3
object DBLookupComboBox1: TDBLookupComboBox
Left = 120
Height = 21
Top = 66
Width = 100
DataField = 'ID_MONTH'
DataSource = Datasource2
KeyField = 'ID'
ListField = 'MTH_NAME'
ListFieldIndex = 0
ListSource = Datasource1
LookupCache = False
Style = csDropDownList
TabOrder = 0
end
object DBLookupListBox1: TDBLookupListBox
Left = 8
Height = 100
Top = 2
Width = 100
DataField = 'ID_MONTH'
DataSource = Datasource2
KeyField = 'ID'
ListField = 'MTH_NAME'
ListFieldIndex = 0
ListSource = Datasource1
LookupCache = False
TabOrder = 1
end
object DBLookupListBox2: TDBLookupListBox
Left = 248
Height = 100
Top = 2
Width = 100
DataField = 'MONTH_NA'
DataSource = Datasource2
ListField = 'MTH_NAME'
ListFieldIndex = 0
LookupCache = False
TabOrder = 2
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 360
Height = 21
Top = 66
Width = 100
DataField = 'MONTH_NA'
DataSource = Datasource2
ListField = 'MTH_NAME'
ListFieldIndex = 0
LookupCache = False
TabOrder = 3
end
end
object Splitter2: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 326
Width = 554
Align = alBottom
ResizeAnchor = akBottom
end
object Datasource1: TDatasource
DataSet = Dbf1
left = 184
top = 40
end
object Datasource2: TDatasource
DataSet = Dbf2
left = 184
top = 176
end
object Dbf1: TDbf
FilePath = '.\data\'
IndexDefs = <
item
IndexFile = 'MONTHS.MBF'
SortField = 'ID'
Options = [ixPrimary]
end>
OpenMode = omAutoCreate
TableName = 'months.dbf'
TableLevel = 3
FilterOptions = []
left = 144
top = 40
object Dbf1ID: TLongintField
DisplayWidth = 10
FieldKind = fkData
FieldName = 'ID'
Index = 0
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
end
object Dbf1LANG: TStringField
DisplayWidth = 4
FieldKind = fkData
FieldName = 'LANG'
Index = 1
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
Size = 2
end
object Dbf1MTH_NO: TLongintField
DisplayWidth = 10
FieldKind = fkData
FieldName = 'MTH_NO'
Index = 2
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
end
object Dbf1MTH_NAME: TStringField
DisplayWidth = 18
FieldKind = fkData
FieldName = 'MTH_NAME'
Index = 3
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
Size = 18
end
end
object Dbf2: TDbf
FilePath = '.\data\'
IndexDefs = <
item
IndexFile = 'LOOKERUP.MBF'
SortField = 'ID'
Options = [ixPrimary]
end>
OpenMode = omAutoCreate
TableName = 'lookerup.dbf'
TableLevel = 3
FilterOptions = []
left = 144
top = 176
object Dbf2ID: TLongintField
DisplayWidth = 6
FieldKind = fkData
FieldName = 'ID'
Index = 0
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
end
object Dbf2ID_MONTH: TLongintField
DisplayWidth = 8
FieldKind = fkData
FieldName = 'ID_MONTH'
Index = 1
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
end
object Dbf2LANGUAGE: TStringField
DisplayWidth = 4
FieldKind = fkData
FieldName = 'LANGUAGE'
Index = 2
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
Size = 2
end
object Dbf2MONTH_NO: TLongintField
DisplayWidth = 8
FieldKind = fkData
FieldName = 'MONTH_NO'
Index = 3
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
end
object Dbf2MONTH_NA: TStringField
DisplayLabel = 'MONTH'
DisplayWidth = 18
FieldKind = fkLookup
FieldName = 'MONTH_NA'
Index = 4
KeyFields = 'MONTH_NO'
LookupCache = False
LookupDataSet = Dbf1
LookupKeyFields = 'MTH_NO'
LookupResultField = 'MTH_NAME'
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
Size = 18
end
end
end
|
