ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/ibtable/Unit1.lfm
Revision: 112
Committed: Thu Jan 18 14:37:55 2018 UTC (6 years, 2 months ago) by tony
File size: 11656 byte(s)
Log Message:
Fixes Merged

File Contents

# Content
1 object Form1: TForm1
2 Left = 457
3 Height = 453
4 Top = 397
5 Width = 943
6 Caption = 'IB Tables Example'
7 ClientHeight = 453
8 ClientWidth = 943
9 DefaultMonitor = dmPrimary
10 OnShow = FormShow
11 Position = poScreenCenter
12 LCLVersion = '1.8.1.0'
13 object Panel1: TPanel
14 Left = 0
15 Height = 453
16 Top = 0
17 Width = 943
18 Align = alClient
19 ClientHeight = 453
20 ClientWidth = 943
21 TabOrder = 0
22 object Panel2: TPanel
23 Left = 1
24 Height = 451
25 Top = 1
26 Width = 170
27 Align = alLeft
28 BevelInner = bvLowered
29 ClientHeight = 451
30 ClientWidth = 170
31 TabOrder = 0
32 object IBDynamicGrid1: TIBDynamicGrid
33 Left = 2
34 Height = 447
35 Top = 2
36 Width = 166
37 Align = alClient
38 Color = clWindow
39 Columns = <
40 item
41 Title.Alignment = taCenter
42 Title.Caption = 'Dept'
43 Width = 80
44 FieldName = 'DEPARTMENT'
45 AutoSizeColumn = True
46 InitialSortColumn = False
47 DBLookupProperties.ItemHeight = 0
48 DBLookupProperties.ItemWidth = 0
49 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
50 end>
51 DataSource = DataSource2
52 Scrollbars = ssAutoVertical
53 TabOrder = 0
54 ExpandEditorPanelBelowRow = False
55 Descending = False
56 EditorBorderStyle = bsSingle
57 DefaultPositionAtEnd = False
58 end
59 end
60 object Splitter1: TSplitter
61 Left = 171
62 Height = 451
63 Top = 1
64 Width = 5
65 end
66 object IBDynamicGrid2: TIBDynamicGrid
67 Left = 176
68 Height = 451
69 Top = 1
70 Width = 766
71 Align = alClient
72 Color = clWindow
73 Columns = <
74 item
75 Title.Alignment = taCenter
76 Title.Caption = 'Last Name'
77 Width = 150
78 FieldName = 'LAST_NAME'
79 AutoSizeColumn = True
80 InitialSortColumn = False
81 DBLookupProperties.ItemHeight = 0
82 DBLookupProperties.ItemWidth = 0
83 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
84 end
85 item
86 Title.Alignment = taCenter
87 Title.Caption = 'First Name'
88 Width = 150
89 FieldName = 'FIRST_NAME'
90 AutoSizeColumn = False
91 InitialSortColumn = False
92 DBLookupProperties.ItemHeight = 0
93 DBLookupProperties.ItemWidth = 0
94 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
95 end
96 item
97 ReadOnly = True
98 Title.Alignment = taCenter
99 Title.Caption = 'Full Name'
100 Width = 120
101 FieldName = 'FULL_NAME'
102 AutoSizeColumn = True
103 InitialSortColumn = False
104 DBLookupProperties.ItemHeight = 0
105 DBLookupProperties.ItemWidth = 0
106 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
107 end
108 item
109 Title.Alignment = taCenter
110 Title.Caption = 'Emp No.'
111 Width = 80
112 FieldName = 'EMP_NO'
113 AutoSizeColumn = False
114 InitialSortColumn = False
115 DBLookupProperties.ItemHeight = 0
116 DBLookupProperties.ItemWidth = 0
117 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
118 end
119 item
120 Title.Alignment = taCenter
121 Title.Caption = 'Hire Date'
122 Width = 120
123 FieldName = 'HIRE_DATE'
124 AutoSizeColumn = False
125 InitialSortColumn = False
126 DBLookupProperties.ItemHeight = 0
127 DBLookupProperties.ItemWidth = 0
128 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
129 end
130 item
131 Title.Alignment = taCenter
132 Title.Caption = 'Salary'
133 Width = 100
134 FieldName = 'SALARY'
135 AutoSizeColumn = False
136 InitialSortColumn = False
137 DBLookupProperties.ItemHeight = 0
138 DBLookupProperties.ItemWidth = 0
139 DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
140 end>
141 DataSource = Datasource1
142 Scrollbars = ssAutoVertical
143 TabOrder = 2
144 ExpandEditorPanelBelowRow = False
145 Descending = False
146 EditorBorderStyle = bsSingle
147 DefaultPositionAtEnd = False
148 end
149 end
150 object IBDatabase1: TIBDatabase
151 Connected = True
152 AfterConnect = IBDatabase1AfterConnect
153 CreateIfNotExists = False
154 AllowStreamedConnected = False
155 DatabaseName = 'employee'
156 Params.Strings = (
157 'user_name=SYSDBA'
158 'lc_ctype=UTF-8'
159 )
160 DefaultTransaction = IBTransaction1
161 IdleTimer = 0
162 TraceFlags = []
163 UseDefaultSystemCodePage = False
164 left = 184
165 top = 24
166 end
167 object IBTransaction1: TIBTransaction
168 Active = False
169 DefaultDatabase = IBDatabase1
170 Params.Strings = (
171 'read_committed'
172 'rec_version'
173 'nowait'
174 )
175 left = 232
176 top = 24
177 end
178 object Depts: TIBTable
179 AllowAutoActivateTransaction = True
180 Database = IBDatabase1
181 Transaction = IBTransaction1
182 AutoCalcFields = False
183 AfterOpen = DeptsAfterOpen
184 AutoCommit = acCommitRetaining
185 BufferChunks = 1000
186 CachedUpdates = False
187 DataSetCloseAction = dcSaveChanges
188 GeneratorField.ApplyOnEvent = gaeOnNewRecord
189 IndexFieldNames = 'DEPT_NO'
190 ReadOnly = True
191 TableName = 'DEPARTMENT'
192 left = 314
193 top = 24
194 object DeptsDEPT_NO: TIBStringField
195 DisplayWidth = 3
196 FieldKind = fkData
197 FieldName = 'DEPT_NO'
198 Index = 0
199 LookupCache = False
200 ProviderFlags = [pfInUpdate, pfInWhere]
201 ReadOnly = False
202 Required = True
203 Size = 3
204 end
205 object DeptsDEPARTMENT: TIBStringField
206 DisplayWidth = 25
207 FieldKind = fkData
208 FieldName = 'DEPARTMENT'
209 Index = 1
210 LookupCache = False
211 ProviderFlags = [pfInUpdate, pfInWhere]
212 ReadOnly = False
213 Required = True
214 Size = 25
215 end
216 object DeptsHEAD_DEPT: TIBStringField
217 DisplayWidth = 3
218 FieldKind = fkData
219 FieldName = 'HEAD_DEPT'
220 Index = 2
221 LookupCache = False
222 ProviderFlags = [pfInUpdate, pfInWhere]
223 ReadOnly = False
224 Required = False
225 Size = 3
226 end
227 object DeptsMNGR_NO: TSmallintField
228 DisplayWidth = 10
229 FieldKind = fkData
230 FieldName = 'MNGR_NO'
231 Index = 3
232 LookupCache = False
233 ProviderFlags = [pfInUpdate, pfInWhere]
234 ReadOnly = False
235 Required = False
236 end
237 object DeptsBUDGET: TIBBCDField
238 DisplayWidth = 18
239 FieldKind = fkData
240 FieldName = 'BUDGET'
241 Index = 4
242 LookupCache = False
243 ProviderFlags = [pfInUpdate, pfInWhere]
244 ReadOnly = False
245 Required = False
246 Precision = 18
247 Currency = False
248 MaxValue = 0
249 MinValue = 0
250 Size = 2
251 end
252 object DeptsLOCATION: TIBStringField
253 DisplayWidth = 15
254 FieldKind = fkData
255 FieldName = 'LOCATION'
256 Index = 5
257 LookupCache = False
258 ProviderFlags = [pfInUpdate, pfInWhere]
259 ReadOnly = False
260 Required = False
261 Size = 15
262 end
263 object DeptsPHONE_NO: TIBStringField
264 DisplayWidth = 20
265 FieldKind = fkData
266 FieldName = 'PHONE_NO'
267 Index = 6
268 LookupCache = False
269 ProviderFlags = [pfInUpdate, pfInWhere]
270 ReadOnly = False
271 Required = False
272 end
273 end
274 object DataSource2: TDataSource
275 DataSet = Depts
276 left = 272
277 top = 24
278 end
279 object Datasource1: TDataSource
280 DataSet = Employees
281 left = 368
282 top = 24
283 end
284 object Employees: TIBTable
285 AllowAutoActivateTransaction = False
286 Database = IBDatabase1
287 Transaction = IBTransaction1
288 AutoCommit = acCommitRetaining
289 BufferChunks = 1000
290 CachedUpdates = False
291 DataSetCloseAction = dcSaveChanges
292 GeneratorField.Generator = 'EMP_NO_GEN '
293 GeneratorField.Field = 'EMP_NO'
294 GeneratorField.ApplyOnEvent = gaeOnNewRecord
295 IndexFieldNames = 'DEPT_NO'
296 MasterFields = 'DEPT_NO'
297 MasterSource = DataSource2
298 TableName = 'EMPLOYEE'
299 left = 416
300 top = 24
301 object EmployeesEMP_NO: TSmallintField
302 DisplayWidth = 10
303 FieldKind = fkData
304 FieldName = 'EMP_NO'
305 Index = 0
306 LookupCache = False
307 ProviderFlags = [pfInUpdate, pfInWhere]
308 ReadOnly = False
309 Required = True
310 end
311 object EmployeesFIRST_NAME: TIBStringField
312 DisplayWidth = 15
313 FieldKind = fkData
314 FieldName = 'FIRST_NAME'
315 Index = 1
316 LookupCache = False
317 ProviderFlags = [pfInUpdate, pfInWhere]
318 ReadOnly = False
319 Required = True
320 Size = 15
321 end
322 object EmployeesLAST_NAME: TIBStringField
323 DisplayWidth = 20
324 FieldKind = fkData
325 FieldName = 'LAST_NAME'
326 Index = 2
327 LookupCache = False
328 ProviderFlags = [pfInUpdate, pfInWhere]
329 ReadOnly = False
330 Required = True
331 end
332 object EmployeesPHONE_EXT: TIBStringField
333 DisplayWidth = 4
334 FieldKind = fkData
335 FieldName = 'PHONE_EXT'
336 Index = 3
337 LookupCache = False
338 ProviderFlags = [pfInUpdate, pfInWhere]
339 ReadOnly = False
340 Required = False
341 Size = 4
342 end
343 object EmployeesHIRE_DATE: TDateTimeField
344 DisplayWidth = 10
345 FieldKind = fkData
346 FieldName = 'HIRE_DATE'
347 Index = 4
348 LookupCache = False
349 ProviderFlags = [pfInUpdate, pfInWhere]
350 ReadOnly = False
351 Required = True
352 end
353 object EmployeesDEPT_NO: TIBStringField
354 DisplayWidth = 3
355 FieldKind = fkData
356 FieldName = 'DEPT_NO'
357 Index = 5
358 LookupCache = False
359 ProviderFlags = [pfInUpdate, pfInWhere]
360 ReadOnly = False
361 Required = True
362 Size = 3
363 end
364 object EmployeesJOB_CODE: TIBStringField
365 DisplayWidth = 5
366 FieldKind = fkData
367 FieldName = 'JOB_CODE'
368 Index = 6
369 LookupCache = False
370 ProviderFlags = [pfInUpdate, pfInWhere]
371 ReadOnly = False
372 Required = True
373 Size = 5
374 end
375 object EmployeesJOB_GRADE: TSmallintField
376 DisplayWidth = 10
377 FieldKind = fkData
378 FieldName = 'JOB_GRADE'
379 Index = 7
380 LookupCache = False
381 ProviderFlags = [pfInUpdate, pfInWhere]
382 ReadOnly = False
383 Required = True
384 end
385 object EmployeesJOB_COUNTRY: TIBStringField
386 DisplayWidth = 15
387 FieldKind = fkData
388 FieldName = 'JOB_COUNTRY'
389 Index = 8
390 LookupCache = False
391 ProviderFlags = [pfInUpdate, pfInWhere]
392 ReadOnly = False
393 Required = True
394 Size = 15
395 end
396 object EmployeesSALARY: TIBBCDField
397 DisplayWidth = 18
398 FieldKind = fkData
399 FieldName = 'SALARY'
400 Index = 9
401 LookupCache = False
402 ProviderFlags = [pfInUpdate, pfInWhere]
403 ReadOnly = False
404 Required = True
405 OnGetText = EmployeesSALARYGetText
406 Precision = 18
407 Currency = False
408 MaxValue = 0
409 MinValue = 0
410 Size = 2
411 end
412 object EmployeesFULL_NAME: TIBStringField
413 DisplayWidth = 37
414 FieldKind = fkData
415 FieldName = 'FULL_NAME'
416 Index = 10
417 LookupCache = False
418 ProviderFlags = [pfInUpdate, pfInWhere]
419 ReadOnly = True
420 Required = False
421 Size = 37
422 end
423 end
424 end