unit7.~dfm

商品管理系统是面向超市类的商品数据库管理系统。其主要功能包括用户购买商品

          Top = 16
          Width = 97
          Height = 25
          Caption = '货物名称'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object CheckBox9: TCheckBox
          Left = 48
          Top = 40
          Width = 121
          Height = 25
          Caption = '货物剩余数量'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object CheckBox10: TCheckBox
          Left = 48
          Top = 64
          Width = 97
          Height = 25
          Caption = '货物型号'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object CheckBox11: TCheckBox
          Left = 48
          Top = 88
          Width = 97
          Height = 25
          Caption = '货物价格'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
        object CheckBox12: TCheckBox
          Left = 48
          Top = 112
          Width = 97
          Height = 25
          Caption = '货物种类'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
      end
      object Button3: TButton
        Left = 32
        Top = 352
        Width = 81
        Height = 33
        Caption = '确定'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 136
        Top = 352
        Width = 81
        Height = 33
        Caption = '取消'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = Button4Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = '进出货价格查询'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 2
      ParentFont = False
      OnContextPopup = TabSheet3ContextPopup
      object RadioGroup1: TRadioGroup
        Left = 8
        Top = 8
        Width = 585
        Height = 193
        Caption = '请选择'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object RadioButton1: TRadioButton
        Left = 35
        Top = 32
        Width = 113
        Height = 17
        Caption = '产品序号'
        Color = clInactiveBorder
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowFrame
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 1
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 35
        Top = 77
        Width = 113
        Height = 17
        Caption = '进货价格'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object RadioButton3: TRadioButton
        Left = 35
        Top = 123
        Width = 113
        Height = 17
        Caption = '零售价格'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object DBComboBox1: TDBComboBox
        Left = 136
        Top = 34
        Width = 145
        Height = 21
        Color = clWhite
        DataField = 'Gid'
        DataSource = datamodule1.DataSource6
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMenuText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = '中文 (简体) - 微软拼音'
        ItemHeight = 13
        ParentFont = False
        TabOrder = 4
      end
      object DBCtrlGrid1: TDBCtrlGrid
        Left = 8
        Top = 216
        Width = 585
        Height = 113
        AllowDelete = False
        AllowInsert = False
        ColCount = 1
        DataSource = datamodule1.DataSource7
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        PanelHeight = 113
        PanelWidth = 567
        ParentFont = False
        TabOrder = 5
        RowCount = 1
        object Label9: TLabel
          Left = 16
          Top = 32
          Width = 52
          Height = 16
          Caption = '产品序号'
        end
        object Label10: TLabel
          Left = 232
          Top = 32
          Width = 52
          Height = 16
          Caption = '产品名称'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 16
          Top = 80
          Width = 52
          Height = 16
          Caption = '进货价格'
        end
        object Label12: TLabel
          Left = 152
          Top = 80
          Width = 52
          Height = 16
          Caption = '零售价格'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 296
          Top = 80
          Width = 52
          Height = 16
          Caption = '批发价格'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 448
          Top = 32
          Width = 91
          Height = 16
          Caption = '单个产品纯利润'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBText1: TDBText
          Left = 464
          Top = 72
          Width = 65
          Height = 17
          DataField = 'Profit'
          DataSource = datamodule1.DataSource7
        end
        object DBEdit3: TDBEdit
          Left = 80
          Top = 24
          Width = 121
          Height = 24
          DataField = 'Gid'
          DataSource = datamodule1.DataSource7
          TabOrder = 0
        end
        object DBEdit4: TDBEdit
          Left = 304
          Top = 24
          Width = 121
          Height = 24
          DataField = 'Gname'
          DataSource = datamodule1.DataSource7
          TabOrder = 1
        end
        object DBEdit5: TDBEdit
          Left = 72
          Top = 72
          Width = 73
          Height = 24
          DataField = 'Preprice'
          DataSource = datamodule1.DataSource7
          TabOrder = 2
        end
        object DBEdit6: TDBEdit
          Left = 208
          Top = 72
          Width = 81
          Height = 24
          DataField = 'Siprice'
          DataSource = datamodule1.DataSource7
          TabOrder = 3
        end
        object DBEdit7: TDBEdit
          Left = 352
          Top = 72
          Width = 73
          Height = 24
          DataField = 'Lotprice'
          DataSource = datamodule1.DataSource7
          TabOrder = 4
        end
      end
      object DBComboBox2: TDBComboBox
        Left = 136
        Top = 119
        Width = 145
        Height = 21
        DataField = 'Siprice'
        DataSource = datamodule1.DataSource6
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        TabOrder = 6
      end
      object DBComboBox3: TDBComboBox
        Left = 136
        Top = 77
        Width = 145
        Height = 21
        DataField = 'Preprice'
        DataSource = datamodule1.DataSource6
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        TabOrder = 7
      end
      object RadioButton4: TRadioButton
        Left = 35
        Top = 168
        Width = 113
        Height = 17
        Caption = '批发价格'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
      end
      object DBComboBox4: TDBComboBox
        Left = 136
        Top = 162
        Width = 145
        Height = 21
        DataField = 'Lotprice'
        DataSource = datamodule1.DataSource6
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        TabOrder = 9
      end
    end
  end
end