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 21 by tony, Thu Feb 26 10:33:34 2015 UTC vs.
Revision 41 by tony, Sat Jul 16 12:25:48 2016 UTC

# Line 8 | Line 8 | object Form1: TForm1
8    ClientWidth = 658
9    OnClose = FormClose
10    OnShow = FormShow
11 <  LCLVersion = '1.4.0.1'
11 >  LCLVersion = '1.6.0.4'
12    object Label1: TLabel
13      Left = 16
14      Height = 15
# Line 111 | Line 111 | object Form1: TForm1
111        Anchors = [akTop, akRight]
112        CharCase = ecNormal
113        MaxLength = 0
114 <      TabOrder = 4
114 >      TabOrder = 3
115      end
116      object Label6: TLabel
117        Left = 16
# Line 138 | Line 138 | object Form1: TForm1
138        DataSource = EmployeeSource
139        CharCase = ecNormal
140        MaxLength = 0
141 <      TabOrder = 5
141 >      TabOrder = 4
142      end
143      object Label8: TLabel
144        Left = 392
# Line 158 | Line 158 | object Form1: TForm1
158      end
159      object DBComboBox1: TDBComboBox
160        Left = 331
161 <      Height = 25
161 >      Height = 29
162        Top = 32
163        Width = 53
164        DataField = 'JOB_GRADE'
# Line 192 | Line 192 | object Form1: TForm1
192        Caption = 'Department'
193        ParentColor = False
194      end
195 –    object IBDateEdit1: TDBDateEdit
196 –      Left = 17
197 –      Height = 25
198 –      Top = 82
199 –      Width = 112
200 –      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
201 –      OKCaption = 'OK'
202 –      CancelCaption = 'Cancel'
203 –      DateOrder = doNone
204 –      ButtonWidth = 23
205 –      NumGlyphs = 1
206 –      MaxLength = 0
207 –      TabOrder = 3
208 –      DataField = 'HIRE_DATE'
209 –      DataSource = EmployeeSource
210 –    end
195      object DBEdit5: TDBEdit
196        Left = 17
197        Height = 25
# Line 219 | Line 203 | object Form1: TForm1
203        Anchors = [akTop, akLeft, akRight]
204        CharCase = ecNormal
205        MaxLength = 0
206 <      TabOrder = 6
206 >      TabOrder = 5
207      end
208      object SpeedButton1: TSpeedButton
209        Left = 516
# Line 245 | Line 229 | object Form1: TForm1
229        ListSource = CountriesSource
230        LookupCache = False
231        Style = csDropDownList
232 <      TabOrder = 7
232 >      TabOrder = 6
233        AutoInsert = False
234        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
235        ItemHeight = 0
# Line 264 | Line 248 | object Form1: TForm1
248        ListSource = JobCodeSource
249        LookupCache = False
250        Style = csDropDownList
251 <      TabOrder = 8
251 >      TabOrder = 7
252        AutoInsert = False
253        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
254        ItemHeight = 0
255      end
256 +    object IBDateEdit1: TDBDateEdit
257 +      Left = 17
258 +      Height = 25
259 +      Top = 82
260 +      Width = 112
261 +      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
262 +      OKCaption = 'OK'
263 +      CancelCaption = 'Cancel'
264 +      DateOrder = doNone
265 +      ButtonWidth = 23
266 +      AutoSelect = False
267 +      NumGlyphs = 1
268 +      MaxLength = 0
269 +      TabOrder = 8
270 +      DataField = 'HIRE_DATE'
271 +      DataSource = EmployeeSource
272 +    end
273    end
274    object CancelBtn: TButton
275      Left = 567
# Line 301 | 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 = 'employee'
307 >    DatabaseName = 'localhost:employee'
308      Params.Strings = (
309 <      'lc_ctype=UTF-8'
309 >      'lc_ctype=UTF8'
310        'user_name=SYSDBA'
311      )
312      DefaultTransaction = IBTransaction1
313      IdleTimer = 0
314      TraceFlags = []
315 +    UseDefaultSystemCodePage = False
316      left = 328
317      top = 24
318    end
# Line 327 | Line 329 | object Form1: TForm1
329      AfterEdit = EmployeesAfterDelete
330      AfterInsert = EmployeesAfterInsert
331      AfterPost = EmployeesAfterPost
330 –    BeforeClose = EmployeesBeforeScroll
331 –    BeforeScroll = EmployeesBeforeScroll
332      BufferChunks = 1000
333      CachedUpdates = False
334      DeleteSQL.Strings = (
# Line 372 | Line 372 | object Form1: TForm1
372        'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
373        'From EMPLOYEE A'
374        'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
375 +      'Order by 3 asc'
376      )
377      ModifySQL.Strings = (
378        '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'
# Line 381 | Line 382 | object Form1: TForm1
382      GeneratorField.Field = 'EMP_NO'
383      GeneratorField.ApplyOnEvent = gaeOnNewRecord
384      GenerateParamNames = False
385 +    DataSetCloseAction = dcSaveChanges
386      AfterTransactionEnd = EmployeesAfterTransactionEnd
387      left = 496
388      top = 16
# Line 568 | Line 570 | object Form1: TForm1
570          Name = 'JOB_GRADE'
571          ParamType = ptInput
572        end>
573 +    DataSetCloseAction = dcDiscardChanges
574      left = 425
575      top = 56
576      ParamData = <    
# Line 606 | Line 609 | object Form1: TForm1
609          Name = 'JOB_GRADE'
610          ParamType = ptInput
611        end>
612 +    DataSetCloseAction = dcDiscardChanges
613      left = 425
614      top = 18
615      ParamData = <    

Diff Legend

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