选择系统课程的设计.docVIP

  1. 1、本文档共13页,可阅读全部内容。
  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文档。上传文档
查看更多
选择系统课程的设计

沈 阳 航 空 航 天 大 学 课 程 设 计 学号: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

文档评论(0)

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

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

1亿VIP精品文档

相关文档