monitorcotrol.dfm

该程序可作为386的接警程序使用

        TabOrder = 3
      end
      object CheckBox3: TCheckBox
        Left = 24
        Top = 88
        Width = 57
        Height = 17
        Caption = #31532'03'#21495
        TabOrder = 4
      end
      object Edit3: TEdit
        Left = 80
        Top = 88
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 5
      end
      object CheckBox4: TCheckBox
        Left = 24
        Top = 112
        Width = 57
        Height = 17
        Caption = #31532'04'#21495
        TabOrder = 6
      end
      object CheckBox5: TCheckBox
        Left = 24
        Top = 136
        Width = 57
        Height = 17
        Caption = #31532'05'#21495
        TabOrder = 7
      end
      object CheckBox6: TCheckBox
        Left = 24
        Top = 160
        Width = 57
        Height = 17
        Caption = #31532'06'#21495
        TabOrder = 8
      end
      object CheckBox7: TCheckBox
        Left = 24
        Top = 184
        Width = 57
        Height = 17
        Caption = #31532'07'#21495
        TabOrder = 9
      end
      object CheckBox8: TCheckBox
        Left = 24
        Top = 208
        Width = 57
        Height = 17
        Caption = #31532'08'#21495
        TabOrder = 10
      end
      object Edit5: TEdit
        Left = 80
        Top = 136
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 11
      end
      object Edit7: TEdit
        Left = 80
        Top = 184
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 12
      end
      object Edit8: TEdit
        Left = 80
        Top = 208
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 13
      end
      object Edit9: TEdit
        Left = 328
        Top = 40
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 14
      end
      object Edit10: TEdit
        Left = 328
        Top = 64
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 15
      end
      object Edit11: TEdit
        Left = 328
        Top = 88
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 16
      end
      object Edit12: TEdit
        Left = 328
        Top = 112
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 17
      end
      object Edit13: TEdit
        Left = 328
        Top = 136
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 18
      end
      object Edit14: TEdit
        Left = 328
        Top = 160
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 19
      end
      object Edit15: TEdit
        Left = 328
        Top = 184
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 20
      end
      object Edit16: TEdit
        Left = 328
        Top = 208
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 21
      end
      object CheckBox9: TCheckBox
        Left = 272
        Top = 40
        Width = 57
        Height = 17
        Caption = #31532'09'#21495
        TabOrder = 22
      end
      object CheckBox10: TCheckBox
        Left = 272
        Top = 64
        Width = 57
        Height = 17
        Caption = #31532'10'#21495
        TabOrder = 23
      end
      object CheckBox11: TCheckBox
        Left = 272
        Top = 88
        Width = 57
        Height = 17
        Caption = #31532'11'#21495
        TabOrder = 24
      end
      object CheckBox12: TCheckBox
        Left = 272
        Top = 112
        Width = 57
        Height = 17
        Caption = #31532'12'#21495
        TabOrder = 25
      end
      object CheckBox13: TCheckBox
        Left = 272
        Top = 136
        Width = 57
        Height = 17
        Caption = #31532'13'#21495
        TabOrder = 26
      end
      object CheckBox14: TCheckBox
        Left = 272
        Top = 160
        Width = 57
        Height = 17
        Caption = #31532'14'#21495
        TabOrder = 27
      end
      object CheckBox15: TCheckBox
        Left = 272
        Top = 184
        Width = 57
        Height = 17
        Caption = #31532'15'#21495
        TabOrder = 28
      end
      object CheckBox16: TCheckBox
        Left = 272
        Top = 208
        Width = 57
        Height = 17
        Caption = #31532'16'#21495
        TabOrder = 29
      end
      object Edit4: TEdit
        Left = 80
        Top = 112
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 30
      end
      object Edit6: TEdit
        Left = 80
        Top = 160
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 31
      end
      object Button3: TButton
        Left = 376
        Top = 240
        Width = 75
        Height = 25
        Caption = #20851#38381
        TabOrder = 32
        OnClick = Button3Click
      end
      object Button1: TButton
        Left = 296
        Top = 240
        Width = 75
        Height = 25
        Caption = #20462#25913
        TabOrder = 33
        OnClick = Button1Click
      end
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=bj.md' +
      'b;Mode=Share Deny None;Extended Properties="";Persist Security I' +
      'nfo=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="' +
      '";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLE' +
      'DB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;J' +
      'et OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Passw' +
      'ord="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt ' +
      'Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet ' +
      'OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
    IsolationLevel = ilIsolated
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 256
    Top = 65528
  end
  object ADOQuery1: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#25253#35686#22120#26723#26696)
    Left = 232
    Top = 65528
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 200
    Top = 65528
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer2Timer
    Left = 320
    Top = 65528
  end
  object MonitorComm: TComm
    CommName = 'COM2'
    BaudRate = 7500
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = OnReceiveData
    Left = 288
    Top = 65528
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 352
    Top = 65528
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 392
    Top = 65528
  end
end