uselect.dfm

中式财务栏 表格式录入 运行时设置可显示列、列名、列宽

object FormSelect: TFormSelect
  Left = 318
  Top = 220
  BorderIcons = []
  BorderStyle = bsNone
  Caption = #35831#36873#25321
  ClientHeight = 229
  ClientWidth = 394
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 394
    Height = 229
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'Panel2'
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 0
      Width = 392
      Height = 187
      Align = alClient
      BorderStyle = bsNone
      ColumnDefValues.Title.TitleButton = True
      DataSource = DataSource1
      ShowSerialNo = False
      EvenRowColor = clHighlightText
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghTraceColSizing]
      SortLocal = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      VertScrollBar.Tracking = True
      OnDblClick = DBGridEh1DblClick
      OnKeyPress = DBGridEh1KeyPress
    end
    object Panel1: TPanel
      Left = 0
      Top = 187
      Width = 392
      Height = 40
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object SpeedButton3: TBitBtn
        Left = 8
        Top = 7
        Width = 75
        Height = 25
        Caption = #26032#22686'(&A)'
        TabOrder = 2
        OnClick = SpeedButton3Click
      end
      object SpeedButton1: TBitBtn
        Left = 224
        Top = 8
        Width = 75
        Height = 25
        Caption = #30830#23450'(&O)'
        TabOrder = 0
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TBitBtn
        Left = 304
        Top = 8
        Width = 75
        Height = 25
        Cancel = True
        Caption = #21462#28040'(&C)'
        TabOrder = 1
        OnClick = SpeedButton2Click
      end
      object BitBtn1: TBitBtn
        Left = 88
        Top = 7
        Width = 75
        Height = 25
        Caption = #20462#25913'(&E)'
        TabOrder = 3
        OnClick = BitBtn1Click
      end
    end
  end
  object DataSource1: TDataSource
    Left = 18
    Top = 20
  end
end