putproducet.dfm

万家福超市管理系统 系统是一个全部采用ado技术连接access数据库所以只要保持数据库文件（date）与执行程序(super.exe)的相对位置便可以直接运行

object Put_Form: TPut_Form
  Left = 223
  Top = 165
  Width = 702
  Height = 466
  Caption = #36827#36135#21333
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 689
    Height = 81
    TabOrder = 0
    object Label1: TLabel
      Left = 368
      Top = 40
      Width = 65
      Height = 12
      Caption = #21830#21697#31867#22411#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 96
      Top = 40
      Width = 78
      Height = 12
      Caption = #21830#21697#31867#22411#21495#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 16
      Top = 8
      Width = 340
      Height = 19
      Caption = #28155#21152#21830#21697#21069#35831#30830#23450#24182#36873#25321#22909#21830#21697#31867#22411#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object dbcombobox2: TComboBox
      Left = 176
      Top = 40
      Width = 145
      Height = 21
      ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
      ItemHeight = 13
      TabOrder = 0
      OnChange = DBComboBox2Change
    end
    object dbcombobox1: TComboBox
      Left = 456
      Top = 40
      Width = 145
      Height = 21
      ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
      ItemHeight = 13
      TabOrder = 1
      OnChange = DBComboBox1Change
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 96
    Width = 689
    Height = 337
    Enabled = False
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 0
      Top = 0
      Width = 689
      Height = 161
      DataSource = DataSource2
      ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'id'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Caption = #27969#27700#21495
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clRed
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 48
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'p_id'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Caption = #26465#24418#30721
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clRed
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'p_name'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          Title.Caption = #21517#31216
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -12
          Title.Font.Name = #26999#20307'_GB2312'
          Title.Font.Style = []
          Width = 114
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'p_price'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          Title.Caption = #21333#20215#65288#20803#65289
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -12
          Title.Font.Name = #26999#20307'_GB2312'
          Title.Font.Style = []
          Width = 67
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'p_unit'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          Title.Caption = #35745#37327#21333#20301
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -12
          Title.Font.Name = #26999#20307'_GB2312'
          Title.Font.Style = []
          Width = 96
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'p_type'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Caption = #31867#22411#21495
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clRed
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'p_store'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          Title.Caption = #26368#22823#24211#23384#37327
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -12
          Title.Font.Name = #26999#20307'_GB2312'
          Title.Font.Style = []
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'p_time'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Caption = #20837#24211#26102#38388
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clRed
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 75
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'p_sale'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Caption = #38144#21806#37327
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clRed
          Title.Font.Height = -12
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 73
          Visible = True
        end>
    end
    object GroupBox1: TGroupBox
      Left = 24
      Top = 192
      Width = 273
      Height = 137
      Caption = #26597#35810#21306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object Label8: TLabel
        Left = 24
        Top = 32
        Width = 40
        Height = 12
        Caption = #21830#21697'ID'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 24
        Top = 64
        Width = 52
        Height = 12
        Caption = #21830#21697#21517#31216
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText