timeclock.dfm

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

            Caption = #26426#21495
          end
          item
            Caption = #21517#31216
            MaxWidth = 1
            Width = 0
          end
          item
            Caption = #36890#20449#31471#21475
            Width = 65
          end
          item
            Caption = #36890#20449#36895#29575
            Width = 65
          end
          item
            Caption = #35774#22791#31867#22411
            Width = 70
          end
          item
            Caption = #29256#26412
            Width = 60
          end
          item
            Caption = #25152#22788#20301#32622
            Width = 80
          end
          item
            Caption = #22312#32447#24773#20917
            Width = 60
          end>
        GridLines = True
        MultiSelect = True
        ReadOnly = True
        RowSelect = True
        SortType = stText
        TabOrder = 4
        ViewStyle = vsReport
        OnDeletion = lvClocksDeletion
        OnSelectItem = lvClocksSelectItem
      end
      object btnIfOnline: TBitBtn
        Left = 472
        Top = 395
        Width = 161
        Height = 21
        Caption = #26816#26597#21015#34920#20013#26426#22120#26159#21542#22312#32447
        TabOrder = 5
        OnClick = btnIfOnlineClick
      end
    end
    object tsLists: TTabSheet
      Caption = #35774#22791#25805#20316
      ImageIndex = 1
      object Label10: TLabel
        Left = 8
        Top = 8
        Width = 51
        Height = 13
        Caption = #21345#21495#26684#24335':'
      end
      object btnOpen: TSpeedButton
        Left = 584
        Top = 80
        Width = 45
        Height = 21
        Hint = #25171#24320#25509#25910#30340#25968#25454#25991#20214
        Caption = #26597#30475
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Microsoft Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = btnOpenClick
      end
      object cbCmdVerifyFirst: TCheckBox
        Left = 274
        Top = 5
        Width = 79
        Height = 17
        Caption = #21629#20196#26657#39564
        TabOrder = 0
      end
      object cbCardStyle: TComboBox
        Left = 96
        Top = 4
        Width = 170
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 1
        Text = #33258#21160#36716#25442
        Items.Strings = (
          #33258#21160#36716#25442
          #19981#36716#25442#26684#24335
          #36716#25442#20026#26032'IC'#21345#26684#24335
          #36716#25442#20026#26087'IC'#21345#26684#24335
          #36716#25442#20026'ID'#21345#26684#24335)
      end
      object btnRead: TButton
        Left = 510
        Top = 80
        Width = 75
        Height = 21
        Caption = #35835#25968#25454'(&D)'
        TabOrder = 2
        OnClick = btnReadClick
      end
      object btnGetTime: TButton
        Left = 510
        Top = 276
        Width = 120
        Height = 25
        Caption = #21462#22238#26102#38388'(&T)'
        TabOrder = 3
        OnClick = btnGetTimeClick
      end
      object btnSetTime: TButton
        Left = 510
        Top = 323
        Width = 120
        Height = 25
        Caption = #35774#32622#26102#38388'(&S)'
        TabOrder = 4
        OnClick = btnSetTimeClick
      end
      object btnSetClockID: TButton
        Left = 510
        Top = 174
        Width = 120
        Height = 25
        Caption = #26426#22120#32534#21495'(&I)'
        TabOrder = 5
        OnClick = btnSetClockIDClick
      end
      object btnSetMark: TButton
        Left = 510
        Top = 225
        Width = 120
        Height = 25
        Caption = #26426#22120#26631#35782'(&M)'
        TabOrder = 6
        OnClick = btnSetMarkClick
      end
      object btnClearData: TButton
        Left = 510
        Top = 125
        Width = 120
        Height = 25
        Caption = #28165#38500#25968#25454'(&C)'
        TabOrder = 7
        OnClick = btnClearDataClick
      end
      object btnClockMode: TButton
        Left = 510
        Top = 29
        Width = 120
        Height = 25
        Caption = #26426#22120#35774#32622'(&R)'
        TabOrder = 8
        OnClick = btnClockModeClick
      end
      object clbDevs: TCheckListBox
        Left = 0
        Top = 28
        Width = 492
        Height = 405
        Columns = 2
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = []
        ItemHeight = 19
        ParentFont = False
        Sorted = True
        TabOrder = 9
      end
    end
    object tsMingdan: TTabSheet
      Caption = #21517#21333#31649#29702
      ImageIndex = 3
      object Label1: TLabel
        Left = 216
        Top = 19
        Width = 59
        Height = 13
        AutoSize = False
        Caption = #21517#21333#31867#22411
      end
      object Label3: TLabel
        Left = 12
        Top = 19
        Width = 58
        Height = 13
        AutoSize = False
        Caption = #36873#25321#26426#22120
      end
      object Label5: TLabel
        Left = 422
        Top = 19
        Width = 48
        Height = 13
        Caption = #21517#21333#23545#35937
      end
      object cbListKind: TComboBox
        Left = 281
        Top = 14
        Width = 118
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        OnChange = cbListKindChange
        Items.Strings = (
          #30333#21517#21333
          #40657#21517#21333)
      end
      object cbDecive: TComboBox
        Left = 79
        Top = 14
        Width = 118
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Sorted = True
        TabOrder = 1
        OnChange = cbDeciveChange
      end
      object btnDeviceAdd: TButton
        Left = 530
        Top = 52
        Width = 112
        Height = 25
        Caption = #28155#21152
        Enabled = False
        TabOrder = 2
        OnClick = btnDeviceAddClick
      end
      object btnDeviceDelete: TButton
        Left = 531
        Top = 92
        Width = 112
        Height = 25
        Caption = #21024#38500
        Enabled = False
        TabOrder = 3
        OnClick = btnDeviceDeleteClick
      end
      object btnClearDeviceList: TButton
        Left = 530
        Top = 173
        Width = 114
        Height = 25
        Caption = #28165#38500#32771#21220#21517#21333
        Enabled = False
        PopupMenu = popClearMD
        TabOrder = 4
        OnClick = btnClearDeviceListClick
      end
      object btnFindCard: TButton
        Left = 530
        Top = 252
        Width = 114
        Height = 25
        Caption = #26597#25214
        Enabled = False
        TabOrder = 5
        OnClick = btnFindCardClick
      end
      object btnReadFile: TButton
        Left = 530
        Top = 132
        Width = 114
        Height = 25
        Caption = #36733#20837#20020#26102#21517#21333#34920
        Enabled = False
        PopupMenu = pmLoad
        TabOrder = 6
        OnClick = btnReadFileClick
      end
      object btnWriteDeviceCardList: TButton
        Left = 530
        Top = 213
        Width = 114
        Height = 25
        Caption = #20889#21517#21333#20837#35774#22791
        Enabled = False
        PopupMenu = pmLists
        TabOrder = 7
        OnClick = btnWriteDeviceCardListClick
      end
      object lvDeviceCards: TdfsExtListView
        Left = -1
        Top = 48
        Width = 517
        Height = 394
        Columns = <
          item
            Caption = #32034#24341#21495
            Width = 0
          end
          item
            Caption = #21345#21495
            Width = 80
          end
          item
            Caption = #32534#21495
            Width = 70
          end
          item
            Caption = #22995#21517
            Width = 80
          end
          item
            Caption = #26159#21542#25554#20837#26426#20855
            Width = 100