2023年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－成绩查询”文献夹。