熟悉VB软件开发方法以及数据库访问
广东工业大学实验报告
土木与交通工程学院测绘工程专业1201 班成绩评定_______ 学号姓名(合作者____学号____) 教师__ ___
实验1 题目熟悉VB软件开发方法以及数据库访问
第2周星期二第8，9节
一、实验目的与要求
1、了解和掌握利用 VB 读取给定格式的数据文件的方法以及利用动态数组方法
对读入的数据进行存储和编辑；
2、了解VB 菜单的制作方法；
3、熟悉 VB 中自定义数据类型的使用方法；
4、熟悉VB中模块的建立方法，了解利用 VB（程序建立或者控件连接）连接数据库的方法。
二、实验方案
1）用 Open 函数打开SZTJ.dat文件并读取数据，并利用自定义类型的数组存储该数据。
2）利用 VB 中的ADO数据库访问方式对 Access 数据库进行简单的操作。
3) 用到两个结构体
Private Type yizhidian '已知点结构体
pt As String
hgt As Single
End Type
Private Type guancezhi '观测值结构体
spt As String
ept As String
diffhgt As Single
dist As Single
End Type
4)用到的函数有split，replace等函数和mytrim模块,先读取数据到结构体再写到access数据库中。DataGrid跟adodc控件关联，然后adodc链接access 数据库中具体的表。
a.实现全部删除时可以考虑从记录的first到eof做个do loop循环一
个个去删除，也可以首先通过Recordset.RecordCount算出记录条的
数目，然后做个for i=0 to n-1的循环实现全部删除。
b.实现增添记录时，通过创建一个新窗口作为载体来输入新数据，然后
赋值到对应变量中，最后就可以把新的记录增添到数据库中。
c.每次删除到最后一个记录时，程序容易出错提示不能为非空，可以增
加一个if判断Recordset.RecordCount = 0时提示删除完毕！就可以
就可以解决非空的问题了。
d.修改功能就是实现记录可编辑，为了保护数据，每次读取完数据后表
格的内容都设置为不可编辑的，修改菜单就是去恢复表格内容可编辑
并保存。
4) 调试过程中可以善于用立即窗口，debug.print可以实时查看哪里的结果出错。检查已输入的程序是否有错，如果有错，及时改正。
5) 运行程序并分析运行结果是否合理和正确，如果不合理要找出原因，完善程序适用多种情况，尽量减少出错。
6) 给出程序清单和程序运行界面。
三、实验结果和数据处理
1、程序清单
2、程序界面
显示到表格后的界面
四、结论
通过这次实验，进一步了解和掌握利用VB读取给定格式的数据文件
的方法以及利用动态数组方法对读入的数据进行存储和编辑；通过和之前学的MALAB程序相比，真的觉得编程思想都是相通的，只不过是实现的方式不同而已。熟悉VB中模块的建立方法和vb中连接数据库的方法。
五、问题与讨论
（1）自定义变量类型有那些优点？
答：自定义变量最大的优点是把一些在逻辑上有关联的东西组
织在了一起，使得程序更具有可读性。比如程序中的GCZ结构
体就属于自定义变脸类型，它把起点、终点、高差、长度整合
成一个整体，便于程序调用数据。
（2）动态数组有那些优点？
答：动态数组最大的优势在于处理不知道长度的线性表结构。
每次增加元素时可以保留原来的元素，可以免去预先解求数组
维数的不便性，使数组处理更加灵活。
（3）数据文件有几种类型？各种类型有哪些读写操作？
1) 顺序文件
打开顺序文件Open <文件名> For As <
文件号>；
关闭文件Close[文件号列表]；
读取数据LineInput #FileNumber , VarName
Input #Filename , VarList
Input (Length , FileNumber)
写入数据Put [#]<文件号>，[<记录号>]，<变量名>。
2) 随机文件
打开随机文件Open file For random As <文件号> len=<记录长
度>；
读取数据Get [#]<文件号>，[<记录号>]，<变量名>；
写入数据Put [#]<文件号>，[<记录号>]，<变量名>。
3) 二进制文件
打开二进制文件Open file For binary As [#]filename；
读取数据Get [#]<文件号>，[字节数]，<变量名>；
写入数据Put [#]<文件号>，[字节数]，<变量名>。
（4）在VB6.0中访问数据库有哪几种方式？
答：3种，分别是：Ac tiveX Data Object(ADO)、Remote Data Object(RDO)和Data Access Object(DAO)。