personcard.dfm

上传个考勤系统,希望别人也能用.该代码只能算初级的东东,软件代码复用性不高,重复代码比较多.唯一感觉有点取鉴的可能就是端口和dll的连接,还有线程的使用,本想改一改,但是手头没有考勤机了,对应考勤机是

object dlgPersonCard: TdlgPersonCard
  Left = 498
  Top = 350
  BorderStyle = bsDialog
  Caption = #25163#24037#36755#20837#21345#21495
  ClientHeight = 95
  ClientWidth = 256
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 21
    Top = 25
    Width = 70
    Height = 13
    Caption = #36755#20837#21345#21495#65306
  end
  object edInputCard: TEdit
    Left = 98
    Top = 19
    Width = 132
    Height = 23
    MaxLength = 10
    TabOrder = 0
    OnKeyPress = edInputCardKeyPress
  end
  object btnOk: TButton
    Left = 36
    Top = 60
    Width = 75
    Height = 25
    Caption = #25552#20132
    ModalResult = 1
    TabOrder = 1
  end
  object btnCancel: TButton
    Left = 136
    Top = 61
    Width = 75
    Height = 25
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 2
  end
end