ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/employee/unit1.lfm
Revision: 7
Committed: Sun Aug 5 18:28:19 2012 UTC (11 years, 7 months ago) by tony
File size: 7582 byte(s)
Log Message:
Committing updates for Release R1-0-0

File Contents

# 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     LCLVersion = '0.9.30.1'
12     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     BeforeOpen = IBQuery1BeforeOpen
128     OnDeleteError = IBQuery1PostError
129     OnPostError = IBQuery1PostError
130     BufferChunks = 1000
131     CachedUpdates = False
132     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     object IBQuery1SALARY: TIBBCDField
238     DisplayWidth = 18
239     FieldKind = fkData
240     FieldName = 'SALARY'
241     Index = 9
242     LookupCache = False
243     ProviderFlags = [pfInUpdate, pfInWhere]
244     ReadOnly = False
245     Required = True
246     OnGetText = IBQuery1SALARYGetText
247     Precision = 18
248     Currency = False
249     MaxValue = 0
250     MinValue = 0
251     Size = 2
252     end
253     object IBQuery1FULL_NAME: TIBStringField
254     DisplayWidth = 37
255     FieldKind = fkData
256     FieldName = 'FULL_NAME'
257     Index = 10
258     LookupCache = False
259     ProviderFlags = [pfInUpdate, pfInWhere]
260     ReadOnly = True
261     Required = False
262     Size = 37
263     end
264     end
265     object Datasource1: TDatasource
266     DataSet = IBQuery1
267     left = 672
268     top = 296
269     end
270     object ActionList1: TActionList
271     left = 672
272     top = 376
273     object AddEmployee: TAction
274     Caption = 'Add'
275     OnExecute = AddEmployeeExecute
276     end
277     object EditEmployee: TAction
278     Caption = 'Edit'
279     OnExecute = EditEmployeeExecute
280     OnUpdate = EditEmployeeUpdate
281     end
282     object DeleteEmployee: TAction
283     Caption = 'Delete'
284     OnExecute = DeleteEmployeeExecute
285     OnUpdate = EditEmployeeUpdate
286     end
287     object SaveChanges: TAction
288     Caption = 'Save'
289     OnExecute = SaveChangesExecute
290     OnUpdate = SaveChangesUpdate
291     end
292     object CancelChanges: TAction
293     Caption = 'Cancel'
294     OnExecute = CancelChangesExecute
295     OnUpdate = SaveChangesUpdate
296     end
297     end
298     object IBUpdateSQL1: TIBUpdateSQL
299     RefreshSQL.Strings = (
300     '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'
301     'Where A.EMP_NO = :EMP_NO'
302     )
303     DeleteSQL.Strings = (
304     'Delete From EMPLOYEE A'
305     'Where A.EMP_NO = :EMP_NO'
306     )
307     left = 712
308     top = 336
309     end
310     end