examples/ibtable/Unit1.lfm

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