tour.~dfm

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

        OnKeyPress = DJKeyPress
      end
      object ZBW: TEdit
        Left = 347
        Top = 76
        Width = 137
        Height = 21
        Color = clWhite
        TabOrder = 10
        OnKeyPress = ZBWKeyPress
      end
      object zfzd: TEdit
        Left = 552
        Top = 101
        Width = 137
        Height = 21
        Color = clWhite
        ImeMode = imDisable
        ImeName = #32043#20809#21326#23431#25340#38899'V5'
        MaxLength = 255
        TabOrder = 14
        OnKeyPress = zfzdKeyPress
      end
      object zfwz: TEdit
        Left = 781
        Top = 102
        Width = 137
        Height = 21
        Color = clWhite
        MaxLength = 255
        TabOrder = 15
        Text = 'http://'
        OnKeyPress = zfwzKeyPress
      end
      object rk: TEdit
        Left = 347
        Top = 129
        Width = 137
        Height = 21
        Color = clWhite
        TabOrder = 17
        OnKeyPress = rkKeyPress
      end
      object mj: TEdit
        Left = 552
        Top = 129
        Width = 137
        Height = 21
        Color = clWhite
        TabOrder = 18
        OnKeyPress = mjKeyPress
      end
      object sjdm: TEdit
        Left = 781
        Top = 44
        Width = 137
        Height = 21
        TabOrder = 8
        OnKeyPress = sjdmKeyPress
      end
      object JLNX: TEdit
        Left = 347
        Top = 44
        Width = 137
        Height = 21
        TabOrder = 6
        OnKeyPress = JLNXKeyPress
      end
      object xzls: TEdit
        Left = 117
        Top = 101
        Width = 137
        Height = 21
        TabOrder = 13
        OnKeyPress = xzlsKeyPress
      end
      object yzbm: TEdit
        Left = 117
        Top = 129
        Width = 137
        Height = 21
        TabOrder = 16
        OnKeyPress = yzbmKeyPress
      end
      object xzhqdm: TEdit
        Left = 347
        Top = 101
        Width = 137
        Height = 21
        TabOrder = 1
        OnKeyPress = xzhqdmKeyPress
      end
      object Panel5: TPanel
        Left = 0
        Top = 69
        Width = 1050
        Height = 3
        BevelOuter = bvLowered
        TabOrder = 19
      end
      object zybm: TComboBox
        Left = 347
        Top = 16
        Width = 137
        Height = 21
        ItemHeight = 13
        TabOrder = 2
        OnExit = zybmExit
        Items.Strings = (
          #22478#24066#20449#24687'            '#9
          #21306#21439#20449#24687'            '#9
          #21150#20107#22788#20449#24687'          '#9
          #20065#38215#20449#24687'            '#9)
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 164
      Width = 987
      Height = 304
      Align = alTop
      BorderStyle = bsSingle
      TabOrder = 1
      object Label22: TLabel
        Left = 46
        Top = 200
        Width = 52
        Height = 13
        Caption = #21382#21490#27839#38761
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label21: TLabel
        Left = 497
        Top = 200
        Width = 52
        Height = 13
        Caption = #20854#23427#20449#24687
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label20: TLabel
        Left = 497
        Top = 15
        Width = 52
        Height = 13
        Alignment = taRightJustify
        Caption = #22320#21517#21547#20041
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label12: TLabel
        Left = 497
        Top = 111
        Width = 52
        Height = 13
        Caption = #27668#20505#31867#22411
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label11: TLabel
        Left = 46
        Top = 15
        Width = 52
        Height = 13
        Caption = #19979#32423#25919#21306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label10: TLabel
        Left = 46
        Top = 111
        Width = 52
        Height = 13
        Caption = #22320#35980#31867#22411
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object xjzq: TMemo
        Left = 117
        Top = 14
        Width = 367
        Height = 90
        Color = clWhite
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object qtxx: TMemo
        Left = 553
        Top = 202
        Width = 367
        Height = 90
        Color = clWhite
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 5
      end
      object qhlx: TMemo
        Left = 552
        Top = 108
        Width = 367
        Height = 90
        Color = clWhite
        ScrollBars = ssVertical
        TabOrder = 3
      end
      object lsyg: TMemo
        Left = 115
        Top = 201
        Width = 367
        Height = 90
        Color = clWhite
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 4
      end
      object dmlx: TMemo
        Left = 116
        Top = 108
        Width = 366
        Height = 90
        Color = clWhite
        ScrollBars = ssVertical
        TabOrder = 2
      end
      object dmhy: TMemo
        Left = 552
        Top = 14
        Width = 367
        Height = 90
        Color = clWhite
        Lines.Strings = (
          '')
        ScrollBars = ssVertical
        TabOrder = 1
      end
    end
    object DBNavigator1: TDBNavigator
      Left = 331
      Top = 472
      Width = 224
      Height = 32
      DataSource = DM.dsdlxxzy
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Flat = True
      TabOrder = 2
      OnClick = DBNavigator1Click
    end
    object BitBtn1: TBitBtn
      Left = 569
      Top = 472
      Width = 81
      Height = 32
      Caption = #22686#21152
      TabOrder = 3
      OnClick = BitBtn1Click
      Glyph.Data = {
        36100000424D3610000000000000360000002800000020000000200000000100
        2000000000000010000000000000000000000000000000000000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00080800000808000008080000FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF0008080000080800009C9C9C009C9C9C0008080000FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF