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 208 by tony, Tue Oct 17 10:07:58 2017 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

# Line 10 | Line 10 | object Form1: TForm1
10    OnClose = FormClose
11    OnShow = FormShow
12    Position = poScreenCenter
13 <  LCLVersion = '1.8.0.4'
13 >  LCLVersion = '1.8.3.0'
14    object Button1: TButton
15      Left = 915
16      Height = 25
# 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 588 | Line 588 | object Form1: TForm1
588      BeforeOpen = EmployeesBeforeOpen
589      BufferChunks = 1000
590      CachedUpdates = False
591 +    EnableStatistics = False
592      GenerateParamNames = False
593      GeneratorField.ApplyOnEvent = gaeOnNewRecord
594 +    MasterDetailDelay = 0
595      SQL.Strings = (
596        'Select sum(Salary) as TotalSalaries'
597        'From EMPLOYEE'
# Line 629 | Line 631 | object Form1: TForm1
631      AfterInsert = EmployeesAfterInsert
632      AfterOpen = EmployeesAfterOpen
633      AfterPost = EmployeesAfterPost
632 –    AfterScroll = EmployeesAfterScroll
634      BeforeClose = EmployeesBeforeClose
635      BeforeOpen = EmployeesBeforeOpen
636      BufferChunks = 1000
637      CachedUpdates = False
638 +    EnableStatistics = False
639      DeleteSQL.Strings = (
640        'Delete From EMPLOYEE A'
641        'Where A.EMP_NO = :EMP_NO'
# Line 694 | Line 696 | object Form1: TForm1
696      GeneratorField.Field = 'EMP_NO'
697      GeneratorField.ApplyOnEvent = gaeOnNewRecord
698      GenerateParamNames = False
699 +    MasterDetailDelay = 0
700      DataSetCloseAction = dcSaveChanges
701      AfterTransactionEnd = EmployeesAfterTransactionEnd
702      OnValidatePost = EmployeesValidatePost
# Line 851 | Line 854 | object Form1: TForm1
854      AllowAutoActivateTransaction = False
855      Database = IBDatabase1
856      Transaction = IBTransaction1
854 –    BeforeOpen = CountriesBeforeOpen
857      BufferChunks = 1000
858      CachedUpdates = False
859 +    DataSource = EmployeeSource
860 +    EnableStatistics = False
861      GenerateParamNames = False
862      GeneratorField.ApplyOnEvent = gaeOnNewRecord
863 +    MasterDetailDelay = 250
864      SQL.Strings = (
865        'Select A.COUNTRY, A.CURRENCY From COUNTRY A'
866        'JOIN JOB J On J.JOB_COUNTRY = A.COUNTRY'
# Line 897 | Line 902 | object Form1: TForm1
902      AllowAutoActivateTransaction = False
903      Database = IBDatabase1
904      Transaction = IBTransaction1
900 –    BeforeOpen = JobCodesBeforeOpen
905      BufferChunks = 1000
906      CachedUpdates = False
907 +    DataSource = EmployeeSource
908 +    EnableStatistics = False
909      GenerateParamNames = False
910      GeneratorField.ApplyOnEvent = gaeOnNewRecord
911 +    MasterDetailDelay = 250
912      SQL.Strings = (
913        'Select A.JOB_CODE, A.JOB_TITLE From JOB A'
914        'Where JOB_COUNTRY = :JOB_COUNTRY and JOB_GRADE = :JOB_GRADE'
# Line 939 | Line 946 | object Form1: TForm1
946      Transaction = IBTransaction1
947      BufferChunks = 1000
948      CachedUpdates = False
949 +    EnableStatistics = False
950      GenerateParamNames = False
951      GeneratorField.ApplyOnEvent = gaeOnNewRecord
952 +    MasterDetailDelay = 0
953      SQL.Strings = (
954        'Select A.DEPT_NO, A.DEPARTMENT From DEPARTMENT A'
955        ''

Diff Legend

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