object frmPutup: TfrmPutup
  Left = 195
  Top = 161
  Width = 849
  Height = 455
  Caption = #21253#35013#20837#24211
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 272
    Top = 26
    Height = 402
  end
  object Panel2: TPanel
    Left = 0
    Top = 26
    Width = 272
    Height = 402
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object PageControl2: TPageControl
      Left = 0
      Top = 0
      Width = 272
      Height = 402
      Align = alClient
      TabOrder = 0
    end
    object MytreeList: TdxTreeList
      Left = 0
      Top = 0
      Width = 272
      Height = 402
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      Align = alClient
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      AutoSearchColor = clInfoBk
      AutoSearchTextColor = clBackground
      BandFont.Charset = GB2312_CHARSET
      BandFont.Color = clWindowText
      BandFont.Height = -12
      BandFont.Name = #23435#20307
      BandFont.Style = []
      HeaderFont.Charset = GB2312_CHARSET
      HeaderFont.Color = clWindowText
      HeaderFont.Height = -12
      HeaderFont.Name = #23435#20307
      HeaderFont.Style = []
      LookAndFeel = lfFlat
      Options = [aoColumnSizing, aoColumnMoving, aoEditing, aoTabThrough, aoAutoSort]
      PreviewFont.Charset = DEFAULT_CHARSET
      PreviewFont.Color = clHotLight
      PreviewFont.Height = -12
      PreviewFont.Name = #23435#20307
      PreviewFont.Style = []
      HighlightColor = 12909281
      HighlightTextColor = clBtnText
      TreeLineColor = clGrayText
      HideSelectionColor = 15532031
      ShowRoot = False
      ShowFooter = True
      OnGetFooterCellText = MytreeListGetFooterCellText
      OnIsExistFooterCell = MytreeListIsExistFooterCell
      Data = {
        FFFFFFFF01000000180000000000000000000000FFFFFFFF0000000000000000
        0400000000000000000000000000000000000000}
      object MytreeListColumn4: TdxTreeListColumn
        Visible = False
        Width = 40
        BandIndex = 0
        RowIndex = 0
      end
      object MytreeListColumn1: TdxTreeListColumn
        Caption = #20135#21697#22411#21495
        Color = 15532031
        Width = 123
        BandIndex = 0
        RowIndex = 0
      end
      object MytreeListColumn2: TdxTreeListColumn
        Caption = #20135#21697#21517#31216
        Color = 15532031
        Sorted = csUp
        Width = 83
        BandIndex = 0
        RowIndex = 0
      end
      object MytreeListColumn3: TdxTreeListColumn
        Caption = #26465#30721
        Color = 15532031
        BandIndex = 0
        RowIndex = 0
      end
    end
  end
  object Panel1: TPanel
    Left = 275
    Top = 26
    Width = 566
    Height = 402
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 5
    object PageControl1: TPageControl
      Left = 1
      Top = 97
      Width = 564
      Height = 304
      ActivePage = TabSheet1
      Align = alClient
      Images = ImageList
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #21253#35013#26426#22120#21015#34920' '
        object tlSetWrkGrp: TdxTreeList
          Left = 0
          Top = 0
          Width = 556
          Height = 275
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          Align = alClient
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          AutoSearchColor = clInfoBk
          AutoSearchTextColor = clBackground
          BandFont.Charset = GB2312_CHARSET
          BandFont.Color = clWindowText
          BandFont.Height = -12
          BandFont.Name = #23435#20307
          BandFont.Style = []
          HeaderFont.Charset = GB2312_CHARSET
          HeaderFont.Color = clWindowText
          HeaderFont.Height = -12
          HeaderFont.Name = #23435#20307
          HeaderFont.Style = []
          LookAndFeel = lfFlat
          Options = [aoColumnSizing, aoColumnMoving, aoEditing, aoTabThrough]
          PreviewFont.Charset = DEFAULT_CHARSET
          PreviewFont.Color = clHotLight
          PreviewFont.Height = -12
          PreviewFont.Name = #23435#20307
          PreviewFont.Style = []
          HighlightColor = 12909281
          HighlightTextColor = clBtnText
          TreeLineColor = clGrayText
          HideSelectionColor = 15532031
          ShowRoot = False
          ShowFooter = True
          OnCustomDrawFooter = tlSetWrkGrpCustomDrawFooter
          OnGetFooterCellText = tlSetWrkGrpGetFooterCellText
          OnIsExistFooterCell = tlSetWrkGrpIsExistFooterCell
          Data = {
            FFFFFFFF01000000180000000000000000000000FFFFFFFF0000000000000000
            00000000}
          object dxTreeListColumn1: TdxTreeListColumn
            Caption = #20135#21697#26465#30721
            Color = 15532031
            Sorted = csUp
            Width = 156
            BandIndex = 0
            RowIndex = 0
          end
          object dxTreeListColumn2: TdxTreeListColumn
            Caption = #20135#21697#22411#21495
            Color = 15532031
            Width = 170
            BandIndex = 0
            RowIndex = 0
          end
          object dxTreeListColumn3: TdxTreeListColumn
            Caption = #20135#21697#21517#31216
            Color = 15532031
            Width = 176
            BandIndex = 0
            RowIndex = 0
          end
        end
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 564
      Height = 96
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvNone
      Color = 15002603
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object Label1: TLabel
        Left = 20
        Top = 19
        Width = 60
        Height = 12
        Caption = #21253#35013#26465#30721#65306
      end
      object imgSpeaker: TImage
        Left = 408
        Top = 17
        Width = 18
        Height = 18
        AutoSize = True
        Picture.Data = {
          07544269746D617026040000424D260400000000000036000000280000001200
          0000120000000100180000000000F0030000C40E0000C40E0000000000000000
          0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFF000000008284000000848284FFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000
          8284000000C6C3C6C6C3C6848284FFFFFFFFFFFFFFFFFF848284FFFFFFFFFFFF
          0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000008284848284848284FFFFFF
          FFFFFF848284FFFFFFFFFFFF848284FFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF
          FFFFFFFFFFFF00000000828400FFFF000000C6C3C6FFFFFFFFFFFF848284FFFF
          FF848284FFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF0000000000000082
          8400FFFFFFFFFF000000C6C3C6FFFFFFFFFFFF848284FFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFF0000FFFFFF00000000828484828400FFFFFFFFFF00FFFF00
          0000000000FFFFFFFFFFFF848284FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          0000FFFFFF00828400FFFFC6C3C6FFFFFF00FFFFFFFFFF000000848284000000
          FFFFFF848284FFFFFF848284848284848284848284FFFFFF0000FFFFFF008284
          00FFFFC6C3C600FFFFFFFFFF00FFFF000000C6C3C6000000FFFFFF848284FFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFF008284FFFFFFC6C3C6FFFF
          FF00FFFFFFFFFF000000000000FFFFFFFFFFFF848284FFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFF0000FFFFFFFFFFFF00828400828400FFFFFFFFFF00FFFF00
          0000C6C3C6FFFFFFFFFFFF848284FFFFFF848284FFFFFFFFFFFFFFFFFFFFFFFF
          0000FFFFFFFFFFFFFFFFFFFFFFFF00828400FFFFFFFFFF000000C6C3C6FFFFFF
          FFFFFF848284FFFFFFFFFFFF848284FFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF00828400FFFF848284848284C6C3C6FFFFFF848284FFFF
          FFFFFFFFFFFFFF848284FFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFF00828400FFFF000000C6C3C6C6C3C6FFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
          8284848284000000848284FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000}
        Transparent = True
        Visible = False
      end
      object lblSpeaker: TLabel
        Left = 425
        Top = 19
        Width = 126
        Height = 14
        Caption = '  '#27809#26377#27492#21830#21697#26465#30721#65281
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object btnOk: TSpeedButton
        Left = 488
        Top = 48
        Width = 41
        Height = 34
        Hint = #20445#23384#21253#35013#35760#24405
        Caption = #30830#23450
        Flat = True
        OnClick = tbLeadInClick
      end
      object edtCode: TcxTextEdit
        Left = 80
        Top = 14
        Width = 185
        Height = 20
        TabOrder = 0
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        OnKeyPress = edtCodeKeyPress
      end
      object GroupBox1: TGroupBox
        Left = 26
        Top = 43
        Width = 444
        Height = 43
        Caption = #21830#21697#20449#24687#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object lblProductNo: TLabel
          Left = 21
          Top = 22
          Width = 60
          Height = 12
          Caption = #21830#21697#22411#21495#65306
          Font.Charset = GB2312_CHARSET
          Font.Color = clMaroon
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object lblProductName: TLabel
          Left = 229
          Top = 22
          Width = 60
          Height = 12
          Caption = #21830#21697#21517#31216#65306
          Font.Charset = GB2312_CHARSET
          Font.Color = clMaroon
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
      end
      object grp1: TcxRadioGroup
        Left = 272
        Top = 10
        Width = 128
        Height = 31
        Alignment = alCenterCenter
        ItemIndex = 0
        Properties.Columns = 2
        Properties.Items = <
          item
            Caption = #23567#21253#35013
            Tag = 0
          end
          item
            Caption = #22823#21253#35013
            Tag = 0
          end>
        Properties.ReadOnly = True
        Style.LookAndFeel.Kind = lfUltraFlat
        TabOrder = 2
        OnClick = grp1Click
      end
    end
  end
  object ImageList: TImageList
    Left = 374
    Top = 240
    Bitmap = {
      [encoded data, 67904 characters]
      000000000000}
  end
  object dxBarManager1: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Bars = <
      item
        Caption = 'Custom 1'
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 0
        DockingStyle = dsTop
        FloatLeft = 164
        FloatTop = 132
        FloatClientWidth = 23
        FloatClientHeight = 22
        ItemLinks = <
          item
            Item = btnEnter
            Visible = True
          end
          item
            BeginGroup = True
            Item = dxBarStatic1
            Visible = True
          end
          item
            Item = tishiNum
            UserDefine = [udWidth]
            UserWidth = 79
            Visible = True
          end
          item
            BeginGroup = True
            Item = tbDelSub
            Visible = True
          end
          item
            BeginGroup = True
            Item = tbSumbit
            Visible = False
          end
          item
            Item = tbLeadIn
            Visible = False
          end
          item
            BeginGroup = True
            Item = tbClose
            Visible = True
          end>
        Name = 'Custom 1'
        OneOnRow = True
        Row = 0
        UseOwnFont = False
        Visible = True
        WholeRow = True
      end>
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    Images = ImageList
    PopupMenuLinks = <>
    Style = bmsFlat
    UseSystemFont = True
    Left = 344
    Top = 240
    DockControlHeights = (
      0
      0
      26
      0)
    object tbSumbit: TdxBarButton
      Caption = #30830#23450
      Category = 0
      Hint = #30830#23450
      Visible = ivAlways
      ImageIndex = 1
      PaintStyle = psCaptionGlyph
      OnClick = tbSumbitClick
    end
    object tbDelSub: TdxBarButton
      Caption = #21024#38500
      Category = 0
      Hint = #21024#38500
      Visible = ivAlways
      ImageIndex = 2
      PaintStyle = psCaptionGlyph
      OnClick = tbDelSubClick
    end
    object tbClose: TdxBarButton
      Caption = #20851#38381
      Category = 0
      Hint = #20851#38381
      Visible = ivAlways
      ImageIndex = 3
      PaintStyle = psCaptionGlyph
      OnClick = tbCloseClick
    end
    object tbLeadIn: TdxBarButton
      Caption = #20445#23384#21253#35013#35760#24405'...'
      Category = 0
      Hint = #20445#23384#21253#35013#35760#24405
      Visible = ivAlways
      ImageIndex = 10
      ShortCut = 16467
      OnClick = tbLeadInClick
    end
    object tbLeadOut: TdxBarButton
      Caption = #23548#20986#20018#21495'...'
      Category = 0
      Hint = #23548#20986#20018#21495
      Visible = ivAlways
      ImageIndex = 6
    end
    object btnEnter: TdxBarButton
      Caption = #21253#35013
      Category = 0
      Hint = #21253#35013
      Visible = ivAlways
      ImageIndex = 23
      PaintStyle = psCaptionGlyph
      OnClick = btnEnterClick
    end
    object dxBarButton1: TdxBarButton
      Caption = 'New Item'
      Category = 0
      Hint = 'New Item'
      Visible = ivAlways
    end
    object dxBarButton2: TdxBarButton
      Caption = 'New Item'
      Category = 0
      Hint = #21024#38500#22823#21253#35013#20869#23567#21253#35013
      Visible = ivNever
      ImageIndex = 26
    end
    object tishiNum: TdxBarSpinEdit
      Caption = 'New Item'
      Category = 0
      Hint = 'New Item'
      Visible = ivAlways
      Width = 100
      Value = 40.000000000000000000
    end
    object dxBarStatic1: TdxBarStatic
      Caption = #25552#31034#25968#37327
      Category = 0
      Hint = #25552#31034#25968#37327
      Visible = ivAlways
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = Timer1Timer
    Left = 536
    Top = 82
  end
  object qryCom1: TADOQuery
    Connection = dmPublic.acnDB
    Parameters = <>
    Left = 464
    Top = 196
  end
  object ADOStoredProc1: TADOStoredProc
    Connection = dmPublic.acnDB
    ProcedureName = 'AddStore'
    Parameters = <
      item
        Name = '@CCode'
        Size = -1
        Value = Null
      end>
    Left = 392
    Top = 204
  end
end
