数据库应用-VISUAL BASIC实验指导.doc

数据库应用VISUAL BASIC实验指导实验一1实验目的（1）掌握VB可视化数据管理器启动与使用；（2）掌握可视化数据管理器创建数据库和建立表格的方法；（3）掌握添加、编辑、删除、排序、过滤器、移动、查找的基本操作；（4）熟悉索引的建立与修改；（5）熟悉表格结构修改的方法。 2实验内容（1）利用可视化数据管理器创建名为：student.mdb的数据库；（2）在数据库中建立基本情况表和学生成绩表，其结构如表1.3和表1.4表1.3 基本情况表 字段名类型说明学号Text8姓名Text8专业Text10出生年月Date/Time性别Text2表1.4 学生成绩表字段名类型说明学号Text8课程Text20成绩Integer2（3）添加索引在基本情况表中以学号字段建立主索引和唯一索引；在学生成绩表中以（学号课程）建立多重索引。（4）输入数据向基本情况表输入数据表1.5学号姓名专业出生年月性别20030001欧阳立安物理82-1-21男20030002庄严物理82-9-21女20030003李华物理83-5-1男20030101丁一数学82-4-4男20030102马良数学81-12-2女20030103朱墨数学82-10-1男20030201程其峰计算机82-11-14女20030202黎明柱计算机83-2-21女20031103章万里电气82-6-3男20031104陈大友电气83-5-5男向学生成绩表输入数据表1.6学号课程成绩20030001计算机9020030001力学8220030001数学8520030001外语9220030002计算机7820030002力学 20030002数学8520030002外语7020030101计算机6820030101力学7820030101数学8820030101外语9120030102计算机9020030102力学7620030102数学8220030102外语7620030103计算机8620030103力学7520030103数学8620030103外语5420030201计算机8420030201力学6920030201数学7320030201外语9020030202计算机8420030202力学7320030202数学5520030202外语6720031103计算机8520031103力学6520031103数学8320031103外语6720031104计算机7620031104力学5620031104数学7220031104外语75（5）在可视化数据管理器中打开student.mdb数据库对表格进行添加、删除、修改、查询、排序、过滤等的各种操作。实验二1实验目的通过上机实践，了解DBMS和SQL的概貌。熟练掌握SQL的数据定义、数据操纵、完整性控制等功能；2实验内容熟悉企业管理器、查询分析器的使用操作，利用SQL语言进行基本表的创建、数据插入、数据查询、数据修改、删除的操作。具体内容详见教材P5556。实验三1实验目的（1）掌握常用控件（文本框、标签、命令按钮）的应用；（2）掌握选择性控件的属性、基本方法；（3）掌握窗口菜单、弹出式菜单的设计方法；（4）学会使用选项卡、滚动条和通用对话框的使用。 2实验内容（1）编一个账号和密码输入的检验程序。要求如下：账号不超过6位数，密码5位字符，在本题中，密码假定为ABCDE。密码输入时在屏幕上不显示输入的字符，而以*代替。当输入不正确时，如账号为非数字字符，密码不正确等，显示有关的信息。若单击重试按钮，则清除原输入的内容，重新输入。若单击取消按钮，则停止程序的运行。 （2）设计一个用于输入教师信息的应用程序，如图所示。民族和政治面貌是下拉式列表框，职称是简单列表框，水平滚动条用于输入外语熟练程度（0100）。当用户单击确定按钮后，能够在Debug窗口上输出这些信息。（提示：使用Debug.Print方法，可将选择的内容显示在立即窗口中）（3）设计一个如图所示的应用程序。当计算机和操作系统 未被选定时，它们所在框架的其它控件不能使用。如果单击Ok按钮，则在下面的标签中显示用户所选择的信息（4）设计一个如图所示的菜单系统，和一个快捷菜单，并菜单项编写有关的程序代码。实验四1实验目的（1）掌握Data控件的基本用法；（2）掌握Data 控件的DatabaseName 属性和RecordSource属性的设置；（3）掌握数据约束控件的绑定方法；（4）掌握DataSource属性和DataField属性的设置方法；（5）熟悉使用代码操作数据库的基本方法；（6）熟悉小型数据库管理系统的开发方法。 2实验内容（1）设计一个学生通讯录管理系统，要求能对系统实现输入、删除、编辑、统计、查找等基本功能；（2）通讯录具有学号、姓名、性别、电话、地址、照片等字段；（3）窗体的参考界面如图4.21所示； 图4.21 学生通讯录窗体（4）照片建议用Image控件实现，照片的输入通过一个名为照片的命令按钮，调用一个打开的公用对话框插入；（5）程序调试。实验五1实验目的（1）掌握Data数据控件的使用。（2）掌握DBEngine对象属性及其应用（3）掌握数据库绑定控件的使用（4）使用DAO浏览、查找和修改数据库记录。 2实验内容（1） 设计一个多文档窗体通过文本框、标签、图象框等绑定控件显示数据库Student.mdb表基本情况表，如图5.8所示。 图5.8 学生基本情况表（2）在上题有基础上再增加一个查询菜单，当单击查询菜单时，通过输入学号从基本情况表中查询学生情况。（3）设计一个窗体，通过DBList控和DBComdo控件浏览基本情况表的记录，分别显示姓名，专业，和出生年月，如图5.9所示。 图5.9 通过DBList控和DBComdo控件浏览基本情况表的记录实验六1实验目的（1）掌握ODBC API结构及使用。（2）认识ODBC数据源、添加ODBC数据源（3）掌握ODBC数据源分类和创建（4）掌握使用Data控件访问ODBC数据源（5）掌握使用ODBCDirect控件访问ODBC数据源 2实验内容（1）添加ODBC数据源- 在开始/设置/管理工具/数据源/在ODBC数据源管理器中，单击系统 DSN选项卡（图6.2）；- 单击添加按钮，弹出创建数据源对话框（如图6.3）；- 在名称栏选择Microsoft Access Driver (*.mdb)选项，单击完成按钮。- 弹出Microsoft OAccess Driver安装对话框（如图6.4）- 设置数据源（图6.4）- 数据源名称： Student - 数据库选项卡：选择选择按钮，设置连接有数据库。- 单击：确定。此时，如图图6.6，在System DSN选项卡中可以看到添加的数据源名。如果需要可以在此对话框删除或修改数据源的原有设置。 （2）在数据库student.mdb，使用Data控件对上题建立数据源的数据显示、查询和修改操作。如图6.7所示。 实验七1实验目的（1）掌握ADO数据控件的使用。（2）掌握ADO对象的属性及其应用（3）掌握使用ADO数据控件连接数据库（4）使用ADO浏览、查找和修改数据库记录 2实验内容（1） 设计一个窗体，通过ADO数据控件和DATA Grid数据网格控件浏览数据库student.mdb的基本情况表的记录。运行界面如图8.19所示。 图7.19 ADO数据控件和DATA Grid数据网格控件浏览数据库 （2）使用窗体向导，作一个学生基本情况应用程序，单击窗体上的按钮，实现添加、删除，更新等操作。如图8.18所示。 实验八1实验目的（1）学会使用数据环境设计器；（2）掌握数据报表设计器的使用，创建不同界面的数据报表。 2实验内容用数据报表设计器，为前面实验中已建立的数据库管理文件（.vbp）创建两个数据报表，显示不同的字段内容，并加上适当的标题和建立时间等信息。 实验九1实验目的（1）掌握对Visual Basic应用程序打包的方法。（2）掌握将应用程序发布的基本步骤。 2实验内容（1）前面实验中建立的Visual Basic应用程序进行编译，并打包在程序组里。（2）将打包后的应用程序发布到软盘中。 实验十1实验目的（1）了解Visual Basic综合应用程序的构建方法和基本框架；（2）理解如何综合利用前面个章节所讲述的知识和内容；（3）掌握Visual Basic综合应用程序的开发方法和技巧。2实验内容主要通过一个综合实例将本教程前面各章节所讲述的内容进行综合使用。建立学生数据厍(student.mdb) 使用“数据窗体设计器”生成一个名为stu的数据窗体，用于显示和维护“学生表”中的数据，再把该数据窗体设置为当前工程的启动对象。在窗体上添加1个数据控件Data1，4个标签Label1Label4，4个用于显示对应字段的文本框Text1Text4， 1个命令按钮控件数组Comd1(0)Comd1(4)。设置Data1及4个文本框的属性。编写的程序代码如下：Dim frs As New ADODB.RecordsetPrivate Sub Form_Load() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strSQL As String strSQL = SELECT * from authors conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:authors.mdb;Mode=ReadWrite; rs.CursorLocation = adUseClient rs.Open strSQL, conn, adOpenStatic, adLockOptimistic Set frs = rs Set DataGrid1.DataSource = rs End SubPrivate Sub Data1_Reposition() Data1.Caption = 第 & Data1.Recordset.AbsolutePosition + 1 & 个记录End SubPrivate Sub Data1_Validate(Action As Integer, Save As Integer) If Save = True Then y = MsgBox(要保存已更改内容吗？, vbYesNo, 保存记录) If y = vbNo Then 若回答“否” Save = False Data1.UpdateControls 恢复原值 End If End IfEnd SubPrivate Sub Comd1_Click(Index As Integer) Select Case Index Case 0 查询记录 s = Trim(InputBox(请输入要查找的学生号, 查找) xh = 学生号= & s & Data1.Recordset.FindFirst xh If Data1.Recordset.NoMatch Then MsgBox 找不到学生号为 & xh & 的学生 ! Data1.Recordset.MoveFirst End If Case 1 添加记录 Data1.Recordset.MoveLast 移到记