- 1、本文档共12页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 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)、删除
您可能关注的文档
最近下载
- 乡镇财政会议管理制度.docx VIP
- 医院预约挂号系统的设计实现.doc VIP
- 2023年河北科技师范学院网络工程专业《数据结构与算法》科目期末试卷B(有答案).docx VIP
- ICU早期康复PPT课件.pptx VIP
- 【高中化学】新人教版必修一基础知识填空(1-4章).doc
- 国开00533_管理会计-机考复习资料.docx
- 国开电大汉语言本科选修课《中国文学基础》无纸化考试(作业练习1至3+期终考试)试题及答案.pdf VIP
- 国际商务-暨南大学-中国大学MOOC慕课答案.pdf
- 2024年大学英语六级考试单词词汇表完整版(复习备考必背).pdf
- 工贸企业主要负责人和安全管理人员考题库专项测试题附答案.doc
文档评论(0)