examples/ibtable/Unit1.lfm

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