基于VB的教师信息管理系统设计与开发.docx
- 文档编号:25195541
- 上传时间:2023-06-06
- 格式:DOCX
- 页数:36
- 大小:731.38KB
基于VB的教师信息管理系统设计与开发.docx
《基于VB的教师信息管理系统设计与开发.docx》由会员分享,可在线阅读,更多相关《基于VB的教师信息管理系统设计与开发.docx(36页珍藏版)》请在冰豆网上搜索。
基于VB的教师信息管理系统设计与开发
基于VB的教师信息管理系统设计与开发
--------------前言--------------
教师管理系统是一个学校不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以教师管理系统应该能够为用户提供充足的信息和快捷的查询手段。
但一直以来人们使用传统人工的方式管理文件信息,这种管理方式存在着许多缺点,如:
效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分,使用计算机对人事信息进行管理,具有着手工管理所无法比拟的优点.例如:
检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高教师管理的效率,也是学校教师管理的科学化、正规化,与世界接轨的重要条件。
因此,开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套教师管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。
引言
随着信息技术的飞速发展,特别是数据库技术的发展,计算机已经成为当今信息时代的关键工具。
数据库技术是计算机应用技术中的一个重要组成部分,对于大量的数据,使用数据库来存储管理将比通过文件来存储管理更高效。
数据库技术在经过几代变革以后,出现了以关系数据库产品为主流的数据库时代。
Access2000是微软公司推出的关系数据库产品。
作为Microsoft的office套件产品之一,Access已经卖出了近700万份,成为世界上最流行的桌面数据库系统。
Access与许多优秀的关系数据库一样,可以让你很容易地连接相关的信息而且还对其他的数据库系统有所补充。
VisualBasic作为应用程序的开发“利器”也表现在数据库应用程序的开发上,它良好的界面和强大的控件功能使数据库编程变得简单多了。
VisualBasic提供了强有力的数据库存取能力,将Windows的各种先进特性与强大的数据库管理功能有机地结合在一起。
本次毕业设计——教师管理系统是运用ADO技术设计开发的,使用大量地SQL语句进行添加、查询、删除等操作。
本系统使用Access2000作为后台数据库,利用VisualBasic6.0提供的数据库开发平台开发前台部分。
第一章MIS简介
1.1什么是MIS系统
所谓MIS(管理信息系统--ManagementInformationSystem)系统,是一个由人、计算机及其他外围设备等组成的能进行信息的收集、传递、存贮、加工、维护和使用的系统。
它是一门新兴的科学,是信息系统的重要分支之一。
经过30多年的发展,MIS已经成为一个具有自身概念、理论、结构、体系和开发方法的覆盖多学科的交叉性综合性学科,其组成部分有:
计算机学科(网络通讯、数据库、计算机语言等)、数学(统计学、运筹学、线性规划等)、管理学、仿真等多学科。
随着科学技术的高速发展,MIS涉及的范围还要扩大。
1.MIS的对象就是信息。
信息是经过加工的数据,信息是对决策者有价值的数据。
信息的主要特征是来源分散,数量庞大。
信息来源于生产第一线,来源于社会环境,来源于市场,来源于行政管理等部门。
信息具有时间性。
信息的加工方式有多种形式。
2.系统是由相互联系、相互作用的若干要素按一定的法则组成并具有一定功能的整体。
系统有两个以上要素,各要素和整体之间,整体和环境之间存在一定的有机联系。
系统由输入、处理、输出、反馈、控制五个基本要素组成。
3.管理信息由信息的采集、信息的传递、信息的储存、信息的加工、信息的维护和信息的使用五个方面组成。
任何地方只要有管理就必然有信息,如果形成系统就形成MIS。
计算机设备使MIS更有效,尤其是现代社会,MIS已和计算机设备不可分离,因此一般来说MIS就是计算机MIS。
MIS包括计算机、网络通讯设备等硬件成份,包括操作系统、应用软件包等软件成份。
并随着计算机技术和通讯技术的迅速发展还会出现更多的内容。
计算机设备并不是MIS的必要条件。
1.2MIS的主要任务
管理信息系统辅助完成企业日常结构化的信息处理任务,一般认为MIS的主要任务有如下几方面:
1.对基础数据进行严格的管理,要求计量工具标准化、程序和方法的正确使用,使信息流通渠道顺畅。
有一点非常关键,就是必须保证信息的准确性、一致性;
确定信息处理过程的标准化,统一数据和报表的标准格式,以便建立一
第二章系统需求分析
2.1系统设计背景介绍
管理信息系统就是我们常说的MIS (ManagementInformationSystem),在强调管理,强调信息的现代社会中它变的越来越普及。
而将信息管理系统与企业自动化设备想结合,则是当今社会现代企业的发展趋势。
通过这样的管理方式,企业的管理人员、技术人员、统计教师等各部门人员就能从大量烦琐的资料和数据中解脱出来,只需对自己需要的数据和内容进行必须的处理,而不用对每个环节都了如指掌。
这在一定程度上能够节省人力物力,同时也大大加强了对数据处理的及时性和准确性。
本次的开发内容——教师管理系统就是信息管理与现代化办公设备相结合的例子。
开发本系统希望使人事管理人员可以从年复一年的输入、计算、统计等工作中解脱出来,由于人事方面的数据众多,输入、统计极为不便,输入量大,计算量大。
这些工作都以人力来完成将费时费力,而且容易出现错误和疏漏。
本系统一次录入信息后,就可以反复多次在不同的信息库中使用。
所有输入的信息都将按所属部门、专业、考勤日期、工资日期等详细分类,使客户可以根据需要进行管理操作。
因此,该管理系统的目的就是利用计算机对复杂烦琐的数据进行存储和处理,并利用计算机与现代化办公设备的连接实时刷新数据,从而提高企业的工作效率。
2.2系统功能分析
系统开发的总体任务是实现各种信息的系统化,规范化和自动化。
系统功能分析是系统开发的总体任务的基础上室完成的。
教师管理系统需要完成功能主要有:
●教师信息的输入,修改,查询,删除包括,姓名,性别,所在学院,所在系,所在教研究组,职务,职称,身份证号,住址,邮证编号,工作证号,图书证号,电子EMAIL.
●课程信息表的输入,修改,查询,删除,包括,课程号,名称,类型所属部门,所属院,授课对象,初次授课时间,学时数。
第三章
系统设计平台及相关工具软件简介
3.1计计平台:
VisualBasic6.0
微软公司的VisualBasic6.0是Windows应用程序开发工具,使目前最为广泛的、易学易用的面向对象的开发工具。
VisualBasic提供了大量的控件,这些控件可用于设计界面和实现各种功能,减少了编程教师的工作量,也简化了界面设计过程,从而有效的提高了应用程序的运行效率和可靠性。
故而,实现本系统VB是一个相对较好的选择。
VisualBasic6.0是一个对象导向设计的应用程序语言,是开发数据库前端的优秀工具,它的编程语言简洁明快、组件功能强大和编程环境灵活方便。
由于VisualBasic既继承了其先辈所具有的程序设计语言简单易用的特点,其编程系统又引入面向对象的机制,用一种巧妙的方法把Windows编程的复杂性封装起来,提供了一种视界面的设计方法,使用窗体和控件设计应用程序界面。
极大地提高了应用程序开发的效率。
本文论述了MicrosoftVisualBasic6.0可视化开发软件工具下分析、设计、开发大中专院校的学生信息管理系统的过程。
通过对计算机硬件和软件解决方案的论证,对应用领域进行调查分析,参考各种资料和进行数据库编程实践,在指导老师的帮助下,已经基本上成功地实现了设计要求。
是我们设计的数据库系统能够实现部门管理,教师信息管理,工资管理,系统管理功能。
该系统基本上满足了用户在学校信息管理方面的需求,用户界面友好。
此系统更加贴近信息电子化处理,从而降低了人工劳动并增加了信息的准确性。
2.2数据库:
MicrosoftAccess
Access是关系数据库开发工具,数据库能汇集各种信息以供查询、存储和检索。
Access的优点在于它能使用数据表示图或自定义窗体收集信息。
数据表示图提供了一种类似于Excel的电子表格,可以使数据库一目了然。
另外,Access允许创建自定义报表用于打印或输出数据库中的信息。
Access也提供了数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他网络用户共享数据库。
Access是一种关系数据库工具,关系数据库是已开发的最通用的数据库之一。
如上所述,Access作为关系数据库开发具备了许多优点,可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。
Access多用于中小型企业来设计中小型数据库,一般的学校教务系统的数据库用Access来设计完全能达到要求。
由于考虑到本系统是应用在单机系统上,只建立起一个数据库。
第四章教师管理系统总体设计
本次的开发内容——教师管理系统就是信息管理与现代化办公设备相结合的例子。
开发本系统希望使人事管理教师可以从年复一年的输入、计算、统计等工作中解脱出来,由于人事方面的数据众多,输入、统计极为不便,输入量大,计算量大。
这些工作都以人力来完成将费时费力,而且容易出现错误和疏漏。
本系统一次录入信息后,就可以反复多次在不同的信息库中使用。
所有输入的信息都将按所属部门、工资日期等详细分类,使录入可以根据需要进行管理操作。
因此,该管理系统的目的就是利用计算机对复杂烦琐的数据进行存储和处理,并利用计算机与现代化办公设备的连接实时刷新数据,从而提高企业的工作效率。
4.1系统设计
4.1.1系统功能分析
系统完成功能主要有:
●教师信息的输入,修改,查询,删除包括,姓名,性别,所在学院,所在系,所在教研究组,职务,职称,身份证号,住址,邮证编号,工作证号,图书证号,电子EMAIL.
●课程信息表的输入,修改,查询,删除,包括,课程号,名称,类型所属部门,所属院,授课对象,初次授课时间,学时数。
●课程教授表任务号,课程号,工作证号,学期,时间,授课班级,授课编号,课表号。
程序流程图
添加教师文件信息
查询教师文件信息
删除教师文件信息
打印教师文件报表
添加课程信息
查询课程信息
删除课程信息
课程信息报表
添加用户信息
查询用户信息
删除用户信息
退出系统
4.1.2系统具体实现
(1)建立登陆用户界面
正确输入用户名和密码以及选择身份后才能进行系统。
若用户名和密码错误时将提示用户重新输入,若三次输入的密码都错误码的话系统将自动退出。
登录界面流程图
N
Y
N
Y
模块代码分析
OptionExplicit
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
StaticnTryCountAsInteger
Ifr.EOFThen
MsgBox"对不起,无此用户或者密码不正确!
请重新输入!
!
",vbCritical,"错误"
txtUser.SetFocus
txtUser.SelStart=0
txtUser.SelLength=Len(txtUser)
nTryCount=nTryCount+1
IfnTryCount>=3Then
MsgBox"您无权操作本系统!
再见!
",vbCritical,"无权限"
UnloadMe
EndIf
Else
LoadMDIMain
WithMDIMain
.mnUserType=cboUserType.ListIndex
.msUserName=pwd
.Show
EndWith
UnloadMe
EndIf
EndSub
PrivateSubForm_Load()
cboUserType.ListIndex=0
EndSub
PrivateSubfrmLogin_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
EndSub
PrivateSubtxtUser_Change()
EndSub
(2)教师信息及授课管理窗体
在此窗体可以对教师的基本信息进行添加,编辑,删除和打印,同进也能对都授课信息进行添加,编辑,删除和打印
模块代码分析
OptionExplicit
DimmbCloseAsBoolean
DimmsSerialAsString
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
SubRefreshTeach(sSerialAsString)
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
PrivateSubcboDep_Change()
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&"'"
DataEnv.Con.Executestr
DataEnv.rsOneTeach.Requery
grdTeach.DataMember="oneteach"
grdTeach.Refresh
EndIf
ExitSub
errHandler:
MsgBoxErr.Description,vbCritical,"错误"
EndSub
PrivateSubcmdEdit_Click()
fraInfo.Enabled=True
cmdAdd.Enabled=False
cmdEdit.Enabled=False
cmdDelete.Enabled=False
cmdUpdate.Enabled=True
cmdReport.Caption="取消"
cmdReport.Enabled=True
mbClose=False
EndSub
PrivateSubcmdEditTeach_Click()
OnErrorGoToerrHandler
WithfrmTeach
LoadfrmTeach
.Caption="添加"&Trim(txtName)&"老师的所授课程"
.dcbSerial.Text=grdTeach.Columns(0).CellText(grdTeach.Bookmark)
.ShowvbModal
IfNot.mbAddedThen
UnloadfrmTeach
ExitSub
EndIf
IfDataEnv.rsTeach.State=adStateClosedThenDataEnv.rsTeach.Open
DataEnv.rsTeach.Fields("CourseID")=.dcbSerial.Text
DataEnv.rsTeach.Fields("TeacherID")=txtSerial.Text
DataEnv.rsTeach.Update
En
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 基于 VB 教师 信息管理 系统 设计 开发