地理信息系统二次开发

《地理信息系统二次开发》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、课程设计报告课程名称：地理信息系统设计名称：MapObjects的二次开发院（系）：海洋科学与工程学院专业班级：100532姓名学号：指导教师：2013年1月17日一、设计目的：（1）、实习类型：课程设计；（2）、了解VB的软硬件环境、MapObjects数据类型；（3）、初步掌握该软件的基本操作技能；（4）、能够熟练的操作VB6.0软件，并能应用该软件简单的与MO进行开发（5）、掌握产品的输出设计。（6）、培养利用GIS方法解决实际问题的能力。二、设计主要仪器设备，器材，药品，软件等（1）软件准备：VB6.0（2）硬件准备：PC机500

2、M内存，128M显卡（最低）（3）资料准备：MapObjects控件、USA等SHP文件三、设计原理和内容：（1）设计题目：MapObjects的二次开发（2）具体要求：应用VB软件与MO控件进行结合，实现MO的二次开发。（3）功能描述：üMapObjects是可以允许用户向应用程序中添加地图的制图软件控件集合。üMapObjects可以在多种符合工业标准的开发环境下使用，比如VisualBasic，PowerBuilder，VisualC++等。MapObjects可以直接嵌入到这些开发环境中使用，允许用户快捷地创建应用程序。üMapO

3、bjects运行于WindowsXP或WindowsNT4.0或更高版本。üMapObjects包括一个ActiveX控件(OCX)也就是Map控件，还包括45个ActiveX自动对象。可用于符合IT行业标准的Windows编程环境。üMapObjects主要功能：Ø显示一张包含多个图层的地图(道路，河流，边界)。Ø放大，缩小，漫游。Ø创建新的几何图形，如点，线，圆，多边形。Ø为图层添加注释。Ø识别地图上被选中的要素（点，线，面）。Ø可以通过线，矩形，多边形，圆来选择要素Ø可以选取距某参照物一定距离范围内的要素。Ø可以通过SQL语句来选择

4、要素。Ø对选择的要素进行统计。Ø查询与更新被选择的要素的属性数据Ø制作专题地图。Ø根据字段的值标注图层要素。Ø显示从航片或卫星图片上获取的图像。Ø动态显示实时或时间系列数据。Ø通过输入地址在地图上定位。Ø将数据投影到不同的坐标系下üMapObjects对象模型（具体见附录）Ø数据通道对象组（DataAccessObjects)Ø地图显示对象组（MapDisplayObjects）Ø几何图形对象组（GeometricObjects)Ø地址匹配对象组（AddressMatchObjects）Ø地理坐标对象组（ProjectionObjects

5、）四、设计步骤1、下载MO与VB并安装，搭建开发环境安装MO：点击Mo22Setup.exe安装Mo，在VB6.0中加载MapObjects控件：2、系统功能设计打开文件、图层管理、地图放缩工具、右菜单、属性表信息、图层信息、动态图层实现、分析与查询、专题制图等3、系统界面设计4、系统功能实现4.1（1）对所要实现的功能进行菜单编辑，在窗体空白处点击右键，打开菜单编辑器，在菜单编辑器的标题框中输入菜单名称，名称框输中入对应的菜单名称，通过下方的方向键可以添加新菜单和二级、三级菜单，根据需要，我们设计了文件、图层、编辑和查询四个主菜单以及数

6、个二级菜单。如下图所示：结果如下：（2）添加图层显示窗口：在工具栏中双击Map工具，窗体中出现的一个白色图层即为图层显示窗口，根据需要调整窗口大小和位置。我们添加一大一小两个显示窗口。以同样的方法可添加用于显示图层名称的lstLayers窗口，用于显示比例尺的ScaleBar窗口以及用于显示时间的StatusBar窗口条，StatusBar工具条可右键打开属性页，在属性页中修改相应参数。（3）添加按钮：双击工具栏中的CommandButton工具，窗体中会出现一个按钮，调整按钮的大小和位置，并在属性表中的Caption一栏修改按钮上显示的

7、名称，我们添加了上移、下移、置顶和删除四个按钮。如下图所示：（4）添加工具栏：先双击工具栏中的ImageList工具，右键打开该工具的属性页，选择图像->插入图片，选择需要的图片，如下图所示：（5）再在工具栏中双击ToolBar工具，右键打开属性页，在图像列表中选择ImageList1，再点击按钮->插入按钮，选择按钮样式和值，在图像输入框中输入之前在ImageList1中插入的图片的位所对应的数值，如图所示：（6）添加Timer工具和CommonDialog工具，这样就可以通过相应的代码显示时间和添加文件。窗体布局如下：4.2主要程序及

8、操作步骤（1）添加shape文件和栅格数据文件：添加、保存文件，添加文件并在窗体中显示图层信息：'添加shape文件PrivateSubAdd_shpFile_Click()OnErrorGo