examples/employee/unit1.lfm

object Form1: TForm1
  Left = 461
  Height = 454
  Top = 312
  Width = 743
  Caption = 'Form1'
  ClientHeight = 454
  ClientWidth = 743
  OnClose = FormClose
  OnShow = FormShow
  LCLVersion = '1.2.2.0'
  object DBGrid1: TDBGrid
    Left = 8
    Height = 375
    Top = 24
    Width = 632
    Color = clWindow
    Columns = <    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Last Name'
        Width = 150
        FieldName = 'LAST_NAME'
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'First Name'
        Width = 150
        FieldName = 'FIRST_NAME'
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Employee No.'
        Width = 100
        FieldName = 'EMP_NO'
      end    
      item
        Alignment = taCenter
        Title.Alignment = taCenter
        Title.Caption = 'Started'
        Width = 80
        FieldName = 'HIRE_DATE'
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Salary'
        Width = 100
        FieldName = 'SALARY'
      end>
    DataSource = Datasource1
    TabOrder = 0
    OnDblClick = DBGrid1DblClick
  end
  object Button1: TButton
    Left = 656
    Height = 25
    Top = 24
    Width = 75
    Action = AddEmployee
    TabOrder = 1
  end
  object Button2: TButton
    Left = 656
    Height = 25
    Top = 62
    Width = 75
    Action = EditEmployee
    TabOrder = 2
  end
  object Button3: TButton
    Left = 656
    Height = 25
    Top = 101
    Width = 75
    Action = DeleteEmployee
    TabOrder = 3
  end
  object Button4: TButton
    Left = 488
    Height = 25
    Top = 416
    Width = 75
    Action = SaveChanges
    TabOrder = 4
  end
  object Button5: TButton
    Left = 568
    Height = 25
    Top = 416
    Width = 75
    Action = CancelChanges
    TabOrder = 5
  end
  object IBDatabase1: TIBDatabase
    Connected = True
    AfterConnect = IBDatabase1AfterConnect
    BeforeDisconnect = IBDatabase1BeforeDisconnect
    AllowStreamedConnected = False
    DatabaseName = 'employee'
    Params.Strings = (
      'user_name=SYSDBA'
      'lc_ctype=UTF-8'
    )
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    TraceFlags = []
    left = 672
    top = 224
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = IBDatabase1
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait'
    )
    left = 672
    top = 256
  end
  object IBQuery1: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    AfterDelete = IBQuery1AfterDelete
    AfterOpen = IBQuery1AfterOpen
    BeforeClose = IBQuery1BeforeClose
    OnDeleteError = IBQuery1PostError
    OnPostError = IBQuery1PostError
    BufferChunks = 1000
    CachedUpdates = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    SQL.Strings = (
      'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A'
      'Order by LAST_NAME'
    )
    Params = <>
    UpdateObject = IBUpdateSQL1
    AfterTransactionEnd = IBQuery1AfterTransactionEnd
    left = 672
    top = 336
    object IBQuery1EMP_NO: TSmallintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'EMP_NO'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object IBQuery1FIRST_NAME: TIBStringField
      DisplayWidth = 15
      FieldKind = fkData
      FieldName = 'FIRST_NAME'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 15
    end
    object IBQuery1LAST_NAME: TIBStringField
      DisplayWidth = 20
      FieldKind = fkData
      FieldName = 'LAST_NAME'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object IBQuery1PHONE_EXT: TIBStringField
      DisplayWidth = 4
      FieldKind = fkData
      FieldName = 'PHONE_EXT'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 4
    end
    object IBQuery1HIRE_DATE: TDateTimeField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'HIRE_DATE'
      Index = 4
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object IBQuery1DEPT_NO: TIBStringField
      DisplayWidth = 3
      FieldKind = fkData
      FieldName = 'DEPT_NO'
      Index = 5
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 3
    end
    object IBQuery1JOB_CODE: TIBStringField
      DisplayWidth = 5
      FieldKind = fkData
      FieldName = 'JOB_CODE'
      Index = 6
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 5
    end
    object IBQuery1JOB_GRADE: TSmallintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'JOB_GRADE'
      Index = 7
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object IBQuery1JOB_COUNTRY: TIBStringField
      DisplayWidth = 15
      FieldKind = fkData
      FieldName = 'JOB_COUNTRY'
      Index = 8
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 15
    end
    object IBQuery1FULL_NAME: TIBStringField
      DisplayWidth = 37
      FieldKind = fkData
      FieldName = 'FULL_NAME'
      Index = 9
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = True
      Required = False
      Size = 37
    end
    object IBQuery1SALARY: TIBBCDField
      DisplayWidth = 18
      FieldKind = fkData
      FieldName = 'SALARY'
      Index = 10
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Precision = 18
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 2
    end
  end
  object Datasource1: TDataSource
    DataSet = IBQuery1
    left = 672
    top = 296
  end
  object ActionList1: TActionList
    left = 672
    top = 376
    object AddEmployee: TAction
      Caption = 'Add'
      OnExecute = AddEmployeeExecute
    end
    object EditEmployee: TAction
      Caption = 'Edit'
      OnExecute = EditEmployeeExecute
      OnUpdate = EditEmployeeUpdate
    end
    object DeleteEmployee: TAction
      Caption = 'Delete'
      OnExecute = DeleteEmployeeExecute
      OnUpdate = EditEmployeeUpdate
    end
    object SaveChanges: TAction
      Caption = 'Save'
      OnExecute = SaveChangesExecute
      OnUpdate = SaveChangesUpdate
    end
    object CancelChanges: TAction
      Caption = 'Cancel'
      OnExecute = CancelChangesExecute
      OnUpdate = SaveChangesUpdate
    end
  end
  object IBUpdateSQL1: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A'
      'Where A.EMP_NO = :EMP_NO'
    )
    DeleteSQL.Strings = (
      'Delete From EMPLOYEE A'
      'Where A.EMP_NO = :EMP_NO'
    )
    left = 712
    top = 336
  end
end
Revision:	19
Committed:	Mon Jul 7 13:00:15 2014 UTC (9 years, 9 months ago) by tony
File size:	7536 byte(s)
Log Message:	Committing updates for Release R1-1-0
#	User	Rev	Content
1	tony	7	object Form1: TForm1
2			Left = 461
3			Height = 454
4			Top = 312
5			Width = 743
6			Caption = 'Form1'
7			ClientHeight = 454
8			ClientWidth = 743
9			OnClose = FormClose
10			OnShow = FormShow
11	tony	19	LCLVersion = '1.2.2.0'
12	tony	7	object DBGrid1: TDBGrid
13			Left = 8
14			Height = 375
15			Top = 24
16			Width = 632
17			Color = clWindow
18			Columns = <
19			item
20			Title.Alignment = taCenter
21			Title.Caption = 'Last Name'
22			Width = 150
23			FieldName = 'LAST_NAME'
24			end
25			item
26			Title.Alignment = taCenter
27			Title.Caption = 'First Name'
28			Width = 150
29			FieldName = 'FIRST_NAME'
30			end
31			item
32			Title.Alignment = taCenter
33			Title.Caption = 'Employee No.'
34			Width = 100
35			FieldName = 'EMP_NO'
36			end
37			item
38			Alignment = taCenter
39			Title.Alignment = taCenter
40			Title.Caption = 'Started'
41			Width = 80
42			FieldName = 'HIRE_DATE'
43			end
44			item
45			Title.Alignment = taCenter
46			Title.Caption = 'Salary'
47			Width = 100
48			FieldName = 'SALARY'
49			end>
50			DataSource = Datasource1
51			TabOrder = 0
52			OnDblClick = DBGrid1DblClick
53			end
54			object Button1: TButton
55			Left = 656
56			Height = 25
57			Top = 24
58			Width = 75
59			Action = AddEmployee
60			TabOrder = 1
61			end
62			object Button2: TButton
63			Left = 656
64			Height = 25
65			Top = 62
66			Width = 75
67			Action = EditEmployee
68			TabOrder = 2
69			end
70			object Button3: TButton
71			Left = 656
72			Height = 25
73			Top = 101
74			Width = 75
75			Action = DeleteEmployee
76			TabOrder = 3
77			end
78			object Button4: TButton
79			Left = 488
80			Height = 25
81			Top = 416
82			Width = 75
83			Action = SaveChanges
84			TabOrder = 4
85			end
86			object Button5: TButton
87			Left = 568
88			Height = 25
89			Top = 416
90			Width = 75
91			Action = CancelChanges
92			TabOrder = 5
93			end
94			object IBDatabase1: TIBDatabase
95			Connected = True
96			AfterConnect = IBDatabase1AfterConnect
97			BeforeDisconnect = IBDatabase1BeforeDisconnect
98			AllowStreamedConnected = False
99			DatabaseName = 'employee'
100			Params.Strings = (
101			'user_name=SYSDBA'
102			'lc_ctype=UTF-8'
103			)
104			DefaultTransaction = IBTransaction1
105			IdleTimer = 0
106			TraceFlags = []
107			left = 672
108			top = 224
109			end
110			object IBTransaction1: TIBTransaction
111			Active = False
112			DefaultDatabase = IBDatabase1
113			Params.Strings = (
114			'read_committed'
115			'rec_version'
116			'nowait'
117			)
118			left = 672
119			top = 256
120			end
121			object IBQuery1: TIBQuery
122			Database = IBDatabase1
123			Transaction = IBTransaction1
124			AfterDelete = IBQuery1AfterDelete
125			AfterOpen = IBQuery1AfterOpen
126			BeforeClose = IBQuery1BeforeClose
127			OnDeleteError = IBQuery1PostError
128			OnPostError = IBQuery1PostError
129			BufferChunks = 1000
130			CachedUpdates = False
131	tony	19	GenerateParamNames = False
132	tony	7	GeneratorField.ApplyOnEvent = gaeOnNewRecord
133			SQL.Strings = (
134			'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A'
135			'Order by LAST_NAME'
136			)
137			Params = <>
138			UpdateObject = IBUpdateSQL1
139			AfterTransactionEnd = IBQuery1AfterTransactionEnd
140			left = 672
141			top = 336
142			object IBQuery1EMP_NO: TSmallintField
143			DisplayWidth = 10
144			FieldKind = fkData
145			FieldName = 'EMP_NO'
146			Index = 0
147			LookupCache = False
148			ProviderFlags = [pfInUpdate, pfInWhere]
149			ReadOnly = False
150			Required = True
151			end
152			object IBQuery1FIRST_NAME: TIBStringField
153			DisplayWidth = 15
154			FieldKind = fkData
155			FieldName = 'FIRST_NAME'
156			Index = 1
157			LookupCache = False
158			ProviderFlags = [pfInUpdate, pfInWhere]
159			ReadOnly = False
160			Required = True
161			Size = 15
162			end
163			object IBQuery1LAST_NAME: TIBStringField
164			DisplayWidth = 20
165			FieldKind = fkData
166			FieldName = 'LAST_NAME'
167			Index = 2
168			LookupCache = False
169			ProviderFlags = [pfInUpdate, pfInWhere]
170			ReadOnly = False
171			Required = True
172			end
173			object IBQuery1PHONE_EXT: TIBStringField
174			DisplayWidth = 4
175			FieldKind = fkData
176			FieldName = 'PHONE_EXT'
177			Index = 3
178			LookupCache = False
179			ProviderFlags = [pfInUpdate, pfInWhere]
180			ReadOnly = False
181			Required = False
182			Size = 4
183			end
184			object IBQuery1HIRE_DATE: TDateTimeField
185			DisplayWidth = 10
186			FieldKind = fkData
187			FieldName = 'HIRE_DATE'
188			Index = 4
189			LookupCache = False
190			ProviderFlags = [pfInUpdate, pfInWhere]
191			ReadOnly = False
192			Required = True
193			end
194			object IBQuery1DEPT_NO: TIBStringField
195			DisplayWidth = 3
196			FieldKind = fkData
197			FieldName = 'DEPT_NO'
198			Index = 5
199			LookupCache = False
200			ProviderFlags = [pfInUpdate, pfInWhere]
201			ReadOnly = False
202			Required = True
203			Size = 3
204			end
205			object IBQuery1JOB_CODE: TIBStringField
206			DisplayWidth = 5
207			FieldKind = fkData
208			FieldName = 'JOB_CODE'
209			Index = 6
210			LookupCache = False
211			ProviderFlags = [pfInUpdate, pfInWhere]
212			ReadOnly = False
213			Required = True
214			Size = 5
215			end
216			object IBQuery1JOB_GRADE: TSmallintField
217			DisplayWidth = 10
218			FieldKind = fkData
219			FieldName = 'JOB_GRADE'
220			Index = 7
221			LookupCache = False
222			ProviderFlags = [pfInUpdate, pfInWhere]
223			ReadOnly = False
224			Required = True
225			end
226			object IBQuery1JOB_COUNTRY: TIBStringField
227			DisplayWidth = 15
228			FieldKind = fkData
229			FieldName = 'JOB_COUNTRY'
230			Index = 8
231			LookupCache = False
232			ProviderFlags = [pfInUpdate, pfInWhere]
233			ReadOnly = False
234			Required = True
235			Size = 15
236			end
237	tony	19	object IBQuery1FULL_NAME: TIBStringField
238			DisplayWidth = 37
239			FieldKind = fkData
240			FieldName = 'FULL_NAME'
241			Index = 9
242			LookupCache = False
243			ProviderFlags = [pfInUpdate, pfInWhere]
244			ReadOnly = True
245			Required = False
246			Size = 37
247			end
248	tony	7	object IBQuery1SALARY: TIBBCDField
249			DisplayWidth = 18
250			FieldKind = fkData
251			FieldName = 'SALARY'
252	tony	19	Index = 10
253	tony	7	LookupCache = False
254			ProviderFlags = [pfInUpdate, pfInWhere]
255			ReadOnly = False
256			Required = True
257			Precision = 18
258			Currency = False
259			MaxValue = 0
260			MinValue = 0
261			Size = 2
262			end
263			end
264	tony	19	object Datasource1: TDataSource
265	tony	7	DataSet = IBQuery1
266			left = 672
267			top = 296
268			end
269			object ActionList1: TActionList
270			left = 672
271			top = 376
272			object AddEmployee: TAction
273			Caption = 'Add'
274			OnExecute = AddEmployeeExecute
275			end
276			object EditEmployee: TAction
277			Caption = 'Edit'
278			OnExecute = EditEmployeeExecute
279			OnUpdate = EditEmployeeUpdate
280			end
281			object DeleteEmployee: TAction
282			Caption = 'Delete'
283			OnExecute = DeleteEmployeeExecute
284			OnUpdate = EditEmployeeUpdate
285			end
286			object SaveChanges: TAction
287			Caption = 'Save'
288			OnExecute = SaveChangesExecute
289			OnUpdate = SaveChangesUpdate
290			end
291			object CancelChanges: TAction
292			Caption = 'Cancel'
293			OnExecute = CancelChangesExecute
294			OnUpdate = SaveChangesUpdate
295			end
296			end
297			object IBUpdateSQL1: TIBUpdateSQL
298			RefreshSQL.Strings = (
299			'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A'
300			'Where A.EMP_NO = :EMP_NO'
301			)
302			DeleteSQL.Strings = (
303			'Delete From EMPLOYEE A'
304			'Where A.EMP_NO = :EMP_NO'
305			)
306			left = 712
307			top = 336
308			end
309			end