整个系统从总体上实现建筑物的拖放查找,
当然主要针对建筑物的建设，主要是建筑位置的在地图上的显示，如何用程序实现建筑的未知的任意放置呢？这个是程序实现的核心，其他的功能都是数据库的存储操作！
我这里使用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主键，这个是肯定不会重复的，因为工程里面不能存在同名的控件！
建筑物控件的删除动作，与改名的动作基本相同，唯一不同时他删除了记录，控件的显示状态变成了隐藏！