asc2setup.dfm

朗铭科技Ls-810 门禁控制器接口 delphi源程

        Top = 70
        Width = 80
        Height = 24
        Caption = '读出'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
          333333333333337FF3333333333333903333333333333377FF33333333333399
          03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
          99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
          99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
          03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
          33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
          33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
          3333777777333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = ValidCardReadButtonClick
      end
      object StaticText39: TStaticText
        Left = 10
        Top = 16
        Width = 52
        Height = 16
        Caption = '总记录数'
        TabOrder = 0
      end
      object ValidCardCntEdit: TEdit
        Left = 62
        Top = 12
        Width = 40
        Height = 20
        ReadOnly = True
        TabOrder = 1
      end
      object ValidCardStringGrid: TStringGrid
        Left = 10
        Top = 38
        Width = 153
        Height = 273
        ColCount = 2
        DefaultRowHeight = 17
        FixedCols = 0
        RowCount = 193
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
        TabOrder = 2
      end
    end
    object TabSheet7: TTabSheet
      Caption = '读头'
      ImageIndex = 6
      object ReadPropButton: TSpeedButton
        Left = 385
        Top = 215
        Width = 32
        Height = 48
        Caption = '读出'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
          333333333333337FF3333333333333903333333333333377FF33333333333399
          03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
          99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
          99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
          03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
          33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
          33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
          3333777777333333333333333333333333333333333333333333}
        Layout = blGlyphTop
        NumGlyphs = 2
        OnClick = ReadPropButtonClick
      end
      object WritePropButton: TSpeedButton
        Left = 385
        Top = 269
        Width = 32
        Height = 48
        Caption = '写入'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
          FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
          00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
          F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
          00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
          F033777777777337F73309999990FFF0033377777777FFF77333099999000000
          3333777777777777333333399033333333333337773333333333333903333333
          3333333773333333333333303333333333333337333333333333}
        Layout = blGlyphTop
        NumGlyphs = 2
        OnClick = WritePropButtonClick
      end
      object GroupBox1: TGroupBox
        Left = 6
        Top = 4
        Width = 184
        Height = 313
        Caption = '左读头'
        TabOrder = 0
        object Label13: TLabel
          Left = 102
          Top = 52
          Width = 24
          Height = 12
          Caption = '动作'
        end
        object ActiveTimeEditL: TEdit
          Left = 128
          Top = 48
          Width = 28
          Height = 20
          TabOrder = 0
          Text = '60'
        end
        object PasswordEditL: TEdit
          Left = 86
          Top = 20
          Width = 71
          Height = 20
          MaxLength = 7
          TabOrder = 1
          Text = '0'
        end
        object ErrUnknowChkBoxL: TCheckBox
          Left = 10
          Top = 132
          Width = 57
          Height = 17
          Caption = '非法卡'
          TabOrder = 2
        end
        object ErrPINChkBoxL: TCheckBox
          Left = 10
          Top = 154
          Width = 55
          Height = 17
          Caption = '密码错'
          TabOrder = 3
        end
        object ErrDateChkBoxL: TCheckBox
          Left = 10
          Top = 176
          Width = 57
          Height = 17
          Caption = '卡过期'
          TabOrder = 4
        end
        object ErrTimeChkBoxL: TCheckBox
          Left = 10
          Top = 198
          Width = 55
          Height = 17
          Caption = '时间错'
          TabOrder = 5
        end
        object ErrDoorCloseChkBoxL: TCheckBox
          Left = 10
          Top = 242
          Width = 57
          Height = 17
          Caption = '没关门'
          TabOrder = 6
        end
        object ErrDoorOpenChkBoxL: TCheckBox
          Left = 10
          Top = 264
          Width = 59
          Height = 17
          Caption = '撬  门'
          TabOrder = 7
        end
        object ErrPassbackChkBoxL: TCheckBox
          Left = 10
          Top = 220
          Width = 57
          Height = 17
          Caption = '反潜回'
          TabOrder = 8
        end
        object AlarmCountEditL1: TEdit
          Left = 74
          Top = 130
          Width = 20
          Height = 20
          MaxLength = 3
          TabOrder = 9
          Text = '3'
        end
        object AlarmCodeCboBoxL1: TComboBox
          Left = 98
          Top = 130
          Width = 32
          Height = 20
          ItemHeight = 12
          TabOrder = 10
          Text = '1'
          Items.Strings = (
            '1'
            '2'
            '3'
            '4')
        end
        object AlarmCountEditL2: TEdit
          Left = 74
          Top = 152
          Width = 20
          Height = 20
          MaxLength = 3
          TabOrder = 11
          Text = '3'
        end
        object AlarmCodeCboBoxL2: TComboBox
          Left = 98
          Top = 152
          Width = 32
          Height = 20
          ItemHeight = 12
          TabOrder = 12
          Text = '1'
          Items.Strings = (
            '1'
            '2'
            '3'
            '4')
        end
        object AlarmCountEditL3: TEdit
          Left = 74
          Top = 174
          Width = 20
          Height = 20
          MaxLength = 3
          TabOrder = 13
          Text = '3'
        end
        object AlarmCodeCboBoxL3: TComboBox
          Left = 98
          Top = 174
          Width = 32
          Height = 20
          ItemHeight = 12
          TabOrder = 14
          Text = '1'
          Items.Strings = (
            '1'
            '2'
            '3'
            '4')
        end
        object AlarmCountEditL4: TEdit
          Left = 74
          Top = 196
          Width = 20
          Height = 20
          MaxLength = 3
          TabOrder = 15
          Text = '3'
        end
        object AlarmCodeCboBoxL4: TComboBox
          Left = 98
          Top = 196
          Width = 32
          Height = 20
          ItemHeight = 12
          TabOrder = 16
          Text = '1'
          Items.Strings = (
            '1'
            '2'
            '3'
            '4')
        end
        object AlarmCountEditL5: TEdit
          Left = 74
          Top = 218
          Width = 20
          Height = 20
          MaxLength = 3
          TabOrder = 17
          Text = '3'
        end
        object AlarmCodeCboBoxL5: TComboBox
          Left = 98
          Top = 218
          Width = 32
          Height = 20
          ItemHeight = 12
          TabOrder = 18
          Text = '1'
          Items.Strings = (
            '1'
            '2'
            '3'
            '4')
        end
        object AlarmCountEditL6: TEdit
          Left = 74
          Top = 240
          Width = 20
          Height = 20
          MaxLength = 3
          TabOrder = 19
          Text = '3'
        end
        object AlarmCodeCboBoxL6: TComboBox
          Left = 98
          Top = 240
          Width = 32
          Height = 20
          ItemHeight = 12
          TabOrder = 20
          Text = '1'
          Items.Strings = (
            '1'
            '2'
            '3'
            '4')
        end
        object AlarmCountEditL7: TEdit
          Left = 74
          Top = 262
          Width = 20
          Height = 20
          MaxLength = 3
          TabOrder = 21
          Text = '3'
        end
        object AlarmCodeCboBoxL7: TComboBox
          Left = 98
          Top = 262
          Width = 32
          Height = 20
          ItemHeight = 12
          TabOrder = 22
          Text = '1'
          Items.Strings = (
            '1'
            '2'
            '3'
            '4')
        end
        object PasswordChkBoxL: TCheckBox
          Left = 10
          Top = 22
          Width = 67
          Height = 17
          Caption = '通用密码'
          TabOrder = 23
        end
        object PINChkBoxL: TCheckBox
          Left = 10
          Top = 40
          Width = 67
          Height = 17
          Caption = '个人密码'
          TabOrder = 24
        end
        object MstSlvChkBoxL: TCheckBox
          Left = 10
          Top = 58
          Width = 55
          Height = 17
          Caption = '主副卡'
          TabOrder = 25
        end
        object AntiPassBackChkBoxL: TCheckBox
          Left = 10
          Top = 76
          Width = 57
          Height = 17
          Caption = '反潜回'
          TabOrder = 26
        end
        object ExitButtonChkBoxL: TCheckBox
          Left = 10
          Top = 94
          Width = 69
          Height = 17
          Caption = '出门按钮'
          TabOrder = 27
        end
        object LockStatusChkBoxL: TCheckBox
          Left = 102
          Top = 76
          Width = 69
          Height = 17
          Caption = '门锁状态'
          TabOrder = 28
        end
        object AlarmingChkBoxL: TCheckBox
          Left = 10
          Top = 286
          Width = 57
          Height = 17
          Caption = '警  报'
          TabOrder = 29
        end
        object AlarmCountEditL8: TEdit
          Left = 74
          Top = 284
          Width = 20
          Height = 20
          MaxLength = 3
          TabOrder = 30
          Text = '3'
        end
        object AlarmCodeCboB