asc2setup.dfm

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

object ASC2SetupForm: TASC2SetupForm
  Left = 158
  Top = 56
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'ASC2SetupForm'
  ClientHeight = 361
  ClientWidth = 443
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object SpeedButton1: TSpeedButton
    Left = 352
    Top = 56
    Width = 56
    Height = 24
    Caption = '写入'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
      FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
      00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
      F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
      00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
      F033777777777337F73309999990FFF0033377777777FFF77333099999000000
      3333777777777777333333399033333333333337773333333333333903333333
      3333333773333333333333303333333333333337333333333333}
    NumGlyphs = 2
  end
  object PageControl: TPageControl
    Left = 6
    Top = 6
    Width = 431
    Height = 349
    ActivePage = TabSheet3
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '基本参数'
      object InitButton: TSpeedButton
        Left = 252
        Top = 20
        Width = 80
        Height = 24
        Caption = '初始化  '
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
          305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
          005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
          B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
          B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
          B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
          B0557777FF577777F7F500000E055550805577777F7555575755500000555555
          05555777775555557F5555000555555505555577755555557555}
        NumGlyphs = 2
        OnClick = InitButtonClick
      end
      object WriteDateTimeButton: TSpeedButton
        Left = 252
        Top = 48
        Width = 80
        Height = 24
        Caption = '校对时间'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          003337777777777777F330FFFFFFFFFFF03337F333FFFFF337F330FFF70007FF
          F03337F33777773F37F330FF08FFF80FF03337F373333373F7F330F78FFFFF87
          F03337F7F3333337F7F330F0FFFFFFF0F03337F7F333FFF7F7F330F0FFF900F0
          F03337F7F3377737F7F330F0FFF0FFF0F03337F7F337F337F7F330F78FF0FF87
          F03337F73F37F33737F330FF08F0F80FF03337F373F7FF7337F330FFF70007FF
          F03337F33777773FF7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F
          F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00
          333337FFFFFFFF77333330000000000333333777777777733333}
        NumGlyphs = 2
        OnClick = WriteDateTimeButtonClick
      end
      object ReadButton: TSpeedButton
        Left = 252
        Top = 76
        Width = 80
        Height = 24
        Caption = '读出    '
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
          333333333333337FF3333333333333903333333333333377FF33333333333399
          03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
          99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
          99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
          03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
          33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
          33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
          3333777777333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = ReadButtonClick
      end
      object StaticText2: TStaticText
        Left = 22
        Top = 26
        Width = 28
        Height = 16
        Caption = '版本'
        TabOrder = 0
      end
      object VersionEdit: TEdit
        Left = 50
        Top = 22
        Width = 43
        Height = 20
        ReadOnly = True
        TabOrder = 1
      end
      object StaticText13: TStaticText
        Left = 126
        Top = 26
        Width = 28
        Height = 16
        Caption = '类型'
        TabOrder = 2
      end
      object POSTypeEdit: TEdit
        Left = 154
        Top = 22
        Width = 53
        Height = 20
        ReadOnly = True
        TabOrder = 3
      end
      object IDCboBox: TComboBox
        Left = 50
        Top = 48
        Width = 43
        Height = 20
        ItemHeight = 12
        TabOrder = 4
        Text = '01'
        OnChange = IDCboBoxChange
        Items.Strings = (
          '01'
          '02'
          '03'
          '04'
          '05'
          '06'
          '07'
          '08'
          '09'
          '10'
          '11'
          '12'
          '13'
          '14'
          '15'
          '16'
          '17'
          '18'
          '19'
          '20'
          '21'
          '22'
          '23'
          '24'
          '25'
          '26'
          '27'
          '28'
          '29'
          '30'
          '31'
          '32'
          '33'
          '34'
          '35'
          '36'
          '37'
          '38'
          '39'
          '40'
          '41'
          '42'
          '43'
          '44'
          '45'
          '46'
          '47'
          '48'
          '49'
          '50'
          '51'
          '52'
          '53'
          '54'
          '55'
          '56'
          '57'
          '58'
          '59'
          '60'
          '61'
          '62'
          '63'
          '64'
          '65'
          '66'
          '67'
          '68'
          '69'
          '70'
          '71'
          '72'
          '73'
          '74'
          '75'
          '76'
          '77'
          '78'
          '79'
          '80'
          '81'
          '82'
          '83'
          '84'
          '85'
          '86'
          '87'
          '88'
          '89'
          '90'
          '91'
          '92'
          '93'
          '94'
          '95'
          '96'
          '97'
          '98'
          '99')
      end
      object DateTimeEdit: TEdit
        Left = 50
        Top = 78
        Width = 157
        Height = 20
        TabOrder = 5
      end
      object StaticText6: TStaticText
        Left = 22
        Top = 82
        Width = 28
        Height = 16
        Caption = '时间'
        TabOrder = 6
      end
      object StaticText1: TStaticText
        Left = 32
        Top = 52
        Width = 16
        Height = 16
        Caption = 'ID'
        TabOrder = 7
      end
      object Panel1: TPanel
        Left = 16
        Top = 104
        Width = 193
        Height = 23
        BevelOuter = bvNone
        TabOrder = 8
        object Label11: TLabel
          Left = 6
          Top = 5
          Width = 72
          Height = 12
          Caption = '事件记录指针'
        end
        object PtrButton1: TRadioButton
          Left = 88
          Top = 4
          Width = 43
          Height = 17
          Caption = '正常'
          TabOrder = 0
        end
        object PtrButton2: TRadioButton
          Left = 138
          Top = 4
          Width = 53
          Height = 17
          Caption = '校验错'
          TabOrder = 1
        end
      end
      object Panel2: TPanel
        Left = 16
        Top = 128
        Width = 193
        Height = 45
        BevelOuter = bvNone
        TabOrder = 9
        object Label12: TLabel
          Left = 4
          Top = 5
          Width = 60
          Height = 12
          Caption = '事件记录数'
        end
        object TotalButton1: TRadioButton
          Left = 88
          Top = 4
          Width = 43
          Height = 17
          Caption = '正常'
          TabOrder = 0
        end
        object TotalButton2: TRadioButton
          Left = 88
          Top = 24
          Width = 43
          Height = 17
          Caption = '预警'
          TabOrder = 1
        end
        object TotalButton3: TRadioButton
          Left = 138
          Top = 24
          Width = 43
          Height = 17
          Caption = '溢出'
          TabOrder = 2
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '时间表'
      ImageIndex = 1
      object TimeSegGrpBox: TGroupBox
        Left = 10
        Top = 6
        Width = 401
        Height = 307
        Caption = '时间段'
        TabOrder = 0
        object ReadTimeCodeButton: TSpeedButton
          Left = 183
          Top = 19
          Width = 64
          Height = 24
          Caption = '读出'
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
            333333333333337FF3333333333333903333333333333377FF33333333333399
            03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
            99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
            99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
            03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
            33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
            33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
            3333777777333333333333333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = ReadTimeCodeButtonClick
        end
        object WriteTimeCodeButton: TSpeedButton
          Left = 251
          Top = 19
          Width = 64
          Height = 24
          Caption = '写入'
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
            FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
            00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
            F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
            00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
            F033777777777337F73309999990FFF0033377777777FFF77333099999000000
            3333777777777777333333399033333333333337773333333333333903333333
            3333333773333333333333303333333333333337333333333333}
          NumGlyphs = 2
          OnClick = WriteTimeCodeButtonClick
        end
        object Label1: TLabel
          Left = 100
          Top = 52
          Width = 36
          Height = 12
          Caption = '(周日)'
        end