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 317 by tony, Mon Feb 4 13:34:37 2019 UTC vs.
Revision 318 by tony, Thu Feb 25 12:03:26 2021 UTC

# Line 4 | Line 4 | object Form1: TForm1
4    Top = 351
5    Width = 1043
6    Caption = 'Employee List'
7 <  ClientHeight = 462
7 >  ClientHeight = 461
8    ClientWidth = 1043
9    DefaultMonitor = dmPrimary
10    Menu = MainMenu1
11    OnClose = FormClose
12    OnShow = FormShow
13    Position = poScreenCenter
14 <  LCLVersion = '2.0.0.3'
14 >  LCLVersion = '2.0.11.0'
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 = 14
44 >    Height = 13
45      Top = 14
46      Width = 87
47      Caption = 'Started Before'
# Line 62 | Line 62 | object Form1: TForm1
62    end
63    object Label2: TLabel
64      Left = 241
65 <    Height = 14
65 >    Height = 13
66      Top = 14
67      Width = 78
68      Caption = 'Started After'
# Line 83 | Line 83 | object Form1: TForm1
83    end
84    object Panel1: TPanel
85      Left = 0
86 <    Height = 414
86 >    Height = 413
87      Top = 42
88      Width = 921
89      Anchors = [akTop, akLeft, akRight, akBottom]
90      BevelOuter = bvNone
91 <    ClientHeight = 414
91 >    ClientHeight = 413
92      ClientWidth = 921
93      Color = clBackground
94      ParentColor = False
95      TabOrder = 5
96      object IBDynamicGrid1: TIBDynamicGrid
97        Left = 0
98 <      Height = 364
98 >      Height = 363
99        Top = 0
100        Width = 921
101        Align = alClient
# Line 198 | Line 198 | object Form1: TForm1
198      object Panel2: TPanel
199        Left = 0
200        Height = 50
201 <      Top = 364
201 >      Top = 363
202        Width = 921
203        Align = alBottom
204        BevelOuter = bvNone
# Line 252 | Line 252 | object Form1: TForm1
252        Visible = False
253        object Label3: TLabel
254          Left = 0
255 <        Height = 14
255 >        Height = 13
256          Top = 7
257          Width = 83
258          Caption = 'Employee No.'
# Line 271 | Line 271 | object Form1: TForm1
271        end
272        object Label4: TLabel
273          Left = 12
274 <        Height = 14
274 >        Height = 13
275          Top = 32
276          Width = 64
277          Caption = 'First Name'
# Line 290 | Line 290 | object Form1: TForm1
290        end
291        object Label5: TLabel
292          Left = 12
293 <        Height = 14
293 >        Height = 13
294          Top = 56
295          Width = 64
296          Caption = 'Last Name'
# Line 309 | Line 309 | object Form1: TForm1
309        end
310        object Label6: TLabel
311          Left = 216
312 <        Height = 14
312 >        Height = 13
313          Top = 7
314          Width = 77
315          Caption = 'Date Started'
# Line 332 | Line 332 | object Form1: TForm1
332        end
333        object Label7: TLabel
334          Left = 252
335 <        Height = 14
335 >        Height = 13
336          Top = 32
337          Width = 37
338          Caption = 'Salary'
# Line 351 | Line 351 | object Form1: TForm1
351        end
352        object Label8: TLabel
353          Left = 696
354 <        Height = 14
354 >        Height = 13
355          Top = 54
356          Width = 24
357          Anchors = [akTop, akRight]
# Line 372 | Line 372 | object Form1: TForm1
372        end
373        object Label9: TLabel
374          Left = 536
375 <        Height = 14
375 >        Height = 13
376          Top = 7
377 <        Width = 51
377 >        Width = 50
378          Caption = 'Location'
379          ParentColor = False
380        end
381        object Label10: TLabel
382          Left = 413
383 <        Height = 14
383 >        Height = 13
384          Top = 9
385          Width = 59
386          Caption = 'Job Grade'
# Line 409 | Line 409 | object Form1: TForm1
409        end
410        object Label11: TLabel
411          Left = 536
412 <        Height = 14
412 >        Height = 13
413          Top = 32
414          Width = 48
415          Caption = 'Job Title'
# Line 417 | Line 417 | object Form1: TForm1
417        end
418        object Label12: TLabel
419          Left = 256
420 <        Height = 14
420 >        Height = 13
421          Top = 54
422          Width = 33
423          Caption = 'Dept.'
# Line 513 | Line 513 | object Form1: TForm1
513    end
514    object Label13: TLabel
515      Left = 456
516 <    Height = 14
516 >    Height = 13
517      Top = 14
518      Width = 79
519      Caption = 'Salary Range'
# Line 538 | Line 538 | object Form1: TForm1
538      Text = 'None Specified'
539    end
540    object IBDatabase1: TIBDatabase
541 <    Connected = False
541 >    Connected = True
542      LoginPrompt = False
543      AfterConnect = IBDatabase1AfterConnect
544      CreateIfNotExists = False
# Line 552 | Line 552 | object Form1: TForm1
552      IdleTimer = 0
553      TraceFlags = []
554      UseDefaultSystemCodePage = False
555 <    left = 832
556 <    top = 168
555 >    Left = 832
556 >    Top = 168
557    end
558    object IBTransaction1: TIBTransaction
559      Active = False
# Line 563 | Line 563 | object Form1: TForm1
563        'rec_version'
564        'nowait'
565      )
566 <    left = 872
567 <    top = 168
566 >    Left = 872
567 >    Top = 168
568    end
569    object EmployeeSource: TDataSource
570      DataSet = Employees
571 <    left = 832
572 <    top = 336
571 >    Left = 832
572 >    Top = 336
573    end
574    object ActionList1: TActionList
575 <    left = 832
576 <    top = 416
575 >    Left = 832
576 >    Top = 416
577      object AddEmployee: TAction
578        Caption = 'Add'
579        OnExecute = AddEmployeeExecute
# Line 624 | Line 624 | object Form1: TForm1
624    end
625    object CountrySource: TDataSource
626      DataSet = Countries
627 <    left = 832
628 <    top = 296
627 >    Left = 832
628 >    Top = 296
629    end
630    object TotalsQuery: TIBQuery
631      AllowAutoActivateTransaction = False
# Line 640 | Line 640 | object Form1: TForm1
640      GeneratorField.ApplyOnEvent = gaeOnNewRecord
641      MasterDetailDelay = 0
642      SQL.Strings = (
643 <      'Select sum(Salary) as TotalSalaries'
643 >      'Select cast(sum(Salary) as Numeric(12,2)) as TotalSalaries'
644        'From EMPLOYEE'
645      )
646      Params = <>
647 +    SQLFiltered = False
648      DataSetCloseAction = dcDiscardChanges
649 <    left = 872
650 <    top = 376
649 >    TZTextOption = tzOffset
650 >    DefaultTZDate = 43831
651 >    Left = 872
652 >    Top = 376
653      object TotalsQueryTOTALSALARIES: TIBBCDField
654        DisplayWidth = 18
655        FieldKind = fkData
# Line 666 | Line 669 | object Form1: TForm1
669    end
670    object TotalsSource: TDataSource
671      DataSet = TotalsQuery
672 <    left = 832
673 <    top = 376
672 >    Left = 832
673 >    Top = 376
674    end
675    object Employees: TIBDataSet
676      AllowAutoActivateTransaction = False
# Line 715 | Line 718 | object Form1: TForm1
718      GenerateParamNames = False
719      MasterDetailDelay = 0
720      DataSetCloseAction = dcSaveChanges
721 +    TZTextOption = tzOffset
722 +    DefaultTZDate = 43831
723 +    SQLFiltered = False
724      AfterTransactionEnd = EmployeesAfterTransactionEnd
725      OnValidatePost = EmployeesValidatePost
726 <    left = 872
727 <    top = 336
726 >    Left = 872
727 >    Top = 336
728      object EmployeesEMP_NO: TSmallintField
729        DisplayWidth = 10
730        FieldKind = fkData
# Line 906 | Line 912 | object Form1: TForm1
912          Name = 'JOB_GRADE'
913          ParamType = ptInput
914        end>
915 +    SQLFiltered = False
916      DataSetCloseAction = dcDiscardChanges
917 <    left = 872
918 <    top = 296
917 >    TZTextOption = tzOffset
918 >    DefaultTZDate = 43831
919 >    Left = 872
920 >    Top = 296
921      ParamData = <    
922        item
923          DataType = ftUnknown
# Line 923 | Line 932 | object Form1: TForm1
932    end
933    object JobCodeSource: TDataSource
934      DataSet = JobCodes
935 <    left = 832
936 <    top = 256
935 >    Left = 832
936 >    Top = 256
937    end
938    object JobCodes: TIBQuery
939      AllowAutoActivateTransaction = False
# Line 954 | Line 963 | object Form1: TForm1
963          Name = 'JOB_GRADE'
964          ParamType = ptInput
965        end>
966 +    SQLFiltered = False
967      DataSetCloseAction = dcDiscardChanges
968 <    left = 872
969 <    top = 256
968 >    TZTextOption = tzOffset
969 >    DefaultTZDate = 43831
970 >    Left = 872
971 >    Top = 256
972      ParamData = <    
973        item
974          DataType = ftUnknown
# Line 986 | Line 998 | object Form1: TForm1
998        'Order by Upper(Department)'
999      )
1000      Params = <>
1001 +    SQLFiltered = False
1002      DataSetCloseAction = dcDiscardChanges
1003 <    left = 872
1004 <    top = 208
1003 >    TZTextOption = tzOffset
1004 >    DefaultTZDate = 43831
1005 >    Left = 872
1006 >    Top = 208
1007    end
1008    object DeptsSource: TDataSource
1009      DataSet = Depts
1010 <    left = 832
1011 <    top = 208
1010 >    Left = 832
1011 >    Top = 208
1012    end
1013    object JobGradeChangeTimer: TTimer
1014      Interval = 0
1015      OnTimer = JobGradeChangeTimerTimer
1016 <    left = 928
1017 <    top = 175
1016 >    Left = 928
1017 >    Top = 175
1018    end
1019    object JobCodeChangeTimer: TTimer
1020      Interval = 0
1021      OnTimer = JobCodeChangeTimerTimer
1022 <    left = 927
1023 <    top = 224
1022 >    Left = 927
1023 >    Top = 224
1024    end
1025    object IBLocalDBSupport1: TIBLocalDBSupport
1026      Database = IBDatabase1
# Line 1013 | Line 1028 | object Form1: TForm1
1028      EmptyDBArchive = 'employee.gbk'
1029      Options = [iblAutoUpgrade, iblAllowDowngrade]
1030      RequiredVersionNo = 2
1031 +    MinimumVersionNo = 0
1032      UpgradeConfFile = 'upgrade.conf'
1033      VendorName = 'MWA Software'
1034      OnGetDBVersionNo = IBLocalDBSupport1GetDBVersionNo
1035 <    left = 937
1036 <    top = 264
1035 >    Left = 937
1036 >    Top = 264
1037    end
1038    object MainMenu1: TMainMenu
1039 <    left = 937
1040 <    top = 318
1039 >    Left = 937
1040 >    Top = 318
1041      object MenuItem1: TMenuItem
1042        Caption = 'File'
1043        object MenuItem2: TMenuItem
# Line 1054 | Line 1070 | object Form1: TForm1
1070        'Select * From RDB$RELATIONS Where RDB$RELATION_NAME = ''DBVERSIONINFO'';'
1071      )
1072      Transaction = IBTransaction1
1073 <    left = 937
1074 <    top = 358
1073 >    Left = 937
1074 >    Top = 358
1075    end
1076    object GetDBVersionNoQuery: TIBSQL
1077      Database = IBDatabase1
# Line 1067 | Line 1083 | object Form1: TForm1
1083        'Select VersionNo From DBVersionInfo'
1084      )
1085      Transaction = IBTransaction1
1086 <    left = 936
1087 <    top = 399
1086 >    Left = 936
1087 >    Top = 399
1088    end
1089   end

Diff Legend

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