2021年度VB程序设计第5次形考题库.docVIP

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 ±ào?= + strNo + ，cn，adOpenDynamic，adLockOptimistic If Trim(FName) Then ?ùè?óDí???￡??aê?μ?μ?í??????t 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）和查询