unposa.dfm

主要介绍超市管理系统的后台系统,后台程序是系统初始化和系统维护最常使用的一部分程序,主要任务是建产基本数据,进出货盘点和打印报表.后台程序主要负责的都是管理上的功能,当后台建立完整的数据后,前台才能顺

    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 25
    object ED_DISC_PRICE: TLabel
      Left = 81
      Top = 0
      Width = 36
      Height = 18
      Alignment = taRightJustify
      AutoSize = False
      Caption = '0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 27090
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
  end
  object PANEL_FUNCTION: TPanel
    Left = 125
    Top = 405
    Width = 668
    Height = 86
    Alignment = taLeftJustify
    BevelOuter = bvNone
    BorderWidth = 1
    BorderStyle = bsSingle
    Caption = ' '
    Color = 14806783
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 26
    object BTN_F1: TBitBtn
      Left = 0
      Top = 2
      Width = 65
      Height = 25
      Caption = 'F1  结  帐'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = F1Click
    end
    object BTN_F2: TBitBtn
      Left = 65
      Top = 2
      Width = 65
      Height = 25
      Caption = 'F2  开钱箱'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = F2Click
    end
    object BTN_F3: TBitBtn
      Left = 130
      Top = 2
      Width = 65
      Height = 25
      Caption = 'F3  改数量'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = F3Click
    end
    object BTN_F4: TBitBtn
      Left = 195
      Top = 2
      Width = 65
      Height = 25
      Caption = 'F4  改金额'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = F4Click
    end
    object BTN_F5: TBitBtn
      Left = 0
      Top = 30
      Width = 65
      Height = 25
      Caption = 'F5 信用卡'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = F5Click
    end
    object BTN_F6: TBitBtn
      Left = 65
      Top = 30
      Width = 65
      Height = 25
      Caption = 'F6  礼  券'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = F6Click
    end
    object BTN_F7: TBitBtn
      Left = 130
      Top = 30
      Width = 65
      Height = 25
      Caption = 'F7  统  编'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = F7Click
    end
    object BTN_F8: TBitBtn
      Left = 195
      Top = 30
      Width = 65
      Height = 25
      Caption = 'F8  会员号'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = F8Click
    end
    object BTN_F9: TBitBtn
      Left = 0
      Top = 58
      Width = 65
      Height = 25
      Caption = 'F9  折  扣'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = F9Click
    end
    object BTN_F10: TBitBtn
      Left = 65
      Top = 58
      Width = 65
      Height = 25
      Caption = 'F10 打  折'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnClick = F10Click
    end
    object BTN_F11: TBitBtn
      Left = 130
      Top = 58
      Width = 65
      Height = 25
      Caption = 'F11 暂  存'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      OnClick = F11Click
    end
    object BTN_F12: TBitBtn
      Left = 195
      Top = 58
      Width = 65
      Height = 25
      Caption = 'F12 删  除'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      OnClick = F12Click
    end
    object BTN_CTRLL: TBitBtn
      Left = 345
      Top = 2
      Width = 80
      Height = 25
      Caption = 'Ctrl+L 去尾数'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      OnClick = CTRLLClick
    end
    object BTN_CTRLP: TBitBtn
      Left = 265
      Top = 30
      Width = 80
      Height = 25
      Caption = 'Ctrl+P 打印发票'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 13
      OnClick = CTRLPClick
    end
    object BTN_CTRLN: TBitBtn
      Left = 425
      Top = 2
      Width = 80
      Height = 25
      Caption = 'Ctrl+N 新产品'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 14
      OnClick = CTRLNClick
    end
    object BTN_CTRLC: TBitBtn
      Left = 265
      Top = 58
      Width = 80
      Height = 25
      Caption = 'Ctrl+C 发票数'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 15
      OnClick = CTRLCClick
    end
    object BTN_CTRLI: TBitBtn
      Left = 265
      Top = 2
      Width = 80
      Height = 25
      Caption = 'Ctrl+I 发票号'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 16
      OnClick = CTRLIClick
    end
    object BTN_CTRLB: TBitBtn
      Left = 345
      Top = 30
      Width = 80
      Height = 25
      Caption = 'Ctrl+B 补发票'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 17
      Visible = False
    end
    object BTN_CTRLM: TBitBtn
      Left = 425
      Top = 30
      Width = 80
      Height = 25
      Caption = 'Ctrl+M 新会员'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 18
      OnClick = CTRLMClick
    end
    object BTN_CTRLX: TBitBtn
      Left = 505
      Top = 30
      Width = 80
      Height = 25
      Caption = 'Ctrl+X 重登录'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 19
      OnClick = CTRLXClick
    end
    object BTN_CTRLQ: TBitBtn
      Left = 585
      Top = 30
      Width = 80
      Height = 25
      Caption = 'Ctrl+Q 退出'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 20
      OnClick = CTRLQClick
    end
    object BTN_CTRLV: TBitBtn
      Left = 345
      Top = 58
      Width = 80
      Height = 25
      Caption = 'Ctrl+V 退  货'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 21
      OnClick = CTRLVClick
    end
    object BTN_CTRLZ: TBitBtn
      Left = 505
      Top = 2
      Width = 80
      Height = 25
      Caption = 'Ctrl+Z 输单品'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 22
      OnClick = CTRLZClick
    end
    object BTN_CTRLS: TBitBtn
      Left = 425
      Top = 58
      Width = 80
      Height = 25
      Caption = 'Ctrl+S 查信息'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '新