--- ibx/trunk/examples/dbcontrolgrid/unit1.lfm 2016/12/06 10:33:46 46 +++ ibx/trunk/examples/dbcontrolgrid/unit1.lfm 2017/01/09 15:31:51 47 @@ -8,7 +8,7 @@ object Form1: TForm1 ClientWidth = 1026 OnClose = FormClose OnShow = FormShow - LCLVersion = '1.6.0.4' + LCLVersion = '1.6.2.0' object Button1: TButton Left = 939 Height = 25 @@ -29,20 +29,18 @@ object Form1: TForm1 end object Label1: TLabel Left = 17 - Height = 15 + Height = 17 Top = 14 - Width = 87 + Width = 82 Caption = 'Started Before' ParentColor = False end object BeforeDate: TDateEdit Left = 112 - Height = 25 + Height = 27 Top = 8 Width = 96 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] - OKCaption = 'OK' - CancelCaption = 'Cancel' DateOrder = doNone ButtonWidth = 23 NumGlyphs = 1 @@ -52,20 +50,18 @@ object Form1: TForm1 end object Label2: TLabel Left = 241 - Height = 15 + Height = 17 Top = 14 - Width = 78 + Width = 72 Caption = 'Started After' ParentColor = False end object AfterDate: TDateEdit Left = 333 - Height = 25 + Height = 27 Top = 8 Width = 91 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] - OKCaption = 'OK' - CancelCaption = 'Cancel' DateOrder = doNone ButtonWidth = 23 NumGlyphs = 1 @@ -104,14 +100,14 @@ object Form1: TForm1 ) object EmployeeEditorPanel: TPanel Left = 12 - Height = 80 + Height = 84 Top = 0 Width = 890 Anchors = [] BevelOuter = bvNone BorderWidth = 2 BorderStyle = bsSingle - ClientHeight = 78 + ClientHeight = 82 ClientWidth = 888 Color = clWhite ParentColor = False @@ -119,15 +115,15 @@ object Form1: TForm1 Visible = False object Label3: TLabel Left = 0 - Height = 15 + Height = 17 Top = 7 - Width = 83 + Width = 77 Caption = 'Employee No.' ParentColor = False end object DBEdit1: TDBEdit Left = 90 - Height = 25 + Height = 27 Top = 2 Width = 120 DataField = 'EMP_NO' @@ -138,16 +134,16 @@ object Form1: TForm1 end object Label4: TLabel Left = 12 - Height = 15 + Height = 17 Top = 32 - Width = 64 + Width = 61 Caption = 'First Name' ParentColor = False end object DBEdit2: TDBEdit Left = 90 - Height = 25 - Top = 24 + Height = 27 + Top = 28 Width = 120 DataField = 'FIRST_NAME' DataSource = EmployeeSource @@ -157,16 +153,16 @@ object Form1: TForm1 end object Label5: TLabel Left = 12 - Height = 15 + Height = 17 Top = 56 - Width = 64 + Width = 60 Caption = 'Last Name' ParentColor = False end object DBEdit3: TDBEdit Left = 90 - Height = 25 - Top = 46 + Height = 27 + Top = 54 Width = 120 DataField = 'LAST_NAME' DataSource = EmployeeSource @@ -176,20 +172,18 @@ object Form1: TForm1 end object Label6: TLabel Left = 216 - Height = 15 + Height = 17 Top = 7 - Width = 77 + Width = 71 Caption = 'Date Started' ParentColor = False end object IBDateEdit1: TDBDateEdit Left = 300 - Height = 25 + Height = 27 Top = 2 Width = 100 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] - OKCaption = 'OK' - CancelCaption = 'Cancel' DateOrder = doNone ButtonWidth = 23 AutoSelect = False @@ -201,16 +195,16 @@ object Form1: TForm1 end object Label7: TLabel Left = 252 - Height = 15 + Height = 17 Top = 32 - Width = 37 + Width = 35 Caption = 'Salary' ParentColor = False end object DBEdit4: TDBEdit Left = 300 - Height = 25 - Top = 24 + Height = 27 + Top = 28 Width = 104 DataField = 'SALARY' DataSource = EmployeeSource @@ -219,18 +213,18 @@ object Form1: TForm1 TabOrder = 5 end object Label8: TLabel - Left = 814 - Height = 15 - Top = 54 - Width = 24 + Left = 818 + Height = 17 + Top = 58 + Width = 20 Anchors = [akTop, akRight] Caption = 'Ext.' ParentColor = False end object DBEdit5: TDBEdit Left = 838 - Height = 25 - Top = 48 + Height = 27 + Top = 54 Width = 40 DataField = 'PHONE_EXT' DataSource = EmployeeSource @@ -241,17 +235,17 @@ object Form1: TForm1 end object Label9: TLabel Left = 536 - Height = 15 + Height = 17 Top = 7 - Width = 51 + Width = 47 Caption = 'Location' ParentColor = False end object Label10: TLabel Left = 413 - Height = 15 + Height = 17 Top = 9 - Width = 59 + Width = 55 Caption = 'Job Grade' ParentColor = False end @@ -278,32 +272,32 @@ object Form1: TForm1 end object Label11: TLabel Left = 536 - Height = 15 + Height = 17 Top = 32 - Width = 48 + Width = 44 Caption = 'Job Title' ParentColor = False end object Label12: TLabel Left = 256 - Height = 15 - Top = 54 - Width = 33 + Height = 17 + Top = 58 + Width = 30 Caption = 'Dept.' ParentColor = False end object SpeedButton1: TSpeedButton Left = 786 Height = 25 - Top = 48 + Top = 54 Width = 23 Action = SelectDept Anchors = [akTop, akRight] end object DBEdit6: TDBEdit Left = 300 - Height = 25 - Top = 48 + Height = 27 + Top = 54 Width = 478 DataField = 'DEPT_PATH' DataSource = EmployeeSource @@ -315,7 +309,7 @@ object Form1: TForm1 end object DBEdit7: TDBEdit Left = 592 - Height = 25 + Height = 27 Top = 0 Width = 246 DataField = 'JOB_COUNTRY' @@ -327,8 +321,8 @@ object Form1: TForm1 end object DBEdit8: TDBEdit Left = 592 - Height = 25 - Top = 24 + Height = 27 + Top = 28 Width = 246 DataField = 'JOB_TITLE' DataSource = EmployeeSource @@ -339,14 +333,14 @@ object Form1: TForm1 object SpeedButton2: TSpeedButton Left = 847 Height = 22 - Top = 0 + Top = 3 Width = 23 Action = EditLocationAction end object SpeedButton3: TSpeedButton Left = 847 Height = 22 - Top = 24 + Top = 30 Width = 23 Action = EditJobCodeAction end @@ -382,10 +376,10 @@ object Form1: TForm1 TabOrder = 1 end object DBText1: TDBText - Left = 832 + Left = 833 Height = 27 Top = 16 - Width = 49 + Width = 48 Alignment = taRightJustify Anchors = [akTop, akRight, akBottom] DataField = 'TOTALSALARIES' @@ -396,15 +390,15 @@ object Form1: TForm1 end object Label13: TLabel Left = 456 - Height = 15 + Height = 17 Top = 14 - Width = 79 + Width = 73 Caption = 'Salary Range' ParentColor = False end object SalaryRange: TComboBox Left = 544 - Height = 25 + Height = 27 Top = 8 Width = 272 ItemHeight = 0 @@ -496,6 +490,7 @@ object Form1: TForm1 end end object TotalsQuery: TIBQuery + AllowAutoActivateTransaction = False Database = IBDatabase1 Transaction = IBTransaction1 BeforeOpen = EmployeesBeforeOpen @@ -534,6 +529,7 @@ object Form1: TForm1 top = 376 end object Employees: TIBDataSet + AllowAutoActivateTransaction = False Database = IBDatabase1 Transaction = IBTransaction1 AfterDelete = EmployeesAfterDelete