选择系统课程设计

《选择系统课程设计》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、沈阳航空航天大学课程设计学号:2011040601222班级:14060105姓名:冉隆相指导教师:刘成沈阳航空航天大学课程设计任务书学院：机电工程学院专业：机械设计制造及其自动化班级：14060105学号：2011040601222题目：课程设计题目选择系统一、课程设计时间2013年6月17日~21日（第17周），共计1周，20学时。二、课程设计内容Access数据库表中存储了A、B、C三类课程设计题目，其中A类最难，B类次之，C类最简单，如果学生选择了A类题目，最高可以得到优秀的成绩；如果选择了B类题目，最高可以得到中等成绩；如果

2、选择的是C类题目，最高得及格成绩。学生和题目信息自拟，学生人数不少于10人，各类题目不少于5个，系统的具体功能如下：1.选题为每一个学生选择一道题目，每个学生只可以选择一道题目，每道题只能有一个学生选择，选择时既可以指定类型和题号选题，也可以指定类型后随机选题；2.查询和改选可以查询所有未选的题目和已选的题目，可以查询某名学生的选题情况，可以改选。三、课程设计要求程序质量：²贯彻事件驱动的程序设计思想。²用户界面友好，功能明确，操作方便。²代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：²课程结束后，上交课程设计

3、说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：________学生签名：________五、成绩六、教师评语目录需求分析4设计分析4关键技术6总结10完整的源程序11参考文献13需求分析课程设计题目选择系统主要指“选择题目类型以及不同类型下的题目数”和“学生名单”两种业务。为了方便查看和改选所以得对信息进行排序，并且能够显示所有未选的题目和已选的题目，可以查询某名学生的选题情况，可以改选。基于程序需要访问数据库，因此要增加ADO和DataGrid控件，要求：将ADO控件与数据库链接，以便随时访问数

4、据库。①在Access中创建列表，表中包括A、B、C三类课程设计题目类型及题号、“学生名单”（包括学生学号、学生姓名）等信息。②学生人数为10人，各类题目有5个③每一个学生必须只能选择一道题且不能选择相同的题，选择时既可以指定类型和题号选题，也可以指定类型后随机选题；④可以查询所有未选的题目和已选的题目，可以查询某名学生的选题情况，可以改选。设计分析（1）基本原理：建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。（2）总体设计：ADO技术连接数据库SQL语言连接（3）详细设计：连接数据库选择题目并记录信息录查询

5、数据更改数据查询数据某学生信息改选题目某学生信息开始已选题目未选题目关键技术1建立与数据库的连接利用ADO控件连接ACCESS表格，建立与数据库的连接代码如下PrivateSubAdodc1_WillMove(ByValadReasonAsADODB.EventReasonEnum,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)运用Adodc控件连接数据并通过其对数据进行控制，修改。2建立学生签到与查询界面PrivateSubCommand1_Clic

6、k()Label2.Visible=True“使Label2可见”Adodc1.Recordset.Find"学号='"&Text1&"'",,,1IfAdodc1.Recordset.EOFThenMsgBox"无此学号！",,"提示"ElseMsgBox"已签到！",,"提示"Adodc1.Recordset.Fields("已选题")=1“给记录集已选题赋值1”'Text1=""Form1.Hide“窗体1隐藏”Form2.Show“窗体2显示”EndIfEndSubPrivateSubCommand2_Click()Form1

7、.HideForm5.ShowEndSub3建立窗体选择选题系统界面程序如下PrivateSubCommand1_Click()IfOption1ThenForm2.Hide“窗体2隐藏”Form3.ShowElseForm2.HideForm4.Show“窗体4显示”EndIfEndSubPrivateSubCommand2_Click()Form2.HideForm1.ShowEndSub“窗体2隐藏”，“窗体1显示”3查询学生信息的数据中通过adodc控件对数据库访问程序段如下：PrivateSubCommand1_Click(

8、)IfOption2ThenAdodc1.RecordSource="select*from查表1where类型="&1&""ElseAdodc1.RecordSource="select*from空表"Trim(Com