timeclock.dfm

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

          end
          item
            Caption = #26159#21542#26469#33258#32771#21220#31649#29702
            Width = 150
          end>
        ColumnSearch = True
        HideSelection = False
        ExtendedStyles = [lvxGridLines, lvxHeaderDragDrop, lvxFullRowSelect, lvxInfoTip, lvxLabelTip]
        RequireComCtlUpdate = True
        NoColumnResize = False
        ColumnsFormat = <>
        ShowSortArrows = True
        AutoColumnSort = acsSortToggle
        AutoResort = False
        AutoSortAscending = False
        ReverseSortArrows = True
        Style = lvOwnerDrawFixed
        IconOptions.AutoArrange = True
        IconOptions.WrapText = False
        MultiSelect = True
        ParentShowHint = False
        ShowHint = False
        TabOrder = 8
        ViewStyle = vsReport
        OnKeyDown = lvDeviceCardsKeyDown
      end
      object cbCardUser: TComboBox
        Left = 486
        Top = 14
        Width = 118
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Sorted = True
        TabOrder = 9
        OnChange = cbCardUserChange
        Items.Strings = (
          #32769#24072
          #23398#29983)
      end
    end
    object tsRealDevice: TTabSheet
      Caption = #23454#26102#37319#38598
      ImageIndex = 4
      object lvRealDecive: TMainListview
        Left = 2
        Top = 283
        Width = 547
        Height = 150
        Columns = <
          item
            Caption = #26426#22120#21517
          end>
        LargeImages = ImageList1
        SortType = stText
        TabOrder = 0
        OnSelectItem = lvRealDeciveSelectItem
      end
      object btnStart: TButton
        Left = 565
        Top = 289
        Width = 75
        Height = 41
        Caption = #21551#21160
        TabOrder = 1
        OnClick = btnStartClick
      end
      object cbReadCard: TCheckBox
        Left = 569
        Top = 368
        Width = 121
        Height = 20
        Caption = #35835#21345#29255
        Checked = True
        State = cbChecked
        TabOrder = 3
        Visible = False
      end
      object cbSaveRecord: TCheckBox
        Left = 569
        Top = 387
        Width = 121
        Height = 20
        Caption = #20445#23384#35760#24405
        Checked = True
        State = cbChecked
        TabOrder = 2
        Visible = False
      end
      object lvList: TMainListview
        Left = 2
        Top = 4
        Width = 644
        Height = 273
        Columns = <
          item
            Caption = #32467#26524
            Width = 60
          end
          item
            Caption = #21345#21495
            Tag = 1
            Width = 110
          end
          item
            Caption = #26102#38388
            Width = 160
          end
          item
            Caption = #26426#21495
          end
          item
            Caption = #35835#22836
          end
          item
            Caption = #21345#31867#22411
            Width = 80
          end
          item
            Caption = #21517#21333#31867#22411
            Width = 100
          end>
        GridLines = True
        MultiSelect = True
        TabOrder = 4
        ViewStyle = vsReport
      end
      object btnRefreshList: TButton
        Left = 565
        Top = 339
        Width = 75
        Height = 25
        Caption = #21047#26032#21015#34920
        TabOrder = 5
        OnClick = btnRefreshListClick
      end
    end
    object tsRegCard: TTabSheet
      Caption = #32771#21220#31649#29702
      ImageIndex = 5
      object dbStudent: TDBGridEh
        Left = 0
        Top = 136
        Width = 358
        Height = 297
        Align = alCustom
        DataSource = DataSource1
        EvenRowColor = clCream
        FixedColor = clActiveBorder
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        HorzScrollBar.Tracking = True
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        OptionsEh = [dghFixed3D, dghFrozen3D, dghFooter3D, dghResizeWholeRightPart, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText, dghAutoSortMarking, dghMultiSortMarking, dghTraceColSizing, dghIncSearch, dghPreferIncSearch, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind]
        RowHeight = 2
        RowLines = 1
        RowSizingAllowed = True
        STFilter.Local = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        TitleImages = ImageList1
        OnTitleClick = dbStudentTitleClick
      end
      object GroupBox1: TGroupBox
        Left = 4
        Top = 4
        Width = 641
        Height = 125
        Caption = #25209#37327#24320#25143#20449#24687
        TabOrder = 1
        object Label6: TLabel
          Left = 8
          Top = 24
          Width = 32
          Height = 13
          Caption = 'Label6'
        end
        object GroupBox2: TGroupBox
          Left = 11
          Top = 23
          Width = 217
          Height = 90
          Caption = #20154#21592#36873#25321
          TabOrder = 0
          object Label4: TLabel
            Left = 14
            Top = 58
            Width = 36
            Height = 13
            Caption = #37096#38376#65306
          end
          object rbStudent: TRadioButton
            Left = 12
            Top = 24
            Width = 61
            Height = 17
            Caption = ' '#23398'  '#29983
            Checked = True
            TabOrder = 0
            TabStop = True
            OnClick = rbStudentClick
          end
          object rbTeacher: TRadioButton
            Left = 92
            Top = 24
            Width = 60
            Height = 17
            Caption = ' '#25945'  '#24072
            TabOrder = 1
            OnClick = rbTeacherClick
          end
          object cbDepart: TComboBox
            Left = 56
            Top = 54
            Width = 145
            Height = 21
            Style = csDropDownList
            ItemHeight = 0
            TabOrder = 2
            OnChange = cbDepartChange
          end
        end
        object GroupBox4: TGroupBox
          Left = 237
          Top = 23
          Width = 137
          Height = 45
          Caption = #21345#25805#20316#31867#22411
          TabOrder = 1
          object rbOpenUser: TRadioButton
            Left = 10
            Top = 19
            Width = 55
            Height = 17
            Caption = ' '#24320'  '#25143
            Checked = True
            TabOrder = 0
            TabStop = True
            OnClick = rbOpenUserClick
          end
          object rbModifyCard: TRadioButton
            Left = 67
            Top = 18
            Width = 62
            Height = 17
            Caption = ' '#25442'  '#21345
            TabOrder = 1
            OnClick = rbModifyCardClick
          end
        end
        object btnSearchCard: TButton
          Left = 384
          Top = 35
          Width = 75
          Height = 25
          Caption = #26597#35810
          TabOrder = 2
          OnClick = btnSearchCardClick
        end
        object btnRefresh: TButton
          Left = 469
          Top = 35
          Width = 75
          Height = 25
          Caption = #21047#26032#35760#24405
          TabOrder = 3
          OnClick = btnRefreshClick
        end
        object btnGuashi: TButton
          Left = 555
          Top = 34
          Width = 75
          Height = 25
          Caption = #27880#38144'/'#25346#22833
          TabOrder = 4
          OnClick = btnGuashiClick
        end
        object btnOpenUser: TButton
          Left = 384
          Top = 81
          Width = 75
          Height = 25
          Caption = #25209#37327#24320#25143
          TabOrder = 5
          OnClick = btnOpenUserClick
        end
        object btnChangeUser: TButton
          Left = 470
          Top = 81
          Width = 75
          Height = 25
          Caption = #25442#21345
          TabOrder = 6
          OnClick = btnChangeUserClick
        end
        object Button7: TButton
          Left = 556
          Top = 81
          Width = 75
          Height = 25
          Caption = #36864#20986
          TabOrder = 7
        end
        object GroupBox5: TGroupBox
          Left = 237
          Top = 71
          Width = 138
          Height = 42
          Caption = #36873#25321#25805#20316#30340#26426#22120
          TabOrder = 8