ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/examples/dbcontrolgrid/unit1.lfm

Comparing ibx/trunk/examples/dbcontrolgrid/unit1.lfm (file contents):
Revision 46 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC

#	Line 8 | Line 8 | object Form1: TForm1
8		ClientWidth = 1026
9		OnClose = FormClose
10		OnShow = FormShow
11	<	LCLVersion = '1.6.0.4'
11	>	LCLVersion = '1.6.2.0'
12		object Button1: TButton
13		Left = 939
14		Height = 25
#	Line 29 | Line 29 | object Form1: TForm1
29		end
30		object Label1: TLabel
31		Left = 17
32	<	Height = 15
32	>	Height = 17
33		Top = 14
34	<	Width = 87
34	>	Width = 82
35		Caption = 'Started Before'
36		ParentColor = False
37		end
38		object BeforeDate: TDateEdit
39		Left = 112
40	<	Height = 25
40	>	Height = 27
41		Top = 8
42		Width = 96
43		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
44	–	OKCaption = 'OK'
45	–	CancelCaption = 'Cancel'
44		DateOrder = doNone
45		ButtonWidth = 23
46		NumGlyphs = 1
#	Line 52 | Line 50 | object Form1: TForm1
50		end
51		object Label2: TLabel
52		Left = 241
53	<	Height = 15
53	>	Height = 17
54		Top = 14
55	<	Width = 78
55	>	Width = 72
56		Caption = 'Started After'
57		ParentColor = False
58		end
59		object AfterDate: TDateEdit
60		Left = 333
61	<	Height = 25
61	>	Height = 27
62		Top = 8
63		Width = 91
64		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
67	–	OKCaption = 'OK'
68	–	CancelCaption = 'Cancel'
65		DateOrder = doNone
66		ButtonWidth = 23
67		NumGlyphs = 1
#	Line 104 | Line 100 | object Form1: TForm1
100		)
101		object EmployeeEditorPanel: TPanel
102		Left = 12
103	<	Height = 80
103	>	Height = 84
104		Top = 0
105		Width = 890
106		Anchors = []
107		BevelOuter = bvNone
108		BorderWidth = 2
109		BorderStyle = bsSingle
110	<	ClientHeight = 78
110	>	ClientHeight = 82
111		ClientWidth = 888
112		Color = clWhite
113		ParentColor = False
#	Line 119 | Line 115 | object Form1: TForm1
115		Visible = False
116		object Label3: TLabel
117		Left = 0
118	<	Height = 15
118	>	Height = 17
119		Top = 7
120	<	Width = 83
120	>	Width = 77
121		Caption = 'Employee No.'
122		ParentColor = False
123		end
124		object DBEdit1: TDBEdit
125		Left = 90
126	<	Height = 25
126	>	Height = 27
127		Top = 2
128		Width = 120
129		DataField = 'EMP_NO'
#	Line 138 | Line 134 | object Form1: TForm1
134		end
135		object Label4: TLabel
136		Left = 12
137	<	Height = 15
137	>	Height = 17
138		Top = 32
139	<	Width = 64
139	>	Width = 61
140		Caption = 'First Name'
141		ParentColor = False
142		end
143		object DBEdit2: TDBEdit
144		Left = 90
145	<	Height = 25
146	<	Top = 24
145	>	Height = 27
146	>	Top = 28
147		Width = 120
148		DataField = 'FIRST_NAME'
149		DataSource = EmployeeSource
#	Line 157 | Line 153 | object Form1: TForm1
153		end
154		object Label5: TLabel
155		Left = 12
156	<	Height = 15
156	>	Height = 17
157		Top = 56
158	<	Width = 64
158	>	Width = 60
159		Caption = 'Last Name'
160		ParentColor = False
161		end
162		object DBEdit3: TDBEdit
163		Left = 90
164	<	Height = 25
165	<	Top = 46
164	>	Height = 27
165	>	Top = 54
166		Width = 120
167		DataField = 'LAST_NAME'
168		DataSource = EmployeeSource
#	Line 176 | Line 172 | object Form1: TForm1
172		end
173		object Label6: TLabel
174		Left = 216
175	<	Height = 15
175	>	Height = 17
176		Top = 7
177	<	Width = 77
177	>	Width = 71
178		Caption = 'Date Started'
179		ParentColor = False
180		end
181		object IBDateEdit1: TDBDateEdit
182		Left = 300
183	<	Height = 25
183	>	Height = 27
184		Top = 2
185		Width = 100
186		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
191	–	OKCaption = 'OK'
192	–	CancelCaption = 'Cancel'
187		DateOrder = doNone
188		ButtonWidth = 23
189		AutoSelect = False
#	Line 201 | Line 195 | object Form1: TForm1
195		end
196		object Label7: TLabel
197		Left = 252
198	<	Height = 15
198	>	Height = 17
199		Top = 32
200	<	Width = 37
200	>	Width = 35
201		Caption = 'Salary'
202		ParentColor = False
203		end
204		object DBEdit4: TDBEdit
205		Left = 300
206	<	Height = 25
207	<	Top = 24
206	>	Height = 27
207	>	Top = 28
208		Width = 104
209		DataField = 'SALARY'
210		DataSource = EmployeeSource
#	Line 219 | Line 213 | object Form1: TForm1
213		TabOrder = 5
214		end
215		object Label8: TLabel
216	<	Left = 814
217	<	Height = 15
218	<	Top = 54
219	<	Width = 24
216	>	Left = 818
217	>	Height = 17
218	>	Top = 58
219	>	Width = 20
220		Anchors = [akTop, akRight]
221		Caption = 'Ext.'
222		ParentColor = False
223		end
224		object DBEdit5: TDBEdit
225		Left = 838
226	<	Height = 25
227	<	Top = 48
226	>	Height = 27
227	>	Top = 54
228		Width = 40
229		DataField = 'PHONE_EXT'
230		DataSource = EmployeeSource
#	Line 241 | Line 235 | object Form1: TForm1
235		end
236		object Label9: TLabel
237		Left = 536
238	<	Height = 15
238	>	Height = 17
239		Top = 7
240	<	Width = 51
240	>	Width = 47
241		Caption = 'Location'
242		ParentColor = False
243		end
244		object Label10: TLabel
245		Left = 413
246	<	Height = 15
246	>	Height = 17
247		Top = 9
248	<	Width = 59
248	>	Width = 55
249		Caption = 'Job Grade'
250		ParentColor = False
251		end
#	Line 278 | Line 272 | object Form1: TForm1
272		end
273		object Label11: TLabel
274		Left = 536
275	<	Height = 15
275	>	Height = 17
276		Top = 32
277	<	Width = 48
277	>	Width = 44
278		Caption = 'Job Title'
279		ParentColor = False
280		end
281		object Label12: TLabel
282		Left = 256
283	<	Height = 15
284	<	Top = 54
285	<	Width = 33
283	>	Height = 17
284	>	Top = 58
285	>	Width = 30
286		Caption = 'Dept.'
287		ParentColor = False
288		end
289		object SpeedButton1: TSpeedButton
290		Left = 786
291		Height = 25
292	<	Top = 48
292	>	Top = 54
293		Width = 23
294		Action = SelectDept
295		Anchors = [akTop, akRight]
296		end
297		object DBEdit6: TDBEdit
298		Left = 300
299	<	Height = 25
300	<	Top = 48
299	>	Height = 27
300	>	Top = 54
301		Width = 478
302		DataField = 'DEPT_PATH'
303		DataSource = EmployeeSource
#	Line 315 | Line 309 | object Form1: TForm1
309		end
310		object DBEdit7: TDBEdit
311		Left = 592
312	<	Height = 25
312	>	Height = 27
313		Top = 0
314		Width = 246
315		DataField = 'JOB_COUNTRY'
#	Line 327 | Line 321 | object Form1: TForm1
321		end
322		object DBEdit8: TDBEdit
323		Left = 592
324	<	Height = 25
325	<	Top = 24
324	>	Height = 27
325	>	Top = 28
326		Width = 246
327		DataField = 'JOB_TITLE'
328		DataSource = EmployeeSource
#	Line 339 | Line 333 | object Form1: TForm1
333		object SpeedButton2: TSpeedButton
334		Left = 847
335		Height = 22
336	<	Top = 0
336	>	Top = 3
337		Width = 23
338		Action = EditLocationAction
339		end
340		object SpeedButton3: TSpeedButton
341		Left = 847
342		Height = 22
343	<	Top = 24
343	>	Top = 30
344		Width = 23
345		Action = EditJobCodeAction
346		end
#	Line 382 | Line 376 | object Form1: TForm1
376		TabOrder = 1
377		end
378		object DBText1: TDBText
379	<	Left = 832
379	>	Left = 833
380		Height = 27
381		Top = 16
382	<	Width = 49
382	>	Width = 48
383		Alignment = taRightJustify
384		Anchors = [akTop, akRight, akBottom]
385		DataField = 'TOTALSALARIES'
#	Line 396 | Line 390 | object Form1: TForm1
390		end
391		object Label13: TLabel
392		Left = 456
393	<	Height = 15
393	>	Height = 17
394		Top = 14
395	<	Width = 79
395	>	Width = 73
396		Caption = 'Salary Range'
397		ParentColor = False
398		end
399		object SalaryRange: TComboBox
400		Left = 544
401	<	Height = 25
401	>	Height = 27
402		Top = 8
403		Width = 272
404		ItemHeight = 0
#	Line 496 | Line 490 | object Form1: TForm1
490		end
491		end
492		object TotalsQuery: TIBQuery
493	+	AllowAutoActivateTransaction = False
494		Database = IBDatabase1
495		Transaction = IBTransaction1
496		BeforeOpen = EmployeesBeforeOpen
#	Line 534 | Line 529 | object Form1: TForm1
529		top = 376
530		end
531		object Employees: TIBDataSet
532	+	AllowAutoActivateTransaction = False
533		Database = IBDatabase1
534		Transaction = IBTransaction1
535		AfterDelete = EmployeesAfterDelete

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines