unposacard.dfm

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

object FMPOSACARD: TFMPOSACARD
  Left = 111
  Top = 217
  BorderIcons = []
  BorderStyle = bsToolWindow
  Caption = '输入信用卡'
  ClientHeight = 273
  ClientWidth = 492
  Color = 16765872
  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
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 10
    Top = 8
    Width = 165
    Height = 32
    Caption = '信用卡编号'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -32
    Font.Name = '新宋体'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 10
    Top = 48
    Width = 198
    Height = 32
    Caption = '信用卡到期日'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -32
    Font.Name = '新宋体'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 10
    Top = 88
    Width = 165
    Height = 32
    Caption = '信用卡类别'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -32
    Font.Name = '新宋体'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 10
    Top = 128
    Width = 165
    Height = 32
    Caption = '信用卡金额'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -32
    Font.Name = '新宋体'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object BTNQUT: TBitBtn
    Left = 10
    Top = 172
    Width = 475
    Height = 95
    Caption = '完成输入ENTER       退出 ESC'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = '新宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BTNQUTClick
  end
  object ED_PACNO: TJEdit
    Left = 185
    Top = 5
    Width = 300
    Height = 38
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = '新宋体'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 1
    OnKeyDown = ED_PACNOKeyDown
    Digits = 1
    Max = 999999999
    _EditType = EDIT
    _SHOWCAL = NONE
    _BADINPUT = False
    _LONGTIME = False
  end
  object ED_PACDT: TJEdit
    Left = 185
    Top = 45
    Width = 300
    Height = 38
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = '新宋体'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 2
    OnKeyDown = ED_PACNOKeyDown
    Digits = 1
    Max = 999999999
    _EditType = CDATE_EDIT
    _SHOWCAL = NONE
    _BADINPUT = False
    _LONGTIME = False
  end
  object ED_PACKD: TJEdit
    Left = 185
    Top = 85
    Width = 300
    Height = 38
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = '新宋体'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 3
    OnKeyDown = ED_PACNOKeyDown
    Digits = 1
    Max = 999999999
    _EditType = EDIT
    _SHOWCAL = NONE
    _BADINPUT = False
    _LONGTIME = False
  end
  object ED_PACNA: TJEdit
    Left = 185
    Top = 125
    Width = 300
    Height = 38
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = '新宋体'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 4
    OnKeyDown = ED_PACNOKeyDown
    Digits = 1
    Max = 999999999
    _EditType = INTEGER_EDIT
    _SHOWCAL = NONE
    _BADINPUT = False
    _LONGTIME = False
  end
  object MainMenu1: TMainMenu
    Left = 25
    Top = 5
    object ESC: TMenuItem
      Caption = '取消交易ESC'
      ShortCut = 27
      Visible = False
      OnClick = ESCClick
    end
  end
end