untdm.dfm

delphi7,源代码 主要的是进行DELPHI7的源代码进行管理和维护

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 282
  Top = 200
  Height = 239
  Width = 303
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=config.mdb;Persist ' +
      'Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 16
  end
  object ADOQueryFunc: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select ID,Type,Subject,Uses from func')
    Left = 120
    Top = 16
  end
  object DataSourceFunc: TDataSource
    DataSet = ADOQueryFunc
    Left = 208
    Top = 16
  end
  object ADOConnection2: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=config.mdb;Persist ' +
      'Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 96
  end
  object ADOQueryTips: TADOQuery
    Connection = ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select ID,Type,Subject,Uses from func')
    Left = 128
    Top = 96
  end
  object DataSourceTips: TDataSource
    DataSet = ADOQueryTips
    Left = 216
    Top = 96
  end
end