udatamodule.dfm

Delphi函数工厂。。。。。。。。。。。。。

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 230
  Top = 133
  Height = 150
  Width = 215
  object daoqdelphifun: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from delphifun')
    Left = 80
    Top = 56
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Se' +
      'ttings\oiwin\'#26700#38754'\'#27169#22359#23436#25972#21253'(2003-04-28'#20462#25913')\db1.mdb;Persist Security Inf' +
      'o=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
  end
  object DataSource1: TDataSource
    DataSet = daoqdelphifun
    Left = 144
  end
end