教师教学质量评价.docx
《教师教学质量评价.docx》由会员分享，可在线阅读，更多相关《教师教学质量评价.docx（28页珍藏版）》请在冰点文库上搜索。
教师教学质量评价
本科毕业论文
院系：
信息工程学院
专业：
信息管理与信息系统
班级：
07级本2班
作者：
徐威
指导教师：
王聪华
完成时间：
2011年4月
教师教学质量评价系统
摘要教师教学质量评价系统是高校对教师教学质量评估的核心与基本，本系统采用Excel和VB6.0做为开发工具，考虑到学校的实际情况，认真分析了需求分析以及系统实现的可行性，明确了系统功能模块以及应该实现的功能，并对在已经给出的excel评价表进行读取，进而对教师教学评价分数进行平均计算、排名和打印。
该应用精巧实用，易于操作，在实际应用中效果很好，对提高教学管理水平和工作效率有很大帮助。
关键词教师教学质量评excel读取
引言
在教育教学管理中，对教学质量的评价是必不可少的，而传统的通过初步的定量分析确定评价指标或根据调查表的分值进行加权求带有很大的主观片面性，缺乏坚实的科学基础。
因此，利用层次分析法计算各项指标的权重，用模糊综合评价法来建立评价模型，使评价结果更科学有效。
模糊综合评价方法是针对某些学位与研究生教育评估对象的复杂性及其评价指标模糊性，采用模糊数学的理论和技术对受多种因素影响的复杂的评估对象，进行综合评价，从而得到评估结果的方法。
由于计算评价结果相对复杂和一定重复性，因此利用办公系统软件Office中Excel强大的VBA（VisualBasicApplication）功能，利用编程实现计算，使计算方便快速，结果准确。
第一章绪论
1.1开发背景
在科技飞速发展、知识日新月异的今天，教师的责任正逐步的夸大化、完善化，而教师这个行业的竞争也越演越烈，在Internet网的普及，电子商务的出现，更有“科学教学”之说，而竞争的核心是科学技术和管理，但归根到底却是教师资源素质及如何合测量一位教师教学质量合格与否的争议。
这使人们认识到教师教学质量是育人的“第一资源”，而如何正确的评价教师教学质量则是决定教学成败的关键。
在这种知识经济及“科学教学”快速发展的背景下，一套完整的科学地衡量教师上课内容的质量、综合学生对教师的客观评定、服务于教师与学生之间沟通的一个无干扰平台并包含了考核、调整等功能的教师教学质量评价软件则成为了各高校业必备，它带给高校重要的是管理，是一套电子时代全新理念的教师教学质量评价系统。
为此，开发了一套教师教学质量评价系统。
该系统是一个实用的系统，可是充分的实现学生客观的对教师进行整体评价。
但这只是教师教学质量评价的一个方面，随着计算机及网络技术的发展，我们应当充分利用各种科学管理手段，使其在提高教师教学质量方面担付起日益重要的作用。
1.2开发目的
教师教学质量评价系统是一个小型的教师评价系统，通过对本系统的开发和研究，使自身更加熟悉了软件的开发流程以及在设计过程中应该注意的问题。
同时在开发工资管理系统的过程中，使我能够运用各学科知识解决问题，把理论转化为实际，做到理论
与实际更好的结合，提高了动手能力，并通过收集各方面资料，更加拓宽了自身的知识面，又很好的锻炼了独立完成任务的能力。
1.3开发意义
教师教学质量评价系统使高效的各项评价工作更加科学化、规范化，最终适应满足各个学校的教师评价，适应改革和发展的需要，更深刻认识到进一步提高教师评价的重要性和必要性。
因此，开发教师教学质量系统对各个高校的教学质量的提高具有重大的社会意义。
第二章系统需求分析及开发工具选择
2.1总体需求分析
在教师评价中，需要从教师列表中提取相关信息，来进行评价。
传统的手工操作方式，易发生数据丢失，统计错误，劳动强度高，且速度慢。
使用计算机可以高速，快捷地完成以上工作。
规范教师教学质量管理行为，从而提高了教师教学效率和质量。
教师教学质量评价系统以计算机为工具，通过对评价所需的信息管理，把管理人员从繁琐的数据计算处理中解脱出来，使其有更多的精力从事教务管理政策的研究实施，教学计划的制定执行和教学质量的监督检查，从而全面提高教学质量。
因此，本系统主要应具备以下几个功能：
（1）对学生同行评价表、所在单位评价表、课程开出单位评价表等各项分数自动求平均值。
（2）并按照学生同行评价表各30%、所在单位评价表的20%、课程开出单位评价表的20%合计总分，放入总分合计表。
（3）对合计的总分进行自动从高到底排序
2.2可行性分析
2.2.1技术可行性
就目前使用的开发技术来说，建议系统的功能目标应该能够达到，利用现有的技术在规定的期限内开发工作基本能够完成。
2.2.2经济可行性
教师教学质量评价系统的开发需要投资费用和未来的运行维护费用，其中投资费用主要包括设备费用，人员费用及其他费用，为了保证新系统运行的可靠性，要求手工和计算机处在长时间并存。
系统的优点主要通过新系统提高工作效率，减少管理人员的工作强度。
2.2.3操作可行性
随着时代的发展，人员素质己经逐步提高，不论是对于电脑系统的基本操作还是对于系统的维护都有了一定的基础。
即使需要培训也只是简单的操作，计算机有可能出现的故障可以请专业的维护人员维修，所以管理上基本上不存在问题。
2.3开发工具选择
VisualBasic是一种可视化的、面向对象和事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的各类应用程序。
它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础[2]。
在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口（API）函数[2]，以及动态链接库（DLL）、动态数据交换（DDE）、对象的链接与嵌入（OLE）、开放式数据访问（ODBC）等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。
总的来说，VisualBasic具有以下特点：
1．可视化编程
用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。
如果对界面的效果不满意，还要回到程序中修改。
有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。
VisualBasic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。
只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象[3]，并设置这些图形对象的属性。
VisualBasic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。
2．面向对象的程序设计
VisualBasic6.0[4]支持面向对象的程序设计，但它与一般的面向对象的程序设计语言（C++）不完全相同。
在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而VisualBasic则是应用面向对象的程序设计方法（OOP），把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。
在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，VisualBasic自动生成对象的程序代码并封装起来。
每个对象以图形方式显示在界面上，都是可视的。
3．结构化程序设计语言
VisualBasic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式[5]。
VisualBasic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。
VisualBasic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。
在设计VisualBasic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件“.EXE”，脱离VisualBasic环境，直接在Windows环境下运行。
4．事件驱动编程机制[6]
VisualBasic通过事件来执行对象的操作。
一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。
例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个单击“Click”事件，而在产生该事件时将执行一段程序，用来实现指定的操作。
在用VisualBasic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。
这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。
5．访问数据库[7]
VisualBasic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理MicrosoftAccess格式的数据库，并提供了强大的数据存储和检索功能。
同时，VisualBasic还能直接编辑和访问其他外部数据库，如DBASE，FoxPro，Paradox等，这些数据库格式都可以用VisualBasic编辑和处理。
VisualBasic提供开放式数据连接，即ODBC功能[8]，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库。
Excel是微软公司集成办公软件Office中的一个组件，和Word一样，是人们最为熟悉、用户最为广泛的软件平台。
用Excel及其内嵌的编程语言VBA进行二次开发得到的应用软件，既可以使繁琐、重复操作自动化，提高工作效率和应用水平，同时又不需改变Excel原有的界面、风格和操作方式。
因此，符合人们的习惯，易于使用和推广。
2.4系统配置
2.4.1硬件配置
·CPU为80486以上的品牌或兼容机;
·32M以上的内存；
2.4.2软件配置
操作系统：
Windows2000、windowsxp、windows7
开发环境：
VB6.0，Excel2003
数据库：
VB6.0，Excel2003
第三章系统总体分析
3.1系统总体功能分析
根据以上需求分析，本系统应具有以下功能：
（1）读取各个评价表求各项分数求平均值，并能在各项分数发生变化后自动更改平均值，然后再次执行。
（2）当全部表读取结束后，选择执行，则生成一个新的总表即合计表。
（3）对各位教师的总分进行自动排序。
3.2系统功能模块具体划分
教师教学质量评价系统设计功能模块具体划分如图3-1所示。
图3-1总体功能模块图
3.3设计Excel表的结构
Excel表总共包括4个评价表：
教师所在单位评价表、课程开出单位评价表、同行评价表、学生评教表，其表结构如下图所示：
3-2教师所在单位评价表（括号内为指标分值）
字段名称
数据类型
大小
是否允许空
编号
文本
否
教师姓名
文本
否
一（10）
文本
10
是
二（5）
文本
5
是
三（5）
文本
5
是
四（15）
文本
15
是
五（15）
文本
15
是
六（15）
文本
15
是
七（10）
文本
10
是
八（10）
文本
10
是
九（10）
文本
10
是
十（15）
文本
10
是
合计
文本
15
是
3-3课程开出单位评价表
字段名称
数据类型
大小
是否允许空
编号
文本
否
教师姓名
文本
否
一（10）
文本
10
是
二（5）
文本
5
是
三（5）
文本
5
是
四（15）
文本
15
是
五（15）
文本
15
是
六（15）
文本
15
是
七（10）
文本
10
是
八（10）
文本
10
是
九（10）
文本
10
是
十（15）
文本
10
是
合计
文本
15
是
3-4同行评价表
字段名称
数据类型
大小
是否允许空
编号
文本
否
教师姓名
文本
否
同行1
文本
100
是
同行2
文本
100
是
同行3
文本
100
是
同行4
文本
100
是
同行5
文本
100
是
同行6
文本
100
是
同行7
文本
100
是
同行8
文本
100
是
同行9
文本
100
是
同行10
文本
100
是
平均值
文本
100
是
3-5学生评价表
字段名称
数据类型
大小
是否允许空
编号
文本
否
教师姓名
文本
否
学生1
文本
100
是
学生2
文本
100
是
学生3
文本
100
是
学生4
文本
100
是
学生5
文本
100
是
学生6
文本
100
是
学生7
文本
100
是
学生8
文本
100
是
学生9
文本
100
是
学生10
文本
100
是
平均
文本
100
是
第四章系统详细设计
4.1系统总体模块规划
根据本系统的功能分析以及实际需求，本系统共完成以下几个设计功能：
读取学生同行评价表、读取所在单位评价表、读取课程开出单位评价表，系统总体模块规划如图上图3-1所示。
4.2系统主界面设计
系统主界面的设计如图4-2所示：
4-2
在学生中调用excel需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“MicrosoftExcel11.0objectlibrary”项。
由于各个Excel的版本不同，所以这个选项的版本号也是不同的。
因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。
第一层：
Application对象，即Excel本身；第二层：
workbooks对象集，指Excel的工作簿文件；第三层：
worksheets对象集，表示的是Excel的一个工作表；第四层：
Cells和Range对象，指向Excel工作表中的单元格。
通过以上读取学生同行评价表，并选择相应的同行、学生评价表学生如图4-3所示：
4-3
读取其他评价表类似，当同事读取结束三个评价表之后，执行读取结果如图4-4所示：
4-4
输入想要保存的文件名，并保存，得出的表即是结果总表。
（相关代码见附录）
4.3统计分数
打开教师所在单位评价表、课程开出单位评价表，为各位教师输入各项指标所对应分数，输入完成以后，系统会自动合计总分、平均分，如图4-5、4-6、4-7为合计之后的结果图。
图4-5
图4-6
图4-7
图4-8
4.4数据汇总及排序
各项数据输入、统计之后，执行总界面所做的设计进行汇总，输出汇总表，并保存，则结果已得出每位被评教师的总分并排列名次以及等级，得到如图4-9所示的结果。
图4-9
第五章系统测试
系统测试是将已经确认的软件、计算机硬件、外设、网络等其他元素结合在一起，进行信息系统的各种组装测试和确认测试，其目的是通过与系统的需求相比较，发现所开发的系统与用户需求不符或矛盾的地方，从而提出更加完善的方案.。
它的的任务是尽可能彻底地检查出程序中的错误，提高软件系统的可靠性，其目的是检验系统"做得怎样？
"。
这阶段又可分为三个步骤：
模块测试，测试每个模块的程序是否有错误；组装测试，测试模块之间的接口是否正确；确认测试，测试整个软件系统是否满足用户功能和性能的要求。
该阶段结束应交付测试报告，说明测试数据的选择，测试用例以及测试结果是否符合预期结果。
测试发现问题之后要经过调试找出错误原因和位置，然后进行改正。
是基于系统整体需求说明书的黑盒类测试，应覆盖系统所有联合的部件。
系统测试是针对整个产品系统进行的测试，目的是验证系统是否满足了需求规格的定义，找出与需求规格不相符合或与之矛盾的地方。
鉴于本系统的一些特性，本人设计了以下几各方面进行测试：
1、集成测试
集成测试将测试每一个部件之间的工作是否正常。
在这个阶段，我们假设所有的单元已通过开发人员个人在单元测试阶段测试全部通过，没有任何错误。
2、功能测试
系统功能测试如下：
测试是否可以正常添加用户和修改密码，系统正常退出；
测试是否可以正常对图书读者信息进行管理，如图书信息、读者信息的添加、删除以及修改；
测试是否可以正常对图书借阅进行管理，如图书借出、归还、超期等的操作；
3、文档测试
测试文档是否包括全部内容
测试软件功能描述与其他功能有没有冲突
查看软件功能描述是否是原来系统分析和需求
查看文档内容在特定的情况和进度下,以现有人力,物力和资源能否实现
4、极限测试
这一部分将测试所有极端的情况，如速度非常快的情况下和速度非常慢的情况下，以及所有其它的极端情况。
结束语
经过本次长达数周的毕业设计，我的设计题目教师教学质量评价系统设计基本开发完成。
其功能基本符合学校对教师教学质量管理的需求，能够完成学生、同行、所在单位对教师教学质量的评价。
毕业设计中我得到了我的指导老师王聪华最无私的帮助，他耐心的为我解决在设计中出现的问题，开阔了我的视野，同时让我学到了很多以前所没有接触过的知识和一些实际操作。
王老师对待事情严肃认真、一丝不苟，这样的精神态度在我以后的学习、工作中都将让我受益无穷，同时这也将是我以后终生受用的宝贵财富。
在此，我对王老师表示衷心的感谢，感谢他的耐心辅导！
在这里仅仅说一声谢谢是不够的，当我走入社会以后一定以他们为榜样，为国家为自己努力奋斗！
参考文献
[1]田有强，徐洪兴.新手学VisualBasic30例[M].北京:
人民邮电出版社.2004.
[2]刘圣才，李春葆.VisualBasic6.0程序设计导学[M].北京:
清华大学出社.2002.
[3]孙家广，杨长青.计算机图形学[M].北京.清华大学出版社.1995.
[4]FitzgeraldRW.VisualBasicDevelopmentGuidebook[M].Worcester:
WorcesterPolytechnicInstitute.1993.
[5]计算机职业教育联盟.VisualBasic程序设计基础教程[M].北京:
清华大学出版社.2003.
[6]朱从旭.VisualBasic程序设计综合教程[M].北京:
清华大学出版社.2005.
[7]郭瑞军，唐邦民，谢晗昕.VisualBasic数据库开发实例集锦[M]．西安:
电子工业出版社.2005.
附录
Modulel模块代码：
PublicTypeJG'同行和学生评价数据结构
XMAsString
GHAsString
JYZAsString
XSPFAsDouble
THPFAsDouble
FLAGAsBoolean
CSAsInteger
EndType
PublicTypeJGLast'
JYZAsString
XMAsString
GHAsString
XSPFAsDouble
THPFAsDouble
KCPFAsDouble
DWPFAsDouble
HJZFAsDouble
EndType
PublicArrData（）AsJG'同行和学生评分数据
PublicArrDataLast（）AsJGLast
PublicintCountAsInteger'同行和学生评分数据记录数
PublicintCCAsInteger'同行和学生评分平局分数据记录数
FrmMain代码：
DimintCAsInteger
DimArrSuoZaiDanWei（）AsDouble
DimArrKeChengKaiChu（）AsDouble
DimF1AsInteger
DimF3AsInteger
DimF4AsInteger
PrivateSubCommand1_Click（）
cd.Filter="（电子表格）|*.xls"
cd.ShowOpen
intC=0
intCC=0
OnErrorGoToerrH
Ifcd.FileName<>""Then
DimExcelAppAsObject
DimExcelWorkBookAsObject
DimExcelWorkSheetAsObject
SetExcelApp=CreateObject（"Excel.Application"）
SetExcelWorkBook=ExcelApp.Workbooks.Open（cd.FileName）
SetExcelWorkSheet=ExcelWorkBook.Worksheets
（2）
DimNNAsLong
ForNN=4To65535
IfTrim（ExcelWorkSheet.Cells（NN,4））=""AndTrim（ExcelWorkSheet.Cells（NN+1,4））=""AndTrim（ExcelWorkSheet.Cells（NN+2,4））=""AndTrim（ExcelWorkSheet.Cells（NN+3,4））=""Then
ExitFor
EndIf
Next
intC=NN-4
ReDimArrXueSheng（intC）
ReDimArrData（intC）
ForNN=4To4+intC-1
ArrData（NN-3）.JYZ=Trim（ExcelWorkSheet.Cells（NN,5））
ArrData（NN-3）.GH=Trim（ExcelWorkSheet.Cells（NN,6））
ArrData（NN-3）.XM=Trim（ExcelWorkSheet.Cells（NN,7））
ArrData（NN-3）.XSPF=CDbl（IIf（IsNumeric（ExcelWorkSheet.Cells（NN,8））,ExcelWorkSheet.Cells（NN,8）,"0"））
ArrData（NN-3）.THPF=CDbl（IIf（IsNumeric（ExcelWorkSheet.Cells（NN,9））,ExcelWorkSheet.Cells（NN,9）,"0"））
ArrData（NN-3）.CS=1
ArrData（NN-3）.FLAG=True
Next
ExcelWorkBook.Close
ExcelApp.Quit
SetExcelApp=Nothing
SetExcelWorkBook=Nothing
SetExcelWorkSheet=Nothing
F1=1
EndIf
Fori=1TointC
IfArrData（i）.FLAG
升级会员 