autoregcard.dfm

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

object dlgRegCard: TdlgRegCard
  Left = 348
  Top = 157
  BorderStyle = bsDialog
  ClientHeight = 249
  ClientWidth = 520
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 8
    Top = 9
    Width = 60
    Height = 13
    Caption = #25805#20316#25552#31034#65306
  end
  object Label1: TLabel
    Left = 80
    Top = 8
    Width = 3
    Height = 13
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object LsCardLog: TMainListview
    Left = 6
    Top = 33
    Width = 505
    Height = 177
    Columns = <
      item
        Caption = 'ID'
        Width = 40
      end
      item
        Caption = #31867#21035
      end
      item
        Caption = #22995#21517
        Width = 80
      end
      item
        Caption = #26087#21345#21495
        Width = 90
      end
      item
        Caption = #26032#21345#21495
        Width = 90
      end
      item
        Caption = #26102#38388
        Width = 136
      end>
    GridLines = True
    TabOrder = 0
    ViewStyle = vsReport
  end
  object btnStart: TButton
    Left = 245
    Top = 220
    Width = 75
    Height = 25
    Caption = #24320#22987
    TabOrder = 1
    OnClick = btnStartClick
  end
  object btnLoop: TButton
    Left = 342
    Top = 220
    Width = 75
    Height = 25
    Caption = #36339#36807
    TabOrder = 2
    OnClick = btnLoopClick
  end
  object btnClose: TButton
    Left = 438
    Top = 220
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 3
    OnClick = btnCloseClick
  end
end