--- ibx/trunk/examples/isqlmonitor/MainForm.lfm 2016/09/22 17:10:15 44 +++ ibx/trunk/examples/isqlmonitor/MainForm.lfm 2016/12/06 10:33:46 45 @@ -8,7 +8,7 @@ object Form1: TForm1 ClientWidth = 1002 OnClose = FormClose OnShow = FormShow - LCLVersion = '1.4.2.0' + LCLVersion = '1.6.0.4' object Button1: TButton Left = 915 Height = 25 @@ -40,13 +40,13 @@ object Form1: TForm1 Left = 17 Height = 15 Top = 14 - Width = 87 + Width = 74 Caption = 'Started Before' ParentColor = False end object BeforeDate: TDateEdit Left = 112 - Height = 25 + Height = 23 Top = 8 Width = 80 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] @@ -63,13 +63,13 @@ object Form1: TForm1 Left = 241 Height = 15 Top = 14 - Width = 78 + Width = 66 Caption = 'Started After' ParentColor = False end object AfterDate: TDateEdit Left = 333 - Height = 25 + Height = 23 Top = 8 Width = 80 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] @@ -229,7 +229,7 @@ object Form1: TForm1 Left = 688 Height = 27 Top = 16 - Width = 49 + Width = 43 Alignment = taRightJustify Anchors = [akTop, akLeft, akBottom] DataField = 'TOTALSALARIES' @@ -245,8 +245,8 @@ object Form1: TForm1 BevelOuter = bvNone BorderWidth = 2 BorderStyle = bsSingle - ClientHeight = 78 - ClientWidth = 782 + ClientHeight = 76 + ClientWidth = 780 Color = clWindow ParentColor = False TabOrder = 2 @@ -255,13 +255,13 @@ object Form1: TForm1 Left = 0 Height = 15 Top = 7 - Width = 83 + Width = 74 Caption = 'Employee No.' ParentColor = False end object DBEdit1: TDBEdit Left = 90 - Height = 25 + Height = 23 Top = 2 Width = 120 DataField = 'EMP_NO' @@ -274,13 +274,13 @@ object Form1: TForm1 Left = 12 Height = 15 Top = 32 - Width = 64 + Width = 57 Caption = 'First Name' ParentColor = False end object DBEdit2: TDBEdit Left = 90 - Height = 25 + Height = 23 Top = 24 Width = 120 DataField = 'FIRST_NAME' @@ -293,13 +293,13 @@ object Form1: TForm1 Left = 12 Height = 15 Top = 56 - Width = 64 + Width = 56 Caption = 'Last Name' ParentColor = False end object DBEdit3: TDBEdit Left = 90 - Height = 25 + Height = 23 Top = 46 Width = 120 DataField = 'LAST_NAME' @@ -312,13 +312,13 @@ object Form1: TForm1 Left = 216 Height = 15 Top = 7 - Width = 77 + Width = 64 Caption = 'Date Started' ParentColor = False end object IBDateEdit1: TDBDateEdit Left = 300 - Height = 25 + Height = 23 Top = 2 Width = 80 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] @@ -337,13 +337,13 @@ object Form1: TForm1 Left = 252 Height = 15 Top = 32 - Width = 37 + Width = 31 Caption = 'Salary' ParentColor = False end object DBEdit4: TDBEdit Left = 300 - Height = 25 + Height = 23 Top = 24 Width = 104 DataField = 'SALARY' @@ -353,17 +353,17 @@ object Form1: TForm1 TabOrder = 5 end object Label8: TLabel - Left = 708 + Left = 712 Height = 15 Top = 54 - Width = 24 + Width = 18 Anchors = [akTop, akRight] Caption = 'Ext.' ParentColor = False end object DBEdit5: TDBEdit - Left = 732 - Height = 25 + Left = 730 + Height = 23 Top = 48 Width = 40 DataField = 'PHONE_EXT' @@ -377,7 +377,7 @@ object Form1: TForm1 Left = 536 Height = 15 Top = 7 - Width = 51 + Width = 46 Caption = 'Location' ParentColor = False end @@ -385,19 +385,19 @@ object Form1: TForm1 Left = 413 Height = 15 Top = 9 - Width = 59 + Width = 52 Caption = 'Job Grade' ParentColor = False end object JobGradeDBComboBox: TDBComboBox Left = 480 - Height = 25 + Height = 23 Top = 2 Width = 48 AutoSize = False DataField = 'JOB_GRADE' DataSource = EmployeeSource - ItemHeight = 0 + ItemHeight = 15 Items.Strings = ( '1' '2' @@ -414,7 +414,7 @@ object Form1: TForm1 Left = 536 Height = 15 Top = 32 - Width = 48 + Width = 44 Caption = 'Job Title' ParentColor = False end @@ -422,12 +422,12 @@ object Form1: TForm1 Left = 256 Height = 15 Top = 54 - Width = 33 + Width = 28 Caption = 'Dept.' ParentColor = False end object SpeedButton1: TSpeedButton - Left = 680 + Left = 678 Height = 25 Top = 48 Width = 23 @@ -436,9 +436,9 @@ object Form1: TForm1 end object DBEdit6: TDBEdit Left = 300 - Height = 25 + Height = 23 Top = 48 - Width = 372 + Width = 370 DataField = 'DEPT_PATH' DataSource = EmployeeSource ReadOnly = True @@ -449,9 +449,9 @@ object Form1: TForm1 end object IBLookupComboEditBox2: TIBLookupComboEditBox Left = 600 - Height = 25 + Height = 23 Top = 0 - Width = 172 + Width = 170 Anchors = [akTop, akLeft, akRight] AutoSize = False DataField = 'JOB_COUNTRY' @@ -465,13 +465,13 @@ object Form1: TForm1 TabOrder = 8 AutoInsert = False AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] - ItemHeight = 0 + ItemHeight = 15 end object IBLookupComboEditBox1: TIBLookupComboEditBox Left = 600 - Height = 25 + Height = 23 Top = 24 - Width = 172 + Width = 170 Anchors = [akTop, akLeft, akRight] AutoSize = False DataField = 'JOB_CODE' @@ -485,7 +485,7 @@ object Form1: TForm1 TabOrder = 9 AutoInsert = False AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] - ItemHeight = 0 + ItemHeight = 15 end end end @@ -493,16 +493,16 @@ object Form1: TForm1 Left = 456 Height = 15 Top = 14 - Width = 79 + Width = 67 Caption = 'Salary Range' ParentColor = False end object SalaryRange: TComboBox Left = 544 - Height = 25 + Height = 23 Top = 8 Width = 272 - ItemHeight = 0 + ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'None Specified' @@ -516,16 +516,18 @@ object Form1: TForm1 Text = 'None Specified' end object IBDatabase1: TIBDatabase - Connected = False + Connected = True AllowStreamedConnected = False DatabaseName = 'localhost:employee' Params.Strings = ( 'user_name=SYSDBA' 'lc_ctype=UTF8' + 'user_name=SYSDBA' ) DefaultTransaction = IBTransaction1 IdleTimer = 0 TraceFlags = [tfQPrepare, tfStmt, tfConnect] + UseDefaultSystemCodePage = False left = 832 top = 168 end @@ -643,36 +645,45 @@ object Form1: TForm1 ) RefreshSQL.Strings = ( 'with recursive Depts As (' - 'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as VarChar(256)) as DEPT_PATH,' + 'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as VarChar' + '(256)) as DEPT_PATH,' 'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH' 'From DEPARTMENT Where HEAD_DEPT is NULL ' 'UNION ALL' - 'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH || '' / '' || DEPARTMENT as DEPT_PATH,' - 'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH' - 'From DEPARTMENT ' - 'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO' + 'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH || '' / '' ' + '|| D.DEPARTMENT as DEPT_PATH,' + 'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH' + 'From DEPARTMENT D' + 'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO' ')' '' - 'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' - 'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH' + 'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, ' + 'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' + 'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, ' + 'D.DEPT_KEY_PATH' 'From EMPLOYEE A' 'JOIN Depts D On D.DEPT_NO = A.DEPT_NO' + '' 'Where A.EMP_NO = :EMP_NO' ) SelectSQL.Strings = ( 'with recursive Depts As (' - 'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as VarChar(256)) as DEPT_PATH,' + 'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as ' + 'VarChar(256)) as DEPT_PATH,' 'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH' 'From DEPARTMENT Where HEAD_DEPT is NULL ' 'UNION ALL' - 'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH || '' / '' || DEPARTMENT as DEPT_PATH,' - 'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH' - 'From DEPARTMENT ' - 'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO' + 'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH || '' / '' ' + '|| D.DEPARTMENT as DEPT_PATH,' + 'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH' + 'From DEPARTMENT D' + 'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO' ')' '' - 'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' - 'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH' + 'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, ' + 'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' + 'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, ' + 'D.DEPT_KEY_PATH' 'From EMPLOYEE A' 'JOIN Depts D On D.DEPT_NO = A.DEPT_NO' )