2024年VB程序设计第5次形考题库.doc

Visual Basic程序设计课程基于网络考核改革试点
第5次形考

编程题（1个题， 100分 ）
1．开发一个人事档案管理数据库应用程序，要求程序运行后，通过MSFlexGrid控件在主界面上显示数据表中的内容，单击工具栏上的“增加”、“删除”、“查看”按钮，能够进行对应的操作，单击“退出”按钮，退出应用程序。程序运行界面如图5-1、5-2、5-3所示。

图5-1 程序运行主界面

图5-2 “增加”窗体运行界面

图5-3 “查看”窗体运行界面

开发步骤及要求：
１．准备工作
建立名称为“vbxk5－人事档案管理”文献夹，在该文献夹下，建立“图标”文献夹，在其中存入界面设计时所用图标。开发过程中的所有文献存储在“vbxk5－人事档案管理”文献夹中。
２．建立人事档案管理数据库
用Microsoft Access建立数据库，名称为HRM.mdb。在HRM.mdb数据库中建立“档案”和“职称”2个数据表。
　　　　　　　　　　　　　表5-1 “档案”表结构
字段名
类型
大小
阐明
编号
文本
20
主键
姓名
文本
15

职称
文本
10

简历
备注

照片
OLE 对象

表5-2 “职称”表结构
字段名
类型
大小
阐明
职称
文本

不设为主键

３．界面设计
（１）创建工程
新建一“标准EXE”工程，工程名为“HRM.vbp”。通过“工程－部件”或“工程－引用”菜单项添加ADO数据对象、工具条、MSFlexGrid等有关对象或控件，并按如下要求创建窗体，所有窗体的StartUpPosition属性均设置为：2-屏幕中心。

（2）创建主窗体（frmMain）
按图５－4所示，利用Toolbor控件、ImageList控件和MSFlexGrid控件创建“人事档案管理”主窗体。窗体名frmMain，其他控件保存缺省名称。

图5-4 主窗体设计界面

（３）创建“增加”窗体（frmAdd）
按图５－5所示，使用标签、文本框、组合框、命令按钮、图片框控件，创建“增加”窗体，窗体名为frmAdd。

图5-5 ＂增加＂窗体设计界面

（４）创建“查看”窗体（frmShow）
按图５－6所示，使用标签、文本框、组合框、命令按钮、图片框控件，创建“查询”窗体，窗体名为frmShow。

图5-6 ＂查询＂窗体设计界面

　４．代码设计
　（１）添加模块，模块代码如下：
Public cn As New ADODB.Connection
Sub main()
Dim strcn As String
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\HRM.mdb;Persist Security Info=False"
cn.Open strcn
frmMain.Show
End Sub
Public Sub SavePhoto(FName As String, strNo As String)
Dim rs As New ADODB.Recordset
Dim image_data() As Byte '¶¨ÒåͼƬ±£´æµÄ±äÁ¿

rs.ActiveConnection = cn
rs.Open "Select * From µµ°¸ Where ±àºÅ='" + strNo + "'", cn, adOpenDynamic, adLockOptimistic

If Trim(FName) <> "" Then '¼ÙÈçÓÐͼƬ£¬¿ªÊ¼µÃµ½Í¼Æ¬Îļþ
Open Trim(FName) For Binary As #1
ReDim image_data(LOF(1) - 1)
Get #1, , image_data()
Close #1
rs("ÕÕƬ").AppendChunk image_data()
rs.Update
rs.Close
Else
rs("ÕÕƬ").AppendChunk ""
rs.Update
rs.Close
End If
End Sub
（２）主窗体代码
参考试验教材试验７
（３）“增加”窗体代码
参考试验教材试验７
（４）“查询”窗体代码
参考试验教材试验７

注意：提交“vbxk5－人事档案管理”文献夹。

２．开发一个成绩查询数据库应用程序。它具备数据增加（Insert）、修改（Update）、删除（Delete）和查询（Select）功效。
开发步骤及要求：
１．准备工作
建立名称为“vbxk5－成绩查询”文献夹，在该文献夹下，建立“图标”文献夹，在其中存入界面设计时所用图标。开发过程中的所有文献存储在“vbxk5－成绩查询”文献夹中。
２．建立成绩查询数据库
用Microsoft Access或SQL Server创建一个名称为“成绩”的数据库，其中包括三张数据表，即学生成绩表、学生情况表、课程情况表，如表5－3、表5－4、表5－5、表5－6所示。

表5－3 学生成绩表
字段名
类型
长度
阐明
学号
文本
10
主键
课程号
文本
10

成绩
文本
20

表5－4 学生情况表
字段名
类型
长度
阐明
学号
文本
10
主键
姓名
文本
20

表5－5 课程情况表
字段名
类型
长度
阐明
课程号
文本
10

课程名
文本
50

表5－6 添加表统计
表 名
表统计
学生成绩表
通过程序添加
学生情况表
手工添加：（001、张红）、（002、李强）、（003、王丽）
课程情况表
手工添加：（001、数据库原理）、（002、可视化程序设计）

３．程序界面设计
（1）创建工程
新建一“标准EXE”工程，工程名为“成绩查询”，并按如下要求创建窗体，所有窗体的StartUpPosition属性均设置为：2-屏幕中心。
（2）创建主窗体（frmMain）
按图5－7所示，利用菜单技术、工具条技术创建主窗体。窗体名frmMain，其他控件保存缺省名称。

图5－7 主窗体（frmMain）运行界面
（3）创建“新增统计”窗体（frmAdd）
按图5－8所示，使用标签、文本框、组合框、命令按钮控件，添加并创建“新增统计”窗体。窗体名为frmAdd，其他控件保存缺省名称。将成绩文本框的Alignment属性设置为：1-Right Justify，使数据在右端显示。

图5－8 “增加统计”窗体（frmAdd）运行界面
（4）创建“修改统计”窗体（frmUpdate）
按图5－9所示，使用标签、文本框、组合框、命令按钮控件，添加并创建“修改统计”窗体。窗体名为frmUpdate，其他控件保存缺省名称。将成绩文本框的Alignment属性设置为：1-Right Justify，使数据在右端显示。

图5－9“修改统计”窗体（frmUpdate）运行界面
（5）创建“删除统计”窗体（frmDelete）
按图5－10所示，使用标签、组合框、命令按钮控件，添加并创建“删除统计”窗体。窗体名为frmDelete，其他控件保存缺省名称。

图5－10“删除统计”窗体（frmDelete）运行界面
（6）创建“查询统计”窗体（frmQuery）
首先使用“工程－部件”菜单添加Microsoft FlexGrid Control6.0表格控件。然后按图5－11所示，使用标签、组合框、命令按钮和FlexGrid表格控件，添加并创建“查询统计”窗体。窗体名为frmQuery，其他控件保存缺省名称。

图5－11 “查询统计”窗体（frmQuery）运行界面

４．代码设计
　　参考文字教材第7章、试验教材试验７。

注意：提交“vbxk5－成绩查询”文献夹。