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

Comparing ibx/trunk/examples/local-employeedb/unit1.lfm (file contents):
Revision 262 by tony, Wed Mar 14 12:48:51 2018 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

# Line 11 | Line 11 | object Form1: TForm1
11    OnClose = FormClose
12    OnShow = FormShow
13    Position = poScreenCenter
14 <  LCLVersion = '1.8.0.6'
14 >  LCLVersion = '2.0.0.2'
15    object Button1: TButton
16      Left = 956
17      Height = 25
# Line 41 | Line 41 | object Form1: TForm1
41    end
42    object Label1: TLabel
43      Left = 17
44 <    Height = 15
44 >    Height = 14
45      Top = 14
46 <    Width = 74
46 >    Width = 87
47      Caption = 'Started Before'
48      ParentColor = False
49    end
50    object BeforeDate: TDateEdit
51      Left = 112
52 <    Height = 23
52 >    Height = 24
53      Top = 8
54      Width = 80
55      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
# Line 62 | Line 62 | object Form1: TForm1
62    end
63    object Label2: TLabel
64      Left = 241
65 <    Height = 15
65 >    Height = 14
66      Top = 14
67 <    Width = 66
67 >    Width = 78
68      Caption = 'Started After'
69      ParentColor = False
70    end
71    object AfterDate: TDateEdit
72      Left = 333
73 <    Height = 23
73 >    Height = 24
74      Top = 8
75      Width = 80
76      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
# Line 228 | Line 228 | object Form1: TForm1
228          Left = 688
229          Height = 27
230          Top = 16
231 <        Width = 43
231 >        Width = 49
232          Alignment = taRightJustify
233          Anchors = [akTop, akLeft, akBottom]
234          DataField = 'TOTALSALARIES'
# Line 244 | Line 244 | object Form1: TForm1
244        BevelOuter = bvNone
245        BorderWidth = 2
246        BorderStyle = bsSingle
247 <      ClientHeight = 76
248 <      ClientWidth = 828
247 >      ClientHeight = 78
248 >      ClientWidth = 830
249        Color = clWindow
250        ParentColor = False
251        TabOrder = 2
252        Visible = False
253        object Label3: TLabel
254          Left = 0
255 <        Height = 15
255 >        Height = 14
256          Top = 7
257 <        Width = 74
257 >        Width = 83
258          Caption = 'Employee No.'
259          ParentColor = False
260        end
261        object DBEdit1: TDBEdit
262          Left = 90
263 <        Height = 23
263 >        Height = 24
264          Top = 2
265          Width = 120
266          DataField = 'EMP_NO'
# Line 271 | Line 271 | object Form1: TForm1
271        end
272        object Label4: TLabel
273          Left = 12
274 <        Height = 15
274 >        Height = 14
275          Top = 32
276 <        Width = 57
276 >        Width = 64
277          Caption = 'First Name'
278          ParentColor = False
279        end
280        object DBEdit2: TDBEdit
281          Left = 90
282 <        Height = 23
282 >        Height = 24
283          Top = 24
284          Width = 120
285          DataField = 'FIRST_NAME'
# Line 290 | Line 290 | object Form1: TForm1
290        end
291        object Label5: TLabel
292          Left = 12
293 <        Height = 15
293 >        Height = 14
294          Top = 56
295 <        Width = 56
295 >        Width = 64
296          Caption = 'Last Name'
297          ParentColor = False
298        end
299        object DBEdit3: TDBEdit
300          Left = 90
301 <        Height = 23
301 >        Height = 24
302          Top = 46
303          Width = 120
304          DataField = 'LAST_NAME'
# Line 309 | Line 309 | object Form1: TForm1
309        end
310        object Label6: TLabel
311          Left = 216
312 <        Height = 15
312 >        Height = 14
313          Top = 7
314 <        Width = 64
314 >        Width = 77
315          Caption = 'Date Started'
316          ParentColor = False
317        end
318        object IBDateEdit1: TDBDateEdit
319          Left = 300
320 <        Height = 23
320 >        Height = 24
321          Top = 2
322          Width = 80
323          CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
# Line 332 | Line 332 | object Form1: TForm1
332        end
333        object Label7: TLabel
334          Left = 252
335 <        Height = 15
335 >        Height = 14
336          Top = 32
337 <        Width = 31
337 >        Width = 37
338          Caption = 'Salary'
339          ParentColor = False
340        end
341        object DBEdit4: TDBEdit
342          Left = 300
343 <        Height = 23
343 >        Height = 24
344          Top = 24
345          Width = 104
346          DataField = 'SALARY'
# Line 350 | Line 350 | object Form1: TForm1
350          TabOrder = 5
351        end
352        object Label8: TLabel
353 <        Left = 700
354 <        Height = 15
353 >        Left = 696
354 >        Height = 14
355          Top = 54
356 <        Width = 18
356 >        Width = 24
357          Anchors = [akTop, akRight]
358          Caption = 'Ext.'
359          ParentColor = False
360        end
361        object DBEdit5: TDBEdit
362 <        Left = 718
363 <        Height = 23
362 >        Left = 720
363 >        Height = 24
364          Top = 48
365          Width = 40
366          DataField = 'PHONE_EXT'
# Line 372 | Line 372 | object Form1: TForm1
372        end
373        object Label9: TLabel
374          Left = 536
375 <        Height = 15
375 >        Height = 14
376          Top = 7
377 <        Width = 46
377 >        Width = 51
378          Caption = 'Location'
379          ParentColor = False
380        end
381        object Label10: TLabel
382          Left = 413
383 <        Height = 15
383 >        Height = 14
384          Top = 9
385 <        Width = 52
385 >        Width = 59
386          Caption = 'Job Grade'
387          ParentColor = False
388        end
# Line 394 | Line 394 | object Form1: TForm1
394          AutoSize = False
395          DataField = 'JOB_GRADE'
396          DataSource = EmployeeSource
397 <        ItemHeight = 15
397 >        ItemHeight = 0
398          Items.Strings = (
399            '1'
400            '2'
# Line 409 | Line 409 | object Form1: TForm1
409        end
410        object Label11: TLabel
411          Left = 536
412 <        Height = 15
412 >        Height = 14
413          Top = 32
414 <        Width = 44
414 >        Width = 48
415          Caption = 'Job Title'
416          ParentColor = False
417        end
418        object Label12: TLabel
419          Left = 256
420 <        Height = 15
420 >        Height = 14
421          Top = 54
422 <        Width = 28
422 >        Width = 33
423          Caption = 'Dept.'
424          ParentColor = False
425        end
426        object SpeedButton1: TSpeedButton
427 <        Left = 662
427 >        Left = 664
428          Height = 25
429          Top = 48
430          Width = 23
# Line 433 | Line 433 | object Form1: TForm1
433        end
434        object DBEdit6: TDBEdit
435          Left = 300
436 <        Height = 23
436 >        Height = 24
437          Top = 48
438 <        Width = 354
438 >        Width = 356
439          DataField = 'DEPT_PATH'
440          DataSource = EmployeeSource
441          ReadOnly = True
# Line 448 | Line 448 | object Form1: TForm1
448          Left = 600
449          Height = 23
450          Top = 0
451 <        Width = 158
451 >        Width = 160
452          Anchors = [akTop, akLeft, akRight]
453          AutoSize = False
454          DataField = 'JOB_COUNTRY'
# Line 462 | Line 462 | object Form1: TForm1
462          TabOrder = 8
463          AutoInsert = False
464          AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
465 <        ItemHeight = 15
465 >        ItemHeight = 0
466        end
467        object IBLookupComboEditBox1: TIBLookupComboEditBox
468          Left = 600
469          Height = 23
470          Top = 24
471 <        Width = 158
471 >        Width = 160
472          Anchors = [akTop, akLeft, akRight]
473          AutoSize = False
474          DataField = 'JOB_CODE'
# Line 482 | Line 482 | object Form1: TForm1
482          TabOrder = 9
483          AutoInsert = False
484          AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
485 <        ItemHeight = 15
485 >        ItemHeight = 0
486        end
487        object Panel3: TPanel
488 <        Left = 766
488 >        Left = 768
489          Height = 67
490          Top = 3
491          Width = 56
# Line 513 | Line 513 | object Form1: TForm1
513    end
514    object Label13: TLabel
515      Left = 456
516 <    Height = 15
516 >    Height = 14
517      Top = 14
518 <    Width = 67
518 >    Width = 79
519      Caption = 'Salary Range'
520      ParentColor = False
521    end
522    object SalaryRange: TComboBox
523      Left = 544
524 <    Height = 23
524 >    Height = 25
525      Top = 8
526      Width = 272
527 <    ItemHeight = 15
527 >    ItemHeight = 0
528      ItemIndex = 0
529      Items.Strings = (
530        'None Specified'
# Line 634 | Line 634 | object Form1: TForm1
634      BeforeOpen = EmployeesBeforeOpen
635      BufferChunks = 1000
636      CachedUpdates = False
637 +    EnableStatistics = False
638      GenerateParamNames = False
639      GeneratorField.ApplyOnEvent = gaeOnNewRecord
640 +    MasterDetailDelay = 0
641      SQL.Strings = (
642        'Select sum(Salary) as TotalSalaries'
643        'From EMPLOYEE'
# Line 680 | Line 682 | object Form1: TForm1
682      BeforeOpen = EmployeesBeforeOpen
683      BufferChunks = 1000
684      CachedUpdates = False
685 +    EnableStatistics = False
686      DeleteSQL.Strings = (
687        'Delete From EMPLOYEE A'
688        'Where A.EMP_NO = :EMP_NO'
# Line 708 | Line 711 | object Form1: TForm1
711      GeneratorField.Field = 'EMP_NO'
712      GeneratorField.ApplyOnEvent = gaeOnNewRecord
713      GenerateParamNames = False
714 +    MasterDetailDelay = 0
715      DataSetCloseAction = dcSaveChanges
716      AfterTransactionEnd = EmployeesAfterTransactionEnd
717      OnValidatePost = EmployeesValidatePost
# Line 878 | Line 882 | object Form1: TForm1
882      BeforeOpen = CountriesBeforeOpen
883      BufferChunks = 1000
884      CachedUpdates = False
885 +    EnableStatistics = False
886      GenerateParamNames = False
887      GeneratorField.ApplyOnEvent = gaeOnNewRecord
888 +    MasterDetailDelay = 0
889      SQL.Strings = (
890        'Select A.COUNTRY, A.CURRENCY From COUNTRY A'
891        'JOIN JOB J On J.JOB_COUNTRY = A.COUNTRY'
# Line 924 | Line 930 | object Form1: TForm1
930      BeforeOpen = JobCodesBeforeOpen
931      BufferChunks = 1000
932      CachedUpdates = False
933 +    EnableStatistics = False
934      GenerateParamNames = False
935      GeneratorField.ApplyOnEvent = gaeOnNewRecord
936 +    MasterDetailDelay = 0
937      SQL.Strings = (
938        'Select A.JOB_CODE, A.JOB_TITLE From JOB A'
939        'Where JOB_COUNTRY = :JOB_COUNTRY and JOB_GRADE = :JOB_GRADE'
# Line 963 | Line 971 | object Form1: TForm1
971      Transaction = IBTransaction1
972      BufferChunks = 1000
973      CachedUpdates = False
974 +    EnableStatistics = False
975      GenerateParamNames = False
976      GeneratorField.ApplyOnEvent = gaeOnNewRecord
977 +    MasterDetailDelay = 0
978      SQL.Strings = (
979        'Select A.DEPT_NO, A.DEPARTMENT From DEPARTMENT A'
980        ''

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines