图的实验平台（VB6）.docVIP

图的实验平台（VB6） 一、功能介绍 说实在话，在内存中找图的顶点，已经毫无耐心了，特别是大家如果都把实验报告交上来，估计累死我也差不多，幸亏大家很很“照顾“偶，大多人从来没作业没实验报告！（大汗！） 废话少说，下面介绍功能。 可建立项目、子项目名称，一环套一环的树使劲加吧。 建立顶点数据项目并保存在SQLSERVER2000中； 建立弧的数据并保存在SQLSERVER2000中； 可以删除弧数据； 考虑到父子结点的查找问题，没做项目名称和顶点数据的删除，实际上提供项目名称、子项目名称的删除并不难以在程序中实现，有兴趣的可以自己做。 显示顶点、弧段，显示在一个PICTURE控件中； 打开SQLSERVER2000，恢复数据库TEST，恢复文件为当前目录下的TEST，这样，数据库中有表： Project：项目表， Vertex：顶点表，ArcTable：弧段的表三个表，然后启动当前目录下的工程文件。 二、程序设计： 外观设计： 这个界面还算说的过去吧程序提纲了鼠标右键功能，这样直接点击TREEVIEW1控件，即可完成项目添加、名称修改功能。 其中： “新建项目名称”：是建立一个项目，这个项目始终是建立在当前你选择的树下面的，也就是说你选择的结点始终是新加结点的父结点；这类结点可以修改名称； “新建图例项目”：是自动完成的，会在你选择的结点下面，自动加上“顶点数据集”、“弧数据集”两个子结点，这两个结点的父结点就是这个数据集的名称。这类结点的名称是不可以修改的，也是不可以删除的。 “保存顶点数据”：就是仅仅保存顶点数据； “保存弧数据”：就是仅仅保存弧段的数据； “保存全部数据”：上述两个功能的总和； “属性”：当前项目的属性，分三类： 项目的属性，如下图： 就是项目的名称、建立日期、备注等等。 顶点数据的属性，如下图： 就是顶点坐标、编号、名称什么的。 弧数据的属性，如下图： 就是弧的起点、终点编号。 图编辑功能： 点到图形显示区域，鼠标右键提供下列功能： “选中当前顶点”：选中当前鼠标点的结点； “选择当前的弧”：选中当前鼠标点的一条弧线段； 两个自以为很牛的功能，不知道图形学教过没。 “当前顶点设置为起点”：画弧段的开始结点； “当前顶点设置为终点”：画弧段的结束结点； “连接选择的顶点”：画出上面选择的两个顶点之间的连线； “刷新图形”：修改的次数多了、图乱了自然要刷啊 “删除一条弧”：删除你选中的那条弧段； 数据库设计 数据库名称：TEST Project：项目表，就是个双亲表示法表示树的表，字段如下： ID：自动增长的数值型字段，结点号； PID：父结点号 名称：呵呵！字段原来是可以用汉字表示的哦 建立日期：汉字的字段好玩么？ 备注：什么也不说！祖国知道我！ IFlag：整数型，0表示项目名称记录，1表示顶点数据；2表示弧段数据 Vertex：顶点表， ID：本表自动增长的字段 PID：这里的PID指的是Project表的ID，一定要搞明白； VID：本组顶点数据集合中的顶点编号。呵呵！为什么不用ID呢？ SName：顶点名称，一个汉字的字段 PosX：顶点X坐标 PosY：顶点Y坐标 不错，幸亏没Z坐标 ArcTable：弧段的表，字段如下： ID：本表的记录标号，自动增长数值型 PID：这里的PID实际是和Project中的ID相对应的，好好理解一下。 Snode：开始的结点编号，实际是指向Vertex中的ID； Enode：结束的结点编号，实际是指向Vertex中的ID； ILink：连接类型，这里就是1，如果含权，那就再修改吧。 存储技术上采用了稀疏矩阵的存储方法，看明白没？这里的弧段数据没采用什么链表结构，因为数据库中找这个很容易不是？ 但这里也不是没有缺点，有向图的存储就有问题了，不过也不难，以后在iLink中做文章吧， 修改记录： 修改问题： 删除Form2、Form4下的ADODC1控件属性：ConnectionString、RecordSource中不正确的初始值设置； 修正了HScroll1、VScroll1的MAX属性不支持大图的问题，代码见：Form1.Toolbar1_Click响应“B”键点击 修正了Form1. Fin_Click()中，不连接数据库服务器退出时不合理连接关闭； 时间： 上述修正为2004年11月9日；由王志红、田英、微微提供测试问题。