comdatamodule.dfm

一个自己写的com+数据模块的源码

object mycomdatamodule: Tmycomdatamodule
  OldCreateOrder = False
  Pooled = False
  Left = 323
  Top = 289
  Height = 249
  Width = 293
  object dsp1: TDataSetProvider
    DataSet = adoqry1
    Options = [poAllowMultiRecordUpdates, poAllowCommandText]
    Left = 40
    Top = 56
  end
  object adocon1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=E:\de' +
      'velop\delphi7\Projects\MD53Demos\datas\MD53DB1.mdb;Mode=Share De' +
      'ny None;Extended Properties="";Persist Security Info=False;Jet O' +
      'LEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Dat' +
      'abase Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Loc' +
      'king Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global' +
      ' Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLED' +
      'B:Create System Database=False;Jet OLEDB:Encrypt Database=False;' +
      'Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact W' +
      'ithout Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 116
    Top = 52
  end
  object adoqry1: TADOQuery
    Active = True
    Connection = adocon1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from customers')
    Left = 164
    Top = 52
  end
end