--- ibx/trunk/examples/local-employeedb/unit1.lfm 2018/12/06 15:48:55 262 +++ ibx/trunk/examples/local-employeedb/unit1.lfm 2018/12/06 15:55:01 263 @@ -11,7 +11,7 @@ object Form1: TForm1 OnClose = FormClose OnShow = FormShow Position = poScreenCenter - LCLVersion = '1.8.0.6' + LCLVersion = '2.0.0.2' object Button1: TButton Left = 956 Height = 25 @@ -41,15 +41,15 @@ object Form1: TForm1 end object Label1: TLabel Left = 17 - Height = 15 + Height = 14 Top = 14 - Width = 74 + Width = 87 Caption = 'Started Before' ParentColor = False end object BeforeDate: TDateEdit Left = 112 - Height = 23 + Height = 24 Top = 8 Width = 80 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] @@ -62,15 +62,15 @@ object Form1: TForm1 end object Label2: TLabel Left = 241 - Height = 15 + Height = 14 Top = 14 - Width = 66 + Width = 78 Caption = 'Started After' ParentColor = False end object AfterDate: TDateEdit Left = 333 - Height = 23 + Height = 24 Top = 8 Width = 80 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] @@ -228,7 +228,7 @@ object Form1: TForm1 Left = 688 Height = 27 Top = 16 - Width = 43 + Width = 49 Alignment = taRightJustify Anchors = [akTop, akLeft, akBottom] DataField = 'TOTALSALARIES' @@ -244,23 +244,23 @@ object Form1: TForm1 BevelOuter = bvNone BorderWidth = 2 BorderStyle = bsSingle - ClientHeight = 76 - ClientWidth = 828 + ClientHeight = 78 + ClientWidth = 830 Color = clWindow ParentColor = False TabOrder = 2 Visible = False object Label3: TLabel Left = 0 - Height = 15 + Height = 14 Top = 7 - Width = 74 + Width = 83 Caption = 'Employee No.' ParentColor = False end object DBEdit1: TDBEdit Left = 90 - Height = 23 + Height = 24 Top = 2 Width = 120 DataField = 'EMP_NO' @@ -271,15 +271,15 @@ object Form1: TForm1 end object Label4: TLabel Left = 12 - Height = 15 + Height = 14 Top = 32 - Width = 57 + Width = 64 Caption = 'First Name' ParentColor = False end object DBEdit2: TDBEdit Left = 90 - Height = 23 + Height = 24 Top = 24 Width = 120 DataField = 'FIRST_NAME' @@ -290,15 +290,15 @@ object Form1: TForm1 end object Label5: TLabel Left = 12 - Height = 15 + Height = 14 Top = 56 - Width = 56 + Width = 64 Caption = 'Last Name' ParentColor = False end object DBEdit3: TDBEdit Left = 90 - Height = 23 + Height = 24 Top = 46 Width = 120 DataField = 'LAST_NAME' @@ -309,15 +309,15 @@ object Form1: TForm1 end object Label6: TLabel Left = 216 - Height = 15 + Height = 14 Top = 7 - Width = 64 + Width = 77 Caption = 'Date Started' ParentColor = False end object IBDateEdit1: TDBDateEdit Left = 300 - Height = 23 + Height = 24 Top = 2 Width = 80 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] @@ -332,15 +332,15 @@ object Form1: TForm1 end object Label7: TLabel Left = 252 - Height = 15 + Height = 14 Top = 32 - Width = 31 + Width = 37 Caption = 'Salary' ParentColor = False end object DBEdit4: TDBEdit Left = 300 - Height = 23 + Height = 24 Top = 24 Width = 104 DataField = 'SALARY' @@ -350,17 +350,17 @@ object Form1: TForm1 TabOrder = 5 end object Label8: TLabel - Left = 700 - Height = 15 + Left = 696 + Height = 14 Top = 54 - Width = 18 + Width = 24 Anchors = [akTop, akRight] Caption = 'Ext.' ParentColor = False end object DBEdit5: TDBEdit - Left = 718 - Height = 23 + Left = 720 + Height = 24 Top = 48 Width = 40 DataField = 'PHONE_EXT' @@ -372,17 +372,17 @@ object Form1: TForm1 end object Label9: TLabel Left = 536 - Height = 15 + Height = 14 Top = 7 - Width = 46 + Width = 51 Caption = 'Location' ParentColor = False end object Label10: TLabel Left = 413 - Height = 15 + Height = 14 Top = 9 - Width = 52 + Width = 59 Caption = 'Job Grade' ParentColor = False end @@ -394,7 +394,7 @@ object Form1: TForm1 AutoSize = False DataField = 'JOB_GRADE' DataSource = EmployeeSource - ItemHeight = 15 + ItemHeight = 0 Items.Strings = ( '1' '2' @@ -409,22 +409,22 @@ object Form1: TForm1 end object Label11: TLabel Left = 536 - Height = 15 + Height = 14 Top = 32 - Width = 44 + Width = 48 Caption = 'Job Title' ParentColor = False end object Label12: TLabel Left = 256 - Height = 15 + Height = 14 Top = 54 - Width = 28 + Width = 33 Caption = 'Dept.' ParentColor = False end object SpeedButton1: TSpeedButton - Left = 662 + Left = 664 Height = 25 Top = 48 Width = 23 @@ -433,9 +433,9 @@ object Form1: TForm1 end object DBEdit6: TDBEdit Left = 300 - Height = 23 + Height = 24 Top = 48 - Width = 354 + Width = 356 DataField = 'DEPT_PATH' DataSource = EmployeeSource ReadOnly = True @@ -448,7 +448,7 @@ object Form1: TForm1 Left = 600 Height = 23 Top = 0 - Width = 158 + Width = 160 Anchors = [akTop, akLeft, akRight] AutoSize = False DataField = 'JOB_COUNTRY' @@ -462,13 +462,13 @@ object Form1: TForm1 TabOrder = 8 AutoInsert = False AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] - ItemHeight = 15 + ItemHeight = 0 end object IBLookupComboEditBox1: TIBLookupComboEditBox Left = 600 Height = 23 Top = 24 - Width = 158 + Width = 160 Anchors = [akTop, akLeft, akRight] AutoSize = False DataField = 'JOB_CODE' @@ -482,10 +482,10 @@ object Form1: TForm1 TabOrder = 9 AutoInsert = False AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] - ItemHeight = 15 + ItemHeight = 0 end object Panel3: TPanel - Left = 766 + Left = 768 Height = 67 Top = 3 Width = 56 @@ -513,18 +513,18 @@ object Form1: TForm1 end object Label13: TLabel Left = 456 - Height = 15 + Height = 14 Top = 14 - Width = 67 + Width = 79 Caption = 'Salary Range' ParentColor = False end object SalaryRange: TComboBox Left = 544 - Height = 23 + Height = 25 Top = 8 Width = 272 - ItemHeight = 15 + ItemHeight = 0 ItemIndex = 0 Items.Strings = ( 'None Specified' @@ -634,8 +634,10 @@ object Form1: TForm1 BeforeOpen = EmployeesBeforeOpen BufferChunks = 1000 CachedUpdates = False + EnableStatistics = False GenerateParamNames = False GeneratorField.ApplyOnEvent = gaeOnNewRecord + MasterDetailDelay = 0 SQL.Strings = ( 'Select sum(Salary) as TotalSalaries' 'From EMPLOYEE' @@ -680,6 +682,7 @@ object Form1: TForm1 BeforeOpen = EmployeesBeforeOpen BufferChunks = 1000 CachedUpdates = False + EnableStatistics = False DeleteSQL.Strings = ( 'Delete From EMPLOYEE A' 'Where A.EMP_NO = :EMP_NO' @@ -708,6 +711,7 @@ object Form1: TForm1 GeneratorField.Field = 'EMP_NO' GeneratorField.ApplyOnEvent = gaeOnNewRecord GenerateParamNames = False + MasterDetailDelay = 0 DataSetCloseAction = dcSaveChanges AfterTransactionEnd = EmployeesAfterTransactionEnd OnValidatePost = EmployeesValidatePost @@ -878,8 +882,10 @@ object Form1: TForm1 BeforeOpen = CountriesBeforeOpen BufferChunks = 1000 CachedUpdates = False + EnableStatistics = False GenerateParamNames = False GeneratorField.ApplyOnEvent = gaeOnNewRecord + MasterDetailDelay = 0 SQL.Strings = ( 'Select A.COUNTRY, A.CURRENCY From COUNTRY A' 'JOIN JOB J On J.JOB_COUNTRY = A.COUNTRY' @@ -924,8 +930,10 @@ object Form1: TForm1 BeforeOpen = JobCodesBeforeOpen BufferChunks = 1000 CachedUpdates = False + EnableStatistics = False GenerateParamNames = False GeneratorField.ApplyOnEvent = gaeOnNewRecord + MasterDetailDelay = 0 SQL.Strings = ( 'Select A.JOB_CODE, A.JOB_TITLE From JOB A' 'Where JOB_COUNTRY = :JOB_COUNTRY and JOB_GRADE = :JOB_GRADE' @@ -963,8 +971,10 @@ object Form1: TForm1 Transaction = IBTransaction1 BufferChunks = 1000 CachedUpdates = False + EnableStatistics = False GenerateParamNames = False GeneratorField.ApplyOnEvent = gaeOnNewRecord + MasterDetailDelay = 0 SQL.Strings = ( 'Select A.DEPT_NO, A.DEPARTMENT From DEPARTMENT A' ''