user.dfm

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

object uform: Tuform
  Left = 234
  Top = 328
  AutoScroll = False
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '顾客购买商品'
  ClientHeight = 364
  ClientWidth = 458
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 232
    Top = 0
    Width = 225
    Height = 337
    BevelInner = bvLowered
    TabOrder = 0
    object Label5: TLabel
      Left = 65
      Top = 21
      Width = 100
      Height = 22
      Caption = ' 消 费 列 表'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = 'News Gothic MT'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 32
      Top = 264
      Width = 43
      Height = 20
      Caption = '总计Y'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 0
      Top = 2
      Width = 48
      Height = 15
      Hint = '现在时刻'
      Caption = 'Label6'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    object StringGrid1: TStringGrid
      Left = 2
      Top = 48
      Width = 225
      Height = 204
      BorderStyle = bsNone
      ColCount = 2
      DefaultColWidth = 123
      FixedCols = 0
      RowCount = 16
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object Edit1: TEdit
      Left = 86
      Top = 265
      Width = 118
      Height = 21
      ReadOnly = True
      TabOrder = 1
      Text = '0'
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 233
    Height = 338
    BevelInner = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 80
      Top = 16
      Width = 72
      Height = 24
      Caption = '用户购买'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 29
      Top = 59
      Width = 64
      Height = 16
      Caption = ' 商 品 编 号'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 29
      Top = 98
      Width = 64
      Height = 16
      Caption = ' 商 品 名 称'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object BitBtn1: TBitBtn
      Left = 135
      Top = 304
      Width = 91
      Height = 25
      Caption = '购买'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = BitBtn1Click
      Kind = bkYes
    end
    object BitBtn2: TBitBtn
      Left = 22
      Top = 304
      Width = 91
      Height = 25
      Caption = '详细信息'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn2Click
      Kind = bkRetry
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 111
      Top = 59
      Width = 104
      Height = 21
      DataField = 'Gid'
      DataSource = DataSource2
      KeyField = 'Goodid'
      ListField = 'Goodid'
      ListSource = DataSource1
      TabOrder = 2
    end
    object DBGrid1: TDBGrid
      Left = 7
      Top = 136
      Width = 224
      Height = 155
      DataSource = DataSource1
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 111
      Top = 98
      Width = 104
      Height = 21
      DataField = 'Gname'
      DataSource = DataSource2
      KeyField = 'Name'
      ListField = 'Name'
      ListSource = DataSource1
      TabOrder = 4
    end
  end
  object Button1: TButton
    Left = 253
    Top = 296
    Width = 76
    Height = 33
    Caption = ' 结账'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 368
    Top = 296
    Width = 76
    Height = 33
    Caption = '退出'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button2Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 339
    Width = 458
    Height = 25
    Panels = <
      item
        Text = '提示信息'
        Width = 50
      end
      item
        Text = 
          '可按编号或名称选择商品，点确认后即可加入消费列表,“购买”自动退' +
          '出。'
        Width = 50
      end>
    SimplePanel = False
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 240
    Top = 16
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'allen'
    TableName = 'goods.db'
    Left = 272
    Top = 16
    object Table1Goodid: TFloatField
      FieldName = 'Goodid'
    end
    object Table1Name: TStringField
      FieldName = 'Name'
      Size = 30
    end
    object Table1Price: TCurrencyField
      FieldName = 'Price'
    end
    object Table1Kind: TStringField
      FieldName = 'Kind'
    end
    object Table1Pdata: TDateField
      FieldName = 'Pdata'
    end
    object Table1Odata: TDateField
      FieldName = 'Odata'
    end
    object Table1Sum: TSmallintField
      FieldName = 'Sum'
    end
    object Table1Lsum: TSmallintField
      FieldName = 'Lsum'
    end
    object Table1Sort: TStringField
      FieldName = 'Sort'
      Size = 25
    end
    object Table1Bmp: TGraphicField
      FieldName = 'Bmp'
      BlobType = ftGraphic
      Size = 100
    end
    object Table1Text: TMemoField
      FieldName = 'Text'
      BlobType = ftMemo
      Size = 240
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 16
    Top = 16
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'allen'
    TableName = 'produce.db'
    Left = 72
    Top = 16
    object Table2Gid: TFloatField
      FieldName = 'Gid'
    end
    object Table2Cid: TFloatField
      FieldName = 'Cid'
    end
    object Table2Gname: TStringField
      FieldName = 'Gname'
      Size = 30
    end
    object Table2Cname: TStringField
      FieldName = 'Cname'
      Size = 80
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 176
    Top = 16
  end
end