datam.~dfm

地理资源的录入程序运用了api的一些知识

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 329
  Top = 104
  Height = 592
  Width = 660
  object conn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=UPload\dlzy.mdb;Per' +
      'sist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 48
  end
  object dslyxx: TDataSource
    DataSet = lyxx
    Left = 144
    Top = 112
  end
  object lyxx: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from T_geo_tour order by Z_PTZYBH asc')
    Left = 104
    Top = 112
  end
  object tdlyxx: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from T_Geo_landuse')
    Left = 104
    Top = 168
  end
  object dstdlyxx: TDataSource
    DataSet = tdlyxx
    Left = 152
    Top = 160
  end
  object dqjjxx: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from T_GEO_economic order by z_ptzybh  asc')
    Left = 104
    Top = 224
  end
  object dsdqjjxx: TDataSource
    DataSet = dqjjxx
    Left = 152
    Top = 224
  end
  object dsinput: TDataSource
    DataSet = tbinput
    Left = 136
    Top = 24
  end
  object Qur_dmb: TADOQuery
    Connection = conn
    Parameters = <>
    Left = 104
    Top = 360
  end
  object ds_dmb: TDataSource
    DataSet = Qur_dmb
    Left = 160
    Top = 360
  end
  object dqjjxx1: TADOQuery
    Connection = conn
    Parameters = <>
    Left = 208
    Top = 224
  end
  object dsdqjjxx1: TDataSource
    DataSet = dqjjxx1
    Left = 256
    Top = 224
  end
  object zyflml: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    Left = 96
    Top = 432
  end
  object dszyflml: TDataSource
    DataSet = zyflml
    Left = 168
    Top = 432
  end
  object dlxxzy: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from T_Geo_Gnis order by mid(Z_PTZYBH,11,8) asc')
    Left = 112
    Top = 496
  end
  object dsdlxxzy: TDataSource
    DataSet = dlxxzy
    Left = 160
    Top = 496
  end
  object tdlycxQry: TADOQuery
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from T_Geo_landuse')
    Left = 272
    Top = 384
  end
  object DStdlycx: TDataSource
    DataSet = tdlycxQry
    Left = 336
    Top = 384
  end
  object DS_sl: TDataSource
    DataSet = ADOQry_sl
    Left = 424
    Top = 264
  end
  object ADOQry_sl: TADOQuery
    Connection = conn
    Parameters = <>
    SQL.Strings = (
      'select * from T_sl')
    Left = 376
    Top = 264
  end
  object User: TADOQuery
    Active = True
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from users'
      '')
    Left = 12
    Top = 103
  end
  object tbinput: TADOQuery
    Active = True
    Connection = conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from users')
    Left = 96
    Top = 24
  end
end