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.1.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 = True
    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 = 232
    top = 24
  end
  object Depts: TIBTable
    AllowAutoActivateTransaction = True
    Database = IBDatabase1
    Transaction = IBTransaction1
    AutoCalcFields = False
    AfterOpen = DeptsAfterOpen
    AutoCommit = acCommitRetaining
    BufferChunks = 1000
    CachedUpdates = False
    DataSetCloseAction = dcSaveChanges
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    IndexFieldNames = 'DEPT_NO'
    ReadOnly = True
    TableName = 'DEPARTMENT'
    left = 314
    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 = 272
    top = 24
  end
  object Datasource1: TDataSource
    DataSet = Employees
    left = 368
    top = 24
  end
  object Employees: TIBTable
    AllowAutoActivateTransaction = False
    Database = IBDatabase1
    Transaction = IBTransaction1
    AutoCommit = acCommitRetaining
    BufferChunks = 1000
    CachedUpdates = False
    DataSetCloseAction = dcSaveChanges
    GeneratorField.Generator = 'EMP_NO_GEN                                                                                                                  '
    GeneratorField.Field = 'EMP_NO'
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    IndexFieldNames = 'DEPT_NO'
    MasterFields = 'DEPT_NO'
    MasterSource = DataSource2
    TableName = 'EMPLOYEE'
    left = 416
    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:	112
Committed:	Thu Jan 18 14:37:55 2018 UTC (6 years, 9 months ago) by tony
File size:	11656 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.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