timeclock.dfm

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

object frmMain: TfrmMain
  Left = 70
  Top = 135
  Width = 685
  Height = 541
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020100001000400E80200002600000010101000010004002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000001000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000009999999999999999999999000000000
    999BBBBBBBBBBBBBBBBBB9990000000099FBFBFBFBFBFBFBFBFBF89900000000
    9BB000000000000000000FB9000000009BF0FFFFFFFFFFFFFFFF0BB900000000
    9BB0FFFF00F00F00FFFF0FB9000000009BF0FFFF00F00F00FFFF0BB900000000
    9BB0FFFFFFFFFFFFFFFF0FB9000000009BF0FFFF00F00F00FFFF0BB900000000
    9BB0FFFF00F00F00FFFF0FB9000000009BF0FFFFFFFFFFFFFFFF0BB900000000
    9BB0FFFF00F00F00FFFF0FB9000000009BF0FFFF00F00F00FFFF0BB900000000
    9BB0FFFFFFFFFFFFFFFF0FB9000000009BF000000000000000000BB900000000
    998FBFBFBFBFBFBFBFBF8F99000000000000BBBBBBBBBBBBBBBB00000000000B
    BBBB0999999999999990BBBBB00000BBB0000000000000000000000BBB000BBF
    BF8F8F8F8F8F8F8F8F8F8F8FBBB00BBBF8F8F8F8F8F8F8F8F8F8F8F8FBB00BBF
    8F8F8F8F8F8F8F8F8F8F8F8F8FB00BBBF8F8F8F8F8F8F8F8F8F8F8FBFBB00BBF
    BF8F8F8F8F8F8F8F8F8F8FBBBBB000BBB0000000000000000000000BBB00000B
    BBBB0999999999999990BBBBB00000000000BBBBBBBBBBBBBBBB000000000000
    99BBBBBBBBBBBBBBBBBBBB990000000009999999999999999999999000000000
    0000000000000000000000000000FFFFFFFFF800001FF000000FE0000007E000
    0007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E000
    0007E0000007E0000007E0000007E0000007E0000007E0000007C00000038000
    0001000000000000000000000000000000000000000080000001C0000003E000
    0007E0000007F000000FF800001F280000001000000020000000010004000000
    0000C00000000000000000000000100000000000000000000000000080000080
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000099
    999999999900009BBBBBBBBBB900009BFFFFFFFFB900009BFF0F0F0FB900009B
    F0F0F0FFB900009BFF0F0F0FB900009BF0F0F0FFB900009BBBBBBBBBB9000009
    9999999990000B900000000009B00BBBF8F8F8F8FBB00BBF8F8F8F8FBBB00B90
    0000000009B00009BBBBBBBB90000090000000000900C0030000800100008001
    0000800100008001000080010000800100008001000080010000800100000000
    000000000000000000000000000080010000C0030000}
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 471
    Width = 677
    Height = 43
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Label2: TLabel
      Left = 19
      Top = 8
      Width = 48
      Height = 13
      Caption = #28040#24687#26639#65306
    end
    object msg: TLabel
      Left = 72
      Top = 8
      Width = 401
      Height = 33
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object edInspector: TStaticText
      Left = 632
      Top = 10
      Width = 33
      Height = 17
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSunken
      Caption = #33073#26426
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ShowAccelChar = False
      TabOrder = 0
      OnDblClick = edInspectorDblClick
    end
  end
  object PageControl1: TPageControl
    Left = 10
    Top = 5
    Width = 657
    Height = 464
    ActivePage = tsMingdan
    TabOrder = 1
    OnChange = PageControl1Change
    object tsBaseOP: TTabSheet
      Tag = 56
      Caption = #35774#22791#31649#29702
      object spAddClock: TButton
        Left = 472
        Top = 333
        Width = 70
        Height = 22
        Caption = #28155#21152
        TabOrder = 0
        OnClick = spAddClockClick
      end
      object sbDelClock: TButton
        Left = 560
        Top = 334
        Width = 75
        Height = 21
        Caption = #21024#38500
        TabOrder = 1
        OnClick = sbDelClockClick
      end
      object btnSearch: TButton
        Left = 473
        Top = 366
        Width = 161
        Height = 20
        Caption = #33258#21160#25628#23547
        TabOrder = 2
        OnClick = btnSearchClick
      end
      object GroupBox3: TGroupBox
        Left = 472
        Top = 16
        Width = 161
        Height = 297
        Caption = #31471#21475#35774#32622
        TabOrder = 3
        object Label28: TLabel
          Left = 8
          Top = 68
          Width = 27
          Height = 13
          Caption = #31471#21475':'
        end
        object Label30: TLabel
          Left = 8
          Top = 104
          Width = 27
          Height = 13
          Caption = #36895#29575':'
        end
        object Label31: TLabel
          Left = 8
          Top = 32
          Width = 27
          Height = 13
          Caption = #26426#21495':'
        end
        object Label47: TLabel
          Left = 8
          Top = 138
          Width = 27
          Height = 13
          Caption = #22411#21495':'
        end
        object Label12: TLabel
          Left = 8
          Top = 171
          Width = 27
          Height = 13
          Caption = #29256#26412':'
        end
        object Label7: TLabel
          Left = 8
          Top = 203
          Width = 51
          Height = 13
          Caption = #25152#22788#20301#32622':'
        end
        object cbPort: TComboBox
          Left = 72
          Top = 66
          Width = 80
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          Sorted = True
          TabOrder = 1
          Items.Strings = (
            'COM1'
            'COM2'
            'COM3'
            'COM4'
            'COM5'
            'COM6')
        end
        object cbRate: TComboBox
          Left = 72
          Top = 100
          Width = 80
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 2
          Items.Strings = (
            '9600'
            '19200'
            '38400'
            '57600'
            '115200')
        end
        object edClockID: TEdit
          Left = 72
          Top = 32
          Width = 80
          Height = 21
          MaxLength = 2
          TabOrder = 0
          Text = '01'
        end
        object edClockType: TComboBox
          Left = 72
          Top = 133
          Width = 80
          Height = 21
          ItemHeight = 13
          TabOrder = 3
          Text = #33258#21160#35782#21035
          Items.Strings = (
            #33258#21160#35782#21035
            '210'
            '610'
            '680'
            '690'
            '710'
            '730'
            '810'
            '830'
            '880'
            '889'
            '890'
            '900'
            '980'
            '981')
        end
        object cbICID: TCheckBox
          Left = 9
          Top = 241
          Width = 97
          Height = 17
          Caption = #26159#21542'IC'
          Checked = True
          State = cbChecked
          TabOrder = 5
        end
        object edFireware: TComboBox
          Left = 72
          Top = 167
          Width = 80
          Height = 21
          AutoDropDown = True
          ItemHeight = 13
          TabOrder = 4
          Items.Strings = (
            '1.0'
            '1.25'
            '1.28'
            '1.29'
            '1.30'
            '1.32')
        end
        object Mconnstr: TMemo
          Left = 104
          Top = 254
          Width = 57
          Height = 33
          Lines.Strings = (
            'Memo1')
          TabOrder = 6
          Visible = False
        end
        object cbCmdVerify: TCheckBox
          Left = 10
          Top = 261
          Width = 97
          Height = 17
          Caption = #36890#35759#21629#20196#26657#39564
          TabOrder = 7
        end
        object edPlace: TEdit
          Left = 73
          Top = 200
          Width = 80
          Height = 21
          MaxLength = 20
          TabOrder = 8
        end
      end
      object lvClocks: TListView
        Left = 0
        Top = 0
        Width = 465
        Height = 436
        Align = alLeft
        Columns = <
          item