课程设计任务书：课程设计题目选择系统

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

1、沈阳航空航天大学课程设计学号75班级姓名指导教师2013年9月22日沈航设计用纸沈阳航空航天大学课程设计任务书学院：机电工程学院专业：机械设计方向班级：学号：75题目：课程设计题目选择系统一、课程设计时间2013年9月16日~22日（第4周），共计20学时。二、课程设计内容Access数据库表中存储了A、B、C三类课程设计题目，其中A类最难，B类次之，C类最简单，如果学生选择了A类题目，最高可以得到优秀的成绩；如果选择了B类题目，最高可以得到中等成绩；如果选择的是C类题目，最高得及格成绩。学生和题目信息自拟，学生人数不少于10人，各

2、类题目不少于5个，系统的具体功能如下：1.选题为每一个学生选择一道题目，每个学生只可以选择一道题目，每道题只能有一个学生选择，选择时既可以指定类型和题号选题，也可以指定类型后随机选题；2.查询和改选可以查询所有未选的题目和已选的题目；可以查询某班级所有学生的选题情况，并将此信息保存到文本文件中；可以查询某名学生的选题情况，可以改选。三、课程设计要求程序质量：²贯彻事件驱动的程序设计思想。²用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。²用户界面中的菜单至少应包括“查阅单词”、“词典维护”、“退出”3项。²代码应适当缩进，

3、并给出必要的注释，以增强程序的可读性。课程设计说明书：²课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：学生签名：第37页，共39页沈航设计用纸五、成绩六、教师评语第37页，共39页沈航设计用纸目录需求分析4设计分析4关键技术5总结7完整的源程序10参考文献18第37页，共39页沈航设计用纸一．需求分析Access数据库表中存储了A、B、C三类课程设计题目，其中A类最难，B类次之，C类最简单，如果学生选择了A类题目，最高可以得到优秀的成绩；如果选择了B类题目，最高可以得到中

4、等成绩；如果选择的是C类题目，最高得及格成绩。学生和题目信息自拟，学生人数不少于10人，各类题目不少于5个，系统的具体功能如下：1.选题为每一个学生选择一道题目，每个学生只可以选择一道题目，每道题只能有一个学生选择，选择时既可以指定类型和题号选题，也可以指定类型后随机选题；2.查询和改选可以查询所有未选的题目和已选的题目；可以查询某班级所有学生的选题情况，并将此信息保存到文本文件中；可以查询某名学生的选题情况，可以改选。二．设计分析（1）基本原理：使用Adodc控件和Adodb模型对数据库进行访问与修改，建立长须设计对access数

5、据库进行读写修改，把信息显示在文本框、list等中（2）总体设计：(2)总体设计：文本框窗体数据库列表框第37页，共39页沈航设计用纸（3）详细设计：退出进入系统选课查询选择清空选择退出按姓名查找按班级查找打印保存查询结果清除当前同学选课查询未选学生查询未选题目查询已选题目三．关键技术1ADO与ADODBADO(ACTIVEXDATAOBJECTS)是应用层的数据访问接口。ADODB是一个数据模型，是封装ADO的VB数据控件，使用的是microsoft.jet.oledb.4.0的数据库引擎2建立与数据库的连接代码如下第37页，共3

6、9页沈航设计用纸Publicmpath$,mlink$PubliccnnAsNewADODB.Connection'定义一个ADODB连接PublicrstAsADODB.Recordset'定义Recordset对象Publiccnn2AsNewADODB.Connection'定义一个ADODB连接Publicrst2AsADODB.Recordset'定义Recordset对象PublicSQL$ADODBSetcnn=NewADODB.ConnectionSetrst=NewADODB.Recordsetrst.Cursor

7、Type=adOpenKeyset'rst.LockType=adLockOptimistic'mpath=App.Path'获取程序所在的路径IfRight(mpath,1)<>""Thenmpath=mpath+""'判断是否为子目录mlink="Provider=Microsoft.Jet.OLEDB.4.0;"'指定提供者mlink=mlink+"DataSource="+mpath+"DICdb2.mdb"'在数据库文件名前插入路径cnn.ConnectionString=mlinkcnn.ConnectionTim

8、eout=30cnn.Open3程序详解程序运行，出现主窗体，如图一所示第37页，共39页沈航设计用纸图1Form2:PrivateSubCommand1_Click()Form2.HideForm1.ShowEndSub点击comm