monitordm.~dfm

采用delphi语言实现了智能监视系统。使用了access数据库。

object DMMain: TDMMain
  OldCreateOrder = False
  Left = 180
  Top = 141
  Height = 264
  Width = 429
  object tblEvent: TADOTable
    Active = True
    Connection = cnnMain
    CursorType = ctStatic
    TableName = 'EventRec'
    Left = 147
    Top = 133
  end
  object cnnMain: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
      'Source=.\database\Events.mdb;Mode=Share Deny None;Extended Prope' +
      'rties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path=""' +
      ';Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLED' +
      'B:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Je' +
      't OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Passwo' +
      'rd="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt D' +
      'atabase=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet O' +
      'LEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 51
    Top = 101
  end
  object tblRecPerson: TADOTable
    Active = True
    Connection = cnnMain
    CursorType = ctStatic
    BeforePost = tblRecPersonBeforePost
    TableName = 'RecPerson'
    Left = 104
    Top = 48
    object tblRecPersonID: TAutoIncField
      DisplayLabel = '编号'
      FieldName = 'ID'
    end
    object tblRecPersonname: TWideStringField
      DisplayLabel = '姓名'
      FieldName = 'name'
    end
    object tblRecPersonphone_no: TWideStringField
      DisplayLabel = '电话号码'
      FieldName = 'phone_no'
      Size = 15
    end
  end
end