searchcard.dfm

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

object dlgSCL: TdlgSCL
  Left = 534
  Top = 70
  BorderStyle = bsDialog
  Caption = #26597#35810
  ClientHeight = 222
  ClientWidth = 289
  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 edID: TEdit
    Left = 102
    Top = 21
    Width = 161
    Height = 21
    TabOrder = 0
  end
  object edOldCard: TEdit
    Left = 103
    Top = 92
    Width = 161
    Height = 21
    MaxLength = 10
    TabOrder = 1
  end
  object cbID: TCheckBox
    Left = 22
    Top = 23
    Width = 67
    Height = 17
    Caption = #32534#21495'(ID)'#65306
    TabOrder = 2
  end
  object cbXsID: TCheckBox
    Left = 22
    Top = 133
    Width = 67
    Height = 17
    Caption = #23398#21495#65306
    TabOrder = 3
  end
  object cbOldCard: TCheckBox
    Left = 22
    Top = 95
    Width = 67
    Height = 17
    Caption = #21345#21495#65306
    TabOrder = 4
  end
  object edName: TEdit
    Left = 102
    Top = 56
    Width = 161
    Height = 21
    TabOrder = 5
  end
  object cbName: TCheckBox
    Left = 22
    Top = 58
    Width = 67
    Height = 17
    Caption = #22995#21517#65306
    TabOrder = 6
  end
  object btnSearch: TButton
    Left = 40
    Top = 176
    Width = 75
    Height = 25
    Caption = #26597#35810
    ModalResult = 1
    TabOrder = 7
  end
  object btnClose: TButton
    Left = 168
    Top = 176
    Width = 75
    Height = 25
    Caption = #20851#38381
    ModalResult = 2
    TabOrder = 8
  end
  object edXsID: TEdit
    Left = 103
    Top = 129
    Width = 161
    Height = 21
    TabOrder = 9
  end
end