Visual Basic程序设计课程基于网络考核改革试点
第5次形考
编程题（1个题， 100分 ）
1．开发一个人事档案管理数据库应用程序，要求程序运行后，通过MSFlexGrid控件在主界面上显示数据表中的内容，单击工具栏上的“增加”、“删除”、“查看”按钮，可以进行相应的操作，单击“退出”按钮，退出应用程序。程序运行界面如图5-1、5-2、5-3所示。
图5-1 程序运行主
图5-2 “增加”窗体运
图5-3 “查看”窗体运
开发步骤及要求： １．准备工作
建立名称为“vbxk5－人事档案管理”文件夹，在该文件夹下，建立“图标”文件夹，在其中存入界面设计时所用图标。开发过程中的全部文件存放在“vbxk5－人事档案管理”文件夹中。
２．建立人事档案管理数据库
用Microsoft Access建立数据库，名称为。在数据库中建立“档案”和“职称”2个数据表。
表5-1 “档案”表结构 字段名 编号 姓名 职称 简历 照片 类型 文本 文本 文本 备注 OLE 对象 大小 20 15 10 说明 主键 表5-2 “职称”表结构
字段名 职称
３．界面设计 （１）创建工程
新建一“标准EXE”工程，工程名为“”。通过“工程－部件”或“工程－引用”菜单
类型 文本 大小 说明 不设为主键
项添加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 Sub main()
Dim strcn As String
strcn = \ strcn End Sub
Public Sub SavePhoto(FName As String, strNo As String) Dim rs As New
Dim image_data() As Byte '?¨ò?í???±￡′?μ?±?á?
= cn
\* From μμ°? Where ±ào?='\+ strNo + \cn, adOpenDynamic, adLockOptimistic
If Trim(FName) <> \ Open Trim(FName) For Binary As #1 ReDim image_data(LOF(1) - 1)
Get #1, , image_data() Close #1
rs(\endChunk image_data() Else
rs(\ End If End Sub
（２）主窗体代码 参考实验教材实验７ （３）“增加”窗体代码 参考实验教材实验７ （４）“查询”窗体代码 参考实验教材实验７
注意：提交“vbxk5－人事档案管理”文件夹。
２．开发一个成绩查询数据库应用程序。它具有数据增加（Insert）、修改（Update）、删除（Delete）和查询（Select）功能。
开发步骤及要求： １．准备工作
VB程序设计第5次形考(题库)
