unit1.dfm

大家觉得不是垃圾就下了

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 560
  Top = 98
  Height = 321
  Width = 241
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=addre' +
      'ss.mdb;Mode=Share Deny None;Extended Properties="";Persist Secur' +
      'ity Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry P' +
      'ath="";Jet OLEDB:Database Password=1234;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 = 32
    Top = 16
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'address'
    Left = 96
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 96
    Top = 64
  end
  object DataSource2: TDataSource
    DataSet = ADODataSet1
    Left = 168
    Top = 64
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    Parameters = <>
    Left = 32
    Top = 64
  end
  object frReport1: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 96
    Top = 120
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSource = DataSource1
    Left = 168
    Top = 120
  end
  object frDesigner1: TfrDesigner
    Left = 32
    Top = 168
  end
  object DataSource3: TDataSource
    DataSet = ADOTable2
    Left = 32
    Top = 120
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #34920'1'
    Left = 168
    Top = 16
  end
  object ADODataSet2: TADODataSet
    Connection = ADOConnection1
    Parameters = <>
    Left = 96
    Top = 168
  end
  object ADOTable3: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #34920'2'
    Left = 168
    Top = 168
  end
  object DataSource4: TDataSource
    DataSet = ADOTable3
    Left = 24
    Top = 224
  end
end