unitxiangpin.dfm

这是一个很好的超市管理系统

object FrmXiangPin: TFrmXiangPin
  Left = 85
  Top = 86
  Width = 626
  Height = 381
  Caption = #21830#21697#20449#24687#30331#35760
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 152
    Width = 337
    Height = 201
    Caption = #32534#36753#21306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 60
      Height = 13
      Caption = #21830#21697#31867#21035#65306
    end
    object Label2: TLabel
      Left = 8
      Top = 58
      Width = 60
      Height = 13
      Caption = #21830#21697#21517#31216#65306
    end
    object Label3: TLabel
      Left = 8
      Top = 92
      Width = 60
      Height = 13
      Caption = #21830#21697#21333#20301#65306
    end
    object Label4: TLabel
      Left = 8
      Top = 126
      Width = 60
      Height = 13
      Caption = #36827#36135#21333#20215#65306
    end
    object Label5: TLabel
      Left = 176
      Top = 126
      Width = 60
      Height = 13
      Caption = #36827#36135#25968#37327#65306
    end
    object Label7: TLabel
      Left = 176
      Top = 91
      Width = 60
      Height = 13
      Caption = #38144#21806#21333#20215#65306
    end
    object Label10: TLabel
      Left = 176
      Top = 32
      Width = 60
      Height = 13
      Caption = #21830#21697#32534#21495#65306
    end
    object Button1: TButton
      Left = 48
      Top = 160
      Width = 75
      Height = 25
      Caption = #25552#20132#25968#25454
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 200
      Top = 160
      Width = 75
      Height = 25
      Caption = #25918#24323#25552#20132
      TabOrder = 1
      OnClick = Button2Click
    end
    object DBComboBox1: TDBComboBox
      Left = 72
      Top = 24
      Width = 81
      Height = 21
      BevelOuter = bvNone
      BevelKind = bkFlat
      CharCase = ecUpperCase
      DataField = 'prod_sort'
      DataSource = DM.dsADOQXPXX1
      ItemHeight = 13
      TabOrder = 2
      OnChange = DBComboBox1Change
      OnDropDown = DBComboBox1DropDown
    end
    object DBComboBox2: TDBComboBox
      Left = 72
      Top = 90
      Width = 81
      Height = 21
      BevelOuter = bvNone
      BevelKind = bkFlat
      DataField = 'prod_unit'
      DataSource = DM.dsADOQXPXX1
      ItemHeight = 13
      TabOrder = 3
      OnDropDown = DBComboBox2DropDown
    end
    object DBEdit2: TDBEdit
      Left = 72
      Top = 124
      Width = 81
      Height = 21
      BorderStyle = bsNone
      DataField = 'in_price'
      DataSource = DM.dsADOQXPXX1
      TabOrder = 4
    end
    object DBEdit3: TDBEdit
      Left = 240
      Top = 124
      Width = 81
      Height = 21
      BorderStyle = bsNone
      DataField = 'in_number'
      DataSource = DM.dsADOQXPXX1
      TabOrder = 5
    end
    object DBComboBox3: TDBComboBox
      Left = 72
      Top = 57
      Width = 249
      Height = 21
      BevelOuter = bvNone
      BevelKind = bkFlat
      DataField = 'prod_name'
      DataSource = DM.dsADOQXPXX1
      ItemHeight = 13
      TabOrder = 6
      OnDropDown = own
    end
    object DBEdit1: TDBEdit
      Left = 240
      Top = 88
      Width = 81
      Height = 21
      BevelOuter = bvNone
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'prod_price'
      DataSource = DM.dsADOQXPXX1
      TabOrder = 7
    end
    object DBComboBox4: TDBComboBox
      Left = 240
      Top = 24
      Width = 81
      Height = 21
      BevelOuter = bvNone
      BevelKind = bkFlat
      CharCase = ecUpperCase
      DataField = 'prod_id'
      DataSource = DM.dsADOQXPXX1
      ItemHeight = 13
      TabOrder = 8
      OnChange = DBComboBox4Change
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 617
    Height = 145
    DataSource = DM.dsADOQXPXX1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clHotLight
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'prod_sort'
        Title.Caption = #21830#21697#31867#21035
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'prod_id'
        Title.Caption = #21830#21697#32534#21495
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'prod_name'
        Title.Caption = #21830#21697#21517#31216
        Width = 200
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'prod_price'
        Title.Caption = #21830#21697#21333#20215
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'prod_unit'
        Title.Caption = #21830#21697#21333#20301
        Visible = True
      end