《《软件设计基础》教师管理系统设计报告书》由会员分享，可在线阅读，更多相关《《软件设计基础》教师管理系统设计报告书（16页珍藏版）》请在金锄头文库上搜索。
1、河北联合大学河北联合大学2013-20142013-2014 第第 2 2 学期学期软软件件设设计计基基础础-VB.Net课程设计报告设计名称：设计名称： 教师信息档案管理系统 姓姓 名：名： 学学 号号 专业班级：专业班级： 12 通信工程 学学 院：院： 信息工程学院信息工程学院 设计时间：设计时间： 2014 年年 5 月月 20 日至日至 2014 年年 7 月月 1 日日 设计地点：设计地点： 指导教师评语：指导教师签字： 年 月 日教师评定：教师评定：自评成绩：自评成绩：65软件设计基础-VB.Net课程设计报告 第 2 页，共 16 页目目 录录1.课程设计目的课程设计目的2.课
2、程设计任务与要求课程设计任务与要求3.课程设计说明书课程设计说明书4.课程设计成果课程设计成果5.程序调试过程程序调试过程6.设计问题的不足和改进方案设计问题的不足和改进方案7.课程设计心得课程设计心得8.附录附录9.参考文献参考文献软件设计基础-VB.Net课程设计报告 第 3 页，共 16 页1课程设计目的软件设计基础-VB.net课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖 VB.net 的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统
3、掌握 VB.net 这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。2课程设计任务与要求：要求：本次课程设计利用软件设计基础-VB.net课程中所学到的编程知识和编程技巧，完成具有一定难度和工作量的程序设计题目，帮助学生掌握编程、调试的基本技能，独立完成所布置的任务。要求：1、对系统进行功能需求分析2、设计合理的数据结构和系统框架3、界面设计美观、清楚、合理4、编程简练，程序功能齐全，能正确运行5、具有一定的创新性6、说明书、流程图要清楚7、课题完成后必须按要求提交课程设计报告 任务：1、利用菜单、工具栏和控件完成设计。2、使用数据库保存教师档案等信息3、界面友好（良好的人机交互）
4、，程序加必要的注释。4、建立一个登录界面，输入用户名和密码。登录后进入系统。密码输入有三次机会，如果三次密码都不正确将直接退出程序。软件设计基础-VB.Net课程设计报告 第 4 页，共 16 页3课程设计说明书功能描述1、每位教师登陆后，可登记自己的档案信息，包括基本信息、承担教学情况、发表教研论文、出版教材、承担教改课题、参加教学研究会议、发表科研论文、承担科研项目、参加学术会议等情况2、可查看自己每年度的档案信息，并可打印管理人员：1、可查看每位教师的档案信息，并可打印2、可按教师姓名、系别、职称、性别等查看教师档案信息3、可按系别、职称等统计教师发表论文、出版教材、课题、参加会议的情况
5、，并以报表形式打印出来。软件设计基础-VB.Net课程设计报告 第 5 页，共 16 页模块结构图：根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功 能模块之间的接口关系。详细设计 总体流程图：各功能模块流程图：软件设计基础-VB.Net课程设计报告 第 6 页，共 16 页代码实现Private Sub Command1_Click()Dim mrc As ADODB.Recordsettxtsql = “select username from use where username=“ & Trim(Text1.Text) & “Set mrc = Execu
6、teSQL(txtsql)If mrc.EOF = True ThenMsgBox “ 用户名错误！“, vbExclamation + vbOKOnly, “警告“ Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)Exit SubEnd Ifusername = mrc.Fields(0)txtsql2 = “select username from use where password=“ & Trim(Text2.Text) & “Set mrc = ExecuteSQL(txtsql2)If mrc.EO
7、F = True Then软件设计基础-VB.Net课程设计报告 第 7 页，共 16 页MsgBox “ 密码错误！“, vbExclamation + vbOKOnly, “警告“Text2.SetFocusText2.SelStart = 0Text2.SelLength = Len(Text2.Text)Exit SubEnd Iftxtsql = “select username from use where username=“ & Trim(Text1.Text) & “and password=“ & Trim(Text2.Text) & “Set mrc = ExecuteS
8、QL(txtsql)If mrc.EOF = True ThenMsgBox “用户名称和密码不匹配！“, vbExclamation + vbOKOnly, “警告“Exit SubEnd IfMDIForm1.Showfrmcpass.Text1.Text = Text1.TextUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 The
9、nText2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCommand1.SetFocusEnd IfEnd Sub4.24.2 系统管理模块设计系统管理模块设计“系统管理”模块分为“添加新用户”和“退出”两个子模块。软件设计基础-VB.Net课程设计报告 第 8 页，共 16 页在“工程”菜单中选择“添加窗体” ，打开“添加窗体”对话框，选择添加“窗体” 。并将新窗体保存为“frmuser1” 。进行代码设计，代码如下：Private Sub Command
10、1_Click()If Trim(Text1(0).Text) = “ ThenMsgBox “用户名不能为空！“, vbExclamation + vbOKOnly, “警告“Text1(0).SetFocusExit SubEnd IfIf Trim(Text1(1).Text) = “ ThenMsgBox “密码不能为空！“, vbExclamation + vbOKOnly, “警告“Text1(1).SetFocusExit SubEnd IfIf Trim(Text1(2).Text) = “ ThenMsgBox “确认密码不能为空！“, vbExclamation + vbO
11、KOnly, “警告“Text1(2).SetFocusExit SubEnd IfIf Trim(Text1(1).Text) 2 ThenFor i = 0 To 2Check1(i).Enabled = FalseNext iElseFor i = 0 To 2Check1(i).Enabled = TrueNext iEnd IfEnd Sub软件设计基础-VB.Net课程设计报告 第 11 页，共 16 页rivate Sub Command1_Click()txtsql = “If Text1(0).Text “ ThenIf txtsql = “ Thentxtsql = “班级=“ & Trim(Text1(1).Text) & “Elsetxtsql = txtsql & “and 班级=“ & Trim(Text1(1).Text) & “End IfEnd IfIf Text1(2).Text “ Thenaa = 1If txtsql = “ Thentxtsql = “专业=“ & Trim(Text1(2).Text) & “Elsetxtsql = txtsql & “and 专业=“ & Trim(Text1(2).Text) & “End I
