ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/lookupcombobox/Unit1.lfm
(Generate patch)

Comparing ibx/trunk/examples/lookupcombobox/Unit1.lfm (file contents):
Revision 33 by tony, Sat Jul 18 12:30:52 2015 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

# Line 8 | Line 8 | object Form1: TForm1
8    ClientWidth = 658
9    OnClose = FormClose
10    OnShow = FormShow
11 <  LCLVersion = '1.4.2.0'
11 >  LCLVersion = '1.6.0.4'
12    object Label1: TLabel
13      Left = 16
14      Height = 15
15      Top = 16
16 <    Width = 98
16 >    Width = 87
17      Caption = 'Employee Name'
18      ParentColor = False
19    end
20    object IBLookupComboEditBox1: TIBLookupComboEditBox
21      Left = 16
22 <    Height = 27
22 >    Height = 23
23      Top = 32
24      Width = 224
25      KeyField = 'EMP_NO'
# Line 31 | Line 31 | object Form1: TForm1
31      TabOrder = 0
32      AutoInsert = True
33      AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
34 <    ItemHeight = 0
34 >    ItemHeight = 15
35      KeyPressInterval = 600
36      OnCanAutoInsert = IBLookupComboEditBox1CanAutoInsert
37    end
# Line 39 | Line 39 | object Form1: TForm1
39      Left = 16
40      Height = 15
41      Top = 79
42 <    Width = 103
42 >    Width = 90
43      Caption = 'Employee Details'
44      ParentColor = False
45    end
# Line 58 | Line 58 | object Form1: TForm1
58        Left = 14
59        Height = 15
60        Top = 18
61 <      Width = 64
61 >      Width = 57
62        Caption = 'First Name'
63        ParentColor = False
64      end
65      object DBEdit1: TDBEdit
66        Left = 14
67 <      Height = 25
67 >      Height = 23
68        Top = 32
69        Width = 136
70        DataField = 'FIRST_NAME'
# Line 77 | Line 77 | object Form1: TForm1
77        Left = 168
78        Height = 15
79        Top = 18
80 <      Width = 64
80 >      Width = 56
81        Caption = 'Last Name'
82        ParentColor = False
83      end
84      object DBEdit2: TDBEdit
85        Left = 168
86 <      Height = 25
86 >      Height = 23
87        Top = 32
88        Width = 144
89        DataField = 'LAST_NAME'
# Line 93 | Line 93 | object Form1: TForm1
93        TabOrder = 1
94      end
95      object Label5: TLabel
96 <      Left = 547
96 >      Left = 553
97        Height = 15
98        Top = 120
99 <      Width = 24
99 >      Width = 18
100        Anchors = [akTop, akRight]
101        Caption = 'Ext.'
102        ParentColor = False
103      end
104      object DBEdit3: TDBEdit
105        Left = 547
106 <      Height = 25
106 >      Height = 23
107        Top = 136
108        Width = 48
109        DataField = 'PHONE_EXT'
# Line 117 | Line 117 | object Form1: TForm1
117        Left = 16
118        Height = 15
119        Top = 65
120 <      Width = 56
120 >      Width = 49
121        Caption = 'Hire Date'
122        ParentColor = False
123      end
# Line 125 | Line 125 | object Form1: TForm1
125        Left = 172
126        Height = 15
127        Top = 65
128 <      Width = 37
128 >      Width = 31
129        Caption = 'Salary'
130        ParentColor = False
131      end
132      object DBEdit4: TDBEdit
133        Left = 168
134 <      Height = 25
134 >      Height = 23
135        Top = 80
136        Width = 144
137        DataField = 'SALARY'
# Line 144 | Line 144 | object Form1: TForm1
144        Left = 392
145        Height = 15
146        Top = 16
147 <      Width = 51
147 >      Width = 46
148        Caption = 'Location'
149        ParentColor = False
150      end
# Line 152 | Line 152 | object Form1: TForm1
152        Left = 331
153        Height = 15
154        Top = 16
155 <      Width = 36
155 >      Width = 31
156        Caption = 'Grade'
157        ParentColor = False
158      end
159      object DBComboBox1: TDBComboBox
160        Left = 331
161 <      Height = 29
161 >      Height = 23
162        Top = 32
163        Width = 53
164        DataField = 'JOB_GRADE'
165        DataSource = EmployeeSource
166 <      ItemHeight = 0
166 >      ItemHeight = 15
167        Items.Strings = (
168          '1'
169          '2'
# Line 180 | Line 180 | object Form1: TForm1
180        Left = 333
181        Height = 15
182        Top = 65
183 <      Width = 48
183 >      Width = 44
184        Caption = 'Job Title'
185        ParentColor = False
186      end
# Line 188 | Line 188 | object Form1: TForm1
188        Left = 17
189        Height = 15
190        Top = 122
191 <      Width = 73
191 >      Width = 63
192        Caption = 'Department'
193        ParentColor = False
194      end
195      object DBEdit5: TDBEdit
196        Left = 17
197 <      Height = 25
197 >      Height = 23
198        Top = 136
199        Width = 495
200        DataField = 'DEPT_PATH'
# Line 216 | Line 216 | object Form1: TForm1
216      end
217      object IBLookupComboEditBox2: TIBLookupComboEditBox
218        Left = 392
219 <      Height = 25
219 >      Height = 23
220        Top = 32
221        Width = 203
222        Anchors = [akTop, akLeft, akRight]
# Line 232 | Line 232 | object Form1: TForm1
232        TabOrder = 6
233        AutoInsert = False
234        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
235 <      ItemHeight = 0
235 >      ItemHeight = 15
236      end
237      object IBLookupComboEditBox3: TIBLookupComboEditBox
238        Left = 331
239 <      Height = 29
239 >      Height = 23
240        Top = 82
241        Width = 264
242        Anchors = [akTop, akLeft, akRight]
# Line 251 | Line 251 | object Form1: TForm1
251        TabOrder = 7
252        AutoInsert = False
253        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
254 <      ItemHeight = 0
254 >      ItemHeight = 15
255      end
256      object IBDateEdit1: TDBDateEdit
257        Left = 17
258 <      Height = 25
258 >      Height = 23
259        Top = 82
260        Width = 112
261        CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
# Line 302 | Line 302 | object Form1: TForm1
302      TabOrder = 4
303    end
304    object IBDatabase1: TIBDatabase
305 <    Connected = False
305 >    Connected = True
306      AllowStreamedConnected = False
307      DatabaseName = 'localhost:employee'
308      Params.Strings = (
309        'lc_ctype=UTF8'
310        'user_name=SYSDBA'
311 +      'user_name=SYSDBA'
312      )
313      DefaultTransaction = IBTransaction1
314      IdleTimer = 0
315      TraceFlags = []
316 +    UseDefaultSystemCodePage = False
317      left = 328
318      top = 24
319    end
# Line 339 | Line 341 | object Form1: TForm1
341      )
342      RefreshSQL.Strings = (
343        'with recursive Depts As ('
344 <      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar(256)) as DEPT_PATH,'
344 >      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as VarChar'
345 >      '(256)) as DEPT_PATH,'
346        'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
347        'From DEPARTMENT Where HEAD_DEPT is NULL '
348        'UNION ALL'
349 <      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
350 <      'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
351 <      'From DEPARTMENT  '
352 <      'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
349 >      'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' '
350 >      '|| D.DEPARTMENT as DEPT_PATH,'
351 >      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
352 >      'From DEPARTMENT  D'
353 >      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
354        ')'
355        ''
356 <      'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
357 <      'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
356 >      'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, '
357 >      'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
358 >      'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, '
359 >      'D.DEPT_KEY_PATH'
360        'From EMPLOYEE A'
361        'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
362 +      ''
363        'Where A.EMP_NO = :EMP_NO'
364      )
365      SelectSQL.Strings = (
# Line 361 | Line 368 | object Form1: TForm1
368        'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
369        'From DEPARTMENT Where HEAD_DEPT is NULL '
370        'UNION ALL'
371 <      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || DEPARTMENT as DEPT_PATH,'
372 <      'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH'
373 <      'From DEPARTMENT  '
374 <      'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO'
371 >      'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' || D.DEPARTMENT as DEPT_PATH,'
372 >      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
373 >      'From DEPARTMENT  D'
374 >      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
375        ')'
376        ''
377        'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
378        'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
379        'From EMPLOYEE A'
380        'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
381 +      'Order by 3 asc'
382      )
383      ModifySQL.Strings = (
384        'Update EMPLOYEE A Set '#13#10'  A.EMP_NO = :EMP_NO,'#13#10'  A.FIRST_NAME = :FIRST_NAME,'#13#10'  A.LAST_NAME = :LAST_NAME,'#13#10'  A.PHONE_EXT = :PHONE_EXT,'#13#10'  A.HIRE_DATE = :HIRE_DATE,'#13#10'  A.DEPT_NO = :DEPT_NO,'#13#10'  A.JOB_CODE = :JOB_CODE,'#13#10'  A.JOB_GRADE = :JOB_GRADE,'#13#10'  A.JOB_COUNTRY = :JOB_COUNTRY,'#13#10'  A.SALARY = :SALARY'

Diff Legend

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