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

Comparing ibx/trunk/examples/employee/unit1.lfm (file contents):
Revision 317 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 318 by tony, Thu Feb 25 12:03:26 2021 UTC

# Line 10 | Line 10 | object Form1: TForm1
10    OnClose = FormClose
11    OnShow = FormShow
12    Position = poMainFormCenter
13 <  LCLVersion = '2.0.5.0'
13 >  LCLVersion = '2.0.11.0'
14    object Button1: TButton
15      Left = 845
16      Height = 25
# Line 40 | Line 40 | object Form1: TForm1
40    end
41    object Label1: TLabel
42      Left = 17
43 <    Height = 14
43 >    Height = 13
44      Top = 14
45      Width = 87
46      Caption = 'Started Before'
# Line 61 | Line 61 | object Form1: TForm1
61    end
62    object Label2: TLabel
63      Left = 241
64 <    Height = 14
64 >    Height = 13
65      Top = 14
66      Width = 78
67      Caption = 'Started After'
# Line 251 | Line 251 | object Form1: TForm1
251        Visible = False
252        object Label3: TLabel
253          Left = 0
254 <        Height = 14
254 >        Height = 13
255          Top = 7
256          Width = 83
257          Caption = 'Employee No.'
# Line 270 | Line 270 | object Form1: TForm1
270        end
271        object Label4: TLabel
272          Left = 12
273 <        Height = 14
273 >        Height = 13
274          Top = 32
275          Width = 64
276          Caption = 'First Name'
# Line 289 | Line 289 | object Form1: TForm1
289        end
290        object Label5: TLabel
291          Left = 12
292 <        Height = 14
292 >        Height = 13
293          Top = 56
294          Width = 64
295          Caption = 'Last Name'
# Line 308 | Line 308 | object Form1: TForm1
308        end
309        object Label6: TLabel
310          Left = 216
311 <        Height = 14
311 >        Height = 13
312          Top = 7
313          Width = 77
314          Caption = 'Date Started'
# Line 331 | Line 331 | object Form1: TForm1
331        end
332        object Label7: TLabel
333          Left = 252
334 <        Height = 14
334 >        Height = 13
335          Top = 32
336          Width = 37
337          Caption = 'Salary'
# Line 350 | Line 350 | object Form1: TForm1
350        end
351        object Label8: TLabel
352          Left = 708
353 <        Height = 14
353 >        Height = 13
354          Top = 54
355          Width = 24
356          Anchors = [akTop, akRight]
# Line 371 | Line 371 | object Form1: TForm1
371        end
372        object Label9: TLabel
373          Left = 536
374 <        Height = 14
374 >        Height = 13
375          Top = 7
376 <        Width = 51
376 >        Width = 50
377          Caption = 'Location'
378          ParentColor = False
379        end
380        object Label10: TLabel
381          Left = 413
382 <        Height = 14
382 >        Height = 13
383          Top = 9
384          Width = 59
385          Caption = 'Job Grade'
# Line 408 | Line 408 | object Form1: TForm1
408        end
409        object Label11: TLabel
410          Left = 536
411 <        Height = 14
411 >        Height = 13
412          Top = 32
413          Width = 48
414          Caption = 'Job Title'
# Line 416 | Line 416 | object Form1: TForm1
416        end
417        object Label12: TLabel
418          Left = 256
419 <        Height = 14
419 >        Height = 13
420          Top = 54
421          Width = 33
422          Caption = 'Dept.'
# Line 487 | Line 487 | object Form1: TForm1
487    end
488    object Label13: TLabel
489      Left = 456
490 <    Height = 14
490 >    Height = 13
491      Top = 14
492      Width = 79
493      Caption = 'Salary Range'
# Line 512 | Line 512 | object Form1: TForm1
512      Text = 'None Specified'
513    end
514    object IBDatabase1: TIBDatabase
515 <    Connected = False
515 >    Connected = True
516      CreateIfNotExists = False
517      AllowStreamedConnected = False
518      DatabaseName = 'localhost:employee'
# Line 524 | Line 524 | object Form1: TForm1
524      IdleTimer = 0
525      TraceFlags = []
526      UseDefaultSystemCodePage = False
527 <    left = 832
528 <    top = 168
527 >    Left = 832
528 >    Top = 168
529    end
530    object IBTransaction1: TIBTransaction
531      Active = False
# Line 535 | Line 535 | object Form1: TForm1
535        'rec_version'
536        'nowait'
537      )
538 <    left = 872
539 <    top = 168
538 >    Left = 872
539 >    Top = 168
540    end
541    object EmployeeSource: TDataSource
542      DataSet = Employees
543 <    left = 832
544 <    top = 336
543 >    Left = 832
544 >    Top = 336
545    end
546    object ActionList1: TActionList
547 <    left = 832
548 <    top = 416
547 >    Left = 832
548 >    Top = 416
549      object AddEmployee: TAction
550        Caption = 'Add'
551        OnExecute = AddEmployeeExecute
# Line 577 | Line 577 | object Form1: TForm1
577    end
578    object CountrySource: TDataSource
579      DataSet = Countries
580 <    left = 832
581 <    top = 296
580 >    Left = 832
581 >    Top = 296
582    end
583    object TotalsQuery: TIBQuery
584      AllowAutoActivateTransaction = False
# Line 593 | Line 593 | object Form1: TForm1
593      GeneratorField.ApplyOnEvent = gaeOnNewRecord
594      MasterDetailDelay = 0
595      SQL.Strings = (
596 <      'Select sum(Salary) as TotalSalaries'
596 >      'Select cast(sum(Salary) as Numeric(12,2)) as TotalSalaries'
597        'From EMPLOYEE'
598      )
599      Params = <>
600 +    SQLFiltered = False
601      DataSetCloseAction = dcDiscardChanges
602 <    left = 872
603 <    top = 376
602 >    TZTextOption = tzOffset
603 >    DefaultTZDate = 43831
604 >    Left = 872
605 >    Top = 376
606      object TotalsQueryTOTALSALARIES: TIBBCDField
607        DisplayWidth = 18
608        FieldKind = fkData
# Line 619 | Line 622 | object Form1: TForm1
622    end
623    object TotalsSource: TDataSource
624      DataSet = TotalsQuery
625 <    left = 832
626 <    top = 376
625 >    Left = 832
626 >    Top = 376
627    end
628    object Employees: TIBDataSet
629      AllowAutoActivateTransaction = False
# Line 692 | Line 695 | object Form1: TForm1
695      GenerateParamNames = False
696      MasterDetailDelay = 0
697      DataSetCloseAction = dcSaveChanges
698 +    TZTextOption = tzOffset
699 +    DefaultTZDate = 43831
700 +    SQLFiltered = False
701      AfterTransactionEnd = EmployeesAfterTransactionEnd
702      OnValidatePost = EmployeesValidatePost
703 <    left = 872
704 <    top = 336
703 >    Left = 872
704 >    Top = 336
705      object EmployeesEMP_NO: TSmallintField
706        DisplayWidth = 10
707        FieldKind = fkData
# Line 873 | Line 879 | object Form1: TForm1
879          Name = 'JOB_GRADE'
880          ParamType = ptInput
881        end>
882 +    SQLFiltered = False
883      DataSetCloseAction = dcDiscardChanges
884 <    left = 872
885 <    top = 296
884 >    TZTextOption = tzOffset
885 >    DefaultTZDate = 43831
886 >    Left = 872
887 >    Top = 296
888      ParamData = <    
889        item
890          DataType = ftUnknown
# Line 890 | Line 899 | object Form1: TForm1
899    end
900    object JobCodeSource: TDataSource
901      DataSet = JobCodes
902 <    left = 832
903 <    top = 256
902 >    Left = 832
903 >    Top = 256
904    end
905    object JobCodes: TIBQuery
906      AllowAutoActivateTransaction = False
# Line 921 | Line 930 | object Form1: TForm1
930          Name = 'JOB_GRADE'
931          ParamType = ptInput
932        end>
933 +    SQLFiltered = False
934      DataSetCloseAction = dcDiscardChanges
935 <    left = 872
936 <    top = 256
935 >    TZTextOption = tzOffset
936 >    DefaultTZDate = 43831
937 >    Left = 872
938 >    Top = 256
939      ParamData = <    
940        item
941          DataType = ftUnknown
# Line 953 | Line 965 | object Form1: TForm1
965        'Order by Upper(Department)'
966      )
967      Params = <>
968 +    SQLFiltered = False
969      DataSetCloseAction = dcDiscardChanges
970 <    left = 872
971 <    top = 210
970 >    TZTextOption = tzOffset
971 >    DefaultTZDate = 43831
972 >    Left = 872
973 >    Top = 210
974    end
975    object DeptsSource: TDataSource
976      DataSet = Depts
977 <    left = 832
978 <    top = 208
977 >    Left = 832
978 >    Top = 208
979    end
980    object JobGradeChangeTimer: TTimer
981      Interval = 0
982      OnTimer = JobGradeChangeTimerTimer
983 <    left = 777
984 <    top = 304
983 >    Left = 777
984 >    Top = 304
985    end
986    object JobCodeChangeTimer: TTimer
987      Interval = 0
988      OnTimer = JobCodeChangeTimerTimer
989 <    left = 776
990 <    top = 353
989 >    Left = 776
990 >    Top = 353
991    end
992   end

Diff Legend

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