VB程序设计第5次形考(题库)

1、Visual Basic程序设计课程基于网络考核改革试点第5次形考编程题（1个题， 100分 ）1开发一个人事档案管理数据库应用程序，要求程序运行后，通过MSFlexGrid控件在主界面上显示数据表中的内容，单击工具栏上的“增加”、“删除”、“查看”按钮，可以进行相应的操作，单击“退出”按钮，退出应用程序。程序运行界面如图5-1、5-2、5-3所示。图5-1 程序运行主界面图5-2 “增加”窗体运行界面图5-3 “查看”窗体运行界面开发步骤及要求：准备工作建立名称为“vbxk5人事档案管理”文件夹，在该文件夹下，建立“图标”文件夹，在其中存入界面设计时所用图标。开发过程中的全部文件存放在“vb

2、xk5人事档案管理”文件夹中。建立人事档案管理数据库用Microsoft Access建立数据库，名称为HRM.mdb。在HRM.mdb数据库中建立“档案”和“职称”2个数据表。表5-1 “档案”表结构字段名类型大小说明编号文本20主键姓名文本15职称文本10简历备注照片OLE 对象表5-2 “职称”表结构字段名类型大小说明职称文本不设为主键界面设计（）创建工程新建一“标准EXE”工程，工程名为“HRM.vbp”。通过“工程部件”或“工程引用”菜单项添加ADO数据对象、工具条、MSFlexGrid等相关对象或控件，并按以下要求创建窗体，所有窗体的StartUpPosition属性均设置为：2-

3、屏幕中心。（2）创建主窗体（frmMain）按图4所示，运用Toolbor控件、ImageList控件和MSFlexGrid控件创建“人事档案管理”主窗体。窗体名frmMain，其他控件保留缺省名称。图5-4 主窗体设计界面（）创建“增加”窗体（frmAdd）按图5所示，使用标签、文本框、组合框、命令按钮、图片框控件，创建“增加”窗体，窗体名为frmAdd。图5-5 增加窗体设计界面（）创建“查看”窗体（frmShow）按图6所示，使用标签、文本框、组合框、命令按钮、图片框控件，创建“查询”窗体，窗体名为frmShow。图5-6 查询窗体设计界面代码设计（）添加模块，模块代码如下：Public

4、 cn As New ADODB.ConnectionSub 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.ShowEnd SubPublic Sub SavePhoto(FName As String, strNo As String) Dim rs As New ADODB.Recordset Dim image_data() As B

5、yte 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.Upda

6、te rs.Close End IfEnd Sub（）主窗体代码参考实验教材实验（）“增加”窗体代码参考实验教材实验（）“查询”窗体代码参考实验教材实验注意：提交“vbxk5人事档案管理”文件夹。开发一个成绩查询数据库应用程序。它具有数据增加（Insert）、修改（Update）、删除（Delete）和查询（Select）功能。开发步骤及要求：准备工作建立名称为“vbxk5成绩查询”文件夹，在该文件夹下，建立“图标”文件夹，在其中存入界面设计时所用图标。开发过程中的全部文件存放在“vbxk5成绩查询”文件夹中。建立成绩查询数据库用Microsoft Access或SQL Server创建一个名

7、称为“成绩”的数据库，其中包含三张数据表，即学生成绩表、学生情况表、课程情况表，如表53、表54、表55、表56所示。表53 学生成绩表字段名类型长度说明学号文本10主键课程号文本10成绩文本20表54 学生情况表字段名类型长度说明学号文本10主键姓名文本20表55 课程情况表字段名类型长度说明课程号文本10课程名文本50表56 添加表记录表 名表记录学生成绩表通过程序添加学生情况表手工添加：（001、张红）、（002、李强）、（003、王丽）课程情况表手工添加：（001、数据库原理）、（002、可视化程序设计）程序界面设计（1）创建工程新建一“标准EXE”工程，工程名为“成绩查询”，并按以下

8、要求创建窗体，所有窗体的StartUpPosition属性均设置为：2-屏幕中心。（2）创建主窗体（frmMain）按图57所示，运用菜单技术、工具条技术创建主窗体。窗体名frmMain，其他控件保留缺省名称。图57 主窗体（frmMain）运行界面（3）创建“新增记录”窗体（frmAdd）按图58所示，使用标签、文本框、组合框、命令按钮控件，添加并创建“新增记录”窗体。窗体名为frmAdd，其他控件保留缺省名称。将成绩文本框的Alignment属性设置为：1-Right Justify，使数据在右端显示。图58 “增加记录”窗体（frmAdd）运行界面（4）创建“修改记录”窗体（frmUpd

9、ate）按图59所示，使用标签、文本框、组合框、命令按钮控件，添加并创建“修改记录”窗体。窗体名为frmUpdate，其他控件保留缺省名称。将成绩文本框的Alignment属性设置为：1-Right Justify，使数据在右端显示。图59“修改记录”窗体（frmUpdate）运行界面（5）创建“删除记录”窗体（frmDelete）按图510所示，使用标签、组合框、命令按钮控件，添加并创建“删除记录”窗体。窗体名为frmDelete，其他控件保留缺省名称。图510“删除记录”窗体（frmDelete）运行界面（6）创建“查询记录”窗体（frmQuery）首先使用“工程部件”菜单添加Microsoft FlexGrid Control6.0表格控件。然后按图511所示，使用标签、组合框、命令按钮和