开发教师系统毕业论文.doc

开发教师系统毕业论文开发教师系统毕业论文 目 录 摘 要I ABSTRACTII 第一章 引言1 1 1 背景1 1 1 1 教师管理系统1 1 2 开发教师管理系统的目的和原则3 1 3 开发环境介绍3 1 3 1 开发平台4 1 3 2 数据库设计工具 ACCESS 数据库管理系统 7 第二章 系统设计 9 2 1 系统分析9 2 2 系统流程和操作方式设计11 第三章 系统界面设计 12 3 1 系统界面设计以及代码分析 12 第四章 数据库的设计30 4 1 数据库设计 30 4 2 数据库概念和发展 30 4 3 系统测试与评价38 总 结39 致 谢 40 参考文献41 摘摘 要要 20 世纪以来 社会生产力迅速发展 科学技术突飞猛进 人们进行信息交 流的深度与广度不断增加 信息量急剧增长 传统的信息处理与决策的手段已 不能适应社会的需要 信息的重要性和信息处理问题的紧迫性空前提高了 面 对着日益复杂和不断发展 变化的社会环境 特别是企业间日趋剧烈的竞争形 势 一个人 一个企业要在现代社会中求生存 求发展 必须具备足够的信息 和强有力的信息收集与处理手段 对于一个学校来说 大量教师信息难于通过传统的方法进行管理 这就迫 切需要利用计算机技术来帮助学校管理者来处理教师信息的日常管理 教师管理 系统是管理信息系统的一个典型用例 管理信息系统是一个集信息技术 经济管理理论 统计学与运筹学 数据 库技术为一体的综合性系统 是一个资金技术密集型 劳动密集型 智力密集 型的项目 我国拥有广阔的市场和丰富的人才资源 有几十年的技术积累和经 验积累 有一定的后发优势 管理信息系统的创新工作既不能妄自菲薄 更不 能夜郎自大 要抓住当前网络经济兴起的有利时机 以实现我国信息技术和信 息产业的跨越式发展 更好地发挥信息产业对国民经济增长的拉动作用 开发学校教师管理系统的过程就是要实现数据处理方式由人工管理向计算 机管理的转变 它在计算机技术和教师管理实践活动两者之间架设桥梁 关键字 教师管理 管理信息系统 数据库 计算机管理 AbstractAbstract Since the 20th century the rapid development of social productive forces science and technology exchange of information is the depth and scope of increasing the volume of information rapid growth the traditional information processing and decision making tools have not the needs of the community the importance of information and information processing problems urgency unprecedented increase in the face of increasingly complex and evolving changes in the social environment in particular the increasingly keen competition among enterprises situation a person or an enterprise to survive in modern society and development we must have sufficient information and powerful information gathering and processing tools For a school a lot of information to teachers through traditional means This urgent need for using computer technology to help school managers to deal with the day to day management of information teachers Teachers management system is a typical use of management information systems cases Management Information System is a collection of information technology economic management theory statistics and research database integration technology for the integrated system is a capital and technology intensive and labor intensive intellectual intensive projects China has a vast market and abundant human resources technical accumulation and decades of accumulated experience a certain advantages Mis innovation can not sell not self assertive We should seize the current favorable opportunity to network economy China s information technology and to achieve a leap forward of the information industry give better play to the information industry to stimulate economic growth Development of school teachers in the management process is to achieve data systems approach to the management of the artificial computer management changes in computer technology and management practices between teachers build bridges Keyword teacher management management information systems databases computer management 第一章第一章 引言引言 对于一个学校来说 大量教师信息难于通过传统的方法进行管理 这就迫 切需要利用计算机技术来帮助学校管理者来处理教师信息的日常管理 教师管理 系统是管理信息系统的一个典型用例 1 1 背景背景 1 1 1 教师管理系统教师管理系统 如今随着教育事业的发展 学校对教师需求的增加 一个单位 教师 人事信息 编制 排课工资等信息量将迅速的增加 传统的手工的处理 方式已经跟不上信息爆炸般的扩增 所以开发一种可靠 高效的教师管 理系统是很有必要的 1 2 开发教师管理系统的目的与原则 教师管理系统的主要目的是服务与中小学 各高校的管理者 方便 其管理本校教师信息的软件系统 其原则是做到 界面友好人性 操作 简单 可靠 1 3 开发环境介绍 1 3 1 开发平台 本教师管理系统的开发平台为微软 windows xp visual basic 6 0 以 及微软的 Access 作为操作数据库 1 3 2数据库设计工具数据库设计工具 ACCESSACCESS 数据库管理系统数据库管理系统 Microsoft Access 介绍 使用 Microsoft Access 可以在单一的数据库文件中管理所有的信息 在 这个文件中 用户可以将自己的数据分别保存在各自独立的存储空间中 这 些空间称作表 可以使用联机窗体来查看 添加及更新表中的数据 使用查 询来查找并检索所要的数据 也可以使用报表以特定的版面布置来分析及打 印数据 如果要保存数据 请为每一种类型的信息创建一个表 如果要从查询 窗体或报表中的多个表中将数据合并在一起 就要定义各个表之间的关系 如果要搜索并检索符合指定条件的数据 包括来自多个表中的数据 就 要创建查询 查询的同时也可以更新或删除多条记录 并对数据执行内嵌或 自定义的计算 如果要简单地直接在某个表中查看 输入及更改数据 请创建一个窗体 在打开一个窗体时 Microsoft Access 将从一个或多个表中检索数据 并 使用用户在 窗体向导 选择的版面布局或所创建的版面布局 将窗体显示 在屏幕上 如果要分析数据或将数据以特定的方式打印出来 请创建一个报表 例 如 可以打印一份将数据分组并计算数据总和的报表 也可以打印另一份带 有各种数据格式的打印邮件标签的报表 第二章第二章 系统设计系统设计 2 12 1 系统分析系统分析 本教师管理系统主要由以下几大模块构成 一 通用模块 教师管理 教师查询 重新登陆 退出 二 帮助模块 2 22 2 系统流程和操作方式设计系统流程和操作方式设计 主界面 教 师 管 理 教 师 查 询 重 新 登 录 退 出 帮 助 第三章第三章 系统界面设计系统界面设计 3 13 1 系统界面设计系统界面设计 1 1 登陆界面登陆界面 程序登陆 登陆界面代码设计登陆界面代码设计 Option Explicit 表示当前用户登录所选择的身份 即用户类型 0 表示管理员类用户 1 表示教师类用户 Dim mnUserType As Integer Private Sub cboUserType Change mnUserType cboUserType ListIndex End Sub Private Sub cboUserType Click mnUserType cboUserType ListIndex End Sub Private Sub cmdCancel Click Unload Me End Sub Private Sub cmdOK Click 取得用户输入的用户名和密码 Dim user As String pwd As String user txtUser pwd txtPwd 根据不同的身份 选择不同的表用以查询 Dim r As New ADODB Recordset Set r DataEnv rssqlSeek Dim strSQL As String Select Case mnUserType Case 0 选择身份为管理员 strSQL select from admin where name 1 教师类型的用户 Public mnUserType As Integer 表示当前登录的用户名 Public msUserName As String Private Sub MDIForm Activate 根据不同的用户类型 使相应的菜单项可见 Select Case mnUserType Case 0 以管理员身份登录 mnuFind Visible True Case 1 以教师身份登录 只能查询自己的信 息 mnuFind Visible False End Select End Sub Private Sub MDIForm QueryUnload Cancel As Integer UnloadMode As Integer If MsgBox 真的要对出本系统吗 vbQuestion vbYesNo vbDefaultButton2 退出 vbNo Then Cancel 1 End If End Sub Private Sub mnuAbout Click Load frmSplash frmSplash mbAbout True frmSplash Show vbModal End Sub Private Sub mnuExit Click Unload Me End Sub Private Sub mnuFind Click frmTeacher Show frmTeacher cmdSeek Value True End Sub Private Sub mnuLogin Click If MsgBox 若重新登录 所有窗体都将关闭 是否重新登录 vbQuestion vbYesNo vbDefaultButton2 重新登录 vbYes Then Unload MDIMain frmLogin Show End If End Sub Private Sub mnuStudent Click If mnUserType 0 Then frmTeacher Show Else frmLook Show End If End Sub 3 3 教师信息管理界面教师信息管理界面 教师信息管理代码 Option Explicit Dim mbClose As Boolean 是否能关闭 Dim msSerial As String 当前编辑的教师号 在 DataEnv rsTeacher 中查询 serial 为 sSerial 的学籍信息 Sub SeekTeacher sSerial As String If Not DataEnv rsTeacher EOF And DataEnv rsTeacher BOF Then Dim Temp As String Temp serial sSerial DataEnv rsTeacher MoveFirst DataEnv rsTeacher Find Temp End If End Sub 当改变记录集时 需要刷新整个网格控件 Sub RefreshGrid grdScan DataMember grdScan Refresh If DataEnv rssqlSeek State adStateClosed Then DataEnv rssqlSeek Close DataEnv rssqlSeek Open grdScan DataMember sqlSeek grdScan Refresh 刷新各个绑定控件 Call grdScan Change End Sub 用以在浏览时 根据当前记录所出的位置不同 来改变个浏览按钮的状态 Sub ChangeBrowseState With DataEnv rssqlSeek 如果没有任何记录 则清空显示目录 并且使浏览部分和管理部分的 按钮无效 If State adStateClosed Then Open If BOF And EOF Then cmdAdd Enabled True cmdEdit Enabled False cmdDelete Enabled False cmdUpdate Enabled False cmdReport Enabled False fraBrowse Enabled False Else cmdAdd Enabled True cmdEdit Enabled True cmdDelete Enabled True cmdUpdate Enabled False cmdReport Enabled True fraBrowse Enabled True End If 假如处于记录的头部 If BOF Then If Not EOF Then DataEnv rsTeacher MoveFirst cmdPrevious Enabled False cmdFirst Enabled False Else cmdPrevious Enabled True cmdFirst Enabled True End If 假如处于记录的尾部 If EOF Then If Not BOF Then DataEnv rsTeacher MoveLast cmdNext Enabled False cmdLast Enabled False Else cmdNext Enabled True cmdLast Enabled True End If End With End Sub 刷新教师号为 sSerial 的教师所受课程的网格控件 grdTeach Sub RefreshTeach sSerial As String grdTeach DataMember grdTeach Refresh With DataEnv rsOneTeach If State adStateClosed Then Close Dim str If sSerial Then str select course from course teach where course serial teach courseid Else str select course from course teach where course serial teach courseid and teach teacherid sSerial End If Open str End With grdTeach DataMember oneteach grdTeach Refresh End Sub Private Sub cmdAdd Click DataEnv rsTeacher AddNew txtBirthday Text 1970 01 01 fraInfo Enabled True fraBrowse Enabled False cmdAdd Enabled False cmdEdit Enabled False cmdDelete Enabled False cmdUpdate Enabled True cmdReport Caption 取消 cmdReport Enabled True mbClose False 不能关闭窗口 End Sub Private Sub cmdDelete Click On Error GoTo errHandler If MsgBox 要删除记录 vbYesNo vbQuestion vbDefaultButton2 确认 vbYes Then DataEnv Con Execute delete from Teacher where serial txtSerial DataEnv rsTeacher MoveNext If DataEnv rsTeacher EOF Then DataEnv rsTeacher MoveLast 刷新用户导航的网格控件 Call RefreshGrid End If Exit Sub errHandler MsgBox Err Description vbCritical 错误 End Sub Private Sub cmdDeleteTeach click On Error GoTo errHandler If MsgBox 确实要删除此授课记录 vbYesNo vbQuestion vbDefaultButton2 确认 vbYes Then Dim str str grdTeach Columns 0 CellText grdTeach Bookmark str delete from teach where courseid str 使用 con 来删除所选的记录 DataEnv Con Execute str DataEnv rsOneTeach Requery 刷新用于显示教师授课信息的 grdTeach 控件 grdTeach DataMember oneteach grdTeach Refresh End If Exit Sub errHandler MsgBox Err Description vbCritical 错误 End Sub Private Sub cmdEdit Click fraInfo Enabled True cmdAdd Enabled False cmdEdit Enabled False cmdDelete Enabled False cmdUpdate Enabled True cmdReport Caption 取消 更改为 取消更新 的状态 cmdReport Enabled True mbClose False 不能关闭窗口 End Sub Private Sub cmdEditTeach Click 修改当前所选的授课信息 On Error GoTo errHandler With frmTeach Load frmTeach Caption 添加 Trim txtName 老师的所授课程 将当前所定位的课程信息写入到 frmTeach 窗体中 dcbSerial Text grdTeach Columns 0 CellText grdTeach Bookmark Show vbModal 如果用户没有点击确认按钮 则退出处理过程 If Not mbAdded Then Unload frmTeach Exit Sub End If 添加授课记录 If DataEnv rsTeach State adStateClosed Then DataEnv rsTeach Open DataEnv rsTeach Fields CourseID dcbSerial Text DataEnv rsTeach Fields TeacherID txtSerial Text DataEnv rsTeach Update End With 刷新用于显示授课的 grdTeach 网格控件 Call RefreshTeach msSerial Exit Sub errHandler MsgBox Err Description vbCritical 错误 End Sub Private Sub cmdFirst Click DataEnv rssqlSeek MoveFirst DataEnv rssqlSeek MovePrevious Call ChangeBrowseState End Sub Private Sub cmdLast Click DataEnv rssqlSeek MoveLast DataEnv rssqlSeek MoveNext Call ChangeBrowseState End Sub Private Sub cmdList Click On Error Resume Next 针对所选的部门 列出属于该部门的中所有教师的信息 Dim strSQL If cboDep ListIndex 0 Then strSQL select serial name from Teacher order by serial Else strSQL select serial name from Teacher where dept id cboDep ItemData cboDep ListIndex order by serial End If DataEnv rssqlSeek Close DataEnv rssqlSeek Open strSQL 刷新用以导航的网格控件 Call RefreshGrid Call ChangeBrowseState Call grdScan Change End Sub Private Sub cmdNext Click DataEnv rssqlSeek MoveNext Call ChangeBrowseState End Sub Private Sub cmdPrevious Click DataEnv rssqlSeek MovePrevious Call ChangeBrowseState End Sub Private Sub cmdReport Click On Error Resume Next If cmdReport Caption 取消 Then 取消更新 DataEnv rsTeacher CancelUpdate 重新显示原来数据集中的内容 If DataEnv rsTeacher BOF Then DataEnv rsTeacher MoveFirst Else DataEnv rsTeacher MovePrevious DataEnv rsTeacher MoveNext End If Call ChangeBrowseState mbClose True Else 生成有关教师信息的报表 Dim strSQL As String DataEnv rsrptTeacher Close strSQL select teacher department name as dept name From teacher department where teacher dept id department id and serial txtSerial Text DataEnv rsrptTeacher Open strSQL rptTeacher Show End If End Sub Private Sub cmdReportTeach Click On Error Resume Next Dim rpt As New rptTeach Load rpt rpt Caption 教师 Trim txtName 所授的课程 rpt Show 1 End Sub Private Sub cmdSeek Click With frmFind Dim i As Integer 显示查找窗口 Load frmFind 填充查找窗体的字段列表框 lstFields Clear For i 0 To DataEnv rsTeacher Fields Count 1 lstFields AddItem DataEnv rsTeacher i Name Next i lstFields ListIndex 0 Show 1 If mbFindFailed Then Exit Sub Dim sTemp As String If LCase msFindOp like Then sTemp msFindField msFindOp msFindExpr Else sTemp msFindField msFindOp msFindExpr End If sTemp select from Teacher where sTemp order by serial Unload frmFind End With 查找数据 并刷新用以导航的网格控件 If DataEnv rssqlSeek State adStateClosed Then DataEnv rssqlSeek Close DataEnv rssqlSeek Open sTemp Call RefreshGrid Exit Sub errHandler MsgBox 没有符合条件的纪录 vbExclamation 确认 End Sub Private Sub cmdUpdate Click On Error GoTo errHandler Dim str As String str txtSerial Text DataEnv rsTeacher Update cmdReport Caption 报表 R cmdUpdate Enabled False fraInfo Enabled False mbClose True If DataEnv rssqlSeek State adStateClosed Then DataEnv rssqlSeek Open 刷新右端用以导航的网格控件 Call RefreshGrid 根据记录集中记录的个数 改变各个按钮的状态 Call ChangeBrowseState 定位到刚刚添加或者修改过的记录 DataEnv rssqlSeek MoveFirst DataEnv rssqlSeek Find serial str Exit Sub errHandler MsgBox Err Description vbCritical 错误 DataEnv rsTeacher CancelUpdate End Sub Private Sub cmdAddTeach Click On Error GoTo errHandler With frmTeach Load frmTeach Caption 添加 Trim txtName 老师的所授课程 Show vbModal 如果用户没有点击确认按钮 则退出处理过程 If Not mbAdded Then Unload frmTeach Exit Sub End If 添加授课记录 If DataEnv rsTeach State adStateClosed Then DataEnv rsTeach Open DataEnv rsTeach AddNew DataEnv rsTeach Fields CourseID dcbSerial Text DataEnv rsTeach Fields TeacherID txtSerial Text DataEnv rsTeach Update End With 刷新整个网格控件 Call RefreshTeach msSerial Exit Sub errHandler MsgBox Err Description vbCritical 错误 DataEnv rsTeach CancelUpdate End Sub Private Sub Form Load On Error Resume Next Dim rsDep As New ADODB Recordset rsClass As New ADODB Recordset Set rsDep DataEnv rsDepartment 从 Department 表中读取数据 填充 cboDep 复合框到中 rsDep Open cboDep Clear cboDep AddItem 全部 将各个部门的 id 号作为 ItemData 附加到复合框中 cboDep ItemData 0 0 While Not rsDep EOF cboDep AddItem rsDep Name cboDep ItemData cboDep ListCount 1 rsDep id rsDep MoveNext Wend cboDep ListIndex 0 点击 列出 按钮 cmdList Value True fraManage Enabled True fraBrowse Enabled True fraSeek Enabled True grdScan Enabled True mbClose True Call grdScan Change End Sub Private Sub Form QueryUnload Cancel As Integer UnloadMode As Integer If Not mbClose Then MsgBox 数据正被修改 窗口不能关闭 vbCritical 错误 Cancel True End If End Sub Private Sub grdScan Change If grdScan ApproxCount 0 Then msSerial grdScan Columns 0 CellText grdScan Bookmark Call SeekTeacher msSerial End If End Sub Private Sub grdScan RowColChange LastRow As Variant ByVal LastCol As Integer 如果当前记录正处于编辑状态 则不允许在导航栏中移动记录 If Not mbClose Then grdScan Row LastRow 1 如果当前行改变 则动态改变所要显示的记录 If LastRow grdScan Bookmark Then If grdScan ApproxCount 0 Then msSerial grdScan Columns 0 CellText grdScan Bookmark Call SeekTeacher msSerial End If End If End Sub Private Sub txtName Validate Cancel As Boolean txtName Text Trim txtName Text End Sub Private Sub txtSerial Change 当教师编号改变时 就刷新用于显示授课信息的 grdTeach 控件 If Not fraInfo Enabled Then Call RefreshTeach msSerial End If End Sub 4 4 教师查询界面教师查询界面 教师查询界面代码 Option Explicit Public msFindField As String 查找字段 Public msFindOp As String 查找运算符 Public msFindExpr As String 查找表达式 Public mbFindFailed As Boolean Private Sub cmdCancel Click mbFindFailed True Me Hide End Sub Private Sub txtExpression Change cmdOK Enabled Len lstFields Text 0 And Len lstOperators Text 0 And Len txtExpression Text 0 End Sub Private Sub lstFields Click cmdOK Enabled Len lstFields Text 0 And Len lstOperators Text 0 And Len txtExpression Text 0 End Sub Private Sub lstOperators Click cmdOK Enabled Len lstFields Text 0 And Len lstOperators Text 0 And Len txtExpression Text 0 End Sub Private Sub Form Load 查询所需要使用的运算符号 lstOperators AddItem lstOperators AddItem lstOperators AddItem lstOperators AddItem lstOperators AddItem lstOperators AddItem Like lstOperators ListIndex 0 mbFindFailed True End Sub Private Sub cmdOK Click mbFindFailed False 改变指针 告知读者当前处于忙的状态 Screen MousePointer vbHourglass msFindField lstFields Text msFindExpr txtExpression Text msFindOp lstOperators Text Me Hide 改变指针 告知读者系统已经不忙 Screen MousePointer vbDefault End Sub 第四章第四章 数据库的设计数据库的设计 4 14 1 数据库设计数据库设计 1 ADMIN1 ADMIN 表表 2 course2 course 课程表课程表 3 coursetype3 coursetype 课程类型表课程类型表 4 Department4 Department 系别系别 5 teach5 teach 表表 6 teacher 表 4 24 2 数据库概念和发展数据库概念和发展 关系数据库是目前各类数据库中最重要 最流行的数据库 他应用数学方法 来处理数据库数据 是目前使用最广泛的数据库系统 20 世纪 70 年代以后 开发的数据库管理系统产品几乎都是基于关系的 在数据库发展的历史上 最重要的成就就是关系模型 关系数据库系统与非关系数据库系统的区别是 关系系统只有 表 这 一种数据结构 而非关系数据库系统还有其他数据结构 对这些数据结构有 其他的操作 结构化查询语言 SQL Structured Query Language 是一种介于关系代数与关 系演算之间的语言 其功能包括查询 操纵 定义和控制四个方面 是一个通 用的 功能极强的关系数据库语言 目前已成为关系数据库的标准语言 4 34 3 系统测试与评价系统测试与评价 测试在软件开发过程中一直都是备受关注的 即使在传统的软