examples/ibtable/Unit1.lfm

object Form1: TForm1
  Left = 457
  Height = 453
  Top = 397
  Width = 817
  Caption = 'IB Tables Example'
  ClientHeight = 453
  ClientWidth = 817
  DefaultMonitor = dmPrimary
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.0.4'
  object Panel1: TPanel
    Left = 0
    Height = 453
    Top = 0
    Width = 817
    Align = alClient
    ClientHeight = 453
    ClientWidth = 817
    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 = 640
      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
          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 = 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
    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
    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:	68
Committed:	Tue Oct 17 10:07:58 2017 UTC (6 years, 6 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).
#	Content
1	object Form1: TForm1
2	Left = 457
3	Height = 453
4	Top = 397
5	Width = 817
6	Caption = 'IB Tables Example'
7	ClientHeight = 453
8	ClientWidth = 817
9	DefaultMonitor = dmPrimary
10	OnShow = FormShow
11	Position = poScreenCenter
12	LCLVersion = '1.8.0.4'
13	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