datamodule_unit.dfm

客户关系管理系统,可以进行一些简单的客户关系管理

object DM: TDM
  OldCreateOrder = False
  Left = 192
  Top = 107
  Height = 273
  Width = 414
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb;Persis' +
      't Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 24
  end
  object Aq_MacInfo: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 280
    Top = 24
  end
  object Ds_user: TDataSource
    DataSet = Aq_user
    Left = 40
    Top = 104
  end
  object Ds_ComInfo: TDataSource
    DataSet = Aq_ComInfo
    Left = 88
    Top = 104
  end
  object Ds_ShopInfo: TDataSource
    DataSet = Aq_ShopInfo
    Left = 144
    Top = 104
  end
  object Ds_MacInfo: TDataSource
    DataSet = Aq_MacInfo
    Left = 208
    Top = 104
  end
  object Ds_BuyInfo: TDataSource
    DataSet = Aq_BuyInfo
    Left = 272
    Top = 104
  end
  object Aq_user: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 96
    Top = 24
  end
  object Aq_ComInfo: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 160
    Top = 24
  end
  object Aq_BuyInfo: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#29992#25143#36141#26426#36164#26009#34920)
    Left = 344
    Top = 24
  end
  object Aq_ShopInfo: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 216
    Top = 24
  end
end