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

Comparing ibx/trunk/examples/isqlmonitor/MainForm.lfm (file contents):
Revision 317 by tony, Wed Mar 14 12:48:51 2018 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 = poScreenCenter
13 <  LCLVersion = '1.8.3.0'
13 >  LCLVersion = '2.0.11.0'
14    object Button1: TButton
15      Left = 915
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 525 | Line 525 | object Form1: TForm1
525      IdleTimer = 0
526      TraceFlags = [tfQPrepare, tfStmt, tfConnect]
527      UseDefaultSystemCodePage = False
528 <    left = 832
529 <    top = 168
528 >    Left = 832
529 >    Top = 168
530    end
531    object IBTransaction1: TIBTransaction
532      Active = False
# Line 536 | Line 536 | object Form1: TForm1
536        'rec_version'
537        'nowait'
538      )
539 <    left = 872
540 <    top = 168
539 >    Left = 872
540 >    Top = 168
541    end
542    object EmployeeSource: TDataSource
543      DataSet = Employees
544 <    left = 832
545 <    top = 336
544 >    Left = 832
545 >    Top = 336
546    end
547    object ActionList1: TActionList
548 <    left = 832
549 <    top = 416
548 >    Left = 832
549 >    Top = 416
550      object AddEmployee: TAction
551        Caption = 'Add'
552        OnExecute = AddEmployeeExecute
# Line 578 | Line 578 | object Form1: TForm1
578    end
579    object CountrySource: TDataSource
580      DataSet = Countries
581 <    left = 832
582 <    top = 296
581 >    Left = 832
582 >    Top = 296
583    end
584    object TotalsQuery: TIBQuery
585      AllowAutoActivateTransaction = False
# Line 588 | Line 588 | object Form1: TForm1
588      BeforeOpen = EmployeesBeforeOpen
589      BufferChunks = 1000
590      CachedUpdates = False
591 +    CaseSensitiveParameterNames = False
592      EnableStatistics = False
593      GenerateParamNames = False
594      GeneratorField.ApplyOnEvent = gaeOnNewRecord
595      MasterDetailDelay = 0
596      SQL.Strings = (
597 <      'Select sum(Salary) as TotalSalaries'
597 >      'Select cast(sum(Salary) as Numeric(12,2)) as TotalSalaries'
598        'From EMPLOYEE'
599      )
600      Params = <>
601 +    SQLFiltered = False
602      DataSetCloseAction = dcDiscardChanges
603 <    left = 872
604 <    top = 376
603 >    TZTextOption = tzOffset
604 >    DefaultTZDate = 43831
605 >    Left = 872
606 >    Top = 376
607      object TotalsQueryTOTALSALARIES: TIBBCDField
608        DisplayWidth = 18
609        FieldKind = fkData
# Line 619 | Line 623 | object Form1: TForm1
623    end
624    object TotalsSource: TDataSource
625      DataSet = TotalsQuery
626 <    left = 832
627 <    top = 376
626 >    Left = 832
627 >    Top = 376
628    end
629    object Employees: TIBDataSet
630      AllowAutoActivateTransaction = False
# Line 635 | Line 639 | object Form1: TForm1
639      BeforeOpen = EmployeesBeforeOpen
640      BufferChunks = 1000
641      CachedUpdates = False
642 +    CaseSensitiveParameterNames = False
643      EnableStatistics = False
644      DeleteSQL.Strings = (
645        'Delete From EMPLOYEE A'
# Line 698 | Line 703 | object Form1: TForm1
703      GenerateParamNames = False
704      MasterDetailDelay = 0
705      DataSetCloseAction = dcSaveChanges
706 +    TZTextOption = tzOffset
707 +    DefaultTZDate = 43831
708 +    SQLFiltered = False
709      AfterTransactionEnd = EmployeesAfterTransactionEnd
710      OnValidatePost = EmployeesValidatePost
711 <    left = 872
712 <    top = 336
711 >    Left = 872
712 >    Top = 336
713      object EmployeesEMP_NO: TSmallintField
714        DisplayWidth = 10
715        FieldKind = fkData
# Line 856 | Line 864 | object Form1: TForm1
864      Transaction = IBTransaction1
865      BufferChunks = 1000
866      CachedUpdates = False
867 +    CaseSensitiveParameterNames = False
868      DataSource = EmployeeSource
869      EnableStatistics = False
870      GenerateParamNames = False
# Line 878 | Line 887 | object Form1: TForm1
887          Name = 'JOB_GRADE'
888          ParamType = ptInput
889        end>
890 +    SQLFiltered = False
891      DataSetCloseAction = dcDiscardChanges
892 <    left = 872
893 <    top = 296
892 >    TZTextOption = tzOffset
893 >    DefaultTZDate = 43831
894 >    Left = 872
895 >    Top = 296
896      ParamData = <    
897        item
898          DataType = ftUnknown
# Line 895 | Line 907 | object Form1: TForm1
907    end
908    object JobCodeSource: TDataSource
909      DataSet = JobCodes
910 <    left = 832
911 <    top = 256
910 >    Left = 832
911 >    Top = 256
912    end
913    object JobCodes: TIBQuery
914      AllowAutoActivateTransaction = False
# Line 904 | Line 916 | object Form1: TForm1
916      Transaction = IBTransaction1
917      BufferChunks = 1000
918      CachedUpdates = False
919 +    CaseSensitiveParameterNames = False
920      DataSource = EmployeeSource
921      EnableStatistics = False
922      GenerateParamNames = False
# Line 925 | Line 938 | object Form1: TForm1
938          Name = 'JOB_GRADE'
939          ParamType = ptInput
940        end>
941 +    SQLFiltered = False
942      DataSetCloseAction = dcDiscardChanges
943 <    left = 872
944 <    top = 256
943 >    TZTextOption = tzOffset
944 >    DefaultTZDate = 43831
945 >    Left = 872
946 >    Top = 256
947      ParamData = <    
948        item
949          DataType = ftUnknown
# Line 946 | Line 962 | object Form1: TForm1
962      Transaction = IBTransaction1
963      BufferChunks = 1000
964      CachedUpdates = False
965 +    CaseSensitiveParameterNames = False
966      EnableStatistics = False
967      GenerateParamNames = False
968      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 956 | Line 973 | object Form1: TForm1
973        'Order by Upper(Department)'
974      )
975      Params = <>
976 +    SQLFiltered = False
977      DataSetCloseAction = dcDiscardChanges
978 <    left = 872
979 <    top = 210
978 >    TZTextOption = tzOffset
979 >    DefaultTZDate = 43831
980 >    Left = 872
981 >    Top = 210
982    end
983    object DeptsSource: TDataSource
984      DataSet = Depts
985 <    left = 832
986 <    top = 208
985 >    Left = 832
986 >    Top = 208
987    end
988    object JobGradeChangeTimer: TTimer
989      Interval = 0
990      OnTimer = JobGradeChangeTimerTimer
991 <    left = 928
992 <    top = 175
991 >    Left = 928
992 >    Top = 175
993    end
994    object JobCodeChangeTimer: TTimer
995      Interval = 0
996      OnTimer = JobCodeChangeTimerTimer
997 <    left = 927
998 <    top = 224
997 >    Left = 927
998 >    Top = 224
999    end
1000   end

Diff Legend

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