选择系统课程设计

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

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

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

4、 学生人数为10人，各类题目有5个每一个学生必须只能选择一道题且不能选择相同的题，选择时既可以指定类型和题号选题，也可以指定类型后随机选题；可以查询所有未选的题目和已选的题目，可以查询某名学生的选题情况，可以改选。设计分析（1） 基本原理：建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。（2） 总体设计：ADO 技术连接数据库SQL语言连接（3）详细设计：连接数据库选择题目并记录信息录查询数据更改数据查询数据某学生信息改选题目某学生信息开始已选题目未选题目关键技术1建立与数据库的连接利用ADO控件连接ACCESS表格，建立与数据库的连接代码如下Private Sub A

5、dodc1_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 & "'

6、", , , 1If Adodc1.Recordset.EOF ThenMsgBox "无此学号！", , "提示"ElseMsgBox "已签到！", , "提示"Adodc1.Recordset.Fields("已选题") = 1 “给记录集已选题赋值1”'Text1 = ""Form1.Hide “窗体1隐藏” Form2.Show “窗体2显示”End IfEnd SubPrivate Sub Command2_Click()Form1.HideFo

7、rm5.ShowEnd Sub3建立窗体选择选题系统界面程序如下Private Sub Command1_Click()If Option1 ThenForm2.Hide “窗体2隐藏”Form3.ShowElseForm2.HideForm4.Show “窗体4显示” End IfEnd SubPrivate Sub Command2_Click()Form2.HideForm1.ShowEnd Sub “窗体2隐藏”， “窗体1显示”3查询学生信息的数据中通过adodc控件对数据库访问程序段如下： Private Sub Command1_Click()If Option2 ThenAdo

8、dc1.RecordSource = "select * from 查表1 where 类型=" & 1 & ""ElseAdodc1.RecordSource = "select * from 空表"Trim(Combo1.Text) & "'" “通过adodc控件访问数据库并通过dategrid控件显示信息”Adodc1.RefreshAdodc1.RecordSource = "select * from 查询已选"ElseAdodc1.RecordSou

9、rce = "select * from 空表"If Option2 ThenAdodc1.RecordSource = "select * from 查询未选"ElseAdodc1.RecordSource = "select * from 空表"If Option3 ThenAdodc1.RecordSource = "select * from 输入姓名查询 where 姓名=" & Text1 & ""ElseAdodc1.RecordSource = "sel

10、ect * from 空表"End IfEnd IfEnd IfAdodc1.RefreshEnd SubText1.Text = Str(Adodc1.Recordset.RecordCount)'Adodc1.RecordSource = "select * from 学生名单 where 学生姓名 = '" & Trim(Combo1.Text) & "'"“对adodc控件注释连接两个adodc控件” 'Adodc1.Refresh Adodc1.Recordset.Update“查询学生

11、选题信息”End Sub “结束程序”总结 这次课设我的题目是课程设计题目选择系统，通过这次课设让我更加深入地了解了VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行联系，还可以应用SQL语言查询和更改数据库中的信息， 通过完成这些作品，学生巩固、加深了对相关知识的理解，加强了知识之间的联系，促进了知识的迁移和应用。同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，学生看到凝聚着自己的心血、汗水、思维和创新的作品，通过同学之间作品的对比，提供了一个相互学习交流的平台，激发了学生的竞争意识。计算机的应用加快了人类发展的脚步，作为当代大学生学好VB对以后的生活

12、有很大的帮助。因此，我们都应该认真对待这一科目。完整的源程序窗体1Label2.Visible = TrueAdodc1.Recordset.Find "学号='" & Text1 & "'", , , 1If Adodc1.Recordset.EOF ThenMsgBox "无此学号！", , "提示"ElseMsgBox "已签到！", , "提示"Adodc1.Recordset.Fields("已选题") = 1&#

13、39;Text1 = ""Form1.HideForm2.ShowEnd IfEnd SubPrivate Sub Command2_Click()Form1.HideForm5.ShowEnd SubPrivate Sub Form_Load()Dim mpath$, mlink$mpath = App.PathIf Right(mpath, 1) <> "" Then mpath = mpath + ""mlink = "Provider=Microsoft.Jet.OLEDB.4.0;"mlink

14、 = mlink + "Data Source=" + mpath + "Database5.mdb"Adodc1.ConnectionString = mlinkAdodc1.CommandType = adCmdUnknownEnd Sub窗体2Private Sub Command1_Click()If Option1 ThenForm2.HideForm3.ShowElseForm2.HideForm4.ShowEnd IfEnd SubPrivate Sub Command2_Click()Form2.HideForm1.ShowEnd Sub

15、窗体3mlink = "Provider=Microsoft.Jet.OLEDB.4.0;"mlink = mlink + "Data Source=" + mpath + "Database5.mdb"Adodc1.ConnectionString = mlinkAdodc1.CommandType = adCmdUnknown'Option2.Enabled = False'Option3.Enabled = False'Option4.Enabled = False'Text1.Locked =

16、TrueEnd SubPrivate Sub Option1_Click()Text1 = ""Option2.Enabled = TrueOption3.Enabled = TrueOption4.Enabled = TrueText1.Locked = TrueEnd SubPrivate Sub Option5_Click()Text1.Locked = FalseOption2.Enabled = FalseOption3.Enabled = FalseOption4.Enabled = FalseEnd Sub窗体4Adodc1.RecordSource = &q

17、uot;select * from 空表"End IfEnd IfEnd IfAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.Fields("已选") = 1MsgBox "已选题", , "提示"Form4.HideForm1.ShowEnd SubPrivate Sub Command3_Click()Form4.HideForm1.ShowEnd SubPrivate Sub Form_Load()Dim mpath$, mlink$m

18、path = App.PathIf Right(mpath, 1) <> "" Then mpath = mpath + ""mlink = "Provider=Microsoft.Jet.OLEDB.4.0;"mlink = mlink + "Data Source=" + mpath + "Database5.mdb"Adodc1.ConnectionString = mlinkAdodc1.CommandType = adCmdUnknownEnd Sub窗体5Adodc1.RecordSource = "select * from 查询已选"ElseAdodc1.RecordSource = "select * from 空表"If Option2 ThenAdodc1.RecordSource = "select * from 查询未选"ElseAdodc1.RecordSource