select.dfm

delphi作得信息业进销存源码.功能全面,运行稳定.

    Width = 390
    Height = 38
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 0
      Top = 0
      Width = 390
      Height = 38
      Align = alNone
      AutoSize = True
      ButtonHeight = 38
      ButtonWidth = 37
      Caption = 'ToolBar1'
      Ctl3D = False
      EdgeBorders = []
      Flat = True
      Images = frmMain.ilsSub
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = False
      TabOrder = 0
      Wrapable = False
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 79
        Height = 38
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 0
          Top = 10
          Width = 38
          Height = 15
          AutoSize = False
          Caption = '序号: '
        end
        object UpDown1: TUpDown
          Left = 62
          Top = 7
          Width = 17
          Height = 21
          Associate = edtXh
          Min = 0
          Increment = -1
          Position = 0
          TabOrder = 0
          Wrap = False
        end
        object edtXh: TMaskEdit
          Left = 33
          Top = 7
          Width = 29
          Height = 21
          TabOrder = 1
          Text = '0'
          OnChange = edtXhChange
          OnEnter = edtXhEnter
        end
      end
      object ToolButton3: TToolButton
        Left = 79
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object btnNew: TToolButton
        Left = 87
        Top = 0
        Hint = '增加一行新资料 (Insert)'
        AutoSize = True
        Caption = '增加'
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = btnNewClick
      end
      object btnModify: TToolButton
        Left = 128
        Top = 0
        Hint = '修改当前行的资料 (Ctrl+Enter)'
        AutoSize = True
        Caption = '修改'
        ImageIndex = 4
        ParentShowHint = False
        ShowHint = True
        OnClick = btnModifyClick
      end
      object btnDel: TToolButton
        Left = 169
        Top = 0
        Hint = '删除当前行的资料 (Ctrl+Delete)'
        AutoSize = True
        Caption = '删除'
        ImageIndex = 5
        ParentShowHint = False
        ShowHint = True
        OnClick = btnDelClick
      end
      object ToolButton10: TToolButton
        Left = 210
        Top = 0
        Width = 8
        Caption = 'ToolButton10'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object btnUp: TToolButton
        Left = 218
        Top = 0
        Hint = '资料上移一行 (Ctrl+Up)'
        AutoSize = True
        Caption = '上移'
        ImageIndex = 27
        ParentShowHint = False
        ShowHint = True
        OnClick = btnUpClick
      end
      object btnDown: TToolButton
        Left = 259
        Top = 0
        Hint = '资料下移一行 (Ctrl+Down)'
        AutoSize = True
        Caption = '下移'
        ImageIndex = 28
        ParentShowHint = False
        ShowHint = True
        OnClick = btnDownClick
      end
      object ToolButton1: TToolButton
        Left = 300
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 0
        Style = tbsSeparator
      end
      object btnOk: TToolButton
        Left = 308
        Top = 0
        Hint = '选中当前行的资料 (Enter)'
        Caption = '选中'
        ImageIndex = 29
        ParentShowHint = False
        ShowHint = True
        OnClick = btnOkClick
      end
      object ToolButton4: TToolButton
        Left = 345
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object btnExit: TToolButton
        Left = 353
        Top = 0
        Caption = '返回'
        ImageIndex = 2
        OnClick = btnExitClick
      end
    end
  end
  object ItemList: TListBox
    Left = 0
    Top = 38
    Width = 390
    Height = 370
    Align = alClient
    BiDiMode = bdLeftToRight
    DragMode = dmAutomatic
    ItemHeight = 22
    ParentBiDiMode = False
    Style = lbOwnerDrawFixed
    TabOrder = 1
    OnDblClick = btnOkClick
    OnDragDrop = ItemListDragDrop
    OnDragOver = ItemListDragOver
  end
  object Panel3: TPanel
    Left = 0
    Top = 408
    Width = 390
    Height = 25
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object Label2: TLabel
      Left = 5
      Top = 6
      Width = 47
      Height = 15
      AutoSize = False
      Caption = '默认行'
    end
    object CheckBox1: TCheckBox
      Left = 306
      Top = 5
      Width = 82
      Height = 17
      Caption = '自动更新'
      TabOrder = 0
    end
    object edtDefault: TMaskEdit
      Left = 54
      Top = 3
      Width = 34
      Height = 23
      MaxLength = 3
      TabOrder = 1
      OnChange = edtDefaultChange
    end
  end
  object pnlEdit: TPanel
    Left = 2
    Top = 292
    Width = 388
    Height = 24
    Anchors = [akLeft, akTop, akRight]
    BevelInner = bvSpace
    BevelOuter = bvLowered
    Color = clHighlightText
    TabOrder = 3
    object labXh: TLabel
      Left = 2
      Top = 1
      Width = 35
      Height = 21
      AutoSize = False
      Caption = '11. '
      Color = clSilver
      ParentColor = False
      Layout = tlCenter
    end
    object Edit1: TEdit
      Left = 42
      Top = 4
      Width = 339
      Height = 17
      BorderStyle = bsNone
      TabOrder = 0
      Text = 'PU全透明底漆'
      OnExit = Edit1Exit
      OnKeyDown = Edit1KeyDown
    end
  end
end