教师管理系统论文.docx
《教师管理系统论文.docx》由会员分享，可在线阅读，更多相关《教师管理系统论文.docx（33页珍藏版）》请在冰豆网上搜索。
教师管理系统论文
摘要
20世纪以来，社会生产力迅速发展，科学技术突飞猛进，人们进行信息交流的深度与广度不断增加，信息量急剧增长，传统的信息处理与决策的手段已不能适应社会的需要，信息的重要性和信息处理问题的紧迫性空前提高了，面对着日益复杂和不断发展，变化的社会环境，特别是企业间日趋剧烈的竞争形势，一个人、一个企业要在现代社会中求生存，求发展，必须具备足够的信息和强有力的信息收集与处理手段。
对于一个学校来说，大量教师信息难于通过传统的方法进行管理；这就迫切需要利用计算机技术来帮助学校管理者来处理教师信息的日常管理.教师管理系统是管理信息系统的一个典型用例.
管理信息系统是一个集信息技术、经济管理理论、统计学与运筹学、数据库技术为一体的综合性系统，是一个资金技术密集型、劳动密集型、智力密集型的项目。
我国拥有广阔的市场和丰富的人才资源，有几十年的技术积累和经验积累，有一定的后发优势。
管理信息系统的创新工作既不能妄自菲薄，更不能夜郎自大。
要抓住当前网络经济兴起的有利时机，以实现我国信息技术和信息产业的跨越式发展，更好地发挥信息产业对国民经济增长的拉动作用。
开发学校教师管理系统的过程就是要实现数据处理方式由人工管理向计算机管理的转变，它在计算机技术和教师管理实践活动两者之间架设桥梁。
关键字:
教师管理,管理信息系统,数据库,计算机管理
Abstract：
Sincethe20thcentury,therapiddevelopmentofsocialproductiveforces,scienceandtechnology,exchangeofinformationisthedepthandscopeofincreasingthevolumeofinformationrapidgrowth,thetraditionalinformationprocessinganddecision-makingtoolshavenottheneedsofthecommunity,theimportanceofinformationandinformationprocessingproblemsurgencyunprecedentedincrease,inthefaceofincreasinglycomplexandevolving.changesinthesocialenvironment,inparticulartheincreasinglykeencompetitionamongenterprisessituation,apersonoranenterprisetosurviveinmodernsociety,anddevelopment,wemusthavesufficientinformationandpowerfulinformationgatheringandprocessingtools.
Foraschool,alotofinformationtoteachersthroughtraditionalmeans;Thisurgentneedforusingcomputertechnologytohelpschoolmanagerstodealwiththeday-to-daymanagementofinformationteachers.Teachersmanagementsystemisatypicaluseofmanagementinformationsystemscases.
ManagementInformationSystemisacollectionofinformationtechnology,economicmanagementtheory,statisticsandresearch,databaseintegrationtechnologyfortheintegratedsystemisacapital-andtechnology-intensiveandlabor-intensive,intellectual-intensiveprojects.Chinahasavastmarketandabundanthumanresources,technicalaccumulationanddecadesofaccumulatedexperience,acertainadvantages.Misinnovationcannotsell,notself-assertive.Weshouldseizethecurrentfavorableopportunitytonetworkeconomy,China'sinformationtechnologyandtoachievealeapforwardoftheinformationindustry,givebetterplaytotheinformationindustrytostimulateeconomicgrowth.
Developmentofschoolteachersinthemanagementprocessistoachievedatasystemsapproachtothemanagementoftheartificialcomputermanagementchangesincomputertechnologyandmanagementpracticesbetweenteachersbuildbridges.
Keyword:
teachermanagement,managementinformationsystems,databases,computermanagement
目录
摘要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
第一章引言
对于一个学校来说，大量教师信息难于通过传统的方法进行管理；这就迫切需要利用计算机技术来帮助学校管理者来处理教师信息的日常管理.教师管理系统是管理信息系统的一个典型用例.
1.1背景
1.1.1教师管理系统
如今随着教育事业的发展,学校对教师需求的增加,一个单位,教师人事信息,编制,排课工资等信息量将迅速的增加,传统的手工的处理方式已经跟不上信息爆炸般的扩增.所以开发一种可靠,高效的教师管理系统是很有必要的.
1.2开发教师管理系统的目的与原则
教师管理系统的主要目的是服务与中小学,各高校的管理者,方便其管理本校教师信息的软件系统.其原则是做到,界面友好人性,操作简单,可靠.
1.3开发环境介绍
1.3.1开发平台
本教师管理系统的开发平台为微软windowsxpvisualbasic6.0以及微软的Access作为操作数据库.
1.3.2数据库设计工具——ACCESS数据库管理系统
Microsoft Access介绍:
使用 Microsoft Access，可以在单一的数据库文件中管理所有的信息。
在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。
如果要保存数据，请为每一种类型的信息创建一个表。
如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。
如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。
查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。
如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。
在打开一个窗体时，Microsoft Access 将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。
如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。
例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。
第二章系统设计
2.1系统分析
本教师管理系统主要由以下几大模块构成.
一.通用模块（教师管理,教师查询,重新登陆,退出）
二..帮助模块
2.2系统流程和操作方式设计
第三章系统界面设计
3.1系统界面设计
1.登陆界面
登陆界面代码设计:
OptionExplicit
'表示当前用户登录所选择的身份，即用户类型
'0--表示管理员类用户；1--表示教师类用户
DimmnUserTypeAsInteger
PrivateSubcboUserType_Change（）
mnUserType=cboUserType.ListIndex
EndSub
PrivateSubcboUserType_Click（）
mnUserType=cboUserType.ListIndex
EndSub
PrivateSubcmdCancel_Click（）
UnloadMe
EndSub
PrivateSubcmdOK_Click（）
''取得用户输入的用户名和密码
DimuserAsString,pwdAsString
user=txtUser
pwd=txtPwd
''根据不同的身份，选择不同的表用以查询
DimrAsNewADODB.Recordset
Setr=DataEnv.rssqlSeek
DimstrSQLAsString
SelectCasemnUserType
Case0:
'选择身份为管理员
strSQL="select*fromadminwherename='"&user&"'andpwd='"&pwd&"'"
Case1:
'选择身份为教师
strSQL="select*fromteacherwherename='"&user&"'andserial='"&pwd&"'"
EndSelect
OnErrorResumeNext
Ifr.State=adStateOpenThenr.Close
r.OpenstrSQL
''用户密码错误的次数，如果错误次数超过3次，则退出系统
StaticnTryCountAsInteger
Ifr.EOFThen''登录失败
MsgBox"对不起，无此用户或者密码不正确！
请重新输入！
！
",vbCritical,"错误"
txtUser.SetFocus
txtUser.SelStart=0
txtUser.SelLength=Len（txtUser）
nTryCount=nTryCount+1
IfnTryCount>=3Then
MsgBox"您无权操作本系统!
再见！
",vbCritical,"无权限"
UnloadMe
EndIf
Else''登陆成功
''显示MDI窗体,并将用户类型和用户名传到MDI窗体中
LoadMDIMain
WithMDIMain
.mnUserType=cboUserType.ListIndex
.msUserName=pwd
.Show
EndWith
UnloadMe
EndIf
EndSub
PrivateSubForm_Load（）
cboUserType.ListIndex=0
EndSub
2.主界面
主界面代码:
OptionExplicit
'表示当前的用户类型
'0---管理员类型的用户;1---教师类型的用户
PublicmnUserTypeAsInteger
'表示当前登录的用户名
PublicmsUserNameAsString
PrivateSubMDIForm_Activate（）
''根据不同的用户类型，使相应的菜单项可见
SelectCasemnUserType
Case0:
'以管理员身份登录
mnuFind.Visible=True
Case1:
'以教师身份登录，只能查询自己的信息
mnuFind.Visible=False
EndSelect
EndSub
PrivateSubMDIForm_QueryUnload（CancelAsInteger,UnloadModeAsInteger）
IfMsgBox（"真的要对出本系统吗？
",vbQuestion+vbYesNo+vbDefaultButton2,"退出"）=vbNoThen
Cancel=1
EndIf
EndSub
PrivateSubmnuAbout_Click（）
LoadfrmSplash
frmSplash.mbAbout=True
frmSplash.ShowvbModal
EndSub
PrivateSubmnuExit_Click（）
UnloadMe
EndSub
PrivateSubmnuFind_Click（）
frmTeacher.Show
frmTeacher.cmdSeek.Value=True
EndSub
PrivateSubmnuLogin_Click（）
IfMsgBox（"若重新登录，所有窗体都将关闭！
是否重新登录？
",vbQuestion+vbYesNo+vbDefaultButton2,"重新登录"）=vbYesThen
UnloadMDIMain
frmLogin.Show
EndIf
EndSub
PrivateSubmnuStudent_Click（）
IfmnUserType=0Then
frmTeacher.Show
Else
frmLook.Show
EndIf
EndSub
3.教师信息管理界面:
教师信息管理代码:
OptionExplicit
DimmbCloseAsBoolean'是否能关闭
DimmsSerialAsString'当前编辑的教师号
'''在DataEnv.rsTeacher中查询serial为sSerial的学籍信息
SubSeekTeacher（sSerialAsString）
IfNot（DataEnv.rsTeacher.EOFAndDataEnv.rsTeacher.BOF）Then
DimTempAsString
Temp="serial="&"'"&sSerial&"'"
DataEnv.rsTeacher.MoveFirst
DataEnv.rsTeacher.FindTemp
EndIf
EndSub
'''当改变记录集时，需要刷新整个网格控件
SubRefreshGrid（）
grdScan.DataMember=""
grdScan.Refresh
IfDataEnv.rssqlSeek.State<>adStateClosedThenDataEnv.rssqlSeek.Close
DataEnv.rssqlSeek.Open
grdScan.DataMember="sqlSeek"
grdScan.Refresh
''刷新各个绑定控件
CallgrdScan_Change
EndSub
'''用以在浏览时，根据当前记录所出的位置不同，来改变个浏览按钮的状态
SubChangeBrowseState（）
WithDataEnv.rssqlSeek
''如果没有任何记录，则清空显示目录；并且使浏览部分和管理部分的按钮无效
If.State=adStateClosedThen.Open
If.BOFAnd.EOFThen
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
EndIf
'''假如处于记录的头部
If.BOFThen
IfNot.EOFThenDataEnv.rsTeacher.MoveFirst
cmdPrevious.Enabled=False
cmdFirst.Enabled=False
Else
cmdPrevious.Enabled=True
cmdFirst.Enabled=True
EndIf
'''假如处于记录的尾部
If.EOFThen
IfNot.BOFThenDataEnv.rsTeacher.MoveLast
cmdNext.Enabled=False
cmdLast.Enabled=False
Else
cmdNext.Enabled=True
cmdLast.Enabled=True
EndIf
EndWith
EndSub
''刷新教师号为sSerial的教师所受课程的网格控件grdTeach
SubRefreshTeach（sSerialAsString）
'grdTeach.DataMember=""
'grdTeach.Refresh
WithDataEnv.rsOneTeach
If.State<>adStateClosedThen.Close
Dimstr
IfsSerial=""Then
str="selectcourse.*fromcourse,teachwherecourse.serial=teach.courseid"
Else
str="selectcourse.*fromcourse,teachwherecourse.serial=teach.courseidandteach.teacherid='"&sSerial&"'"
EndIf
.Openstr
EndWith
grdTeach.DataMember="oneteach"
grdTeach.Refresh
EndSub
PrivateSubcmdAdd_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'不能关闭窗口
EndSub
PrivateSubcmdDelete_Click（）
OnErrorGoToerrHandler
IfMsgBox（"要删除记录?
",vbYesNo+vbQuestion+vbDefaultButton2,"确认"）=vbYesThen
DataEnv.Con.Execute"deletefromTeacherwhereserial='"&txtSerial&"'"
DataEnv.rsTeacher.MoveNext
IfDataEnv.rsTeacher.EOFThenDataEnv.rsTeacher.MoveLast
''刷新用户导航的网格控件
CallRefreshGrid
EndIf
ExitSub
errHandler:
MsgBoxErr.Description,vbCritical,"错误"
EndSub
PrivateSubcmdDeleteTeach_click（）
OnErrorGoToerrHandler
IfMsgBox（"确实要删除此授课记录？
",_
vbYesNo+vbQuestion+vbDefaultButton2,"确认"）=vbYesThen
Dimstr
str=grdTeach.Columns（0）.CellText（grdTeach.Bookmark）
str="deletefromteachwherecourseid='"&str&"'"
''使用con来删除所选的记录
DataEnv.Con.Executestr
DataEnv.rsOneTeach.Requery
''刷新用于显示教师授课信息的grdTeach控件
grdTeach.DataMember="oneteach"
grdTeach.Refresh
EndIf
ExitSub
errHandler:
MsgBoxE
升级会员 