unitdatabase.~dfm

来自「智能监控delphi源码, 操作说明 1. 在两台微机上分别运行文件夹中的可」· ~DFM 代码 · 共 35 行

object DMMain: TDMMain
  OldCreateOrder = False
  Left = 443
  Top = 199
  Height = 150
  Width = 215
  object conMain: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=.\Dat' +
      'aBase\Events.mdb;Mode=Share Deny None;Extended Properties="";Per' +
      'sist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:' +
      'Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine' +
      ' Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Parti' +
      'al Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New' +
      ' Database Password="";Jet OLEDB:Create System Database=False;Jet' +
      ' OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Com' +
      'pact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OL' +
      'EDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 48
  end
  object tblEvent: TADOTable
    Active = True
    Connection = conMain
    CursorType = ctStatic
    TableName = 'EventRec'
    Left = 112
    Top = 32
  end
end