findlistitem.dfm

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

object dlgFindListItem: TdlgFindListItem
  Left = 487
  Top = 155
  BorderStyle = bsDialog
  Caption = #26597#25214#21015#34920#39033
  ClientHeight = 171
  ClientWidth = 313
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 29
    Top = 24
    Width = 60
    Height = 13
    Caption = #26597#25214#20869#23481#65306
  end
  object Label2: TLabel
    Left = 29
    Top = 61
    Width = 60
    Height = 13
    Caption = #26597#25214#26639#20301#65306
  end
  object Label3: TLabel
    Left = 29
    Top = 102
    Width = 60
    Height = 13
    Caption = #21305#37197#26041#24335#65306
  end
  object edContent: TEdit
    Left = 100
    Top = 21
    Width = 188
    Height = 21
    TabOrder = 0
    OnChange = edContentChange
    OnKeyPress = edContentKeyPress
  end
  object cbFindColumn: TComboBox
    Left = 100
    Top = 58
    Width = 189
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 1
  end
  object cbMatching: TComboBox
    Left = 100
    Top = 98
    Width = 190
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 2
    OnKeyPress = edContentKeyPress
    Items.Strings = (
      #31934#30830#21305#37197
      #21305#37197#20219#20309#37096#20998
      #21305#37197#24320#22836
      #21305#37197#32467#23614
      #19981#21305#37197)
  end
  object btnOk: TButton
    Left = 101
    Top = 136
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    Enabled = False
    ModalResult = 1
    TabOrder = 3
  end
  object Button2: TButton
    Left = 217
    Top = 136
    Width = 75
    Height = 25
    Caption = #21462#28040'(&C)'
    ModalResult = 2
    TabOrder = 4
  end
end