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

2024年VB程序设计第5次形考题库.doc

此“教育”领域文档为创作者个人分享资料,不作为权威性指导和指引,仅供参考
  1. 1、本文档共12页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多

VisualBasic程序设计课程基于网络考核改革试点

第5次形考

编程题(1个题,100分)

1.开发一个人事档案管理数据库应用程序,要求程序运行后,通过MSFlexGrid控件在主界面上显示数据表中的内容,单击工具栏上的“增加”、“删除”、“查看”按钮,能够进行对应的操作,单击“退出”按钮,退出应用程序。程序运行界面如图5-1、5-2、5-3所示。

图5-1程序运行主界面

图5-2“增加”窗体运行界面

图5-3“查看”窗体运行界面

开发步骤及要求:

1.准备工作

建立名称为“vbxk5-人事档案管理”文献夹,在该文献夹下,建立“图标”文献夹,在其中存入界面设计时所用图标。开发过程中的所有文献存储在“vbxk5-人事档案管理”文献夹中。

2.建立人事档案管理数据库

用MicrosoftAccess建立数据库,名称为HRM.mdb。在HRM.mdb数据库中建立“档案”和“职称”2个数据表。

表5-1“档案”表结构

字段名

类型

大小

阐明

编号

文本

20

主键

姓名

文本

15

职称

文本

10

简历

备注

照片

OLE对象

表5-2“职称”表结构

字段名

类型

大小

阐明

职称

文本

不设为主键

3.界面设计

(1)创建工程

新建一“标准EXE”工程,工程名为“HRM.vbp”。通过“工程-部件”或“工程-引用”菜单项添加ADO数据对象、工具条、MSFlexGrid等有关对象或控件,并按如下要求创建窗体,所有窗体的StartUpPosition属性均设置为:2-屏幕中心。

(2)创建主窗体(frmMain)

按图5-4所示,利用Toolbor控件、ImageList控件和MSFlexGrid控件创建“人事档案管理”主窗体。窗体名frmMain,其他控件保存缺省名称。

图5-4主窗体设计界面

(3)创建“增加”窗体(frmAdd)

按图5-5所示,使用标签、文本框、组合框、命令按钮、图片框控件,创建“增加”窗体,窗体名为frmAdd。

图5-5"增加"窗体设计界面

(4)创建“查看”窗体(frmShow)

按图5-6所示,使用标签、文本框、组合框、命令按钮、图片框控件,创建“查询”窗体,窗体名为frmShow。

图5-6"查询"窗体设计界面

4.代码设计

(1)添加模块,模块代码如下:

PubliccnAsNewADODB.Connection

Submain()

DimstrcnAsString

strcn=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=+App.Path+\HRM.mdb;PersistSecurityInfo=False

cn.Openstrcn

frmMain.Show

EndSub

PublicSubSavePhoto(FNameAsString,strNoAsString)

DimrsAsNewADODB.Recordset

Dimimage_data()AsByte?¨ò?í???±£′?μ?±?á?

rs.ActiveConnection=cn

rs.OpenSelect*Fromμμ°?Where±ào?=+strNo+,cn,adOpenDynamic,adLockOptimistic

IfTrim(FName)Then?ùè?óDí???£??aê?μ?μ?í??????t

OpenTrim(FName)ForBinaryAs#1

ReDimimage_data(LOF(1)-1)

Get#1,,image_data()

Close#1

rs(????).AppendChunkimage_data()

rs.Update

rs.Close

Else

rs(????).AppendChunk

rs.Update

rs.Close

EndIf

EndSub

(2)主窗体代码

参考试验教材试验7

(3)“增加”窗体代码

参考试验教材试验7

(4)“查询”窗体代码

参考试验教材试验7

注意:提交“vbxk5-人事档案管理”文献夹。

2.开发一个成绩查询数据库应用程序。它具备数据增加(Insert)、修改(Update)、删除

文档评论(0)

a105776456 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档