unitdatamodule.dfm

delphi做的名片管理软件

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 349
  Top = 213
  Height = 407
  Width = 333
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 192
    Top = 8
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=data\' +
      'db1.mdb;Mode=Share Deny None;Extended Properties="";Persist Secu' +
      'rity Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry ' +
      'Path="";Jet OLEDB:Database Password=123456;Jet OLEDB:Engine Type' +
      '=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bu' +
      'lk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Data' +
      'base Password="";Jet OLEDB:Create System Database=False;Jet OLED' +
      'B:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=' +
      'False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:S' +
      'FP=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 64
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 120
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 112
    Top = 64
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 200
    Top = 72
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 112
    Top = 192
  end
  object ADOQuery4: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 112
    Top = 128
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    TableName = 'PersonInfo'
    Left = 112
    Top = 256
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery4
    Left = 200
    Top = 128
  end
  object ADOTable2: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'dgdate'
    Left = 112
    Top = 320
  end
end