VB课设报告 教师选择系统.docVIP

沈 阳 航 空 航 天 大 学 课程设计 学 号 2010040601247 班 级 姓 名 毛 智 琦 指导教师 徐 晗 2012年 3 月 15 日沈阳航空航天大学 课程设计任务书 学院：机电工程学院 专业：机械设计制造及其自动化 班级学号：2010040601247 题目：选择教师系统 一、课程设计时间 2012年3月5日~9日（第1周），共计1周。 二、课程设计内容 有5位教师同时讲同一门课，而学习此课程的学生可以自由选取上课教师，但每个学生只能选1个老师。请编程实现这个“选教师”系统。教师名单和学生名单在“file03_选择教师系统.mdb” 数据库中。在教师名单表中存储的数据有：教师编号，教师姓名，学生人数；在学生名单表中存储的数据有：学生学号，学生姓名，所选教师姓名。 用户界面中的菜单至少应包括“学生选教师”、“查询教师情况”、“查询学生情况”、“退出”4项。 三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语 目 录 一、需求分析 4 二、设计分析 4 三、技术要点 5 四、总结 13 五、完整的源程序 14 六、参考文献 19 一、需求分析 选择教师系统，主要有学生信息、教师信息以及选教师界面组成。 （1）能够显示学生的信息，并能够按照学生条件进行查询，显示此学生选择的教师信息。 （3）能够显示教师信息，并能够按照所需条件进行查询，显示选择此教师的学生信息。 （4）能够进行学生选择老师，将所选则的教师信息保存在教师信息表里面。 二、设计分析 （1）基本原理：建立程序设计与数据库的连接，用SQL语句在数据库中查找、添加以及更改数据信息。 （2）总体设计： 图1 总体设计 （3）详细设计： 图2 详细设计 三、技术要点 一、学生、教师信息显示 （1）建立与数据库的连接代码如下： Dim mpath$, mlink$ 声明变量作为连接对象 mpath = App.Path 获取程序所在路径 If Right(mpath, 1) \ Then mpath = mpath + \ 判断是否为子目录 mlink = Provider=Microsoft.Jet.OLEDB.4.0; 指定提供者 mlink = mlink + Data Source= + mpath + file03_选择教师系统.mdb 在数据库文件名前插入路径 Adodc1.ConnectionString = mlink 设置连接属性 Adodc1.CommandType = adCmdUnknown 指定命令类型 Adodc1.RecordSource = Select * from 教师名单 Adodc1.RefreshPrivate Sub Command2_Click() Dim y As String y = Text1.Text Adodc1.RecordSource= select * from 教师名单 where id = y Adodc1.Refresh End Sub Private Sub Form_Load() Adodc2.RecordSource = select jsxm,count(*) as xsrs from 学生名单 group by jsxm 统计选择教师人数 Adodc2.Refresh 调用refresh 方法刷新 Dim n As Integer For n = 1 To 5 Adodc1.Recordset.Fields(xsrs) = Adodc2.Recordset.Fields(xsrs) Adodc1.Recordset.Update Adodc1.Recordset.MoveNext Adodc2.Recordset.MoveNext Next n Dim mpath$, mlink$ 声明变量作为连接对象 mpath = App.Path