选择教师系统.docx
- 文档编号:28373802
- 上传时间:2023-07-10
- 格式:DOCX
- 页数:11
- 大小:48.87KB
选择教师系统.docx
《选择教师系统.docx》由会员分享,可在线阅读,更多相关《选择教师系统.docx(11页珍藏版)》请在冰豆网上搜索。
选择教师系统
沈阳航空航天大学
课程设计
学号2011040301127
班级14030103
姓名张宇恒
指导教师董如楠
2013年3月14日
沈阳航空航天大学
课程设计任务书
学院:
空军后备军官学院专业:
飞行器制造工程班级:
14030103
学号:
2011040301127题目:
选择教师系统
一、课程设计时间
2013年3月11日~15日(第1周),共计1周。
二、课程设计内容
有5位教师同时讲同一门课,而学习此课程的学生可以自由选取上课教师,但每个学生只能选1个老师。
请编程实现这个“选教师”系统。
教师名单和学生名单在“file03_选择教师系统.mdb”数据库中。
在教师名单表中存储的数据有:
教师编号,教师姓名,学生人数;在学生名单表中存储的数据有:
学生学号,学生姓名,所选教师姓名。
用户界面中的菜单至少应包括“学生选教师”、“查询教师情况”、“查询学生情况”、“退出”4项。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便;可以增加其它功能或修饰。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课程结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
________学生签名:
________
五、成绩
六、教师评语:
目录
一、需求分析4
二、设计分析4
三、关键技术6
四、总结8
五、完整的源程序8
六、参考文献13
一、需求分析
模拟选择教师系统,主要指“选择教师”和“查询选择情况”2种业务。
有5位教师同时讲同一门课,而学习此课程的学生可以自由选取上课教师,但每个学生只能选1个老师。
要求:
①在Access中创建“教师名单”和“学生名单”表。
“教师名单”表应包括教师编号,教师姓名和所选人数三方面信息。
“学生名单”表应包括学生编号,学生姓名和教师姓名三方面信息。
以便更新和查询选择教师情况。
②能够随时查询学生选择情况。
③能够随时查询教师选择情况。
二、设计分析
(1)基本原理:
建立程序设计与数据库的连接,将文本框绑定到数据库,添加和更改数据。
(2)总体设计:
图1总体设计
(3)详细设计:
图2详细设计
(4)数据库设计:
数据库设计是总体设计阶段非常重要的环节,数据库结构的变化会造成编码的改动,所以必须认真设计数据库结构后再进行编码,从而避免无谓的重复工作。
本系统的数据库包括2个表,即“教师名单”表,“学生名单”表。
1)“教师名单”表
“教师名单”表用于记录教师编号,教师姓名,所选人数等信息,其逻辑结构如表1所示。
表1教师名单
字段名称
字段类型
id
文本型
jsxm
文本型
sxrs
数字型
2)“学生名单”表
“学生名单”表用于记录学生选择情况,包括学生编号,学生姓名和教师姓名,其逻辑结构如表2所示。
表2学生成绩表
字段名称
字段类型
Id
文本型
xsxm
文本型
jsxm
文本型
三.关键技术
(1)建立与数据库的连接。
右击Adodc,选择“ADODC属性”
单击“生成”按钮,选择Provider=Microsoft.Jet.OLEDB.4.0单击“下一步”,输入数据库名称,再单击确定
选择“记录源”选项卡,然后命令类型选2-adCmdTable,再输入表单击确定即可。
(2)学生选教师。
1)界面设计如下:
2)程序设计如下:
PrivateSubCommand1_Click()
Dima%
a=Adodc1.Recordset.AbsolutePosition
SelectCasea
Case1
IfText3.Text="崔晓莲"Then
MsgBox"您已选择了崔晓莲老师",0,提示
ExitSub
Else
MsgBox"您已选择了崔晓莲老师",0,提示
Text3.Text="崔晓莲"
Adodc2.Recordset.MoveNext
Adodc2.Recordset.MovePrevious
Text6.Text=Text6.Text+1
Adodc1.Recordset.MoveNext
Adodc1.Recordset.MovePrevious
EndIf
Case2……(以下基本同上,不再列出)
EndSelect
EndSub
四、总结
这次课设我的题目是选择教师系统,通过这次课设让我了解了VB与数据库之间的联系,可以应用ADO技术使VB与数据库进行联系,还可以应用SQL语言查询和更改数据库中的信息,并能向其中添加新的信息。
在课设过程中,我遇到了许多困难,例如:
VB与数据库的连接技术,尤其是通过编程实现对数据库的更新和修改通过老师的指点和自己查阅资料,我克服了困难,顺利的完成了任务。
同时我也了解了VB的出现是一场技术革命,它在生活中各个方面都能发挥巨大的作用,所以,学好VB是社会发展的需要。
五、完整的源程序
Form1:
PrivateSubCommand1_Click()
Form2.Show
EndSub
PrivateSubCommand2_Click()
Form3.Show
EndSub
PrivateSubCommand3_Click()
Form4.Show
EndSub
PrivateSubCommand4_Click()
End
EndSub
PrivateSubCommand5_Click()'验证用户名和密码
IfText1="段楠"OrText1="陈勇强"OrText1="郑丽"OrText1="明章静"OrText1="吕为"OrText1="杨明明"OrText1="刘鹏飞"OrText1="李媛媛"OrText1="石垒"OrText1="郑莉"AndText2="888888"Then
Frame1.Visible=True
Frame2.Visible=False
Else
MsgBox"用户名或密码错误"
EndIf
EndSub
PrivateSubForm_Load()
Frame1.Visible=False
Frame2.Visible=True
Label4.Caption="请注意:
用户名为学生姓名"+vbCrLf+"原始密码是888888"
Form2:
PrivateSubCommand1_Click()
Dima%
a=Adodc1.Recordset.AbsolutePosition'记录指针所在位置
SelectCasea
Case1
IfText3.Text="崔晓莲"Then'检验学生是否以前已选过老师
MsgBox"您已选择了崔晓莲老师",0,提示
ExitSub
Else
MsgBox"您已选择了崔晓莲老师",0,提示
Text3.Text="崔晓莲"'添加所选老师
Adodc2.Recordset.MoveNext'将数据保存到数据库
Adodc2.Recordset.MovePrevious
Text6.Text=Text6.Text+1'所选老师人数增加
Adodc1.Recordset.MoveNext'将数据保存到数据库
Adodc1.Recordset.MovePrevious
EndIf
Case2
IfText3.Text="朱明艳"Then
MsgBox"您已选择了朱明艳老师",0,提示
ExitSub
Else
MsgBox"您已选择了朱明艳老师",0,提示
Text3.Text="朱明艳"
Adodc2.Recordset.MoveNext
Adodc2.Recordset.MovePrevious
Text6.Text=Text6.Text+1
Adodc1.Recordset.MoveNext
Adodc1.Recordset.MovePrevious
EndIf
Case3
IfText3.Text="于海霞"Then
MsgBox"您已选择了于海霞老师",0,提示
ExitSub
Else
MsgBox"您已选择了于海霞老师",0,提示
Text3.Text="于海霞"
Adodc2.Recordset.MoveNext
Adodc2.Recordset.MovePrevious
Text6.Text=Text6.Text+1
Adodc1.Recordset.MoveNext
Adodc1.Recordset.MovePrevious
EndIf
Case4
IfText3.Text="王林"Then
MsgBox"您已选择了王林老师",0,提示
ExitSub
Else
MsgBox"您已选择了王林老师",0,提示
Text3.Text="王林"
Adodc2.Recordset.MoveNext
Adodc2.Recordset.MovePrevious
Text6.Text=Text6.Text+1
Adodc1.Recordset.MoveNext
Adodc1.Recordset.MovePrevious
EndIf
Case5
IfText3.Text="罗育勇"Then
MsgBox"您已选择了罗育勇老师",0,提示
ExitSub
Else
MsgBox"您已选择了罗育勇老师",0,提示
Text3.Text="罗育勇"
Adodc2.Recordset.MoveNext
Adodc2.Recordset.MovePrevious
Text6.Text=Text6.Text+1
Adodc1.Recordset.MoveNext
Adodc1.Recordset.MovePrevious
EndIf
EndSelect
EndSub
PrivateSubCommand2_Click()
Form1.Show
UnloadMe
EndSub
Form3:
PrivateSubCommand1_Click()
Form1.Show
UnloadMe
EndSub
Form4:
PrivateSubCommand1_Click()
Form1.Show
UnloadMe
EndSub
六、参考文献
[1]刘瑞新.《VisualBasic程序设计教程》.北京:
机械工业出版社,2003
[2]龚沛曾杨志强.《VisualBasic程序设计教程》.高等教育出版社,2007
[3]周永恒.《VisualFoxPro基础教程》.北京:
高等教育出版社,2006
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 选择 教师 系统