- 1、本文档共13页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
选择系统课程的设计
沈 阳 航 空 航 天 大 学
课 程 设 计
学号:2011040601222
班级姓名:冉隆相
指导教师:刘成
沈阳航空航天大学
课程设计任务书
学院:机电工程学院 专业:机械设计制造及其自动化 班级学号:2011040601222题目:课程设计题目选择系统
一、课程设计时间
2013年6月17日~21日(第17周),共计1周,20学时。
二、课程设计内容
Access数据库表中存储了A、B、C三类课程设计题目,其中A类最难,B类次之,C类最简单,如果学生选择了A类题目,最高可以得到优秀的成绩;如果选择了B类题目,最高可以得到中等成绩;如果选择的是C类题目,最高得及格成绩。学生和题目信息自拟,学生人数不少于10人,各类题目不少于5个,系统的具体功能如下:
1.选题 为每一个学生选择一道题目,每个学生只可以选择一道题目,每道题只能有一个学生选择,选择时既可以指定类型和题号选题,也可以指定类型后随机选题;
2.查询和改选 可以查询所有未选的题目和已选的题目,可以查询某名学生的选题情况,可以改选。
三、课程设计要求
程序质量:
贯彻事件驱动的程序设计思想。
用户界面友好,功能明确,操作方便。
代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
课程结束后,上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:________ 学生签名:________
五、成绩
六、教师评语
目 录
需求分析 4
设计分析 4
关键技术 6
总结 10
完整的源程序 11
参考文献 13
需求分析
课程设计题目选择系统主要指“选择题目类型以及不同类型下的题目数”和“学生名单”两种业务。为了方便查看和改选所以得对信息进行排序,并且能够显示所有未选的题目和已选的题目,可以查询某名学生的选题情况,可以改选。
基于程序需要访问数据库,因此要增加ADO和DataGrid控件,要求:
将ADO控件与数据库链接,以便随时访问数据库。
在Access中创建列表,表中包括A、B、C三类课程设计题目类型及题号、“学生名单”(包括学生学号、学生姓名)等信息。
学生人数为10人,各类题目有5个
③每一个学生必须只能选择一道题且不能选择相同的题,选择时既可以指定类型和题号选题,也可以指定类型后随机选题;
④可以查询所有未选的题目和已选的题目,可以查询某名学生的选题情况,可以改选。
设计分析
基本原理:建立程序设计与数据库的连接,用SQL语句在数据库中查找,添加和更改数据。
总体设计:
(3)详细设计:
关键技术
1建立与数据库的连接
利用ADO控件连接ACCESS表格,建立与数据库的连接代码如下
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
运用Adodc控件连接数据并通过其对数据进行控制,修改。
2建立学生签到与查询界面
Private Sub Command1_Click()
Label2.Visible = True “使Label2可见”
Adodc1.Recordset.Find 学号= Text1 , , , 1
If Adodc1.Recordset.EOF Then
MsgBox 无此学号!, , 提示
Else
MsgBox 已签到!, , 提示
Adodc1.Recordset.Fields(已选题) = 1 “给记录集已选题赋值1”
Text1 =
Form1.Hide “窗体1隐藏”
Form2.Show “窗体2显示”
End If
End Sub
Private Sub Command2_Click()
Form1.Hide
Form5.Show
End Sub
3建立窗体选择选题系统界面
程序如下
Private Sub Command1_Click()
If Option1 Then
Form2.Hide “窗体2隐藏”
Form3.Show
Else
Form2.Hide
Form4.Show “窗体4显示”
End If
End Sub
Private Sub Command2_Click()
Form2.Hide
Form1.Show
End Sub “窗体2隐藏”, “窗体1显示”
Private Sub Command1_Click()
If Option2 Then
Adodc1.Rec
您可能关注的文档
- 轨道交通3号线土建TJ14标的项目经理部区间盾构施工测量的方案.doc
- 轨道交通六号线大竹林车辆段与综合基地挡墙护坡工程钢筋砼方格骨架锚杆护坡施工的方案.doc
- 轨道交通x号线车辆段工程通风空调工程专项施工的方案.doc
- 轨道交通X号线工程土建施工的项目X站~X站区间下穿XX河流段及侧穿桥梁河道段专项施工的方案.doc
- 轨道交通区间预应力技术及安全专项的方案.doc
- 轨道交通支线x路站配套地下空间石灰土路基施工的方案.doc
- 轨道交通2号线一期工程实施性施工组织的设计.doc
- 轨道交通站电力迁改竖井及暗挖隧道开挖专项施工的方案.doc
- 轨道交通站主体结构模板及支撑的体系专项施工的方案.doc
- 轨道交通车站基坑二重管高压旋喷桩施工的方案.doc
文档评论(0)