datam.~dfm

用delphi做的,里面的数据库是ACCESS.可以查全国的地区,对初学者很有用,直接下载后就可以用到了,不用去添加全国各地的地名记录!

object DM: TDM
  OldCreateOrder = False
  Left = 278
  Top = 225
  Height = 144
  Width = 209
  object Connection: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=I:\CO' +
      'DE WORK\Delphi Work\'#22320#21306#26597#35810'\Area.MDB;Mode=Share Deny None;Extended ' +
      'Properties="";Persist Security Info=False;Jet OLEDB:System datab' +
      'ase="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password=""' +
      ';Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet O' +
      'LEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transaction' +
      's=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System D' +
      'atabase=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't C' +
      'opy Locale on Compact=False;Jet OLEDB:Compact Without Replica Re' +
      'pair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 8
  end
  object Query: TADOQuery
    Connection = Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 80
    Top = 8
  end
  object DataSourceQuery: TDataSource
    DataSet = Query
    Left = 144
    Top = 8
  end
end