searchlog.dfm

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

object dlgSearchLog: TdlgSearchLog
  Left = 87
  Top = 91
  BorderStyle = bsDialog
  Caption = #26597#35810#25805#20316#35760#24405
  ClientHeight = 341
  ClientWidth = 303
  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 = 111
    Top = 12
    Width = 167
    Height = 21
    TabOrder = 0
  end
  object edName: TEdit
    Left = 111
    Top = 44
    Width = 168
    Height = 21
    TabOrder = 1
  end
  object edNewCard: TEdit
    Left = 111
    Top = 77
    Width = 168
    Height = 21
    TabOrder = 2
  end
  object cbID: TCheckBox
    Left = 26
    Top = 14
    Width = 57
    Height = 17
    Caption = #32534#21495#65306
    TabOrder = 3
  end
  object cbName: TCheckBox
    Left = 26
    Top = 47
    Width = 57
    Height = 17
    Caption = #22995#21517#65306
    TabOrder = 4
  end
  object cbNewCard: TCheckBox
    Left = 26
    Top = 79
    Width = 69
    Height = 17
    Caption = #26032#21345#21495#65306
    TabOrder = 5
  end
  object edOldCard: TEdit
    Left = 111
    Top = 108
    Width = 168
    Height = 21
    TabOrder = 6
  end
  object cbOldCard: TCheckBox
    Left = 26
    Top = 110
    Width = 69
    Height = 17
    Caption = #26087#21345#21495#65306
    TabOrder = 7
  end
  object GroupBox1: TGroupBox
    Left = 13
    Top = 134
    Width = 282
    Height = 85
    Caption = #26102#38388#36873#25321
    TabOrder = 8
    object Label1: TLabel
      Left = 28
      Top = 55
      Width = 60
      Height = 13
      Caption = #32467#26463#26102#38388#65306
    end
    object edStartTime: TEdit
      Left = 98
      Top = 17
      Width = 168
      Height = 21
      TabOrder = 0
    end
    object edEndTime: TEdit
      Left = 97
      Top = 50
      Width = 168
      Height = 21
      TabOrder = 1
    end
    object cbTime: TCheckBox
      Left = 12
      Top = 21
      Width = 85
      Height = 17
      Caption = #24320#22987#26102#38388#65306
      TabOrder = 2
    end
  end
  object ckUser: TCheckBox
    Left = 25
    Top = 229
    Width = 79
    Height = 17
    Caption = #25805#20316#23545#35937#65306
    TabOrder = 9
  end
  object cbUser: TComboBox
    Left = 111
    Top = 226
    Width = 170
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 10
    Items.Strings = (
      #23398#29983
      #32769#24072)
  end
  object cbType: TComboBox
    Left = 111
    Top = 259
    Width = 170
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 11
    Items.Strings = (
      #27880#20876
      #25442#21345
      #27880#38144)
  end
  object ckType: TCheckBox
    Left = 25
    Top = 262
    Width = 79
    Height = 17
    Caption = #35760#24405#31867#22411#65306
    TabOrder = 12
  end
  object btnSearch: TButton
    Left = 45
    Top = 299
    Width = 75
    Height = 25
    Caption = #26597#35810
    ModalResult = 1
    TabOrder = 13
  end
  object btnClose: TButton
    Left = 184
    Top = 299
    Width = 75
    Height = 25
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 14
  end
end