mn.~dfm

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

object Main: TMain
  Left = 342
  Top = 162
  AutoScroll = False
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '超市商品管理系统'
  ClientHeight = 75
  ClientWidth = 333
  Color = clBtnFace
  Constraints.MaxHeight = 121
  Constraints.MaxWidth = 341
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = -7
    Top = 59
    Width = 384
    Height = 16
    Hint = '版权所有(C)JL&TH'
    Caption = 
      ' 数 据 库 上 机 作 业     六 院 二 队     金 龙 && 唐辉   商 品 ' +
      '管 理 系 统'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Transparent = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 333
    Height = 57
    Align = alTop
    BevelInner = bvLowered
    BevelWidth = 2
    BorderWidth = 2
    BorderStyle = bsSingle
    TabOrder = 0
    object CloseBtn: TSpeedButton
      Left = 264
      Top = 1
      Width = 66
      Height = 52
      Hint = '关闭'
      Caption = '关闭(&C)'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777777
        777777773FFFFFFFFFFFF333333F888888888888F7F7F7888888888888883333
        33888888888888877F7F788888888888888F333FF88844444400888FFF444444
        88888888888333888883333334D5007FFF433333333338F888F3338F33333333
        345D50FFFF4333333333388788F3338F3333333334D5D0FFFF433333333338F8
        78F3338F33333333345D50FEFE4333333333388788F3338F3333333334D5D0FF
        FF433333333338F878F3338F33333333345D50FEFE4333333333388788F3338F
        3333333334D5D0FFFF433333333338F878F3338F33333333345D50FEFE433333
        3333388788F3338F3333333334D5D0EFEF433333333338F878F3338F33333333
        345D50FEFE4333333333388788F3338F3333333334D5D0EFEF433333333338F8
        F8FFFF8F33333333344444444443333333333888888888833333333333333333
        3333333333333333FFFFFF333333333333300000033333333333333888888F33
        333333333330AAAA0333333333333338FFFF8F33333333333330000003333333
        33333338888883333333}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Spacing = 0
      OnClick = CloseBtnClick
    end
    object manBtn: TSpeedButton
      Left = 66
      Top = 1
      Width = 66
      Height = 52
      Hint = '经理'
      Caption = '经理(&M)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333EEEE33370000000000000003FFFF3337FFFFFFFFFFFFFF0333333337
        FFFFFFFFFFFFFF03CCCC3707FFFFFFFFFFFFFF03FFFF37F7FF4444444444FF03
        333337F7FFFFFFFFFFFFFF03CCCC37F7FF4444444444FF03FFFF37F7FFFFFFFF
        FFFFFF03FFFF37F7FFFFFFFFFFFFFF03FFFF37F7FF4444FF4444FF03FFFF37F7
        FFFFFFFFFFFFFF03FFFF37F7FF4444FF4444FF03FFFF37F7FFFFFFFFFFFFFF03
        FFEE37F7FF4444FF4444FF03091037F7FFFFFFFFFFFFFF0365F037F777777777
        7777777365F037FFFFFFFFFFFFF0333365F03777777777777777333365F03333
        333333333333333365F0}
      Layout = blGlyphTop
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = 0
      OnClick = manBtnClick
    end
    object HelpBtn: TSpeedButton
      Left = 198
      Top = 1
      Width = 66
      Height = 52
      Hint = '帮助'
      Caption = '帮助(&H)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        BE060000424DBE06000000000000360400002800000024000000120000000100
        0800000000008802000000000000000000000001000000010000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8
        A400000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
        03030606030303030303030303030303030303FFFF0303030303030303030303
        0303030303060404060303030303030303030303030303F8F8FF030303030303
        030303030303030303FE06060403030303030303030303030303F8FF03F8FF03
        0303030303030303030303030303FE060603030303030303030303030303F8FF
        FFF8FF0303030303030303030303030303030303030303030303030303030303
        030303F8F8030303030303030303030303030303030304040603030303030303
        0303030303030303FFFF03030303030303030303030303030306060604030303
        0303030303030303030303F8F8F8FF0303030303030303030303030303FE0606
        0403030303030303030303030303F8FF03F8FF03030303030303030303030303
        03FE06060604030303030303030303030303F8FF03F8FF030303030303030303
        030303030303FE060606040303030303030303030303F8FF0303F8FF03030303
        0303030303030303030303FE060606040303030303030303030303F8FF0303F8
        FF030303030303030303030404030303FE060606040303030303030303FF0303
        F8FF0303F8FF030303030303030306060604030303FE06060403030303030303
        F8F8FF0303F8FF0303F8FF03030303030303FE06060604040406060604030303
        030303F8FF03F8FFFFFFF80303F8FF0303030303030303FE0606060606060606
        06030303030303F8FF0303F8F8F8030303F8FF030303030303030303FEFE0606
        060606060303030303030303F8FFFF030303030303F803030303030303030303
        0303FEFEFEFEFE03030303030303030303F8F8FFFFFFFFFFF803030303030303
        0303030303030303030303030303030303030303030303F8F8F8F8F803030303
        0303}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = 0
      OnClick = HelpBtnClick
    end
    object userBtn: TSpeedButton
      Left = 0
      Top = 1
      Width = 66
      Height = 52
      Hint = '顾客'
      Caption = '顾客(&U)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999999999999
        99999C4F0F44400004499CC0F040088880099CC0F008888000099CCF00888007
        88099CCC0888077780499CC0FF80777880499CC0FF00877804499C0FF077F870
        44499C0FF0777F8444499C0F077770F8F4499C0F07770CC084499C007700CCF8
        F4499CC000CCCCCCCC499CCCCCCCCCCCCCC99999999999999999}
      Layout = blGlyphTop
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = 0
      OnClick = userBtnClick
    end
    object desBtn: TSpeedButton
      Left = 132
      Top = 1
      Width = 66
      Height = 52
      Hint = '管理'
      Caption = '管理(&G)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333EEEE33370000000000000003FFFF3337FFFFFFFFFFFFFF0333333337
        FFFFFFFFFFFFFF03CCCC3707FFFFFFFFFFFFFF03FFFF37F7FF4444444444FF03
        333337F7FFFFFFFFFFFFFF03CCCC37F7FF4444444444FF03FFFF37F7FFFFFFFF
        FFFFFF03FFFF37F7FFFFFFFFFFFFFF03FFFF37F7FF4444FF4444FF03FFFF37F7
        FFFFFFFFFFFFFF03FFFF37F7FF4444FF4444FF03FFFF37F7FFFFFFFFFFFFFF03
        FFEE37F7FF4444FF4444FF03091037F7FFFFFFFFFFFFFF0365F037F777777777
        7777777365F037FFFFFFFFFFFFF0333365F03777777777777777333365F03333
        333333333333333365F0}
      Layout = blGlyphTop
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = 0
      OnClick = desBtnClick
    end
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 72
    object N1: TMenuItem
      Caption = '模式'
      object U1: TMenuItem
        Caption = '&U顾客'
        ShortCut = 121
        OnClick = U1Click
      end
      object M1: TMenuItem
        Caption = '&M经理'
        ShortCut = 122
        OnClick = M1Click
      end
      object Z1: TMenuItem
        Caption = '&G管理'
        ShortCut = 123
        OnClick = Z1Click
      end
      object E1: TMenuItem
        Caption = '&E退出'
        OnClick = E1Click
      end
    end
    object N2: TMenuItem
      Caption = '帮助'
      ShortCut = 16449
      object A1: TMenuItem
        Caption = '&A关于...'
        ShortCut = 16449
        OnClick = A1Click
      end
      object H1: TMenuItem
        Caption = '&H使用帮助'
        ShortCut = 16456
        OnClick = H1Click
      end
    end
  end
  object Timer1: TTimer
    Interval = 45
    OnTimer = Timer1Timer
    Left = 56
    Top = 72
  end
end