examples/ibtable/Unit1.lfm

object Form1: TForm1
  Left = 457
  Height = 453
  Top = 397
  Width = 943
  Caption = 'IB Tables Example'
  ClientHeight = 453
  ClientWidth = 943
  DefaultMonitor = dmPrimary
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.3.0'
  object Panel1: TPanel
    Left = 0
    Height = 453
    Top = 0
    Width = 943
    Align = alClient
    ClientHeight = 453
    ClientWidth = 943
    TabOrder = 0
    object Panel2: TPanel
      Left = 1
      Height = 451
      Top = 1
      Width = 170
      Align = alLeft
      BevelInner = bvLowered
      ClientHeight = 451
      ClientWidth = 170
      TabOrder = 0
      object IBDynamicGrid1: TIBDynamicGrid
        Left = 2
        Height = 447
        Top = 2
        Width = 166
        Align = alClient
        Color = clWindow
        Columns = <        
          item
            Title.Alignment = taCenter
            Title.Caption = 'Dept'
            Width = 80
            FieldName = 'DEPARTMENT'
            AutoSizeColumn = True
            InitialSortColumn = False
            DBLookupProperties.ItemHeight = 0
            DBLookupProperties.ItemWidth = 0
            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
          end>
        DataSource = DataSource2
        Scrollbars = ssAutoVertical
        TabOrder = 0
        ExpandEditorPanelBelowRow = False
        Descending = False
        EditorBorderStyle = bsSingle
        DefaultPositionAtEnd = False
      end
    end
    object Splitter1: TSplitter
      Left = 171
      Height = 451
      Top = 1
      Width = 5
    end
    object IBDynamicGrid2: TIBDynamicGrid
      Left = 176
      Height = 451
      Top = 1
      Width = 766
      Align = alClient
      Color = clWindow
      Columns = <      
        item
          Title.Alignment = taCenter
          Title.Caption = 'Last Name'
          Width = 150
          FieldName = 'LAST_NAME'
          AutoSizeColumn = True
          InitialSortColumn = False
          DBLookupProperties.ItemHeight = 0
          DBLookupProperties.ItemWidth = 0
          DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        end      
        item
          Title.Alignment = taCenter
          Title.Caption = 'First Name'
          Width = 150
          FieldName = 'FIRST_NAME'
          AutoSizeColumn = False
          InitialSortColumn = False
          DBLookupProperties.ItemHeight = 0
          DBLookupProperties.ItemWidth = 0
          DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        end      
        item
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = 'Full Name'
          Width = 120
          FieldName = 'FULL_NAME'
          AutoSizeColumn = True
          InitialSortColumn = False
          DBLookupProperties.ItemHeight = 0
          DBLookupProperties.ItemWidth = 0
          DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        end      
        item
          Title.Alignment = taCenter
          Title.Caption = 'Emp No.'
          Width = 80
          FieldName = 'EMP_NO'
          AutoSizeColumn = False
          InitialSortColumn = False
          DBLookupProperties.ItemHeight = 0
          DBLookupProperties.ItemWidth = 0
          DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        end      
        item
          Title.Alignment = taCenter
          Title.Caption = 'Hire Date'
          Width = 120
          FieldName = 'HIRE_DATE'
          AutoSizeColumn = False
          InitialSortColumn = False
          DBLookupProperties.ItemHeight = 0
          DBLookupProperties.ItemWidth = 0
          DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        end      
        item
          Title.Alignment = taCenter
          Title.Caption = 'Salary'
          Width = 100
          FieldName = 'SALARY'
          AutoSizeColumn = False
          InitialSortColumn = False
          DBLookupProperties.ItemHeight = 0
          DBLookupProperties.ItemWidth = 0
          DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        end>
      DataSource = Datasource1
      Scrollbars = ssAutoVertical
      TabOrder = 2
      ExpandEditorPanelBelowRow = False
      Descending = False
      EditorBorderStyle = bsSingle
      DefaultPositionAtEnd = False
    end
  end
  object IBDatabase1: TIBDatabase
    Connected = False
    AfterConnect = IBDatabase1AfterConnect
    CreateIfNotExists = False
    AllowStreamedConnected = False
    DatabaseName = 'employee'
    Params.Strings = (
      'user_name=SYSDBA'
      'lc_ctype=UTF-8'
    )
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    TraceFlags = []
    UseDefaultSystemCodePage = False
    left = 184
    top = 24
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = IBDatabase1
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait'
    )
    left = 272
    top = 24
  end
  object Depts: TIBTable
    AllowAutoActivateTransaction = True
    Database = IBDatabase1
    Transaction = IBTransaction1
    AutoCalcFields = False
    AfterOpen = DeptsAfterOpen
    AutoCommit = acCommitRetaining
    BufferChunks = 1000
    CachedUpdates = False
    DataSetCloseAction = dcSaveChanges
    EnableStatistics = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    IndexFieldNames = 'DEPT_NO'
    MasterDetailDelay = 500
    ReadOnly = True
    TableName = 'DEPARTMENT'
    left = 424
    top = 24
    object DeptsDEPT_NO: TIBStringField
      DisplayWidth = 3
      FieldKind = fkData
      FieldName = 'DEPT_NO'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 3
    end
    object DeptsDEPARTMENT: TIBStringField
      DisplayWidth = 25
      FieldKind = fkData
      FieldName = 'DEPARTMENT'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 25
    end
    object DeptsHEAD_DEPT: TIBStringField
      DisplayWidth = 3
      FieldKind = fkData
      FieldName = 'HEAD_DEPT'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 3
    end
    object DeptsMNGR_NO: TSmallintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'MNGR_NO'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object DeptsBUDGET: TIBBCDField
      DisplayWidth = 18
      FieldKind = fkData
      FieldName = 'BUDGET'
      Index = 4
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = 18
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 2
    end
    object DeptsLOCATION: TIBStringField
      DisplayWidth = 15
      FieldKind = fkData
      FieldName = 'LOCATION'
      Index = 5
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 15
    end
    object DeptsPHONE_NO: TIBStringField
      DisplayWidth = 20
      FieldKind = fkData
      FieldName = 'PHONE_NO'
      Index = 6
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
  end
  object DataSource2: TDataSource
    DataSet = Depts
    left = 360
    top = 24
  end
  object Datasource1: TDataSource
    DataSet = Employees
    left = 496
    top = 24
  end
  object Employees: TIBTable
    AllowAutoActivateTransaction = False
    Database = IBDatabase1
    Transaction = IBTransaction1
    AutoCommit = acCommitRetaining
    BufferChunks = 1000
    CachedUpdates = False
    DataSetCloseAction = dcSaveChanges
    EnableStatistics = False
    GeneratorField.Generator = 'EMP_NO_GEN                                                                                                                  '
    GeneratorField.Field = 'EMP_NO'
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    IndexFieldNames = 'DEPT_NO'
    MasterFields = 'DEPT_NO'
    MasterSource = DataSource2
    MasterDetailDelay = 300
    TableName = 'EMPLOYEE'
    left = 576
    top = 24
    object EmployeesEMP_NO: TSmallintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'EMP_NO'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object EmployeesFIRST_NAME: TIBStringField
      DisplayWidth = 15
      FieldKind = fkData
      FieldName = 'FIRST_NAME'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 15
    end
    object EmployeesLAST_NAME: TIBStringField
      DisplayWidth = 20
      FieldKind = fkData
      FieldName = 'LAST_NAME'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object EmployeesPHONE_EXT: TIBStringField
      DisplayWidth = 4
      FieldKind = fkData
      FieldName = 'PHONE_EXT'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 4
    end
    object EmployeesHIRE_DATE: TDateTimeField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'HIRE_DATE'
      Index = 4
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object EmployeesDEPT_NO: TIBStringField
      DisplayWidth = 3
      FieldKind = fkData
      FieldName = 'DEPT_NO'
      Index = 5
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 3
    end
    object EmployeesJOB_CODE: TIBStringField
      DisplayWidth = 5
      FieldKind = fkData
      FieldName = 'JOB_CODE'
      Index = 6
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 5
    end
    object EmployeesJOB_GRADE: TSmallintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'JOB_GRADE'
      Index = 7
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object EmployeesJOB_COUNTRY: TIBStringField
      DisplayWidth = 15
      FieldKind = fkData
      FieldName = 'JOB_COUNTRY'
      Index = 8
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 15
    end
    object EmployeesSALARY: TIBBCDField
      DisplayWidth = 18
      FieldKind = fkData
      FieldName = 'SALARY'
      Index = 9
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      OnGetText = EmployeesSALARYGetText
      Precision = 18
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 2
    end
    object EmployeesFULL_NAME: TIBStringField
      DisplayWidth = 37
      FieldKind = fkData
      FieldName = 'FULL_NAME'
      Index = 10
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = True
      Required = False
      Size = 37
    end
  end
end
Revision:	209
Committed:	Wed Mar 14 12:48:51 2018 UTC (6 years, 1 month ago) by tony
File size:	11771 byte(s)
Log Message:	Fixes Merged
#	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.3.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 = False
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 = 272
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	EnableStatistics = False
189	GeneratorField.ApplyOnEvent = gaeOnNewRecord
190	IndexFieldNames = 'DEPT_NO'
191	MasterDetailDelay = 500
192	ReadOnly = True
193	TableName = 'DEPARTMENT'
194	left = 424
195	top = 24
196	object DeptsDEPT_NO: TIBStringField
197	DisplayWidth = 3
198	FieldKind = fkData
199	FieldName = 'DEPT_NO'
200	Index = 0
201	LookupCache = False
202	ProviderFlags = [pfInUpdate, pfInWhere]
203	ReadOnly = False
204	Required = True
205	Size = 3
206	end
207	object DeptsDEPARTMENT: TIBStringField
208	DisplayWidth = 25
209	FieldKind = fkData
210	FieldName = 'DEPARTMENT'
211	Index = 1
212	LookupCache = False
213	ProviderFlags = [pfInUpdate, pfInWhere]
214	ReadOnly = False
215	Required = True
216	Size = 25
217	end
218	object DeptsHEAD_DEPT: TIBStringField
219	DisplayWidth = 3
220	FieldKind = fkData
221	FieldName = 'HEAD_DEPT'
222	Index = 2
223	LookupCache = False
224	ProviderFlags = [pfInUpdate, pfInWhere]
225	ReadOnly = False
226	Required = False
227	Size = 3
228	end
229	object DeptsMNGR_NO: TSmallintField
230	DisplayWidth = 10
231	FieldKind = fkData
232	FieldName = 'MNGR_NO'
233	Index = 3
234	LookupCache = False
235	ProviderFlags = [pfInUpdate, pfInWhere]
236	ReadOnly = False
237	Required = False
238	end
239	object DeptsBUDGET: TIBBCDField
240	DisplayWidth = 18
241	FieldKind = fkData
242	FieldName = 'BUDGET'
243	Index = 4
244	LookupCache = False
245	ProviderFlags = [pfInUpdate, pfInWhere]
246	ReadOnly = False
247	Required = False
248	Precision = 18
249	Currency = False
250	MaxValue = 0
251	MinValue = 0
252	Size = 2
253	end
254	object DeptsLOCATION: TIBStringField
255	DisplayWidth = 15
256	FieldKind = fkData
257	FieldName = 'LOCATION'
258	Index = 5
259	LookupCache = False
260	ProviderFlags = [pfInUpdate, pfInWhere]
261	ReadOnly = False
262	Required = False
263	Size = 15
264	end
265	object DeptsPHONE_NO: TIBStringField
266	DisplayWidth = 20
267	FieldKind = fkData
268	FieldName = 'PHONE_NO'
269	Index = 6
270	LookupCache = False
271	ProviderFlags = [pfInUpdate, pfInWhere]
272	ReadOnly = False
273	Required = False
274	end
275	end
276	object DataSource2: TDataSource
277	DataSet = Depts
278	left = 360
279	top = 24
280	end
281	object Datasource1: TDataSource
282	DataSet = Employees
283	left = 496
284	top = 24
285	end
286	object Employees: TIBTable
287	AllowAutoActivateTransaction = False
288	Database = IBDatabase1
289	Transaction = IBTransaction1
290	AutoCommit = acCommitRetaining
291	BufferChunks = 1000
292	CachedUpdates = False
293	DataSetCloseAction = dcSaveChanges
294	EnableStatistics = False
295	GeneratorField.Generator = 'EMP_NO_GEN '
296	GeneratorField.Field = 'EMP_NO'
297	GeneratorField.ApplyOnEvent = gaeOnNewRecord
298	IndexFieldNames = 'DEPT_NO'
299	MasterFields = 'DEPT_NO'
300	MasterSource = DataSource2
301	MasterDetailDelay = 300
302	TableName = 'EMPLOYEE'
303	left = 576
304	top = 24
305	object EmployeesEMP_NO: TSmallintField
306	DisplayWidth = 10
307	FieldKind = fkData
308	FieldName = 'EMP_NO'
309	Index = 0
310	LookupCache = False
311	ProviderFlags = [pfInUpdate, pfInWhere]
312	ReadOnly = False
313	Required = True
314	end
315	object EmployeesFIRST_NAME: TIBStringField
316	DisplayWidth = 15
317	FieldKind = fkData
318	FieldName = 'FIRST_NAME'
319	Index = 1
320	LookupCache = False
321	ProviderFlags = [pfInUpdate, pfInWhere]
322	ReadOnly = False
323	Required = True
324	Size = 15
325	end
326	object EmployeesLAST_NAME: TIBStringField
327	DisplayWidth = 20
328	FieldKind = fkData
329	FieldName = 'LAST_NAME'
330	Index = 2
331	LookupCache = False
332	ProviderFlags = [pfInUpdate, pfInWhere]
333	ReadOnly = False
334	Required = True
335	end
336	object EmployeesPHONE_EXT: TIBStringField
337	DisplayWidth = 4
338	FieldKind = fkData
339	FieldName = 'PHONE_EXT'
340	Index = 3
341	LookupCache = False
342	ProviderFlags = [pfInUpdate, pfInWhere]
343	ReadOnly = False
344	Required = False
345	Size = 4
346	end
347	object EmployeesHIRE_DATE: TDateTimeField
348	DisplayWidth = 10
349	FieldKind = fkData
350	FieldName = 'HIRE_DATE'
351	Index = 4
352	LookupCache = False
353	ProviderFlags = [pfInUpdate, pfInWhere]
354	ReadOnly = False
355	Required = True
356	end
357	object EmployeesDEPT_NO: TIBStringField
358	DisplayWidth = 3
359	FieldKind = fkData
360	FieldName = 'DEPT_NO'
361	Index = 5
362	LookupCache = False
363	ProviderFlags = [pfInUpdate, pfInWhere]
364	ReadOnly = False
365	Required = True
366	Size = 3
367	end
368	object EmployeesJOB_CODE: TIBStringField
369	DisplayWidth = 5
370	FieldKind = fkData
371	FieldName = 'JOB_CODE'
372	Index = 6
373	LookupCache = False
374	ProviderFlags = [pfInUpdate, pfInWhere]
375	ReadOnly = False
376	Required = True
377	Size = 5
378	end
379	object EmployeesJOB_GRADE: TSmallintField
380	DisplayWidth = 10
381	FieldKind = fkData
382	FieldName = 'JOB_GRADE'
383	Index = 7
384	LookupCache = False
385	ProviderFlags = [pfInUpdate, pfInWhere]
386	ReadOnly = False
387	Required = True
388	end
389	object EmployeesJOB_COUNTRY: TIBStringField
390	DisplayWidth = 15
391	FieldKind = fkData
392	FieldName = 'JOB_COUNTRY'
393	Index = 8
394	LookupCache = False
395	ProviderFlags = [pfInUpdate, pfInWhere]
396	ReadOnly = False
397	Required = True
398	Size = 15
399	end
400	object EmployeesSALARY: TIBBCDField
401	DisplayWidth = 18
402	FieldKind = fkData
403	FieldName = 'SALARY'
404	Index = 9
405	LookupCache = False
406	ProviderFlags = [pfInUpdate, pfInWhere]
407	ReadOnly = False
408	Required = True
409	OnGetText = EmployeesSALARYGetText
410	Precision = 18
411	Currency = False
412	MaxValue = 0
413	MinValue = 0
414	Size = 2
415	end
416	object EmployeesFULL_NAME: TIBStringField
417	DisplayWidth = 37
418	FieldKind = fkData
419	FieldName = 'FULL_NAME'
420	Index = 10
421	LookupCache = False
422	ProviderFlags = [pfInUpdate, pfInWhere]
423	ReadOnly = True
424	Required = False
425	Size = 37
426	end
427	end
428	end