《软件设计基础》教师管理系统设计报告书.docx
- 文档编号:8195174
- 上传时间:2023-01-29
- 格式:DOCX
- 页数:14
- 大小:95.58KB
《软件设计基础》教师管理系统设计报告书.docx
《《软件设计基础》教师管理系统设计报告书.docx》由会员分享,可在线阅读,更多相关《《软件设计基础》教师管理系统设计报告书.docx(14页珍藏版)》请在冰豆网上搜索。
《软件设计基础》教师管理系统设计报告书
河北联合大学
2013-2014第2学期
《软件设计基础-VB.Net》
课程设计报告
设计名称:
教师信息档案管理系统
姓名:
学号
专业班级:
12通信工程
学院:
信息工程学院
设计时间:
2014年5月20日至2014年7月1日
设计地点:
指导教师评语:
教师评定:
自评成绩:
65
指导教师签字:
年月日
1.课程设计目的
2.课程设计任务与要求
3.课程设计说明书
4.课程设计成果
5.程序调试过程
6.设计问题的不足和改进方案
7.课程设计心得
8.附录
9.参考文献
1.课程设计目的
《软件设计基础-VB.net》课程设计是这门课程的实践性教学环节之一,本次设计结合实际应用的要求,使课程设计既覆盖VB.net的知识点,又接近工程实际需要。
目的是通过课程设计的综合训练,培养学生实际分析问题、解决问题的能力,以及编程和动手能力,最终目标是通过课程设计这种形式,帮助学生系统掌握VB.net这门课程的主要内容,养成良好的编程习惯,更好的完成教学任务。
2.课程设计任务与要求:
要求:
本次课程设计利用《软件设计基础-VB.net》课程中所学到的编程知识和编程技巧,完成具有一定难度和工作量的程序设计题目,帮助学生掌握编程、调试的基本技能,独立完成所布置的任务。
要求:
1、对系统进行功能需求分析
2、设计合理的数据结构和系统框架
3、界面设计美观、清楚、合理
4、编程简练,程序功能齐全,能正确运行
5、具有一定的创新性
6、说明书、流程图要清楚
7、课题完成后必须按要求提交课程设计报告
任务:
1、利用菜单、工具栏和控件完成设计。
2、使用数据库保存教师档案等信息
3、界面友好(良好的人机交互),程序加必要的注释。
4、建立一个登录界面,输入用户名和密码。
登录后进入系统。
密码输入有三次机会,如果三次密码都不正确将直接退出程序。
3.课程设计说明书
功能描述
1、每位教师登陆后,可登记自己的档案信息,包括基本信息、承担教学情况、发表教研论文、出版教材、承担教改课题、参加教学研究会议、发表科研论文、承担科研项目、参加学术会议等情况
2、可查看自己每年度的档案信息,并可打印
管理人员:
1、可查看每位教师的档案信息,并可打印
2、可按教师姓名、系别、职称、性别等查看教师档案信息
3、可按系别、职称等统计教师发表论文、出版教材、课题、参加会议的情况,并以报表形式打印出来。
模块结构图:
根据功能分析,建立系统的体系结构,即将整个系统分解成若干子模块,用框图表示各功能模块之间的接口关系。
⑶详细设计
总体流程图:
各功能模块流程图:
⑷代码实现
PrivateSubCommand1_Click()
DimmrcAsADODB.Recordset
txtsql="selectusernamefromusewhereusername='"&Trim(Text1.Text)&"'"
Setmrc=ExecuteSQL(txtsql)
Ifmrc.EOF=TrueThen
MsgBox"用户名错误!
",vbExclamation+vbOKOnly,"警告"Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
ExitSub
EndIf
username=mrc.Fields(0)
txtsql2="selectusernamefromusewherepassword='"&Trim(Text2.Text)&"'"
Setmrc=ExecuteSQL(txtsql2)
Ifmrc.EOF=TrueThen
MsgBox"密码错误!
",vbExclamation+vbOKOnly,"警告"
Text2.SetFocus
Text2.SelStart=0
Text2.SelLength=Len(Text2.Text)
ExitSub
EndIf
txtsql="selectusernamefromusewhereusername='"&Trim(Text1.Text)&"'andpassword='"&Trim(Text2.Text)&"'"
Setmrc=ExecuteSQL(txtsql)
Ifmrc.EOF=TrueThen
MsgBox"用户名称和密码不匹配!
",vbExclamation+vbOKOnly,"警告"
ExitSub
EndIf
MDIForm1.Show
frmcpass.Text1.Text=Text1.Text
UnloadMe
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Text2.SetFocus
EndIf
EndSub
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Command1.SetFocus
EndIf
EndSub
4.2系统管理模块设计
“系统管理”模块分为“添加新用户”和“退出”两个子模块。
在“工程”菜单中选择“添加窗体”,打开“添加窗体”对话框,选择添加“窗体”。
并将新窗体保存为“frmuser1”。
进行代码设计,代码如下:
PrivateSubCommand1_Click()
IfTrim(Text1(0).Text)=""Then
MsgBox"用户名不能为空!
",vbExclamation+vbOKOnly,"警告"
Text1(0).SetFocus
ExitSub
EndIf
IfTrim(Text1
(1).Text)=""Then
MsgBox"密码不能为空!
",vbExclamation+vbOKOnly,"警告"
Text1
(1).SetFocus
ExitSub
EndIf
IfTrim(Text1
(2).Text)=""Then
MsgBox"确认密码不能为空!
",vbExclamation+vbOKOnly,"警告"
Text1
(2).SetFocus
ExitSub
EndIf
IfTrim(Text1
(1).Text)<>Trim(Text1
(2).Text)Then
MsgBox"确认密码不正确!
",vbExclamation+vbOKOnly,"警告"
Text1
(2).SetFocus
ExitSub
EndIf
DimaaAsInteger
aa=0
IfOption1
(2).Value=TrueThen
Fori=0To2
IfCheck1(i).Value=1Then
aa=1
ExitFor
EndIf
Nexti
Ifaa=0Then
MsgBox"普通用户至少要有一项权限!
",vbExclamation+vbOKOnly,"警告"
ExitSub
EndIf
EndIf
DimmrcAsADODB.Recordset
txtsql="select*fromusewhereusername='"&Trim(Text1(0).Text)&"'"
Setmrc=ExecuteSQL(txtsql)
Ifmrc.EOF=FalseThen
MsgBox"已存在该用户!
",vbExclamation+vbOKOnly,"警告"
Text1(0).SetFocus
Text1(0).SelStart=0
Text1(0).SelLength=Len(Text1(0).Text)
ExitSub
EndIf
txtsql="select*fromuse"
Setmrc=ExecuteSQL(txtsql)
mrc.AddNew
mrc.Fields(0)=Trim(Text1(0).Text)
mrc.Fields
(1)=Trim(Text1
(1).Text)
Fori=0To2
IfOption1(i).Value=TrueThen
SelectCasei
Case0
mrc.Fields("admin")="y"
Case1
mrc.Fields("readonly")="y"
Case2
Forj=0To2
IfCheck1(j).Value=1Then
SelectCasej
Case0
mrc.Fields("qx1")="y"
Case1
mrc.Fields("qx2")="y"
Case2
mrc.Fields("qx3")="y"
EndSelect
EndIf
Nextj
EndSelect
EndIf
Nexti
mrc.Update
MsgBox"用户添加成功!
",vbExclamation+vbOKOnly,"警告"
Text1(0).Text=""
Text1
(1).Text=""
Text1
(2).Text=""
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Option1
(2).Value=True
EndSub
PrivateSubForm_Resize()
Text1(0).SetFocus
EndSub
PrivateSubOption1_Click(IndexAsInteger)
IfIndex<>2Then
Fori=0To2
Check1(i).Enabled=False
Nexti
Else
Fori=0To2
Check1(i).Enabled=True
Nexti
EndIf
EndSub
rivateSubCommand1_Click()
txtsql=""
IfText1(0).Text<>""Then
Iftxtsql=""Then
txtsql="年级='"&Trim(Text1(0).Text)&"'"
Else
txtsql=txtsql&"and年级='"&Trim(Text1(0).Text)&"'"
EndIf
EndIf
IfText1
(1).Text<>""Then
Iftxtsql=""Then
txtsql="班级='"&Trim(Text1
(1).Text)&"'"
Else
txtsql=txtsql&"and班级='"&Trim(Text1
(1).Text)&"'"
EndIf
EndIf
IfText1
(2).Text<>""Then
aa=1
Iftxtsql=""Then
txtsql="专业='"&Trim(Text1
(2).Text)&"'"
Else
txtsql=txtsql&"and专业='"&Trim(Text1
(2).Text)&"'"
EndIf
EndIf
Iftxtsql=""Then
ss=MsgBox("你至少要输入一个条件以上才能查询!
",,"警告")
Text1(0).SetFocus
ExitSub
EndIf
txtsql="select*fromclasswhere"&txtsql
DimmrcAsADODB.Recordset
Setmrc=ExecuteSQL(txtsql)
Ifmrc.EOF=TrueThen
zzz=MsgBox("对不起,没有此班级的档案记录!
",vbOKOnly,"查询")
Formclass3.ZOrder(0)
Formclass3.Text1(0).SetFocus
ExitSub
EndIf
Formclass2.printstr=txtsql
classfind=True
Formclass2.Show
Formclass2.classshowtitle
Formclass2.classshowdata
Formclass2.Caption="设置查询结果"
Formclass2.ZOrder(0)
EndSub
PrivateSubForm_Unload(CancelAsInteger)
classfind=False
EndSub
Private Sub Command1_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim a As Integer
Static c As Integer
c = c + 1
If c = 4 Then
MsgBox
“
三次输入有误,本程序自动退出!
Unload Me
Exit Sub
End If
txtSQL = “select * from pwtable where
用户号= „”
& Text1.Text & “‟”
Set mrc = ExecuteSQL(txtSQL, MsgText)
If IsNumeric(Text1.Text) = False Then
MsgBox “请输入数字”
Text1.Text = “”
Text1.SetFocus
Exit Sub
ElseIf mrc.EOF = True Then
MsgBox
“
用户号输入有误,请从新输入!
Text1.SetFocus
Text1.Text = “”
Exit Sub
4.课程设计成果
课程管理的主要功能是对学校所有开设的课程进行设置,添加、修改、删除课程名称和相应的教材。
将学校开设的基本课程设置好后,就可以对选择班级进行班级课程设置,添加或者删除该班级开设的课程。
课程管理包括基本课程设置、班级课程设置两个模块。
在“工程”菜单中选择“添加窗体”,打开“添加窗体”对话框,选择添加“窗体”。
并将新窗体保存为“frmjiben”。
对模块进行总体规划,划分成小的区域,以及添加按钮。
基本课程的设置关系到本系统课程管理能否实现,因为它将添加学校所用到的所有课程,以及相应的教材。
信息量很大,因此不能只有添加功能,还必须可以对其进行修改、删除等功能。
5.设计问题的不足和改进方案
在本系统的开发过程中,由于本人是初次开发软件,在知识、经验方面都存在着不足。
另外,在整个开发的过程中,时间也比较仓促。
因此,该系统必然会存在一些缺陷和不足。
因为对学生管理的整个流程不够熟悉,在需求分析时未能做到完全满足用户的需求。
虽然网络在学生管理系统中的应用不是很多,但是未来的发展方向,在本次开发过程由于硬件的限制,未能实现网络功能,因此在以后的系统更新过程中可能会造成一些不必要的数据损失。
尽管本管理系统存在着很多不足,但其功能全面、易于日后程序更新、数据库管理容易、界面友好、操作方便、效率高、安全性好等优点是本管理系统所必需的。
相信本学生管理系统是一套学校在日常管理中必不可少的管理软件,通过开发这个系统,我掌握了的项本过程,了解了的基本知识巩固了我对VisualBasic6.0的学习,但在这次毕业设计中的最大收获并不是掌握这几门开发工具的应用,而是学会了设计系统的思维方法,以及与同学们之间相互帮助的精神
6.课程设计心得
在设计过程中,我遇到了一些问题,但通过不断看课本,将每个用到的过程都理解了,最终完成了设计,虽然还有些缺陷,终究还是很欣慰的。
通过本次设计,使我加深了对visualbasic的了解,理解了VisualBasic语言中面向对象的程序设计,培养了我的综合利用VisualBasic语言进行程序设计的能力和利用系统提供的基本控件进行创新性设计的能力,能运用数组,完成数组的各项操作。
熟练了dowhile,fornext,ifelseif等语句
我觉得只要我们敢于动脑去啃,去做,有清晰的思路,编程不是件太困难的事.1感触最深的一点是:
事先必须制定计划。
这样即使出现问题,解决时也会像修改几个导航元素一样简单。
最简单的原因是,当真正开始项目后,毫无疑问自己将充分了解自己正在尝试着作什么。
通过前期的规划,会让自己的工作变得轻松。
2.合适的开发环境
好的工具可以给我们带来方便,减少工作量。
最好使用集成的开发环境,我使用
Microsoft Visual Studio basic这个集成的开发环境对教师管理系统进行制作,它的功能强大,增强了功能并节省了应用开发的时间。
3. 不可忽视界面的设计。
一个系统的界面是十分重要的,好的界面可大大刺激顾客的购 买欲,收到以像不到的效果,所以可千万不要设计得太单调乏味,而要尽量友好一些。
4.一定要做好调试工作。
倘若像开发一个成功的教师信息管理系统,那么一定要设置好菜单,其原则是简单、
美观和实用,最重要的是可靠。
在教师信息管理系统投入运行之前,一定要做大量的调试工作,除了在自己的机上调试外,还应在别的机上测试,保证万无一失
5.相互讨论,虚心求教。
这是相互学习的好方法,也是节约开发时间的一个有力途径,同时我们可以利用网络这
个有利的条件在网上求教。
7.附录
有些需要说明的部分。
如添加ActiveX等非不标准部件,或使用文件操作时对路径有特殊要求等。
若没有特殊要求,此处为“无”。
1、无
8.参考文献
1、陈明锐.VisualBasic程序设计及应用教程.北京:
高等教育出版社,2008.12
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 软件设计基础 软件设计 基础 教师 管理 系统 设计 报告书