unit_goods.dfm

美汇美容网网站管理系统

object Form_Goods: TForm_Goods
  Left = 193
  Top = 106
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #21830#21697#31649#29702
  ClientHeight = 453
  ClientWidth = 632
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 632
    Height = 29
    Align = alTop
    AutoSize = True
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 615
      Height = 21
      AutoSize = True
      ButtonHeight = 21
      ButtonWidth = 31
      Caption = 'ToolBar1'
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      ShowCaptions = True
      TabOrder = 0
      object tbInfoAdd: TToolButton
        Left = 0
        Top = 0
        Caption = #26032#22686
        ImageIndex = 0
        OnClick = tbInfoAddClick
      end
      object tbInfoEdit: TToolButton
        Left = 31
        Top = 0
        Caption = #32534#36753
        ImageIndex = 1
        OnClick = tbInfoEditClick
      end
      object tbInfoDel: TToolButton
        Left = 62
        Top = 0
        Caption = #21024#38500
        ImageIndex = 2
        OnClick = tbInfoDelClick
      end
      object ToolButton1: TToolButton
        Left = 93
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object tbInfoList: TToolButton
        Left = 101
        Top = 0
        Caption = #21015#34920
        DropdownMenu = pmInfoList
        ImageIndex = 3
        Style = tbsDropDown
        OnClick = tbInfoListClick
      end
      object tbSearch: TToolButton
        Left = 145
        Top = 0
        Caption = #25628#32034
        DropdownMenu = pmInfoSearch
        ImageIndex = 4
        Style = tbsDropDown
      end
      object ToolButton2: TToolButton
        Left = 189
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object tbClass: TToolButton
        Left = 197
        Top = 0
        Caption = #20998#31867
        DropdownMenu = pmClass
        ImageIndex = 7
        Style = tbsDropDown
      end
      object ToolButton3: TToolButton
        Left = 241
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object tbClose: TToolButton
        Left = 249
        Top = 0
        Caption = #20851#38381
        ImageIndex = 6
        OnClick = tbCloseClick
      end
    end
  end
  object pcGoods: TPageControl
    Left = 0
    Top = 29
    Width = 632
    Height = 424
    ActivePage = tsList
    Align = alClient
    TabOrder = 1
    object tsList: TTabSheet
      Caption = #21830#21697#21015#34920
      TabVisible = False
      object Splitter1: TSplitter
        Left = 185
        Top = 0
        Height = 414
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 185
        Height = 414
        Align = alLeft
        BevelInner = bvLowered
        BevelOuter = bvNone
        TabOrder = 0
        object Panel3: TPanel
          Left = 1
          Top = 1
          Width = 183
          Height = 25
          Align = alTop
          Alignment = taLeftJustify
          Caption = '  '#20998#31867#26816#32034
          TabOrder = 0
        end
        object dbtvClass: TdxDBTreeView
          Left = 1
          Top = 26
          Width = 183
          Height = 387
          Hint = #35831#28857#40736#26631#21491#38190#31649#29702#20998#31867'.'
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          ShowNodeHint = True
          DataSource = dm.dsCommClass
          KeyField = 'iNo'
          ListField = 'vName'
          ParentField = 'iUpNo'
          SeparatedSt = ' - '
          RaiseOnError = True
          Indent = 19
          OnChange = dbtvClassChange
          Align = alClient
          ParentColor = False
          Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
          SelectedIndex = -1
          TabOrder = 1
          PopupMenu = pmClass
          ParentShowHint = False
          ShowHint = True
        end
      end
      object Panel2: TPanel
        Left = 188
        Top = 0
        Width = 436
        Height = 414
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 436
          Height = 25
          Align = alTop
          Alignment = taLeftJustify
          BevelOuter = bvNone
          Caption = '  '#20449#24687#21015#34920
          TabOrder = 0
        end
        object DBGrid1: TDBGrid
          Left = 0
          Top = 25
          Width = 436
          Height = 389
          Align = alClient
          DataSource = dm.dsComm
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          PopupMenu = pmInfoList
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDblClick = DBGrid1DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'vSN'
              Title.Caption = #21830#21697#32534#21495
              Width = 62
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'vName'
              Title.Caption = #21830#21697#21517#31216
              Width = 159
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fCPrice'
              Title.Caption = #26222#36890#20215
              Width = 48
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fSPrice'
              Title.Caption = #20419#38144#20215
              Width = 46
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fEPrice'
              Title.Caption = #20225#19994#20248#24800#20215
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fPPrice'
              Title.Caption = #20250#21592#20248#24800#20215
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'vProducer'
              Title.Caption = #29983#20135#21378#23478
              Width = 68
              Visible = True
            end>
        end
      end
    end
    object tsParticular: TTabSheet
      Caption = #21830#21697#36164#26009
      ImageIndex = 1
      TabVisible = False
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 624
        Height = 414
        Align = alClient
        Caption = #12288#35814#32454#20869#23481#12288
        TabOrder = 0
        object Label4: TLabel
          Left = 16
          Top = 20
          Width = 57
          Height = 12
          AutoSize = False
          Caption = #21830#21697#32534#21495
          FocusControl = dbeSN
        end
        object Label5: TLabel
          Left = 16
          Top = 42
          Width = 48
          Height = 12
          AutoSize = False
          Caption = #21830#21697#21517#31216
          FocusControl = dbeName
        end
        object Label6: TLabel
          Left = 15
          Top = 116
          Width = 48
          Height = 12
          AutoSize = False
          Caption = #21830#21697#20171#32461