dmu.~dfm

源代码竟供大家参考

object DmGlobal: TDmGlobal
  OldCreateOrder = False
  Left = 214
  Top = 181
  Height = 329
  Width = 510
  object dbsystem: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Se' +
      'curity Info=False;Jet OLEDB:Database Password=kaoshi'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 16
    Top = 16
  end
  object ADOTable_SC: TADOTable
    Connection = dbsystem
    CursorType = ctStatic
    IndexFieldNames = 'ID'
    TableName = #21333#36873#39064
    Left = 96
    Top = 16
  end
  object DSSC: TDataSource
    DataSet = ADOTable_SC
    Left = 160
    Top = 16
  end
  object ADOTable_MC: TADOTable
    Connection = dbsystem
    CursorType = ctStatic
    IndexFieldNames = 'ID'
    TableName = #22797#36873#39064
    Left = 96
    Top = 88
  end
  object DSMC: TDataSource
    DataSet = ADOTable_MC
    Left = 160
    Top = 88
  end
  object ADOTable_J: TADOTable
    Connection = dbsystem
    CursorType = ctStatic
    IndexFieldNames = 'ID'
    TableName = #21028#26029#39064
    Left = 96
    Top = 152
  end
  object DSJ: TDataSource
    DataSet = ADOTable_J
    Left = 160
    Top = 152
  end
  object Query_Exec: TADOQuery
    Connection = dbsystem
    Parameters = <>
    Left = 248
    Top = 24
  end
end