unposagift.dfm

不错的代码 希望大家喜欢 别忘了看完以后联系我

object FMPOSAGIFT: TFMPOSAGIFT
  Left = 188
  Top = 213
  BorderIcons = []
  BorderStyle = bsToolWindow
  Caption = '输入礼券'
  ClientHeight = 360
  ClientWidth = 700
  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
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 10
    Top = 8
    Width = 113
    Height = 27
    Caption = '礼券编号'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -27
    Font.Name = '新宋体'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 10
    Top = 43
    Width = 141
    Height = 27
    Caption = '礼券到期日'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -27
    Font.Name = '新宋体'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 10
    Top = 78
    Width = 113
    Height = 27
    Caption = '礼券类别'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -27
    Font.Name = '新宋体'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 10
    Top = 113
    Width = 113
    Height = 27
    Caption = '礼券金额'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -27
    Font.Name = '新宋体'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 470
    Top = 113
    Width = 192
    Height = 27
    Caption = '删除一笔 按F12'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -27
    Font.Name = '新宋体'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object BTNQUT: TBitBtn
    Left = 415
    Top = 5
    Width = 281
    Height = 106
    Caption = '完成输入按ESC'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = '新宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BTNQUTClick
  end
  object ED_PGCNO: TJEdit
    Left = 155
    Top = 5
    Width = 250
    Height = 33
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -27
    Font.Name = '新宋体'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 1
    OnKeyDown = ED_PGCNOKeyDown
    Digits = 1
    Max = 999999999
    _EditType = EDIT
    _SHOWCAL = NONE
    _BADINPUT = True
  end
  object ED_PGCDT: TJEdit
    Left = 155
    Top = 40
    Width = 250
    Height = 33
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -27
    Font.Name = '新宋体'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 2
    OnKeyDown = ED_PGCNOKeyDown
    Digits = 1
    Max = 999999999
    _EditType = CDATE_EDIT
    _SHOWCAL = NONE
    _BADINPUT = True
  end
  object ED_PGCKD: TJEdit
    Left = 155
    Top = 75
    Width = 250
    Height = 33
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -27
    Font.Name = '新宋体'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 3
    OnKeyDown = ED_PGCNOKeyDown
    Digits = 1
    Max = 999999999
    _EditType = EDIT
    _SHOWCAL = NONE
    _BADINPUT = True
  end
  object ED_PGCNA: TJEdit
    Left = 155
    Top = 110
    Width = 250
    Height = 33
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -27
    Font.Name = '新宋体'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 4
    OnKeyDown = ED_PGCNOKeyDown
    Digits = 1
    Max = 999999999
    _EditType = INTEGER_EDIT
    _SHOWCAL = NONE
    _BADINPUT = True
  end
  object GIFT_GRID: TStringGrid
    Left = 2
    Top = 146
    Width = 696
    Height = 210
    ColCount = 4
    Ctl3D = False
    DefaultColWidth = 25
    DefaultRowHeight = 25
    FixedCols = 0
    RowCount = 20
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -27
    Font.Name = '宋体'
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goTabs, goRowSelect]
    ParentCtl3D = False
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 5
    OnKeyDown = GIFT_GRIDKeyDown
    ColWidths = (
      233
      170
      120
      148)
  end
  object MainMenu1: TMainMenu
    Left = 620
    Top = 5
    object ESC: TMenuItem
      AutoHotkeys = maAutomatic
      AutoLineReduction = maAutomatic
      Caption = '取消交易ESC'
      ShortCut = 27
      Visible = False
      OnClick = BTNQUTClick
    end
    object F12: TMenuItem
      Caption = '删除一笔'
      ShortCut = 123
      Visible = False
      OnClick = F12Click
    end
  end
end