unposaf1.dfm

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

object FMPOSAF1: TFMPOSAF1
  Left = 233
  Top = 336
  AutoScroll = False
  Caption = '结帐'
  ClientHeight = 381
  ClientWidth = 712
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ED_OUT_PRICE: TPanel
    Left = 0
    Top = 0
    Width = 712
    Height = 100
    Align = alTop
    BevelOuter = bvNone
    Caption = '总额:99999999元'
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -96
    Font.Name = '新宋体'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 100
    Width = 712
    Height = 281
    Align = alClient
    BevelOuter = bvNone
    Caption = ' '
    Color = 16510418
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = '新宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object LB_TOTAL_CASH: TLabel
      Left = 5
      Top = 232
      Width = 360
      Height = 44
      AutoSize = False
      Caption = '＝应付：'
      Color = 16242845
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -40
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object LB_CARD_PACNA: TLabel
      Left = 5
      Top = 152
      Width = 360
      Height = 32
      AutoSize = False
      Caption = '－刷卡：'
      Color = 16242845
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -32
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Gauge: TGauge
      Left = 380
      Top = 195
      Width = 325
      Height = 50
      ForeColor = clRed
      Progress = 0
    end
    object LB_TOTAL_PRICE: TLabel
      Left = 5
      Top = 82
      Width = 360
      Height = 32
      AutoSize = False
      Caption = '　总计：'
      Color = 16242845
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -32
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object ED_OUT_QTY: TLabel
      Left = 470
      Top = 47
      Width = 250
      Height = 32
      AutoSize = False
      Caption = '数量：'
      Color = 16242845
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -32
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Bevel2: TBevel
      Left = 5
      Top = 220
      Width = 360
      Height = 6
      Shape = bsBottomLine
    end
    object ED_DATE: TLabel
      Left = 470
      Top = 12
      Width = 246
      Height = 32
      AutoSize = False
      Caption = '日期：'
      Color = 16242845
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -32
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object LB_GIFT_PRICE: TLabel
      Left = 5
      Top = 117
      Width = 360
      Height = 32
      AutoSize = False
      Caption = '－礼券：'
      Color = 16242845
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -32
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object LB_DISC_PRICE: TLabel
      Left = 5
      Top = 187
      Width = 360
      Height = 32
      AutoSize = False
      Caption = '－折扣：'
      Color = 16242845
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -32
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Gauge_SUB: TGauge
      Left = 380
      Top = 245
      Width = 325
      Height = 30
      ForeColor = clNavy
      Progress = 0
    end
    object Panel1: TPanel
      Left = 380
      Top = 110
      Width = 325
      Height = 50
      BevelOuter = bvNone
      Caption = ' '
      Color = 9199202
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -27
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      object Label2: TLabel
        Left = 7
        Top = 22
        Width = 124
        Height = 24
        AutoSize = False
        Caption = '返回销货 F6'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -20
        Font.Name = '新宋体'
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label32: TLabel
        Left = 7
        Top = 2
        Width = 124
        Height = 24
        AutoSize = False
        Caption = '取消交易 ESC'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -20
        Font.Name = '新宋体'
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object ED_OUT_KIND: TLabel
        Left = 145
        Top = 22
        Width = 160
        Height = 27
        AutoSize = False
        Caption = '付现金'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -20
        Font.Name = '新宋体'
        Font.Style = []
        ParentFont = False
        Transparent = True
        Visible = False
      end
      object LB_DISC: TLabel
        Left = 145
        Top = 1
        Width = 160
        Height = 27
        AutoSize = False
        Caption = '折扣'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -20
        Font.Name = '新宋体'
        Font.Style = []
        ParentFont = False
        Transparent = True
        Visible = False
      end
    end
    object BTNSAVE: TBitBtn
      Left = 375
      Top = 190
      Width = 330
      Height = 85
      Caption = ' 完成结帐F1'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -27
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ModalResult = 8
      ParentFont = False
      TabOrder = 0
      OnClick = BTNSAVEClick
      NumGlyphs = 2
      Spacing = 10
    end
    object Panel_EXCHANGE: TPanel
      Left = 5
      Top = 5
      Width = 451
      Height = 71
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Caption = ' '
      Color = 16510418
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -40
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      object Label4: TLabel
        Left = 5
        Top = 7
        Width = 84
        Height = 21
        Caption = '收入金额'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = '新宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 5
        Top = 40
        Width = 84
        Height = 21
        Caption = '应找金额'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = '新宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 100
        Top = 3
        Width = 60
        Height = 26
        Alignment = taRightJustify
        AutoSize = False
        Caption = '1000'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = 7699755
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label7: TLabel
        Left = 170
        Top = 3
        Width = 60
        Height = 26
        Alignment = taRightJustify
        AutoSize = False
        Caption = '500'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = 33023
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label8: TLabel
        Left = 235
        Top = 3
        Width = 60
        Height = 26
        Alignment = taRightJustify
        AutoSize = False
        Caption = '100'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = 1131502
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label9: TLabel
        Left = 286
        Top = 3
        Width = 60
        Height = 26
        Alignment = taRightJustify
        AutoSize = False
        Caption = '50'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object ED_OUT_1000: TLabel
        Left = 100
        Top = 37
        Width = 60
        Height = 26
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = 7699755
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Bevel1: TBevel
        Left = 5
        Top = 30
        Width = 435
        Height = 6
        Shape = bsBottomLine
      end
      object ED_OUT_500: TLabel
        Left = 170
        Top = 37
        Width = 60
        Height = 26
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = 33023
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object ED_OUT_100: TLabel
        Left = 235
        Top = 37
        Width = 60
        Height = 26
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = 1131502
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object ED_OUT_50: TLabel
        Left = 286
        Top = 37
        Width = 60
        Height = 26
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object ED_OUT_PAY: TLabel
        Left = 371
        Top = 3
        Width = 60
        Height = 26
        Alignment = taRightJustify
        AutoSize = False
        Caption = '付现'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object ED_OUT_EXCHANGE: TLabel
        Left = 371
        Top = 37
        Width = 60
        Height = 26
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 625
    Top = 5
    object F1: TMenuItem
      Caption = '结帐F1'
      ShortCut = 112
      Visible = False
      OnClick = F1Click
    end
    object F2: TMenuItem
      Caption = '结帐F2'
      ShortCut = 113
      Visible = False
      OnClick = F1Click
    end
    object F3: TMenuItem
      Caption = '结帐F3'
      ShortCut = 114
      Visible = False
      OnClick = F1Click
    end
    object F4: TMenuItem
      Caption = '结帐F3'
      ShortCut = 115
      Visible = False
      OnClick = F1Click
    end
    object F5: TMenuItem
      Caption = '算零钱F4'
      ShortCut = 116
      Visible = False
      OnClick = F5Click
    end
    object F6: TMenuItem
      Caption = '返回F5'
      ShortCut = 117
      Visible = False
      OnClick = F6Click
    end
    object ESC: TMenuItem
      Caption = '取消交易ESC'
      ShortCut = 27
      Visible = False
      OnClick = ESCClick
    end
  end
end