VB完善地图扩充程序(城市街道基础信息管理系统 )-362-（代码＋论文）

1、查阅及整理相关数据资料，收集相关软件，作好初期基础工作。
2、通过需求分析，实地调绘资料，建立完善合理的系统方案，以完成用户查询、距离量算、视图等城市街道具体信息的计算机管理。系统应具备对地图信息日常管理，能方便地进行所需资料的查询、统计、修改、添加、删除、打印输出等工作。
3、利用Visual Basic 6.0及Microsoft Access 数据库平台作为开发环境，完成系统的开发和设计，非常直观的再现该区域详细信息。力求做到用户界面简洁、风格一致且操作简便，易于上手。
4、系统调试完成后，撰写城市街道基础信息管理系统毕业论文。

1. 能帮我加点查询功能和距离量算的说明内容嘛

距离测量的主要动作, 通过对数据库的查找,找出对应控件的X坐标Y坐标

算出2个控件的X坐标差的绝对值.Y坐标的绝对值

根据他们的X Y坐标可以构造一个距形,他们的绝对值就是直角三角形的斜边也就是2点简的最短距离

If l1 = "" Then

l1 = lvW.SelectedItem.Text

l1.Tag = lvW.SelectedItem.Tag

Else

l2 = lvW.SelectedItem.Text

l2.Tag = lvW.SelectedItem.Tag

'核算尺寸

'a^2+b^2=c^2

'取出2变距离的绝对值

Dim myArry1, myArry2, a, b

myArry1 = Split(l1.Tag, "|")

myArry2 = Split(l2.Tag, "|")

a = Abs(myArry1(0) - myArry2(0))

'取出长

b = Abs(myArry1(1) - myArry2(1))

' 取出宽

txtNote = l1 & " 与 " & l2 & " 垂直距离绝对值为 " & a & vbCrLf

txtNote = txtNote & l1 & " 与 " & l2 & " 水平距离绝对值为 " & b & vbCrLf

txtNote = txtNote & "2点间最短距离为 " & Sqr(a ^ 2 + b ^ 2) & vbCrLf

txtNote = txtNote & "核算比例尺 " & Sqr(a ^ 2 + b ^ 2) * Split(s, ":")(1)

一下代码是查找定做的代码

StrV1 = DetailKey(strKey, strV2)

For Each ctl In frmMain.Controls

If TypeOf ctl Is usrItem Then

If ctl.Name = StrV1 And ctl.Index = strV2 Then ctl.View True

End If

查找主窗体里面所有的控件,当然索引值为指定的值时,对应的控件开始闪动

整个系统从总体上实现建筑物的拖放查找,
当然主要针对建筑物的建设，主要是建筑位置的在地图上的显示，如何用程序实现建筑的未知的任意放置呢？这个是程序实现的核心，其他的功能都是数据库的存储操作！
我这里使用VB的自定义控件完成，建筑物在窗体任意位置拖放的功能
建筑物控件,采用VB的自定义控件编写,由于VB的IMAGE控件的等一些控件无法,以尽量少的代码完成,无限拖放,所以本系统采用了自定义控件,这也就时程序的核心之一,
该控件只要拖放在VB窗体上,不用加任何代码就可以实现控件在窗体上任意移动, 从而完成建筑物的控件的任意位置放置,
控件的功能，在VB窗体上没用任何代码该控件就可以在窗体运行时任意位置的拖放，实现建筑物放置在地图的任意位置
此时，我已经具有了一个项目里面一个强大的核心控件下面开始系统具体的实施。
建筑物控件的无限生成动作，当鼠标点击时，由于控件是控件数组，在点击他时，会使用load 方法加载一个新的控件，鼠标松开时，控件放置在窗体上，同时，数据库 tblMap表记录控件的名称，显示的名称，控件的top left height width 属性，达到存储控件信息的目的，双击控件会打开对应的相信设置的窗体，此时信息会存储在对应的相信信息表，也就是说，当你托一个医院控件在一个位置时，鼠标抬起事件里，tblMap表会记录该控件的位置内容等信息，双击该控件，会记录设置该控件对应的信息。
建筑物如何添加大体过程就在上面了，那我是怎么实现查找的呢。
其实也很简单通过SQL语句查找出tblMap表里对应的记录信息，关键的是控件的名称，通过VB窗体控件集合属性找到窗体上显示的控件，对其进行基本操作，如隐藏，闪动等效果
鼠标点击闪动的建筑物控件时，效果消失，拖到他，鼠标放开时，继续记录他的位置等属性。
建筑物控件改名的动作，
在相信设置控件信息时，改名地图上的控件会跟着相应改名，此时，tblMap表的对应控件信息的记录更新，对应控件相信信息的表也会被更新，从而达到了地图显示的更新，当然项目的地图里以控件的名称为第2主键，这个是肯定不会重复的，因为工程里面不能存在同名的控件！
建筑物控件的删除动作，与改名的动作基本相同，唯一不同时他删除了记录，控件的显示状态变成了隐藏！
程序的核心动作就是以上介绍的！
其他就是数据库的基本操作了，读库写库，都是ADO的基本方法
rstEmployees.AddNew
rstEmployees.Update
‘新增
rstEmployees.Update
‘更新
rstEmployees.detete
‘删除
系统采用了“拖拽控件”来完成对目标实体的拖动属性设置。
“拖拽控件”是VB的自定义控件。该控件只要拖放在VB窗体上,不用加任何代码就可以实现控件在窗体上任意移动。系统内对于目标的任意拖动就是用这个空间来实现的。
该自定义控件有一个无限生成动作，当鼠标点击时，“控件”会使用load 方法加载一个新的控件，鼠标松开时，控件放置在窗体上，同时，数据库 tblMap表记录控件的名称，显示的名称，控件的top left height width 属性，达到存储控件信息的目的，双击控件会打开对应的相信设置的窗体，此时信息会存储在对应的信息表里，也就是说，当发生一个鼠标拖动事件时，tblMap表会记录该控件的位置内容等信息，双击该控件，会记录设置该控件对应的信息。

对目标进行查询，是通过SQL语句查找出tblMap表里对应的记录信息，关键的是控件的名称，通过VB窗体控件集合属性，找到窗体上显示的控件。鼠标点击闪动的建筑物控件时，效果消失，鼠标放开时，继续记录他的位置等属性。
建筑物控件改名的动作：
在设置控件信息时，地图上的控件会跟着相应改动，此时，tblMap表的对应控件信息的记录更新，对应控件信息的表也会被更新，从而达到了地图上目标数据的更新，当然项目的地图里以控件的名称为第2主键，这个是肯定不会重复的，因为工程里面不能存在同名的控件！
建筑物控件的删除动作，与改名的动作基本相同，唯一不同时他删除了记录，控件的显示状态变成了隐藏！