⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.dfm

📁 最新的 DBGRIDEH4.0
💻 DFM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
          TabOrder = 5
          OnClick = bClosePreviewClick
        end
      end
      object PreviewBox1: TPreviewBox
        Left = 0
        Top = 392
        Width = 680
        Height = 93
        HorzScrollBar.Tracking = True
        VertScrollBar.Tracking = True
        Align = alBottom
        AutoScroll = False
        TabOrder = 3
        Visible = False
        OnPrinterPreviewChanged = PreviewBox1PrinterPreviewChanged
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Grid2'
      object DBGridEh2: TDBGridEh
        Left = 0
        Top = 0
        Width = 680
        Height = 487
        Align = alClient
        AutoFitColWidths = True
        DataSource = DataModule1.DataSource1
        DefaultDrawing = False
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'Microsoft Sans Serif'
        FooterFont.Style = []
        FooterRowCount = 1
        IndicatorTitle.ShowDropDownSign = True
        IndicatorTitle.TitleButton = True
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghTraceColSizing, dghIncSearch, dghPreferIncSearch, dghDblClickOptimizeColWidth, dghDialogFind]
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Microsoft Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        VTitleMargin = 5
        OnDrawColumnCell = DBGridEh2DrawColumnCell
        OnDrawFooterCell = DBGridEh2DrawFooterCell
        OnEditButtonClick = DBGridEh2EditButtonClick
        OnGetCellParams = DBGridEh2GetCellParams
        OnGetFooterParams = DBGridEh2GetFooterParams
        Columns = <
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'VNo'
            Footer.Alignment = taLeftJustify
            Footer.Color = clYellow
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'Microsoft Sans Serif'
            Footer.Font.Style = [fsBold]
            Footer.Value = 'Count and sum'
            Footer.ValueType = fvtStaticText
            Footers = <>
            ToolTips = True
            Width = 123
          end
          item
            ButtonStyle = cbsDropDown
            Checkboxes = False
            EditButtons = <>
            FieldName = 'VName'
            Footer.Alignment = taCenter
            Footer.Color = clYellow
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'Microsoft Sans Serif'
            Footer.Font.Style = [fsBold]
            Footer.ValueType = fvtCount
            Footers = <>
            ToolTips = True
            Width = 117
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'PNo'
            Footer.Color = clYellow
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'Microsoft Sans Serif'
            Footer.Font.Style = [fsBold]
            Footers = <>
            ToolTips = True
            Width = 83
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'PDescription'
            Footer.Alignment = taCenter
            Footer.Color = clYellow
            Footer.FieldName = 'IQty'
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'Microsoft Sans Serif'
            Footer.Font.Style = [fsBold]
            Footer.ValueType = fvtFieldValue
            Footers = <>
            ToolTips = True
            Width = 139
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'PCost'
            Footer.Color = clYellow
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'Microsoft Sans Serif'
            Footer.Font.Style = [fsBold]
            Footer.ValueType = fvtSum
            Footers = <>
            ToolTips = True
            Width = 87
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'IQty'
            Footer.Alignment = taCenter
            Footer.Color = clYellow
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'Microsoft Sans Serif'
            Footer.Font.Style = [fsBold]
            Footers = <>
            ToolTips = True
            Width = 92
          end>
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Master/Detale'
      object DBGridEh3: TDBGridEh
        Left = 10
        Top = 32
        Width = 661
        Height = 197
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataSource = DataModule1.DataSource2
        EditActions = [geaCopyEh, geaSelectAllEh]
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Microsoft Sans Serif'
        Font.Style = []
        FooterColor = clBtnFace
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'Microsoft Sans Serif'
        FooterFont.Style = [fsBold]
        FooterRowCount = 1
        FrozenCols = 2
        HorzScrollBar.Tracking = True
        IndicatorTitle.ShowDropDownSign = True
        IndicatorTitle.TitleButton = True
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        OptionsEh = [dghFixed3D, dghFooter3D, dghHighlightFocus, dghClearSelection, dghTraceColSizing, dghIncSearch, dghPreferIncSearch, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        STFilter.Local = True
        STFilter.Visible = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Microsoft Sans Serif'
        TitleFont.Style = []
        VertScrollBar.Tracking = True
        Columns = <
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'OrderNo'
            Footer.Alignment = taCenter
            Footer.ValueType = fvtCount
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'CustNo'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'ItemsTotal'
            Footer.ValueType = fvtSum
            Footers = <>
            ToolTips = True
            Width = 81
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'TaxRate'
            Footer.ValueType = fvtSum
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'Freight'
            Footer.ValueType = fvtSum
            Footers = <>
            ToolTips = True
          end
          item
            ButtonStyle = cbsDropDown
            Checkboxes = False
            EditButtons = <>
            FieldName = 'AmountPaid'
            Footer.ValueType = fvtSum
            Footers = <>
            ToolTips = True
            Width = 82
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'SaleDate'
            Footer.Alignment = taCenter
            Footer.FieldName = 'PaymentMethod'
            Footer.ValueType = fvtFieldValue
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'ShipDate'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'EmpNo'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'ShipToContact'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'ShipToAddr1'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'ShipToAddr2'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'ShipToCity'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'ShipToState'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'ShipToZip'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'ShipToCountry'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'ShipToPhone'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'ShipVIA'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'PO'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'Terms'
            Footers = <>
            ToolTips = True
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'PaymentMethod'
            Footers = <>
            ToolTips = True
          end>
      end
      object DBGridEh4: TDBGridEh
        Left = 14
        Top = 286
        Width = 363
        Height = 183
        Anchors = [akLeft, akBottom]
        AutoFitColWidths = True
        DataSource = DataModule1.DataSource3
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'Microsoft Sans Serif'
        FooterFont.Style = []
        FooterRowCount = 1
        IndicatorTitle.ShowDropDownSign = True
        IndicatorTitle.TitleButton = True
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghFooter3D, dghHighlightFocus, dghClearSelection, dghTraceColSizing, dghIncSearch, dghPreferIncSearch, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind]
        PopupMenu = PopupMenu1
        SumList.Active = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Microsoft Sans Serif'
        TitleFont.Style = []
        VertScrollBar.Tracking = True
        Columns = <
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'OrderNo'
            Footer.Alignment = taCenter
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'Microsoft Sans Serif'
            Footer.Font.Style = [fsBold]
            Footer.ValueType = fvtCount
            Footers = <>
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'ItemNo'
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'Microsoft Sans Serif'
            Footer.Font.Style = [fsBold]
            Footers = <>
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'PartNo'
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'Microsoft Sans Serif'
            Footer.Font.Style = [fsBold]
            Footers = <>
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'Qty'
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'Microsoft Sans Serif'
            Footer.Font.Style = [fsBold]
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'Discount'
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'Microsoft Sans Serif'
            Footer.Font.Style = [fsBold]
            Footers = <>
          end>
      end
      object DBNavigator2: TDBNavigator
        Left = 10
        Top = 4
        Width = 220
        Height = 25
        DataSource = DataModule1.DataSource2
        Flat = True
        TabOrder = 2
      end
      object DBNavigator3: TDBNavigator
        Left = 12
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -