ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/ibtable/Unit1.lfm
Revision: 68
Committed: Tue Oct 17 10:07:58 2017 UTC (6 years, 5 months ago) by tony
File size: 10913 byte(s)
Log Message:
IBX: Editor Positioning tidy up
FBINTF: Trap uninitialised SQL parameters on SQL Exec. Avoids Unknown SQL Type errors.
Consistent setting of Modified (SQLParam).

File Contents

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