VisualBasic程序设计课程基于网络考核改革试点第5次形考编程题（1个题，100分）1．开发一种人事档案管理数据库应用程序，规定程序运行后，通过MSFlexGrid控件在主界面上显示数据表中的内容，单击工具栏上的“增长”、“删除”、“查看”按钮，可以进行对应的操作，单击“退出”按钮，退出应用程序。程序运行界面如图5-1、5-2、5-3所示。图5-1程序运行主界面图5-2“增长”窗体运行界面开发环节及规定：１．准备工作建立名称为“vbxk5－人事档案管理”文献夹，在该文献夹下，建立“图标”文献夹，在其中存入界面设计时所用图标。开发过程中的所有文献寄存在“vbxk5－人事档案管理”文献夹中。２．建立人事档案管理数据库用MicrosoftAccess建立数据库，名称为HRM.mdb。在HRM.mdb数据库中建立“档案”和“职称”2个数据表。表5-1“档案”表构造字段名类型大小阐明编号文本20主键姓名文本15职称文本10简历备注照片OLE对象表5-2“职称”表构造字段名类型大小阐明职称文本不设为主键３．界面设计图5-3“查看”窗体运行界面（１）创立工程新建一“原则EXE”工程，工程名为“HRM.vbp”。通过“工程－部件”或“工程－引用”菜单项添加ADO数据对象、工具条、MSFlexGrid等有关对象或控件，并按如下规定创立窗体，所有窗体的StartUpPosition属性均设置为：2-屏幕中心。（2）创立主窗体（frmMain）按图５－4所示，运用Toolbor控件、ImageList控件和MSFlexGrid控件创立“人事档案管理”主窗体。窗体名frmMain，其他控件保留缺省名称。（３）创立“增长”窗体（frmAdd）按图５－5所示，使用标签、文本框、组合框、命令按钮、图片框控件，创立“增长”窗体，窗体名为frmAdd。图5-4主窗体设计界面（４）创立“查看”窗体（frmShow）按图５－6所示，使用标签、文本框、组合框、命令按钮、图片框控件，创立“查询”窗体，窗体名为frmShow。图5-5＂增长＂窗体设计界面图5-6＂查询＂窗体设计界面４．代码设计（１）添加模块，模块代码如下：PubliccnAsNewADODB.ConnectionSubmain()DimstrcnAsStringstrcn="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+App.Path+"\HRM.mdb;PersistSecurityInfo=False"cn.OpenstrcnfrmMain.ShowEndSubPublicSubSavePhoto(FNameAsString,strNoAsString)DimrsAsNewADODB.RecordsetDimimage_data()AsByte'¶¨ÒåͼƬ±£´æµÄ±äÁ¿rs.ActiveConnection=cnrs.Open"Select*Fromµµ°¸Where±àºÅ='"+strNo+"'",cn,adOpenDynamic,adLockOptimisticIfTrim(FName)<>""Then'¼ÙÈçÓÐͼƬ£¬¿ªÊ¼µÃµ½Í¼Æ¬ÎļþOpenTrim(FName)ForBinaryAs#1ReDimimage_data(LOF(1)-1)Get#1,,image_data()Close#1rs("ÕÕƬ").AppendChunkimage_data()rs.Updaters.CloseElsers("ÕÕƬ").AppendChunk""rs.Updaters.CloseEndIfEndSub（２）主窗体代码参照试验教材试验７（３）“增长”窗体代码参照试验教材试验７（４）“查询”窗体代码参照试验教材试验７注意：提交“vbxk5－人事档案管理”文献夹。２．开发一种成绩查询数据库应用程序。它具有数据增长（Insert）、修改（Update）、删除（Delete）和查询（Select）功能。开发环节及规定：１．准备工作建立名称为“vbxk5－成绩查询”文献夹，在该文献夹下，建立“图标”文献夹，在其中存入界面设计时所用图标。开发过程中的所有文献寄存在“vbxk5－成绩查询”文献夹中。２．建立成绩查询数据库用MicrosoftAccess或SQLServer创立一种名称为“成绩”的数据库，其中包括三张数据表，即学生成绩表、学生状况表、课程状况表，如表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”工...
