clockoptions.dfm

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

object dlgOptions: TdlgOptions
  Left = 431
  Top = 319
  BorderStyle = bsDialog
  Caption = #26426#22120#35774#32622
  ClientHeight = 413
  ClientWidth = 539
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object msg: TLabel
    Left = 8
    Top = 376
    Width = 337
    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 PageControl2: TPageControl
    Left = 5
    Top = 7
    Width = 529
    Height = 361
    ActivePage = tsClockMode
    TabOrder = 0
    OnChange = PageControl2Change
    OnChanging = PageControl2Changing
    object tsClockMode: TTabSheet
      Caption = #36816#34892#27169#24335
      object GroupBox4: TGroupBox
        Left = 5
        Top = 18
        Width = 508
        Height = 167
        Caption = #36890#29992#35774#32622
        TabOrder = 0
        object cbB0: TCheckBox
          Left = 16
          Top = 17
          Width = 220
          Height = 17
          Caption = #26816#26597#30333#21517#21333
          TabOrder = 0
          OnClick = cbA0Click
        end
        object cbB1: TCheckBox
          Left = 16
          Top = 35
          Width = 220
          Height = 17
          Caption = #26816#26597#40657#21517#21333
          TabOrder = 1
          OnClick = cbA0Click
        end
        object cbA7: TCheckBox
          Left = 16
          Top = 71
          Width = 220
          Height = 17
          Caption = #25171#21345#25968#25454#28385#26102#20801#35768#25171#21345
          TabOrder = 2
          OnClick = cbA0Click
        end
        object cbA6: TCheckBox
          Left = 16
          Top = 89
          Width = 220
          Height = 17
          Caption = #37325#22797#21047#21345#38480#21046'('#37325#22797#21047#21345#38388#38548')'
          TabOrder = 3
          OnClick = cbA0Click
        end
        object cbA3: TCheckBox
          Left = 16
          Top = 107
          Width = 220
          Height = 17
          Caption = #38750#21047#21345#26102#27573#23384#20648#25968#25454
          TabOrder = 4
          OnClick = cbA0Click
        end
        object cbB4: TCheckBox
          Left = 16
          Top = 53
          Width = 210
          Height = 17
          Caption = #38750#30333#21517#21333#25171#21345#25253#35686
          TabOrder = 5
          OnClick = cbA0Click
        end
      end
      object GroupBox5: TGroupBox
        Left = 6
        Top = 196
        Width = 507
        Height = 117
        Caption = #25171#38083#35774#32622
        TabOrder = 1
        object cbA4511: TRadioButton
          Left = 16
          Top = 40
          Width = 210
          Height = 17
          Caption = #20869#32622#34562#40483#22120#25171#38083
          TabOrder = 1
          OnClick = cbA0Click
        end
        object cbA4501: TRadioButton
          Left = 16
          Top = 56
          Width = 210
          Height = 17
          Caption = #32487#30005#22120'1'#22806#25509#30005#38083
          TabOrder = 2
          OnClick = cbA0Click
        end
        object cbA4510: TRadioButton
          Left = 16
          Top = 72
          Width = 210
          Height = 17
          Caption = #32487#30005#22120'2'#22806#25509#30005#38083
          TabOrder = 3
          OnClick = cbA0Click
        end
        object cbA450: TRadioButton
          Left = 16
          Top = 24
          Width = 210
          Height = 17
          Caption = #26080#38083#22768
          TabOrder = 0
          OnClick = cbA450Click
        end
      end
    end
    object tsOther: TTabSheet
      Caption = #20854#23427
      ImageIndex = 1
      object gbCardLen: TGroupBox
        Left = 16
        Top = 16
        Width = 225
        Height = 89
        Caption = #21345#21495#38271#24230
        TabOrder = 0
        object Label4: TLabel
          Left = 16
          Top = 27
          Width = 48
          Height = 12
          Caption = #26174#31034#38271#24230
        end
        object Label20: TLabel
          Left = 16
          Top = 51
          Width = 48
          Height = 12
          Caption = #25968#25454#38271#24230
        end
        object edDispLen: TEdit
          Left = 120
          Top = 24
          Width = 33
          Height = 20
          Enabled = False
          MaxLength = 2
          TabOrder = 0
          OnChange = meLockTimeChange
        end
        object edDataLen: TEdit
          Left = 120
          Top = 48
          Width = 33
          Height = 20
          Enabled = False
          MaxLength = 2
          TabOrder = 1
          OnChange = meLockTimeChange
        end
      end
      object gbBrushSpace: TGroupBox
        Left = 264
        Top = 16
        Width = 241
        Height = 89
        Caption = #25171#21345#38388#38548
        TabOrder = 1
        object lbBrushSpace1: TLabel
          Left = 16
          Top = 27
          Width = 48
          Height = 12
          Caption = #33258#30001#21047#21345
        end
        object lbRepeatSpace1: TLabel
          Left = 16
          Top = 51
          Width = 48
          Height = 12
          Caption = #37325#22797#21047#21345
        end
        object lbBrushSpace2: TLabel
          Left = 152
          Top = 27
          Width = 12
          Height = 12
          Caption = #31186
        end
        object lbRepeatSpace2: TLabel
          Left = 152
          Top = 51
          Width = 24
          Height = 12
          Caption = #20998#38047
        end
        object edBrushSpace: TEdit
          Left = 112
          Top = 24
          Width = 33
          Height = 20
          TabOrder = 0
          Text = '0'
          OnChange = meLockTimeChange
          OnExit = edBrushSpaceExit
        end
        object edRepeatSpace: TEdit
          Left = 112
          Top = 48
          Width = 33
          Height = 20
          TabOrder = 1
          Text = '0'
          OnChange = meLockTimeChange
          OnExit = edRepeatSpaceExit
        end
      end
      object gbBrushPeriods: TGroupBox
        Left = 16
        Top = 114
        Width = 225
        Height = 207
        TabOrder = 2
        object sbAddClockTime: TButton
          Left = 16
          Top = 176
          Width = 50
          Height = 22
          Caption = #28155#21152
          TabOrder = 1
          OnClick = sbAddClockTimeClick
        end
        object sbDelClockTime: TButton
          Left = 72
          Top = 176
          Width = 50
          Height = 22
          Caption = #21024#38500
          TabOrder = 2
          OnClick = sbDelClockTimeClick
        end
        object sbReWriteClockTime: TButton
          Left = 128
          Top = 176
          Width = 57
          Height = 22
          Caption = #37325#26032#20889#20837
          TabOrder = 3
          OnClick = sbReWriteClockTimeClick
        end
        object lvClockTime: TListView
          Left = 16
          Top = 24
          Width = 193
          Height = 145
          Columns = <
            item
              Caption = #24320#22987#26102#38388
              Width = 80
            end
            item
              Caption = #32467#26463#26102#38388
              Width = 80
            end>
          HideSelection = False
          MultiSelect = True
          ReadOnly = True
          RowSelect = True
          SortType = stText
          TabOrder = 0
          ViewStyle = vsReport
        end
      end
      object gbRingTimes: TGroupBox
        Left = 264
        Top = 114
        Width = 241
        Height = 207
        Caption = #25171#38083#26102#38388
        TabOrder = 3
        object sbAddRingTime: TButton
          Left = 16
          Top = 176
          Width = 50
          Height = 22
          Caption = #28155#21152
          TabOrder = 1
          OnClick = sbAddRingTimeClick
        end
        object sbDelRingTime: TButton
          Left = 72
          Top = 176
          Width = 50
          Height = 22
          Caption = #21024#38500
          TabOrder = 2
          OnClick = sbDelRingTimeClick
        end
        object sbReWriteRingTime: TButton
          Left = 128
          Top = 176
          Width = 57
          Height = 22
          Caption = #37325#26032#20889#20837
          TabOrder = 3
          OnClick = sbReWriteRingTimeClick
        end
        object lvRingTime: TListView
          Left = 16
          Top = 24
          Width = 209
          Height = 145
          Columns = <
            item
              Caption = #26102
              Width = 44
            end
            item
              Caption = #20998
              Width = 44
            end
            item
              Caption = #31186
              Width = 44
            end
            item
              Caption = #25345#32493
              Width = 60
            end>
          HideSelection = False
          MultiSelect = True
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
        end
      end
      object cbUseClockTime: TCheckBox
        Left = 32
        Top = 112
        Width = 121
        Height = 17
        Caption = #20351#29992#21047#21345#26102#27573
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = cbA0Click
      end
    end
    object tsICCard: TTabSheet
      Caption = 'IC'#21345
      ImageIndex = 2
      object gbGroupCheck: TGroupBox
        Left = 16
        Top = 16
        Width = 489
        Height = 137
        TabOrder = 1
        object Label25: TLabel
          Left = 24
          Top = 32
          Width = 48
          Height = 12
          Caption = #20998#32452#21442#25968
        end
        object Label40: TLabel
          Left = 24
          Top = 91
          Width = 96
          Height = 12
          Caption = #20998#32452#35782#21035#23383#33410#20301#32622