gdindex.~dfm

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

object Form9: TForm9
  Left = 258
  Top = 118
  AutoScroll = False
  BorderIcons = [biMinimize, biMaximize]
  Caption = '商品详细信息'
  ClientHeight = 364
  ClientWidth = 477
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 217
    Height = 361
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 16
      Width = 73
      Height = 16
      Caption = '商品编号'
      FocusControl = DBEdit1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 24
      Top = 70
      Width = 48
      Height = 16
      Caption = '商品名称'
      FocusControl = DBEdit2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 24
      Top = 124
      Width = 48
      Height = 16
      Caption = '商品种类'
      FocusControl = DBEdit3
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 24
      Top = 177
      Width = 65
      Height = 16
      Caption = '生产日期'
      FocusControl = DBEdit4
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 144
      Top = 177
      Width = 65
      Height = 16
      Caption = '到期日期'
      FocusControl = DBEdit5
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 144
      Top = 16
      Width = 65
      Height = 16
      Caption = '零售价格'
      FocusControl = DBEdit6
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 24
      Top = 285
      Width = 41
      Height = 16
      Caption = '型号'
      FocusControl = DBEdit7
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 24
      Top = 231
      Width = 73
      Height = 16
      Caption = '剩余数量'
      FocusControl = DBEdit8
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 144
      Top = 231
      Width = 33
      Height = 16
      Caption = '总数'
      FocusControl = DBEdit9
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBEdit1: TDBEdit
      Left = 24
      Top = 43
      Width = 64
      Height = 21
      DataField = 'Goodid'
      DataSource = uform.DataSource1
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 24
      Top = 97
      Width = 124
      Height = 21
      DataField = 'Name'
      DataSource = uform.DataSource1
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 24
      Top = 151
      Width = 124
      Height = 21
      DataField = 'Kind'
      DataSource = uform.DataSource1
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 24
      Top = 204
      Width = 64
      Height = 21
      DataField = 'Pdata'
      DataSource = uform.DataSource1
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 144
      Top = 204
      Width = 64
      Height = 21
      DataField = 'Odata'
      DataSource = uform.DataSource1
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 144
      Top = 43
      Width = 64
      Height = 21
      DataField = 'Price'
      DataSource = uform.DataSource1
      TabOrder = 5
    end
    object DBEdit7: TDBEdit
      Left = 24
      Top = 312
      Width = 121
      Height = 21
      DataField = 'Sort'
      DataSource = uform.DataSource1
      TabOrder = 6
    end
    object DBEdit8: TDBEdit
      Left = 24
      Top = 258
      Width = 64
      Height = 21
      DataField = 'Lsum'
      DataSource = uform.DataSource1
      TabOrder = 7
    end
    object DBEdit9: TDBEdit
      Left = 144
      Top = 258
      Width = 64
      Height = 21
      DataField = 'Sum'
      DataSource = uform.DataSource1
      TabOrder = 8
    end
    object Button1: TButton
      Left = 152
      Top = 310
      Width = 57
      Height = 25
      Caption = '返回'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnClick = Button1Click
    end
  end
  object Panel2: TPanel
    Left = 216
    Top = 0
    Width = 257
    Height = 361
    BevelInner = bvLowered
    TabOrder = 1
    object Label10: TLabel
      Left = 104
      Top = 8
      Width = 64
      Height = 20
      Caption = '实物图像'
      FocusControl = DBImage1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlight
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 104
      Top = 168
      Width = 64
      Height = 20
      Caption = '详细说明'
      FocusControl = DBMemo1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBImage1: TDBImage
      Left = 0
      Top = 24
      Width = 257
      Height = 137
      DataField = 'Bmp'
      DataSource = uform.DataSource1
      TabOrder = 0
    end
    object DBMemo1: TDBMemo
      Left = 0
      Top = 184
      Width = 257
      Height = 177
      DataField = 'Text'
      DataSource = uform.DataSource1
      TabOrder = 1
    end
  end
end