熟悉VB软件开发方法以及数据库访问.doc

PAGE PAGE 9 广东工业大学实验报告 土木与交通工程 学院 测绘工程 专业 1201 班 成绩评定_______ 学号 姓名 (合作者____学号____)教师签名_______ 预习情况 操作情况 考勤情况 数据处理情况 实验 1 题目 熟悉VB软件开发方法以及数据库访问 第2周 星期二第8，9节 实验目的与要求 实验目的：熟悉VB开发环境，了解和掌握利用VB读取给定格式的数据文件的方法以及利用动态数组方法对读入的数据进行存储和编辑；了解VB菜单的制作方法；熟悉VB中自定义数据类型的使用方法；熟悉VB中模块的建立方法，了解利用VB（程序建立或者控件连接）连接数据库的方法。 实验要求：（1）读取水准高差数据时要利用动态数组方法，实验编写出初步的源程序。 （2）水准高差观测数据文件格式为特定格式（见数据文件SZTJ.dat）。 （3）利用自定义类型的动态数组对读入的观测数据进行保存。 （4）利用数据控件（Data控件）或DAO对象或ADO对象将已知数据和观测数据写入数据库中。 （5）要实现菜单操作功能。 实验方案 程序设计过程: 通用声明所有通用变量，首先利用进行变量声明，整个程序中必须对所有变量进行声明，避免重复变量，利用公共定义语句进行定义变量，本实验中定义动态数组yzd用于存放已知点数据，gcz用于存放观测值数据，并且定义过程中使用的数组l和r，全局变量numknow，numunknown，numobser分别为已知点个数，未知点个数和观测值个数，定义整形变量为b，i，j，k，m，字符型变量为a，定义读入数据库过程变量为conn，rs，qs，filename，还包括对界面中的菜单栏的设置，利用菜单编辑器进行菜单的设置，分别为文件下拉栏和数据下拉栏，用于文件的读取和数据库的连接，如下图所示： 处理数据和读取数据 首先对数据的形式进行处理，将数据格式规律化 利用open语句打开文件 Open pathname For [Input/Output/Append] As filenumber [Len = buffersize] 利用Line Input#语句从已打开的文件中读出一行并进行数据格式处理 利用replace函数将不规则的多个空格转化为规则的单个空格 利用判断语句if将空行去掉 读取各项数据 利用split函数将一行的数组分别分割成若干数据，再将数据分别赋值给已定义好的变量，读取过程利用数据原格式中的， ， 为读取不同种类数据的分隔符号，利用if语句进行判断，再利用for循环语句进行逐行读取，同时也是用Redim preserve语句进行对动态数据进行重新定义，使用Debug.Print语句检查数据是否转入变量或数组，作调试作用，实际操作如下： 读入数据库和数据显示与修改 本次实验选用ADO对象数据访问方式将已读取的数据写入数据库，分别编写了两种不同类型的ADO写入代码，分别为ADO1和ADO2。 ADO1的写入方式为利用Adodc数据控件进行连接和写入数据库，利用Adodc.ConnectionString 语句连接数据库，再使用Adodc.RecordSource = 来对应数据库中的对应表格，利用 Adodc1.Recordset.AddNew语句进行对数据库逐行读入数据，分别对应数据库中的字段名，如下所示：再利用DataGrid数据控件对读入数据库的数据进行显示，利用Set DataGrid.DataSource = Adodc语句实现该功能，其中主要的函数有：Refresh，Update，RecordSource，DataSource，Recordset，AllowUpdate 连接数据库主要语句： Adodc1.ConnectionString =Provider=Microsoft.Jet.OLEDB.4.0;Data Source= App.Path \SZAdjustment.mdb;Persist Security Info=False connect to the database Adodc1.RecordSource = YZD Adodc1.Refresh Set DataGrid1.DataSource = Adodc1.Recordset ADO2的写入方式为直接利用open进行连接数据库和Feild进行写入数据库，首先先定义了读入数据库过程变量为conn，rs，qs，filename，其中conn为ADODB.Connection类型，rs和qs为ADODB.Recordset类型，filename为字符串类型，利用conn.Open 语句打开数据