datamoudle.dfm

运行时设计控件的一个小例子

object DM1: TDM1
  OldCreateOrder = False
  Left = 407
  Top = 188
  Height = 343
  Width = 400
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=Compo' +
      'nent.mdb;Mode=Share Deny None;Extended Properties="";Persist Sec' +
      'urity 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 Partial Bulk ' +
      'Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Databas' +
      'e Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:E' +
      'ncrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=Fal' +
      'se;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=' +
      'False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 96
    Top = 56
  end
  object ADODataSet1: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from Archives_tbl'
    Parameters = <>
    Left = 192
    Top = 56
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 272
    Top = 56
  end
  object ADODataSet2: TADODataSet
    Active = True
    AutoCalcFields = False
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from FieldMgr_tbl'
    Parameters = <>
    Left = 104
    Top = 152
  end
  object ADODataSet_Component: TADODataSet
    Connection = ADOConnection1
    Parameters = <>
    Left = 112
    Top = 208
  end
end