formcolselect.dfm

本程序演示了如何使用编辑器在运行期设置表格的一些常用参数 需要使用到Ehlib控件,最好使用3.6版本,旧版本也适用! 使用前请双击本目录下的DB.UDL连接数据库,连接完成后即可选择数据表进

object FrmColSelect: TFrmColSelect
  Left = 296
  Top = 82
  BorderStyle = bsDialog
  Caption = #26639#20301#35774#32622
  ClientHeight = 428
  ClientWidth = 295
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 295
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object Label1: TLabel
      Left = 155
      Top = 11
      Width = 36
      Height = 12
      Caption = #22266#23450#21015
    end
    object ChkCount: TCheckBox
      Left = 16
      Top = 8
      Width = 81
      Height = 17
      Caption = #26174#31034#21512#35745#26639
      TabOrder = 0
    end
    object UpDownFix: TUpDown
      Left = 137
      Top = 8
      Width = 15
      Height = 18
      Associate = EdtFix
      TabOrder = 1
    end
    object EdtFix: TEdit
      Left = 112
      Top = 8
      Width = 25
      Height = 18
      ReadOnly = True
      TabOrder = 2
      Text = '0'
    end
    object ChkMultiTitle: TCheckBox
      Left = 208
      Top = 8
      Width = 76
      Height = 17
      Caption = #22810#26639#26631#39064
      TabOrder = 3
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 295
    Height = 387
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 1
    object CLB: TCheckListBox
      Left = 0
      Top = 0
      Width = 159
      Height = 387
      Align = alClient
      BevelInner = bvNone
      BevelOuter = bvNone
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      Style = lbOwnerDrawFixed
      TabOrder = 0
      OnClick = CLBClick
      OnDragOver = CLBDragOver
    end
    object Panel3: TPanel
      Left = 159
      Top = 0
      Width = 136
      Height = 387
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      DesignSize = (
        136
        387)
      object BitBtn1: TBitBtn
        Left = 32
        Top = 351
        Width = 75
        Height = 30
        Anchors = [akTop, akBottom]
        Caption = #21462#28040
        TabOrder = 0
        Kind = bkCancel
      end
      object BitBtn2: TBitBtn
        Left = 32
        Top = 313
        Width = 75
        Height = 30
        Anchors = [akTop, akBottom]
        Caption = #30830#23450
        Default = True
        TabOrder = 1
        OnClick = Button2Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 136
        Height = 305
        Align = alTop
        Anchors = [akLeft, akTop, akRight, akBottom]
        BevelOuter = bvNone
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 2
        object SpeedButton6: TSpeedButton
          Left = 10
          Top = 8
          Width = 23
          Height = 22
          Caption = #39030
          Flat = True
          OnClick = SpeedButton6Click
        end
        object SpeedButton1: TSpeedButton
          Left = 42
          Top = 8
          Width = 23
          Height = 22
          Caption = #19978
          Flat = True
          OnClick = SpeedButton1Click
        end
        object SpeedButton2: TSpeedButton
          Left = 74
          Top = 8
          Width = 23
          Height = 22
          Caption = #19979
          Flat = True
          OnClick = SpeedButton2Click
        end
        object SpeedButton7: TSpeedButton
          Left = 106
          Top = 8
          Width = 23
          Height = 22
          Caption = #24213
          Flat = True
          OnClick = SpeedButton7Click
        end
        object Label2: TLabel
          Left = 8
          Top = 168
          Width = 48
          Height = 12
          Caption = #32479#35745#31867#22411
        end
        object Label3: TLabel
          Left = 8
          Top = 208
          Width = 48
          Height = 12
          Caption = #32479#35745#23383#27573
        end
        object EdtFieldName: TLabeledEdit
          Left = 8
          Top = 48
          Width = 121
          Height = 18
          Color = cl3DLight
          EditLabel.Width = 48
          EditLabel.Height = 12
          EditLabel.Caption = #23383#27573#21517#31216
          TabOrder = 0
        end
        object EdtFieldTitle: TLabeledEdit
          Left = 8
          Top = 88
          Width = 121
          Height = 18
          EditLabel.Width = 48
          EditLabel.Height = 12
          EditLabel.Caption = #26174#31034#26631#39064
          TabOrder = 1
          OnChange = EdtFieldTitleChange
        end
        object ChkSort: TCheckBox
          Left = 8
          Top = 128
          Width = 97
          Height = 17
          Caption = #21487#21542#25490#24207
          TabOrder = 2
          OnClick = ChkReadOnlyClick
        end
        object ChkVisiable: TCheckBox
          Left = 8
          Top = 112
          Width = 97
          Height = 17
          Caption = #26159#21542#26174#31034
          TabOrder = 3
          OnClick = ChkReadOnlyClick
        end
        object ChkReadOnly: TCheckBox
          Left = 8
          Top = 144
          Width = 97
          Height = 17
          Caption = #26159#21542#21482#35835
          TabOrder = 4
          OnClick = ChkReadOnlyClick
        end
        object CbxSumType: TComboBox
          Left = 8
          Top = 184
          Width = 121
          Height = 22
          Style = csOwnerDrawFixed
          ItemHeight = 16
          TabOrder = 5
          OnChange = CbxSumTypeChange
          Items.Strings = (
            #19981#32479#35745
            #26174#31034#25991#23383
            #23383#27573#20540
            #24179#22343#20540
            #35745#25968#20540
            #21512#35745#20540)
        end
        object CmbFieldname: TComboBox
          Left = 8
          Top = 224
          Width = 121
          Height = 22
          Style = csOwnerDrawFixed
          ItemHeight = 16
          TabOrder = 6
          OnChange = CmbFieldnameChange
        end
        object EditSumValue: TLabeledEdit
          Left = 8
          Top = 264
          Width = 121
          Height = 18
          EditLabel.Width = 36
          EditLabel.Height = 12
          EditLabel.Caption = #32479#35745#20540
          TabOrder = 7
          OnChange = EditSumValueChange
        end
      end
    end
  end
end