settest.~dfm

delphi6.0电子寻更源程序,用来计算保安有无查抄

object settestform: Tsettestform
  Left = 255
  Top = 140
  Width = 745
  Height = 323
  BorderIcons = [biSystemMenu]
  Caption = '設置巡更棒'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 737
    Height = 277
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 0
    object hide1: TLabel
      Left = 616
      Top = 48
      Width = 7
      Height = 13
    end
    object Label5: TLabel
      Left = 512
      Top = 7
      Width = 67
      Height = 16
      AutoSize = False
      Caption = '測試結果：'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Image1: TImage
      Left = 581
      Top = 5
      Width = 26
      Height = 20
      Picture.Data = {
        07544269746D617036030000424D360300000000000036000000280000001000
        000010000000010018000000000000030000C40E0000C40E0000000000000000
        0000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0
        C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CF
        D0C0CFD0C0CFD0000000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0
        CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0000000000000000000C0CFD0
        C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CF
        D0C0CFD0000000BFBFBF000000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0
        CFD0C0CFD0C0CFD000FFFFC0CFD0C0CFD000FFFF00000000000000000000FFFF
        C0CFD0C0CFD000FFFFC0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD000FFFF00FF
        FF00FFFF00000000FFFF00000000FFFF00FFFF00FFFFC0CFD0C0CFD0C0CFD0C0
        CFD0C0CFD0C0CFD0C0CFD000FFFF00FFFF00FFFF000000FFFFFF00000000FFFF
        00FFFF00FFFFC0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD000FFFF00FFFF00FF
        FF000000FFFFFF7F7F7FFFFFFF00000000FFFF00FFFF00FFFFC0CFD0C0CFD0C0
        CFD0C0CFD0C0CFD000FFFF00FFFF000000FFFFFF00FFFF7F7F7F00FFFFFFFFFF
        00000000FFFF00FFFFC0CFD0C0CFD0C0CFD000FFFF00FFFF00FFFF00FFFF0000
        0000FFFFFFFFFF7F7F7FFFFFFF00FFFF00000000FFFF00FFFF00FFFF00FFFFC0
        CFD0C0CFD0C0CFD000FFFF00FFFF000000FFFFFF00FFFFFFFFFF00FFFFFFFFFF
        00000000FFFF00FFFFC0CFD0C0CFD0C0CFD0C0CFD0C0CFD000FFFF00FFFF00FF
        FF000000FFFFFF00FFFFFFFFFF00000000FFFF00FFFF00FFFFC0CFD0C0CFD0C0
        CFD0C0CFD0C0CFD0C0CFD000FFFF00FFFF00FFFF00000000000000000000FFFF
        00FFFF00FFFFC0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD000FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFFC0CFD0C0CFD0C0CFD0C0
        CFD0C0CFD0C0CFD000FFFFC0CFD0C0CFD000FFFF00FFFF00FFFF00FFFF00FFFF
        C0CFD0C0CFD000FFFFC0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CF
        D0C0CFD0C0CFD000FFFFC0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0
        CFD0}
      Visible = False
    end
    object Image2: TImage
      Left = 581
      Top = 5
      Width = 26
      Height = 20
      Picture.Data = {
        07544269746D617042030000424D420300000000000036000000280000001100
        00000F00000001001800000000000C030000C40E0000C40E0000000000000000
        0000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0
        C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD000C0CFD0C0CFD0C0CFD0C0
        CFD0C0CFD0C0CFD0C0CFD0000000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0
        C0CFD0C0CFD0C0CFD000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD000000000
        0000000000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD000C0CF
        D0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0000000BFBFBF000000C0CFD0C0CFD0C0
        CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD000C0CFD0C0CFD0C0CFD0C0CFD0C0CF
        D0C0CFD0000000000000000000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0
        CFD0C0CFD000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0000000FFFFFF0000
        00C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD000C0CFD0C0CFD0
        C0CFD0C0CFD0C0CFD0C0CFD0000000FFFFFF000000C0CFD0C0CFD0C0CFD0C0CF
        D0C0CFD0C0CFD0C0CFD0C0CFD000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0000000
        FFFFFF7F7F7FFFFFFF000000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CF
        D000C0CFD0C0CFD0C0CFD0C0CFD0000000FFFFFFFFFFFF7F7F7FFFFFFFFFFFFF
        000000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD000C0CFD0C0CFD0C0CFD0C0
        CFD0000000FFFFFFFFFFFF7F7F7FFFFFFFFFFFFF000000C0CFD0C0CFD0C0CFD0
        C0CFD0C0CFD0C0CFD000C0CFD0C0CFD0C0CFD0C0CFD0000000FFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFF000000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD000C0CF
        D0C0CFD0C0CFD0C0CFD0C0CFD0000000FFFFFFFFFFFFFFFFFF000000C0CFD0C0
        CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD000C0CFD0C0CFD0C0CFD0C0CFD0C0CF
        D0C0CFD0000000000000000000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0
        CFD0C0CFD000C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CF
        D0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD000C0CFD0C0CFD0
        C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CFD0C0CF
        D0C0CFD0C0CFD0C0CFD0C0CFD000}
      Visible = False
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 9
      Width = 106
      Height = 95
      Caption = '串口設置'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 9
        Top = 32
        Width = 60
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = '串列口:'
      end
      object Label2: TLabel
        Left = 5
        Top = 85
        Width = 59
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = '串列傳輸速率:'
        Visible = False
      end
      object com_ComboB: TComboBox
        Left = 17
        Top = 62
        Width = 74
        Height = 21
        ImeName = '中文 (简体) - 微软拼音'
        ItemHeight = 13
        TabOrder = 0
        OnChange = com_ComboBChange
        Items.Strings = (
          'COM1'
          'COM2'
          'COM3'
          'COM4')
      end
      object com_baud: TEdit
        Left = 68
        Top = 80
        Width = 72
        Height = 21
        ReadOnly = True
        TabOrder = 1
        Visible = False
      end
    end
    object GroupBox2: TGroupBox
      Left = 121
      Top = 8
      Width = 119
      Height = 97
      Caption = '棒號設置'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object Label3: TLabel
        Left = 6
        Top = 32
        Width = 38
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = '棒號:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Button1: TBitBtn
        Left = 19
        Top = 62
        Width = 84
        Height = 26
        Cursor = crHandPoint
        Caption = '設置(&Y)'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = Button1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777
          57705557757777775FF7555555555555000755555555555F777F555555555550
          87075555555555F7577F5555555555088805555555555F755F75555555555033
          805555555555F755F75555555555033B05555555555F755F75555555555033B0
          5555555555F755F75555555555033B05555555555F755F75555555555033B055
          55555555F755F75555555555033B05555555555F755F75555555555033B05555
          555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555
          5555F777F7555555555501900555555555557777755555555555099055555555
          5555777755555555555550055555555555555775555555555555}
        NumGlyphs = 2
        Spacing = 0
      end
      object pencode_Edit: TEdit
        Left = 44
        Top = 24
        Width = 62
        Height = 21
        CharCase = ecUpperCase
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ImeName = '中文 (简体) - 微软拼音'
        MaxLength = 2
        ParentFont = False
        TabOrder = 1
        Text = '01'
      end
    end
    object GroupBox3: TGroupBox
      Left = 8
      Top = 128
      Width = 145
      Height = 147
      Caption = '工作鍵設置'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      object key_RadioB: TRadioButton
        Left = 24
        Top = 27
        Width = 114
        Height = 23
        Caption = '三鍵方式'
        Checked = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        TabStop = True
      end
      object RadioButton2: TRadioButton
        Left = 24
        Top = 58
        Width = 113
        Height = 23
        Caption = '單鍵方式'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object Button2: TBitBtn
        Left = 22
        Top = 95
        Width = 84
        Height = 26
        Cursor = crHandPoint
        Caption = '設置(&Y)'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = Button2Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          003337777777777777F330FFFFFFFFFFF033373F3F3F3F3F3733330F0F0F0F0F
          03333F7F737373737FFF0000FFFFFFF0000377773FFFFFF7777F0FF800000008
          FF037F3F77777773FF7F0F9FFFFFFFF000037F7333333337777F0FFFFFFFFFFF
          FF0373FFFFFFFFFFFF7330000000000000333777777777777733333000000000
          3333333777777777F3333330FFFFFFF033333337F3FFFFF7F3333330F00000F0