- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
浙江广播电视大学2003-2004学年度第一学期期末考试
《程序设计实践》模拟试题3答案
填空题:每空1分,共20分
1、数据库、数据库中的数据表 2、利用VB的可视化数据管理器进行数据的增加、通过Microsoft Access 2000打开创建的人事管理数据库,在为人事管理数据表增加记录。
3、过程代码、编制过程代码 4、类
5、关键字段、共同的字段 6、选择查询、过滤查询
7、DataBaseName、Connect、RecordSourse
8、ConnectString、RecordSource、True、Ture、Ture、Adodc1
简答题:每题10分,共20分
请简单写出在VB集成开发环境中制作数据库和创建数据表的步骤。
在VB集成开发环境中制作数据库的步骤:
(1)启动VB应用程序,出现VB应用系统开发主界面
(2)在VB主菜单中单击“外接程序(A)|可视化数据管理器(V)”,出现可视化数据管理器界面。
(3)单击“文件|新建(N)|Microsoft Access|Version 7.0 MDB(7)”菜单项
?(4)在单击菜单后出现文件保存对话框,在对话框中选择磁盘驱动器和文件夹名称。
创建数据表的步骤:
(1)在可视化数据管理器中打开数据库
(2)在数据库管理器中选择数据库文件
(3)右击数据库文件,出现弹出式菜单
(4)在弹出式菜单中单击“新建表(T)”菜单项,出现数据表结构设计器对话框,输入数据表的字段
2、Form1窗体,它是一个空白窗体,是主窗体,通过它可以对子窗体的调用。如何制作主窗体并用主窗体调用子窗体?
需要对主窗体进行开发和编制相关的程序,过程如下:
(1)在工程设计器中选择Form1
(2)在主窗体中加入一个命令控件Command1
(3)双击命令控件,编制Click过程代码,其代码如下;
Private Sub Command1_Click()
frm人事管理窗体.show
End Sub
(4)????? 修改主窗体的Caption属性为“人事系统主界面”
运行工程并检验子窗体的调用
保存工程。保存工程的过程中,需要为工程名命名,每一个窗体也要需要命名。
程序题:每题20分,共40分
1、用ADODC控件、表格控件和数据导航制作一个工资管理系统,首先进行数据库和数据表的设计,然后制作一个工资处理窗体,在窗体中先放入一个ADODC1控件,设置属性,接着放入一个数据表格DataGrid控件,设置它的属性,将两个数据控件进行绑定。最后在窗体中放入四个命令按钮,设置它们的Caption属性分别为“第一条记录”、“前一条记录”、“下一条记录”、“最后一条记录”,请分别为四个命令按钮编制过程代码。(写出每个按钮的过程代码得5分,共20分)
(1)“第一条记录”按钮的过程代码
Private Sub Cmdfirst_Click()
If Adodc1.Recordset.BOF=True Then
MsgBox(“已经在第一条记录!”)
Else
Adodc1.Recordset.MoveFirst
End If
End Sub
(2)“前一条记录”按钮的过程代码
Private Sub Cmdprevious_Click()
If Adodc1.Recordset.BOF=True Then
MsgBox(“已经在第一条记录!”)
Else
Adodc1.Recordset.MovePrevious
End If
End Sub
(3)“后一条记录”按钮的过程代码
Private Sub Cmdprevious_Click()
If Adodc1.Recordset.EOF=True Then
MsgBox(“已经在最后一条记录!”)
Else
Adodc1.Recordset.MoveNext
End If
End Sub
(4)“最后一条记录”按钮的过程代码
Private Sub Cmdprevious_Click()
If Adodc1.Recordset.EOF=True Then
MsgBox(“已经在第一条记录!”)
Else
Adodc1.Recordset.MoveLast
End If
End Sub
2、用VB控件制作一个大学的学生管理系统中,设计并建立好数据库和数据表,制作好一个窗体中添加五个命令控件按钮,分别设置他们的Caption属性为“添加记录”,“删除记录”,“更新记录”,“查询记录”,“结束操作”,请分别为五个命令控件按钮编制过程代码?“真的要删除当前记录吗?”,vbYesNo,”信息提示”)=vbYes Then
Data1.Recordset.Delete
您可能关注的文档
最近下载
- 光伏电站运行常见故障及技术解决方案.pdf VIP
- 军队文职考试《公共科目》试题与参考答案(2024年).docx VIP
- 生成式AI在小学英语课堂中的应用:教师教学决策优化研究教学研究课题报告.docx
- 初二物理导学案-全一册.pdf VIP
- 邮政企业快递企业安全生产重大事故隐患判定标准解读.pdf VIP
- 人民大2023学术规范和论文写作PPT第2章 选:论文选题与研究设计.pptx VIP
- 2025年中国食品级碳酸氢钠数据监测报告.docx
- 能源与动力工程研究教授——程林同志事迹材料— .doc VIP
- 高中物理竞赛-话题5:多质点在动态多边形顶点的相遇问题和多解问题.doc VIP
- 《提升基层干部管理能力》课件.ppt VIP
文档评论(0)