listcard.dfm

一个Delphi写的跟考勤机门禁机收款机的接品软件源码

object dlgListCard: TdlgListCard
  Left = 287
  Top = 178
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  ClientHeight = 157
  ClientWidth = 346
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCloseQuery = FormCloseQuery
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object lbCardId: TLabel
    Left = 16
    Top = 19
    Width = 80
    Height = 15
    AutoSize = False
    Caption = #21345#21495'(&R)'#65306
    FocusControl = edCardNo
  end
  object lbEmpId: TLabel
    Left = 16
    Top = 51
    Width = 80
    Height = 15
    AutoSize = False
    Caption = #24037#21495'(&E)'#65306
    FocusControl = edEmpId
  end
  object lbEmpName: TLabel
    Left = 16
    Top = 83
    Width = 80
    Height = 15
    AutoSize = False
    Caption = #22995#21517'(&N)'#65306
    FocusControl = edEmpName
  end
  object lbChargeMoney: TLabel
    Left = 16
    Top = 83
    Width = 80
    Height = 15
    AutoSize = False
    Caption = #34917#36148#37329#39069'(&M)'
    FocusControl = edChargeMoney
  end
  object edCardNo: TMaskEdit
    Left = 104
    Top = 16
    Width = 226
    Height = 20
    MaxLength = 16
    TabOrder = 0
  end
  object edEmpId: TMaskEdit
    Left = 104
    Top = 48
    Width = 226
    Height = 20
    MaxLength = 6
    TabOrder = 1
    OnKeyPress = edEmpIdKeyPress
  end
  object edEmpName: TMaskEdit
    Left = 104
    Top = 80
    Width = 226
    Height = 20
    MaxLength = 8
    TabOrder = 2
  end
  object btnOK: TButton
    Left = 172
    Top = 124
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    Default = True
    ModalResult = 1
    TabOrder = 4
    OnClick = btnOKClick
  end
  object btnCancel: TButton
    Left = 259
    Top = 124
    Width = 75
    Height = 25
    Cancel = True
    Caption = #21462#28040'(&C)'
    ModalResult = 2
    TabOrder = 5
  end
  object edChargeMoney: TMaskEdit
    Left = 104
    Top = 80
    Width = 226
    Height = 20
    MaxLength = 6
    TabOrder = 3
    OnExit = edChargeMoneyExit
    OnKeyPress = edChargeMoneyKeyPress
  end
end