untitembarcode.dfm

实达企业在线EOL源码

inherited ItemBarCodefrm: TItemBarCodefrm
  Left = 2
  BorderStyle = bsSingle
  Caption = '商品管理'
  Position = poScreenCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited SingleFrame1: TSingleFrame
    Top = 91
    Height = 428
    TabOrder = 1
    inherited Panel1: TPanel
      Height = 428
      inherited Image1: TImage
        Height = 424
      end
    end
  end
  inherited SingleBillFrame1: TSingleBillFrame
    TabOrder = 2
  end
  inherited Panel2: TPanel
    Left = 24
    Top = 112
    Width = 735
    Height = 373
    TabOrder = 3
    inherited Splitter2: TSplitter
      Left = 3
      Height = 369
      Visible = False
    end
    inherited sDBTree1: TsDBTree
      Width = 1
      Height = 369
      Visible = False
      KeyField = 'ItemType'
      UpKeyField = 'ParentCode'
      DisplayFields = 'TypeName'
    end
    inherited PageControl: TPageControl
      Left = 6
      Width = 727
      Height = 369
      inherited TabSheet3: TTabSheet
        inherited wwDBGrid1: TwwDBGrid
          Width = 719
          Height = 185
          Selected.Strings = (
            'ItemNo'#9'20'#9'货号'
            'BarCode'#9'30'#9'条形码'
            'ItemName'#9'20'#9'货名'
            'MeasureMethod'#9'4'#9'单位'
            'ModeSpec'#9'20'#9'规格')
          Align = alTop
        end
        object Panel1: TPanel
          Left = 0
          Top = 185
          Width = 719
          Height = 157
          Align = alClient
          Caption = 'Panel1'
          TabOrder = 1
          object DBMemo1: TDBMemo
            Left = 1
            Top = 1
            Width = 327
            Height = 155
            Align = alClient
            DataField = 'Remark'
            DataSource = dsMast
            TabOrder = 0
          end
          object DBImage1: TDBImage
            Left = 328
            Top = 1
            Width = 390
            Height = 155
            Align = alRight
            DataField = 'Image'
            DataSource = dsMast
            PopupMenu = PopupMenu1
            Stretch = True
            TabOrder = 1
            OnDblClick = DBImage1DblClick
          end
        end
      end
      inherited TabSheet4: TTabSheet
        object Label1: TLabel
          Left = 40
          Top = 177
          Width = 48
          Height = 12
          Caption = '商品类型'
        end
        object Label2: TLabel
          Left = 40
          Top = 150
          Width = 48
          Height = 12
          Caption = '计量方式'
        end
        object Label3: TLabel
          Left = 64
          Top = 20
          Width = 24
          Height = 12
          Caption = '货号'
        end
        object Label4: TLabel
          Left = 64
          Top = 72
          Width = 24
          Height = 12
          Caption = '名称'
        end
        object Label5: TLabel
          Left = 64
          Top = 98
          Width = 24
          Height = 12
          Caption = '规格'
        end
        object Label6: TLabel
          Left = 64
          Top = 229
          Width = 24
          Height = 12
          Caption = '进价'
        end
        object Label7: TLabel
          Left = 52
          Top = 255
          Width = 36
          Height = 12
          Caption = '零售价'
        end
        object Label8: TLabel
          Left = 64
          Top = 46
          Width = 24
          Height = 12
          Caption = '条码'
        end
        object Label12: TLabel
          Left = 248
          Top = 203
          Width = 48
          Height = 12
          Caption = '允许使用'
        end
        object Label13: TLabel
          Left = 248
          Top = 229
          Width = 48
          Height = 12
          Caption = '销售类别'
        end
        object Label9: TLabel
          Left = 64
          Top = 124
          Width = 24
          Height = 12
          Caption = '品牌'
        end
        object Label10: TLabel
          Left = 40
          Top = 203
          Width = 48
          Height = 12
          Caption = '销售柜组'
        end
        object Label11: TLabel
          Left = 52
          Top = 281
          Width = 36
          Height = 12
          Caption = '优惠价'
        end
        object Label14: TLabel
          Left = 52
          Top = 307
          Width = 36
          Height = 12
          Caption = '批发价'
        end
        object Label15: TLabel
          Left = 272
          Top = 20
          Width = 24
          Height = 12
          Caption = '产地'
        end
        object Label16: TLabel
          Left = 272
          Top = 46
          Width = 24
          Height = 12
          Caption = '税率'
        end
        object Label17: TLabel
          Left = 272
          Top = 72
          Width = 24
          Height = 12
          Caption = '保价'
        end
        object Label18: TLabel
          Left = 272
          Top = 98
          Width = 24
          Height = 12
          Caption = '原码'
        end
        object Label19: TLabel
          Left = 272
          Top = 125
          Width = 24
          Height = 12
          Caption = '改价'
        end
        object Label20: TLabel
          Left = 260
          Top = 151
          Width = 36
          Height = 12
          Caption = '新品日'
        end
        object Label21: TLabel
          Left = 260
          Top = 177
          Width = 36
          Height = 12
          Caption = '修改日'
        end
        object edNo: TDBEdit
          Left = 104
          Top = 16
          Width = 121
          Height = 20
          DataField = 'ItemNo'
          DataSource = dsMast
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 104
          Top = 68
          Width = 121
          Height = 20
          DataField = 'ItemName'
          DataSource = dsMast
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 104
          Top = 95
          Width = 121
          Height = 20
          DataField = 'ModeSpec'
          DataSource = dsMast
          TabOrder = 2
        end
        object DBCheckBox4: TDBCheckBox
          Left = 312
          Top = 199
          Width = 17
          Height = 17
          DataField = 'AllowUsed'
          DataSource = dsMast
          TabOrder = 3
          ValueChecked = '1'
          ValueUnchecked = '0'
        end
        object DBEdit4: TDBEdit
          Left = 104
          Top = 225
          Width = 121
          Height = 20
          DataField = 'CostPrice'
          DataSource = dsMast
          TabOrder = 4
        end
        object DBEdit5: TDBEdit
          Left = 104
          Top = 252
          Width = 121
          Height = 20
          DataField = 'StandardPrice'
          DataSource = dsMast
          TabOrder = 5
        end
        object wwDBComboDlg1: TwwDBComboDlg
          Left = 104
          Top = 173
          Width = 121
          Height = 20
          OnCustomDlg = wwDBComboDlg1CustomDlg
          ShowButton = True
          Style = csDropDown
          DataField = 'ItemType'
          DataSource = dsMast
          TabOrder = 6
          UnboundDataType = wwDefault
        end
        object wwDBComboDlg2: TwwDBComboDlg
          Left = 104
          Top = 147
          Width = 121
          Height = 20
          OnCustomDlg = wwDBComboDlg2CustomDlg
          ShowButton = True
          Style = csDropDown
          DataField = 'MeasureMethod'
          DataSource = dsMast
          TabOrder = 7
          UnboundDataType = wwDefault
        end
        object wwDBComboBox1: TwwDBComboBox
          Left = 312
          Top = 225
          Width = 121
          Height = 20
          ShowButton = True
          Style = csDropDown
          MapList = True
          AllowClearKey = False
          DataField = 'SaleType'
          DataSource = dsMast
          DropDownCount = 8
          ItemHeight = 0
          Items.Strings = (
            '普通'#9'0'
            '新品'#9'1'
            '优惠'#9'2'
            '推荐'#9'3')
          Sorted = False
          TabOrder = 8
          UnboundDataType = wwDefault
        end
        object DBEdit1: TDBEdit
          Left = 104
          Top = 42
          Width = 121
          Height = 20
          DataField = 'BarCode'
          DataSource = dsMast
          TabOrder = 9
        end
        object DBEdit6: TDBEdit
          Left = 104
          Top = 121
          Width = 121
          Height = 20
          DataField = 'Trademark'
          DataSource = dsMast
          TabOrder = 10
        end
        object wwDBComboDlg3: TwwDBComboDlg
          Left = 104
          Top = 199
          Width = 121
          Height = 20
          ShowButton = True
          Style = csDropDown
          DataField = 'RackId'
          DataSource = dsMast
          TabOrder = 11
          UnboundDataType = wwDefault
        end
        object DBEdit7: TDBEdit
          Left = 104
          Top = 278
          Width = 121
          Height = 20
          DataField = 'MemberPrice'
          DataSource = dsMast
          TabOrder = 12
        end
        object DBEdit8: TDBEdit
          Left = 104
          Top = 304
          Width = 121
          Height = 20
          DataField = 'SalePrice'
          DataSource = dsMast
          TabOrder = 13
        end
        object DBEdit9: TDBEdit
          Left = 312
          Top = 16
          Width = 121
          Height = 20
          DataField = 'ProdArea'
          DataSource = dsMast
          TabOrder = 14
        end
        object DBEdit10: TDBEdit
          Left = 312
          Top = 42
          Width = 121
          Height = 20
          DataField = 'TaxRate'
          DataSource = dsMast
          TabOrder = 15
        end
        object wwDBComboBox2: TwwDBComboBox
          Left = 312
          Top = 68
          Width = 121
          Height = 20
          ShowButton = True
          Style = csDropDown
          MapList = True
          AllowClearKey = False
          DataField = 'OtherPrice'
          DataSource = dsMast
          DropDownCount = 8
          ItemHeight = 0
          Items.Strings = (
            '保进价'#9'1'
            '保销售价'#9'2'
            '价全保'#9'3'
            '其它'#9'4')
          Sorted = False
          TabOrder = 16
          UnboundDataType = wwDefault
        end
        object wwDBComboBox3: TwwDBComboBox
          Left = 312
          Top = 94
          Width = 121
          Height = 20
          ShowButton = True
          Style = csDropDown
          MapList = True
          AllowClearKey = False
          DataField = 'IsInCode'
          DataSource = dsMast
          DropDownCount = 8
          ItemHeight = 0
          Items.Strings = (
            '甲无'#9'0'
            '甲有'#9'1')
          Sorted = False
          TabOrder = 17
          UnboundDataType = wwDefault
        end
        object DBCheckBox1: TDBCheckBox
          Left = 312
          Top = 121
          Width = 17
          Height = 17
          DataField = 'IsModiPrice'
          DataSource = dsMast
          TabOrder = 18
          ValueChecked = '1'
          ValueUnchecked = '0'
        end
        object wwDBDateTimePicker1: TwwDBDateTimePicker
          Left = 312
          Top = 147
          Width = 121
          Height = 20
          CalendarAttributes.Font.Charset = DEFAULT_CHARSET
          CalendarAttributes.Font.Color = clWindowText
          CalendarAttributes.Font.Height = -11
          CalendarAttributes.Font.Name = 'MS Sans Serif'
          CalendarAttributes.Font.Style = []
          DataField = 'FirstDate'
          DataSource = dsMast
          Epoch = 1950
          Enabled = False
          Interval.RoundMinutes = False
          ShowButton = True
          TabOrder = 19
        end
        object wwDBDateTimePicker2: TwwDBDateTimePicker
          Left = 312
          Top = 173
          Width = 121
          Height = 20
          CalendarAttributes.Font.Charset = DEFAULT_CHARSET
          CalendarAttributes.Font.Color = clWindowText
          CalendarAttributes.Font.Height = -11
          CalendarAttributes.Font.Name = 'MS Sans Serif'
          CalendarAttributes.Font.Style = []
          DataField = 'LastDate'
          DataSource = dsMast
          Epoch = 1950
          Interval.RoundMinutes = False
          ShowButton = True
          TabOrder = 20
        end
      end
    end
  end
  object Panel3: TPanel [3]
    Left = 0
    Top = 50
    Width = 790
    Height = 41
    Align = alTop
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Caption = '请输入条码：'
    TabOrder = 0
    object Edit1: TEdit
      Left = 72
      Top = 8
      Width = 121
      Height = 20
      TabOrder = 0