还剩72页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
关键词教师信息管理系统VisualBasic
6.0SQLServer2000管理信息系统1引言
1.1开发背景科技进步将人类带到了信息时代,计算机已成为各行各业在业务处理与管理工作中必不可少的辅助工具,并对各行业的发展起到越来越大的推动作用计算机信息管理技术的应用,除了能在相当大的程度上代替人工作业,减少人员工作量,减轻工作负担,减少工作中因人为原因而造成的错误,避免不必要的损失外,更重要的是能建立准确、畅通、简便的信息流通渠道,为工作提供所需要的准确、及时的信息以及做出正确而及时的选择与决定,从而给采用这门技术的单位带来了巨大的可见或不可见的利益与效益知识经济的一个重要特征就是竞争的焦点从资金、产品等物化资源的竞争转为智力资源(人才)的竞争人才是先进科技、先进文化的载体,代表着先进的生产力随着高校人事制度改革的进一步深化,高校的教师管理工作已经逐步向人力资源管理和开发转化因此,能否为创造优秀的教学和科研环境,提供优秀的人事保证,将是高校在激烈的竞争中求得生存和发展的关键因素之一教师信息管理系统正是为满足高校的师资管理建设而设计的,它的开发应用将进一步加快我国教育信息化的建设
[1]对于一个学校来说,大量教师信息难于通过传统的方法进行管理,这就迫切需要利用计算机技术帮助学校管理者来处理教师信息的日常管理教师信息管理系统是管理信息系统的一个典型用例,所以开发一种可靠、高效的教师信息管理系统是很有必要的
1.2开发意义及目的随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已被人们所深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用利用计算机进行信息控制和数据处理,不仅提高了工作效率,而且大大的提高了其安全性本系统就是为了管理纷繁复杂的教师信息而设计的作为计算机应用的一部分,使用计算机对教师信息进行管理,具有手工管理所无法比拟的优点例如检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等这些优点能够极大地提高教师信息管理的效率,是教育的科学化、正规化的管理,也是与世界接轨的重要条件高校教师信息管理系统是一个以计算机为工具,对教师信息进行处理的人机系统,它能准确、及时地反映教师的当前情况,能利用过去的数据统计分析,能从全局出发辅助学校各职能部门以及校长管理学校师资队伍的建设可见,教师信息管理系统具有强大的电子数据处理功能,大大提高学校管理人员的工作效率,减轻劳动强度,通过该系统,促进人事部门的规范化管理,提高管理效率和水平;方便快捷地将原来分散的人事信息进行有机地组织和管理,及时提供可靠的数据,为学校的科学化决策提供重要依据
1.3系统的发展与研究随着计算机软硬件技术水平的不断提高和计算机技术在企业中越来越深入的应用,管理信息系统从低级的业务处理系统向高级的战略信息系统发展计算机刚刚诞生的时候,主要是执行各种科学计算从20世纪50年代中期开始,计算机开始在企业管理中应用最早的应用是工资数据处理,目的是加快数据处理的速度和提高数据处理的精度这时计算机应用只是偶尔的情况,这个阶段被称为电子数据处理(ElectronicDataProcessing,EDP)后来,计算机技术在企业中的许多管理领域使用,这时候的计算机系统开始普遍使用,许多重复性、数据量庞大的工作都使用计算机来完成但是,这种应用还只是作为事务处理的工具这个阶段的计算机应用被称为事务处理系统(TransactionProcessingSystem,TPS)进入到20世纪60年代以后,操作系统、数据库系统都己经开始出现和逐步成熟,因此计算机在企业管理中的应用更加普及,这时使用计算机不仅完成业务数据的处理,还使用计算机系统预先规定好的数学模型,处理一些诸如统计决策等复杂的操作,这个阶段的计算机应用被称为管理信息系统(ManagementInformationSystem)进入20世纪70年代末,个人电脑、局域网迅速发展起来,且性能越来越高人们希望利用计算机技术来完成那些琐碎、繁重的文档管理、公文流转、记事、调度等工作,并且把办公室中的所有工作人员置入一个协同的工作环境中,以便共享网络中的各种资源这个阶段的计算机应用被称为办公自动化系统(OfficeAutomationSystem,OAS)20世纪80年代初,决策支持系统(DecisionSupportSystem,DSS)的概念开始出现了这是因为企业中的决策者已经不满足使用计算机技术处理那些常规的操作,而是希望自己也参与到计算机系统中,并且可以根据需要随时调整模型的参数,以便分析和比较复杂的决策问题这时还出现了高层支持系统(ExecutiveSupportSystem)高层支持系统主要是为企业的高层管理人员提供服务并且以非常友好的方式,辅助高层管理人员执行特定用途的管理和决策20世纪90年代以来,随着计算机技术和Internet的高速发展,计算机技术在企业中的作用越来越重要许多企业不再把计算机技术看成一种手段,而是当作保证企业成功的一种战略资源计算机的应用不仅仅局限于一个企业内部,而是遍及到许多企业企业资源计划(EnterpriseResourcesPlanning,ERP)、供应链管理(SupplyChainManagement,SCM)、客户关系管理(CustomerRelationshipManagement,CRM)、产品数据管理(ProductDataManagement,PDM)、企业间信息系统(InterOrganizationalInformationSystem,IOIS)、电子商务(ElectronicCommerce,EC),战略信息系统(StrategicInformationSystem,SIS)等新概念层出不穷从计算机应用的发展历程可以看出,管理信息系统的概念是动态的,其内容不断地发生变化20世纪70年代的管理信息系统的概念是一种狭义的管理信息系统,而当前的管理信息系统的概念则是一种广义的概念无论是决策支持系统、高层支持系统,还是战略信息系统,都可以称为广义的管理信息系统,或者简称为信息系统
[2]教师信息管理是高等学校管理中很重要的一项工作传统的教师信息管理是用纸保存在档案室内,它存在着许多的缺陷,如查询困难、占用空间、信息管理不方便等,如需对信息进行改动,则要花费大量的人力物力,并且无法对现有信息及时进行统计全校各院系教师之间的科研、教学状况也互不了解采用计算机进行教师信息系统管理,则可避免上述缺点,不但减少存放资料的空间并且能对信息进行快速的查询和获得及时的种类统计结果,在每个存在网络的地方都可以对有关的信息进行查询、管理与统计高校教师信息管理系统就是在这样的一个外界环境下形成观念并计划实施的
1.4设计主要工作系统开发的总体任务是提高教师信息的系统化,规范化和自动化水平,从而达到提高学校教师信息管理效率的目的系统采用模块化程序设计方法,既便于系统功能的各种组合修改,又便于未参与开发技术的人员补充、维护系统应具备数据库维护功能,及时根据用户需求进行数据的添加、删除、修改等操作系统功能分析是在系统开发的总体任务的基础上完成本教师信息管理系统需要完成的功能为1系务员功能模块实现用户登录、密码修改,对教师用户基本信息的录入、修改、删除、查询等功能;2教师用户功能模块实现用户登录、密码修改,教师基本信息、工作量、课程安排、师资结构的查询,对其他教师进行工作评价等功能;3教学秘书功能模块实现用户登录、密码修改,对教师工作量计算、课程安排进行修改、删除、查询,对教师的工作评价进行统计和学校师资结构查询等功能2系统开发工具
2.1VisualBasic
6.0简介VisualBasic是Microsoft公司推出的可视化开发环境,是Windows下最优秀的设计工具之一它是基于Basic语言基础上的一种可视化程序设计语言,是VisualStudio系统产品之一它不仅继承了早期的Basic所具有的简单易用的特点,而且其编程系统采用了面向对象、事件驱动的编程机制,提供了迅速、简捷地开发Windows应用程序的方法VisualBasic已经经过了好几个版本,现在的VisualBasic
6.0与以前的版本在开发环境上有所改进增加了工作组;在代码编辑器中提供了控件属性和方法的自动提示;能编译生成本机代码,大大提高了程序的执行速度等总的来说,VisualBasic具有以下特点
[3]1可视化编程用传统程序设计语言设计程序时,都是通过编写程序代码来设计用户界面,在设计过程中看不到界面的实际显示效果,必须编译后运行程序才能观察如果对界面的效果不满意,还要回到程序中修改有时候,这种编程-编译-修改的操作可能要反复多次,大大影响了软件开发效率VisualBasic提供了可视化设计工具,把Windows界面设计的复杂性“封装”起来,开发人员不必为界面设计而编写大量程序代码只需要按设计要求的屏幕布局,用系统提供的工具,在屏幕上画出各种“部件”,即图形对象,并设置这些图形对象的属性VisualBasic自动产生界面设计代码,程序设计人员只需要编写实现程序功能的那部分代码,从而可以大大提高程序设计的效率2面向对象的程序设计
4.0版以后的VisualBasic支持面向对象的程序设计,但它与一般的面向对象的程序设计语言(C++)不完全相同在一般的面向对象程序设计语言中,对象由程序代码和数据组成,是抽象的概念;而VisualBasic则是应用面向对象的程序设计方法(OOP),把程序和数据封装起来作为一个对象,并为每个对象赋予应有的属性,使对象成为实在的东西在设计对象时,不必编写建立和描述每个对象的程序代码,而是用工具画在界面上,VisualBasic自动生成对象的程序代码并封装起来每个对象以图形方式显示在界面上,都是可视的
[4]3结构化程序设计语言VisualBasic是在BASIC语言的基础上发展起来的,具有高级程序设计语言的语句结构,接近于自然语言和人类的逻辑思维方式VisualBasic语句简单易懂,其编辑器支持彩色代码,可自动进行语法错误检查,同时具有功能强大且使用灵活的调试器和编译器VisualBasic是解释型语言,在输入代码的同时,解释系统将高级语言分解翻译成计算机可以识别的机器指令,并判断每个语句的语法错误在设计VisualBasic程序的过程中,随时可以运行程序,而在整个程序设计好之后,可以编译生成可执行文件(.EXE),脱离VisualBasic环境,直接在Windows环境下运行
[5]4事件驱动编程机制VisualBasic通过事件来执行对象的操作一个对象可能会产生多个事件,每个事件都可以通过一段程序来响应例如,命令按钮是一个对象,当用户单击该按钮时,将产生一个“单击”(CLICK)事件,而在产生该事件时将执行一段程序,用来实现指定的操作在用VisualBasic设计大型应用软件时,不必建立具有明显开始和结束的程序,而是编写若干个微小的子程序,即过程这些过程分别面向不同的对象,由用户操作引发某个事件来驱动完成某种特定的功能,或者由事件驱动程序调用通用过程来执行指定的操作,这样可以方便编程人员,提高效率5访问数据库VisualBasic具有强大的数据库管理功能,利用数据控件和数据库管理窗口,可以直接建立或处理MicrosoftAccess格式的数据库,并提供了强大的数据存储和检索功能同时,VisualBasic还能直接编辑和访问其他外部数据库,如DBASE,FoxPro,Paradox等,这些数据库格式都可以用VisualBasic编辑和处理VisualBasic提供开放式数据连接,即ODBC功能,可通过直接访问或建立连接的方式使用并操作后台大型网络数据库,如SQLServer,Oracle等在应用程序中,可以使用结构化查询语言SQL数据标准,直接访问服务器上的数据库,并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术,为单机上运行的数据库提供了SQL网络接口,以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案
[6]6动态数据交换(DDE)利用动态数据交换(DynamicDataExchange)技术,可以把一种应用程序中的数据动态地链接到另一种应用程序中,使两种完全不同的应用程序建立起一条动态数据链路当原始数据变化时,可以自动更新链接的数据VisualBasic提供了动态数据交换的编程技术,可以在应用程序中与其他Windows应用程序建立动态数据交换,在不同的应用程序之间进行通信7对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看作是一个对象(object),将不同的对象链接(link)起来,再嵌入(embed)某个应用程序中,从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件OLE技术是Microsoft公司对象技术的战略,它把多个应用程序合为一体,将每个应用程序看作是一个对象进行链接和嵌入,是一种应用程序一体化的技术利用OLE技术,可以方便地建立复合式文档(compounddocument),这种文档由来自多个不同应用程序的对象组成,文档中的每个对象都与原来的应用程序相联系,并可执行与原来应用程序完全相同的操作
[7]8动态链接库(DLL)VisualBasic是一种高级程序设计语言,不具备低级语言的功能,对访问机器硬件的操作不太容易实现但它可以通过动态链接库技术将C/C++或汇编语言编写的程序加入到VisualBasic应用程序中,可以像调用内部函数一样调用其他语言编写的函数此外,通过动态链接库,还可以调用Windows应用程序接口(API)函数,实现SDK所具有的功能
2.2SQLServer2000简介SQLServer2000是微软公司推出的基于RDBMS(关系数据库管理系统)技术的数据库它与ORACLE、SYBASE相比,有着安装方便、使用简单的优点,而且在性价比上有着其它数据库无法比拟的优势在我国,采用WINDOWSNT作为局域网操作系统的占不小比例,而从技术角度来说,同DB2结合大型机一样,SQLServer同WINDOWSNT紧密的结合在一起能很好的处理部门级的数据作为SQLServer系列中的新版本,SQLServer2000增强了很多功能,服务器性能主要有新数据类型、数据仓库、分布式查询和更新、动态锁定、通过MICROSOFT代理服务器访问SQLServer、新的安全模型、XML支持等;管理性能增强有数据转换服务工具(DTS)、管理控制台(企业管理器)、WEB助手向导等SQLServer2000所具有的将关系数据库管理系统(RDBMS)扩展为虚拟对象数据库管理系统(ODBMS)的能力,使SQLServer2000成为当今应用于Intranet、Internet及其extranet中最具综合性的数据库开发环境
[8]这就是我们采用SQLServer2000作为支持数据库的主要原因SQLServer2000使用的语言为SQL(StructuredQueryLanguage),意思为结构化查询语言,是一种介于关系代数与关系演算之间的结构化查询语言它的主要功能就是同各种数据库建立联系,进行沟通ANSI(美国国家标准协会)规定SQL是关系型数据库管理系统的标准语言SQL语句可以用来执行各种各样的操作,例如更新数据库中的数据、从数据库中提取数据等SQL语言之所以能够为用户和企业界所接受,并成为国际标准,是因为它是一个综合的、功能极强同时又简捷易学的语言SQL语言集数据查询、数据操纵、数据定义和数据控制功能于一体,主要特点包括
[9]1综合统一非关系模型的数据语言一般都分为模式数据定义语言(模式DDL)、外模式数据定义语言(外模式DDL)、与数据存储有关的描述语言(DSDL)及数据操纵语言(DML),分别用于定义模式、外模式、内模式和进行数据的存取与处置当数据库投入运行后,如果需要修改模式,必须停止现有的数据库的运行,转储数据,修改模式并编译后再重装数据库,十分麻烦SQL语言则集数据定义语言DDL、数据操纵语言DML、数据控制语言DCL的功能于一体,语言风格统一,可以独立完成数据库生命周期中的全部活动,包括定义关系模式、建立数据库、插入数据、查询、更新、维护、数据库重构、数据库安全性控制等一系列操作要求,这就为数据库应用系统的开发提供了良好的环境用户在数据库系统投入运行后,还可根据需要随时地逐步地修改模式,且并不影响数据库的运行,从而使系统具有良好的可扩展性2高度非过程化非关系数据模型的数据操纵语言是面向过程的语言,用其完成某项请求必须指定存取路径而用SQL语言进行数据操作,只要提出“做什么”,而无须指明“怎么做”,因此无须了解存取路径,存取路径的选择以及SQL语言句的操作过程由系统自动完成这不但大大减轻了用户负担,而且有利于提高数据独立性3面向集合的操作方式非关系数据模型采用的是面向记录的操作方式,操作对象是一条记录而SQL语言采用集合操作方式,不仅操作对象、查找结果可以是元组的集合,而且一次插入、删除、更新操作的对象也可以是元组的集合4以同一种语法结构提供两种使用方式SQL语言既是自含式语言,又是嵌入式语言作为自含式语言,他能够独立地用于联机交互的使用方式,用户可以在终端键盘上直接键入SQL命令对数据库进行操作;作为嵌入式语言,SQL语句能够嵌入到高级语言中,供程序员设计程序时使用而在两种不同的使用方式下,SQL语言的语法结构基本上是一致的5语言简捷,易学易用SQL语言功能极强,但由于设计巧妙,语言十分简捷,SQL语言接近英语http://line-edu.com/Article/yytd/Index.html口语,因此容易学习,容易使用
[10]
2.3ADO简介ADO数据对象(ActiveDataObjects)实际是一种提供访问各种数据类型的链接机制ADO设计为一种极简单的格式,通过ODBC的方法在数据库接口中,可以使用任何一种ODBC数据源,即不止适合于SQLServer、Oracle、Access等数据库应用程序,也适合于Excel表格、文本文件甚至邮件服务器(MicrosoftExchange)中的数据ADO是基于OLEDB之上的对象模型,包含了所有可以被OLEDB标准接口描述的数据类型,通过ADO内部的属性和方法提供统一的数据访问接口方法ADO对象模型具有可扩展性,当把数据库上层应用程序移植到不同的数据库平台上时,只需要更换连接数据库的驱动程序,而不需要对上层程序作任何修改
[11]ADO向VisualBasic提供了很多好处,包括易于使用、熟悉的界面、高速度以及较低的内存占用ADO提供执行以下操作的方式1连接到数据源,同时可确定对数据源的所有更改是否已成功或没有发生2指定访问数据源的命令,同时可带变量参数或优化执行3执行命令4如果这个命令使数据按表中的行的形式返回,则将这些行存储在易于检查、操作或更改的缓存中5适当情况下,可使用缓存行的更改内容来更新数据源6提供常规方法检测错误(通常由建立连接或执行命令造成),涉及ADO的Error对象ADO的基础操作流程为初始化COM库,引入ADO库定义文件;用Connection对象连接数据库;利用建立好的连接,通过Connection、Command对象执行SQL命令或利用Recordset对象取得结果记录集进行查询处理;使用完毕后关闭连接释放对象3系统开发概述
3.1系统需求分析教师信息管理系统对学校加强教师信息管理有着极其重要的作用由于各大高校都在持续扩招,教师的数量日益庞大,传统的手工管理教师信息不仅工作量大,而且容易出现问题另外,教师的信息要用到学校教务管理的各个方面,所以一旦教师信息管理出现了错误,后果往往是非常严重的就一所教师数量较大的学校来说,它的设计内容非常复杂而且繁多,比如拥有教师录入管理、教师权限管理、教师信息的查询和修改等等,而且设计的模块也很多,比如信息统计模块,报表设计模块,模糊查询模块等等
[12]教师信息管理系统,它是一个教育单位不可缺少的部分它的内容对于学校的决策者和管理者来说都至关重要,所以教师信息管理系统应该能够为用户提供充足的信息和快捷的查询手段但目前还有一些单位和部门还是使用传统人工的方式管理教师信息,这种管理方式存在着许多缺点,如效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难同时随着学校的规模不断扩大,教师数量急剧增加,有关教师的各种信息量也成倍增长因此,使用一个高效的教师信息管理系统是非常必要的
[13]
3.2系统运行环境平台MicrosoftWindowsXP数据库SQLServer2000内存512MB建议1G
3.3系统可行性分析一般说来,可行性分析的任务是从技术上、经济上、运行上分析需要解决的问题是否存在可行的研究,其目的是在尽可能短的时间内用尽可能小的代价来确定问题是否可以解决可行性分析的主要任务是明确开发应用项目的必要性和可行性必要性来自开发任务的紧迫性,而可行性则取决于实现应用系统的资源和条件可行性分析主要从技术、经济和运行上来考虑
[14]1技术可行性分析技术上的可行性主要是根据系统分析所得到的对待开发的软件、支撑软件、硬件环境和操作人员的要求,以及有关的约束和限制,来分析利用现有的技术是否能实现待开发的软件它包括可得到的硬件和支撑软件在功能和性能上是否满足系统的要求,是否有满足系统性能要求的算法本系统的开发需要在XP操作系统下,以中文版本的VB
6.0为前台开发工具,以SQLServer为后台数据库而实现的其中主要通过ADO技术访问数据库现有的技术完全可以实现本系统此外,还要考虑开发人员的水平,作为计算机科学与技术专业毕业的学生,数据库设计方面对于我们应该还过得去,在学校里生活了四年,对这个管理模式应该比较熟悉我们掌握了数据库及其应用技术、数据库原理、计算机网络技术等课程,对数据库的设计、应用、维护及局域网的组成有了深刻的认识,有一定的动手实践能力,从一定程度上具备了开发一个小型系统的能力2经济可行性经济可行性首先要进行待开发软件的成本估算和成本效益分析,以确定待开发软件是否有开发的价值这里的效益包括新开发的系统所带来的收入增加,以及新开发的系统比原有系统在使用费用上的减少对于开发成本低、经济效益高的软件应积极开发,而对于开发成本高、经济效益低的软件或开发成本与经济效益差不多的软件通常不应开发本系统为中小型管理信息系统,主要的费用支出包括主机、外围设备、软件、一次性投资费用、经常性费用当前这些设备都处于低价期,投资可以较少同时,系统建成后,可以马上投入使用,在短期内可见收益可见,在经济方面,系统也是可以进行开发的3运行可行性Internet正在迅猛发展,学院从硬件到软件都投入了大量的人力、物力、财力,在教务上,给各个办公室配置了计算机,并能联接到互联网,并且学院领导对这方面比较重视,在教务上配置了一定数目的能够训练操作计算机的干事,可以快速、方便、高效地使用计算机进行日常工作学院开展了计算机及其维修专业,可让学生以实践方式对系统进行维护,使此系统在实践上具备了可行性由此可知,开发教师信息管理系统在学校中具有可行性
3.4系统开发设计思想本系统通过用户登录可进入系务员、教师用户、教学秘书三个主窗体,然后再进行信息的查询、增加、删除、修改等功能操作登录时,姓名和密码有一个错误都无法进入,提示错误,重新填写三次输入错误提示退出系统本系统开发设计思想1尽量采用学校现有软硬件环境及先进的管理系统开发方案,从而达到充分利用现有资源,提高系统开发水平和应用效果的目的;2系统应符合学校教师信息管理的规定,满足学校日常管理的需要,并达到操作过程中的直观、方便、实用、安全等要求;3系统采用模块化程序设计方法,这样既便于系统功能的各种组合,又便于未参与开发的技术维护人员补充、维护;4系统应具备数据库维护功能,及时根据用户需求进行数据的添加、删除、修改、查询等操作
3.5系统E-R图根据本系统的需求分析确定模型的设计方法,用实体及其属性的部分E-R图表示数据库系统的概念模型,结合实际情况和对用户需求的分析,在高校教师信息管理数据库中设计数据表如下1系务员登录表(编号,姓名,密码)E-R图如下图3-1图3-1系务员登录表E-R图2教师用户登录表(编号,姓名,密码)E-R图如下图3-2图3-2教师用户登录表E-R图3教学秘书登录表(编号,姓名,密码)E-R图如下图3-3图3-3教学秘书登录表E-R图4教师基本信息表(编号、姓名、性别、籍贯、出生日期、身份证号、毕业院校、学历、专业、政治面貌、入职时间、职称、联系电话、家庭住址、照片)E-R图如下图3-4图3-4教师基本信息表E-R图5课程信息表(编号、姓名、星期、时间、课程、类型、学时、班级、教室)E-R图如下图3-5图3-5课程信息表E-R图6评价信息表(编号、姓名、工作成绩、工作态度、总成绩、评价编号、评价姓名、评价时间)E-R图如下图3-6图3-6评价信息表E-R图7工作量表(编号、姓名、标准学时)E-R图如下图3-7图3-7工作量表E-R图4系统总体设计
4.1系统结构设计高校教师信息管理系统是一个以计算机为工具,对学校教师信息进行处理的人机系统,它能准确、及时地反映学校教师的当前情况,教师信息管理系统是教育信息化的一个重要应用系统,它大大改善了学校教学、科研与管理的基础环境,提高了学校管理的现代化水平作为整个学校管理信息系统的关键子系统之一,它的作用主要体现在一是为教师信息管理提供重要的教职员工数据,二是可以有效地提高人事管理部门的工作效率和质量教师信息管理系统具有强大的电子数据处理功能,大大提高学校管理人员的工作效率,保证信息的准确和规范,减少相关人员的工作量,使学校的教务管理工作真正做到科学合理的规划,系统高效的实施本系统主要包括以下功能模块1系务员功能模块实现用户登录、密码修改,对教师用户基本信息的录入、修改、删除、查询等功能;2教师用户功能模块实现用户登录、密码修改,教师基本信息、工作量、课程安排、师资结构的查询,对其他教师进行工作评价等功能;3教学秘书功能模块实现用户登录、密码修改,对教师工作量计算、课程安排进行修改、删除、查询,对教师的工作评价进行统计和学校师资结构查询等功能系统功能模块结构如下图4-1所示图4-1系统功能模块图
4.2数据库设计使用数据库的主要原因是需要追踪信息的变化,数据库管理不只是将信息放在数据库里,有时还需要检索,排序,校对,编辑信息,还需要生成各种各样的报表SQL数据库可以实现这些功能
[15],例如,建立一个关于教师的数据库时,需要这些教师的有关的所有信息,这看起来是一件繁重的工作,特别是当你有几百个教师的时候但当数据库建成之后,就可以很容易地控制,跟踪所有教师的信息数据库(database)有人以为数据库就是表,但实际上数据库是所有用于管理数据的表和其他对象(如窗体,报表等)的集合设计数据库一般遵循以下几个步骤第一步,确定创建数据库的目的;第二步,确定该数据库中需要的表;第三步,确定表中需要的字段;第四步,明确有唯一的字段;第五步,确定表之间的关系;第六步,输入数据并新建其他数据库的对象
[9]
4.
2.1数据字典设计通过分析,本数据库需要8个表,设计出数据字典表格如下表所示表4-1系务员信息表数据字典数据流系统名高校教师信息管理系统条目名系统管理来源高校教师信息管理数据库(Teacher)去处登录时身份确认数据流结构系务员登录信息表(xiwu){xid、xname、xpwd}简要说明用户在使用本系统时必须进行身份验证进入系务员界面表4-2教师用户信息表数据字典数据流系统名高校教师信息管理系统条目名系统管理来源高校教师信息管理数据库(Teacher)去处登录时身份确认数据流结构教师登录信息表(jiaoshi){jid、jname、jpwd}简要说明用户在使用本系统时必须进行身份验证进入教师用户界面表4-3教学秘书信息表数据字典数据流系统名高校教师信息管理系统条目名系统管理来源高校教师信息管理数据库(Teacher)去处登录时身份确认数据流结构秘书登录信息表(mishu){mid、mname、mpwd}简要说明用户在使用本系统时必须进行身份验证进入教学秘书界面表4-4教师用户基本信息表数据字典数据流系统名高校教师信息管理系统条目名系统管理来源高校教师信息管理数据库(Teacher)去处教师基本信息的录入数据流结构教师基本信息表(users){编号、姓名、性别、籍贯、出生日期、身份证号、毕业院校、学历、专业、政治面貌、入职时间、职称、联系电话、家庭住址、照片}简要说明对于教师用户的基本信息进行录入表4-5课程信息表数据字典数据流系统名高校教师信息管理系统条目名系统管理来源高校教师信息管理数据库(Teacher)去处课程信息的录入数据流结构课程信息表(kecheng){编号、姓名、星期、时间、课程、类型、学时、班级、教室}简要说明对于教师课程进行录入表4-6评价信怯表数据字䅸数据楁系统名高校䕙师信息管理系统条目名系统管理来源高校教师信息管理数据库(Teacher)去处评价信息的录入数据䵁结构评价信息表(pingjia){编号、姓名、工作成绩、工作态度、总成绩、评价编号、评价姓名、评价时锉}简要说明对于教师评价进行录入表4-7工作量信息表数据字典数据流系统名高校教师信息管理系统条目名系统管理来源高校教师信息管理数据库(Teacher)去处工作量的录入数据流结构工作量信息表(gongzuo){编号、姓名、标准学时}简要说明对于教师工作量进行录入表4-8控制标志表数据字典数据流系统名高校教师信息管理系统条目名系统管理来源高校教师信息管理数据库(Teacher)去处评价管理的控制数据流结构评价控制表(control){flag}简要说明对于教师评价管理进行控制
4.
2.2数据库逻辑结构设计现在需要将上面的数据库概念结构转化为SQLServer2000数据库系统所支持的实际数据模型,也就是数据库逻辑结构高校教师信息管理系统中,各个表格的设计结构如下图1系务员信息数据表(表4-9),用于系务员登录管理表4-9系务员信息(xiwu)数据表字段字段名类型宽度Nulls1xidchar10否2xnamechar10是3xpwdchar10是2教师用户信息数据表(表4-10),用于教师用户登录管理表4-10教师用户信息(jiaoshi)数据表字段字段名类型宽度Nulls1jidchar10否2jnamechar10是3jpwdchar10是3教学秘书信息数据表(表4-11),用于教学秘书登录管理表4-11教学秘书信息(mishu)数据表字段字段名类型宽度Nulls1midchar10否2mnamechar10是3mpwdchar10是4教师基本信息数据表(表4-12),用于教师信息管理,并可以根据信息进行统计人数,查看各部分所占比例表4-12教师信息(users)数据表字段字段名类型宽度Nulls1编号char10否2姓名char10是3性别char2是4籍贯varchar50是5出生日期datetime8是6身份证号char18是7毕业院校varchar50是8学历varchar50是9专业varchar50是10政治面貌varchar50是11入职时间varchar8是12职称varchar50是13联系电话varchar11是14家庭住址varchar50是15照片varchar50是5课程信息数据表(表4-13),用于教师课程管理,并可以根据信息进行每个教师的课程数量统计表4-13课程信息(kecheng)数据表字段字段名类型宽度Nulls1编号char10否2姓名char10是3星期varchar6是4时间varchar6是5课程varchar20是6类型varchar4是7学时int4是8班级varchar30是9教室varchar10是6评价信息数据表(表4-14),用于教师评价信息管理,并可以根据信息进行统计、排名表4-14评价信息(pingjia)数据表字段字段名类型宽度Nulls1编号char10否2姓名char10是3工作成绩int4是4工作态度Int4是5总成绩int4是6评价编号char10是7评价姓名char10是8评价时间char4是7工作量信息数据表(表4-15),为了统计教师每学期的工作量,创建了工作量信息表,通过计算统计了教师的工作量信息表4-15工作量信息(gongzuo)数据表字段字段名类型宽度Nulls1编号char10否2姓名char10是3标准学时floar8是8评价控制信息数据表(表4-16),为了控制评价的开始和结束,创建评价控制表,通过表中的flag值控制评价开始和结束表4-16评价控制信息(control)数据表字段字段名类型宽度Nulls1flagint4否5系统详细设计
5.1登录界面设计1功能简介登录模块的详细设计主要是用户登录的一个界面,判断登录用户的权限,进入不同的主界面,从而进行相关的操作登录界面主要通过用户名、密码以及权限来判断用户的合法性,如果用户连续三次没有输入正确的用户名和密码,系统将自动关闭输入正确的用户名和密码后,验证了用户身份合法后就进入主界面由于用户权限的不同,系统进入的主界面不同其中,权限分为三种系务员、教师用户、教学秘书系务员可以对教师登录信息、教师基本信息进行管理;教师用户可以对自身基本信息、工作量、课程安排、工作评价、师资结构进行查询;教学秘书可以对课程安排、工作量、工作评价进行管理对于系务员可以有系务员进行添加删除设置,对于教学秘书可以有教学秘书进行添加删除设置2窗体设计登录界面窗口由Label、TextBox、CommandButton、ComboBox、Timer、Adodc等控件组成,Timer控制label动态移动窗口布局如下图5-1图5-1登录窗体3代码分析Adodc控件与数据源连接主要部分如下PublicStr=Provider=SQLOLEDB1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=teacher注意在本系统中Adodc控件与数据源的连接都是这样,以后不再叙述具体代码见附录
5.2系务员模块设计1功能简介在程序设计阶段,窗体是程序员的“工作台”,用以可视化的建立应用程序在程序运行时,每一个窗体对应一个窗口窗体是VisualBasic中一个重要的对象,而主窗体更为重要各个功能窗体的调用必须通过主窗体来完成在高校教师信息管理系统中,选择系务员身份进入的界面如下图5-2所示,系务员主窗体主要包含登录管理、信息管理、修改密码、信息查询、重新登录、退出系统六个功能选项按钮,通过点击各个按钮可进入相应的子窗体或退出系统2窗体设计主界面的设计使用按钮转到各个窗体,具体的窗口布局如下图5-2在主窗体中,按Tab键可以使焦点在各个按键上顺序向下移动,获得焦点的按钮在按下Enter键时,进入相应的窗体图5-2系务员主窗体3代码分析在点击退出系统按钮时,为了避免误操作直接退出系统,系统会弹出对话框,确认是否真要退出,如果选择确定按钮则退出系统,如果选择取消按钮则返回主界面实现语句如下PrivateSubCommand4_ClickDialog.ShowMe.Enabled=FalseEndSub
5.
2.1登录管理界面设计1功能简介在系系统使用阶段,首先由系务员进入登录管理窗口,在本窗口将用户的编号、姓名、密码输入到库中,才可以在后面的使用中对这些用户进行管理同时也只有这些用户才可以通过姓名、密码进入本系统系务员可以在本窗口方便的将新用户录入到相应的库中对于库中已存在的用户,不可以再重新录入,如果用户信息输入有误可以进行修改或删除2窗体设计在窗体中放置一个ADO控件,将其连接到“teacher”数据库中的“jiaoshi表”,然后将MSFlexGrid控件绑定到ADO控件上,以显示用户信息另外还有Frame控件、StatusBar控件、CommonDialog控件、TextBox控件、Label标签控件和一些命令按钮设计此窗体主要使用了TextBox控件,TextBox控件允许用户在应用程序中输入文本和显示文本当用户点击了MSFlexGrid控件上的某一行,相应的内容就会显示在对应的TextBox控件中用一些Label控件标记表中字段的名称数据录入界面设计完成后,使用ADO的RecordSet对象中的AddNeW方法和Update方法将数据保存到“jiaoshi表”中,StatusBar控件显示了当前表中共有的记录数具体窗体的布局如图5-3图5-3登录管理窗体3代码分析为了方便系务员添加用户数量,放置了一个StatusBar控件,利用该控件显示了当前用户数量具体实现代码如下StatusBar
1.SimpleText=★目前共有Adodc
1.Recordset.RecordCount名教师★当点击MSFlexGrid控件中的某一行将会在Text中显示相应的内容,通过MSFlexGrid控件的单击事件,使对应的TextBox控件获取指定行的各个列项值以方便用户进行修改或删除等操作注意在本系统中MSFlexGrid控件和StatusBar控件的实现方法类同,以后不再叙述具体实现代码见附录
5.
2.2信息管理界面设计1功能简介信息管理窗体实现了对教师用户的详细信息进行管理,将“jiaoshi表”中用户的编号添加到窗体列表框中,系务员可以直接选择教师编号进行信息的添加,不可以输入“jiaoshi表”中没有的用户对于库中已存在的信息,不可以重新输入,如果教师信息输入有误可以进行修改或删除并且可以添加相应的照片,以便完善教师信息2窗体设计在窗体中先放置一个ADO控件,将其连接到“teacher”数据库中的“jiaoshi表”,然后将Combo2控件绑定到ADO控件上,以显示“jiaoshi表”中所有的教师编号其次还放置了另一个ADO控件,将其连接到“teacher”数据库中的“users表”,将MSFlexGrid控件绑定到ADO控件上,以显示教师基本信息另外还有Frame控件、ComboBox控件、DTPicker控件、Image1控件、Picture控件、CommonDialog控件、StatusBar控件、TextBox控件、Label标签控件和一些命令按钮设计此窗体主要使用了TextBox控件,TextBox控件允许系务员在应用程序中输入文本和显示文本ComboBox控件可以显示列文本,系务员可以从列表中选择或输入新文本,系统采用DTPicker控件进行日期的录入,方便了系务员录入操作用一些Label控件标记表中字段的名称通过窗体中的“添加”、“删除”、“修改”命令按钮完成具体功能数据录入全部完成后点击添加按钮,系统使用ADO的RecordSet对象中的AddNeW方法和Update方法将窗体中数据保存到“users表”中具体窗体的布局如图5-4图5-4信息管理窗体3代码分析当选择了Combo2中的编号,系统会自动在Text2中显示对应的教师姓名,教师姓名是不可以进行修改的当系务员自动录入的编号不在列表中,系统会提示“此编号不存在,请重新输入!”当点击了添加照片按钮将自动打开一个对话框,从中可以选择照片路径进行添加,具体实现代码如下CommonDialog
1.Filter=*.bmp;*.ico;*.jpg;*.gifCommonDialog
1.Action=1s=CommonDialog
1.FileNameImage
1.Picture=LoadPictures具体实现代码见附录
5.
2.3密码管理界面设计该部分由修改密码和添加新用户两部分组成,具体介绍如下1修改密码
①功能简介在运行过程中,点击系务员中的修改密码按钮,即可打开修改密码窗体该窗体对系务员和教学秘书都可用,根据进入的身份不同连接不同的数据库表,该功能通过姓名、原密码、新密码、确认密码对密码进行修改,新密码与确认密码必须一致,否则系统会提示“新密码与确认密码不一致,请重新输入!”,并将文本框清空,以便于用户重新输入但是需要强调的是,此功能只对本人密码进行修改
②窗体设计为了减少系统的复杂性,在修改密码窗口中使用了SSTab控件,该控件使窗体同时拥有两个功能窗口,在修改密码窗口有Frame控件、TextBox控件、Label标签控件和一些命令按钮通过Adodc控件将其连接到“teacher”数据库中的“xiwu表”进行密码的修改具体窗体的布局如图5-5图5-5修改密码窗体
③代码分析该窗体对系务员和教学用户都可以用,但进入后不同的身份连接不同的表,以便进行不同的操作具体实现代码见附录2添加新用户
①功能简介在修改密码中通过SSTab控件选择添加新用户窗口该窗体可由系务员对系务员用户进行添加或删除管理,根据进入的身份不同连接系务员或教学秘书表,对自身表进行管理
②窗体设计该窗体由ADO控件根据不同身份连接到“teacher”数据库中的“xiwu表”或“mishu表”,然后将MSFlexGrid控件绑定到ADO控件上,以显示“xiwu表”或“mishu表”中所有的编号和姓名由其中一个标签显示该窗体是对系务员还是教学秘书进行管理另处在添加新用户窗口还包含有Frame控件、TextBox控件、Label标签控件和一些命令按钮具体窗体的布局如图5-6图5-6添加新用户窗体
5.
2.4信息查询界面设计1功能简介这部分主要是实现系务员根据教师用户的基本信息对数据表中的教师记录进行查询显示,系务员可以通过“编号”、“姓名”、“性别”、“学历”、“职称”五个查询条件进行查询通过勾选各查询选项,实现了多条件精确查询2窗体设计窗体中使用了CheckBox控件、ComboBox控件、TextBox控件、Frame控件、Adodc控件、StatusBar控件、CommonDialog控件、Label标签控件和一些命令按钮,其次还放置了另一个ADO控件,将其连接到“teacher”数据库中的“users表”,将MSFlexGrid控件绑定到ADO控件上,以显示教师基本信息由CheckBox控件进行多选控制多条件查询当点击显示全部时,将显示表中所有的记录具体的窗体布局如图5-7图5-7信息查询窗体3代码分析该窗体使用CheckBox控件控制多选,具体实现代码见附录
5.
2.5重新登录界面设计系务员的重新登录界面同上图5-1登录主界面,不再详细介绍
5.
2.6退出系统界面设计1功能简介提醒用户是否确定现在退出系统当点击确定或按Enter键时,退出系统;当点击取消或按Esc键时,将返回主界面2窗体设计窗体中使用了对话框窗体,添加了Image控件、Label标签控件和两个命令按钮,具体的窗体布局如图5-8图5-8退出系统窗体3代码分析系务员、教师用户和教学秘书都调用此窗口,通过代码控制返回到哪个主窗体,具体实现代码如下SelectCaseusertypeCase0:选择身份为系务员Frmxiwu.Enabled=TrueUnloadMeCase1:选择身份为教师用户Frmjiaoshi.Enabled=TrueUnloadMeCase2:选择身份为教学秘书Frmmishu.Enabled=TrueUnloadMeEndSelect
5.3教师用户模块设计1功能简介在高校教师信息管理系统中,选择教师用户身份进入的界面如下图5-9所示,教师用户主窗体主要包含基本信息、工作量、课程安排、工作评价、师资结构、修改密码、重新登录、退出系统八个功能选项按钮,通过点击各项按钮可进入相应的子窗体或退出系统2窗体设计主界面的设计使用按钮转到各个窗体,具体的窗口布局如下图5-9在主窗体中,按Tab键可以使焦点在各个按键上顺序向下移动,获得焦点的按钮在按下Enter键时,进入相应的窗体图5-9教师用户主窗体
5.
3.1查询基本信息界面设计1功能简介根据用户输入的编号,显示该用户的基本信息,用于教师用户查询自己的基本资料点击确定退出该窗体,返回到主界面2窗体设计此窗体中放置了一个ADO控件,将其连接到数据库中的“users表”,设计此窗体主要使用了TextBox控件和一些Label控件,TextBox控件主要用于教师用户基本信息的显示,Label控件主要用于标记表中字段的名称另外还有Image控件和一个命令按钮具体的窗体布局如图5-10图5-10查询基本信息窗体3代码分析Image控件显示了库中的照片,主要实现代码如下Image
1.Picture=LoadPictureAdodc
1.Recordset.Fields14具体实现代码见附录
5.
3.2查询工作量界面设计1功能简介根据用户输入的编号,显示该用户的工作量,具体计算公式已经给出,并且已经列出该教师所上的课程、标准学时和班级,教师可以根据相应的信息核对自己的标准学时2窗体设计此窗体中放置了一个ADO控件,将其连接到数据库中的“gongzuo表”,设计此窗体主要使用了TextBox控件和一些Label控件,TextBox控件主要用于教师用户信息的显示,Label控件主要用于标记表中字段的名称另外还有Frame控件和一个命令按钮具体的窗体布局如图5-11图5-11查询工作量窗体3代码分析教师基本课程是用一个TextBox控件连接了“kecheng表”,显示了该教师的课程、学时、班级主要实现代码如下Text
3.text=Text3+Adodc
1.Recordset!课程+学时Adodc
1.Recordset!学时+Adodc
1.Recordset!班级+vbCrLf具体实现代码见附录
5.
3.3查询课程界面设计1功能简介教师课程表查询模块主要实现教师任课信息的查询操作,通过输入的教师编号,作简单查询并以常见的课程表形式呈现出来2窗体设计此窗体中放置了一个ADO控件,将其连接到数据库中的“kecheng表”,设计此窗体主要使用了MSFlexGrid控件,行显示星期,列显示第几讲,界面清晰明了,另外还有Label控件和一个命令按钮Label控件显示了该教师用户的姓名具体的窗体布局如图5-12图5-12查询课程窗体3代码分析教师课程表用一个MSFlexGrid控件显示了教师的课程、类型、班级、教室具体实现代码见附录
5.
3.4工作评价界面设计教师用户对工作评价有两部分选择,一是进入对其他教师的评价,二是进入对自己评价的查询由教学秘书管理这个功能,在不同的时间内会开启不同的功能如图5-13,具体介绍如下1进入对教师的工作评价
①功能简介当进入对教师的工作评价界面时,将由该教师对其他所有教师的工作成绩和工作态度进行评价,每添加一条将会显示在上面的表中,对于评价过的教师不可以再次评价,否则会提醒“该教师已被评价!”,也不可单评价一门,否则会提醒“内容不能为空,请重新输入!”,如果评价输入有误可以进行修改或删除最上栏会提示全部教师的人数和已经评价的人数
②窗体设计此窗体中放置了一个ADO控件,将其连接到数据库中的“pingjia表”,设计此窗体主要使用了MSFlexGrid控件,显示了已经评价过的记录另外还有Frame控件、ComboBox控件、DTPicker控件、StatusBar控件、TextBox控件、Label标签控件和一些命令按钮评价时间会根据系统时间自动给出具体的窗体布局如图5-14图5-13进入评价窗体图5-14评价窗体
③代码分析教师的工作评价,系统自动给出评价的年份,主要实现代码如下Text
5.text=YearDate窗体用StatusBar控件对教师总数和已经被评价人数的进行显示,主要实现代码如下StatusBar
1.SimpleText=共有Adodc
1.Recordset.RecordCount名教师需要评价!★★★目前有Adodc
2.Recordset.RecordCount名教师己被评价!具体实现代码见附录2进入对自己评价的查询
①功能简介当进入对自己评价查询的窗体,教师用户首先输入要查询的年份,点击查询,系统会根据年份显示出该教师在所查询年份的工作成绩、工作态度、总人数和名次
②窗体设计此窗体中放置了一个ADO控件,将其连接到数据库中的“pingjia表”,根据教师用户输入的年份查询在TextBox控件中显示出该教师用户的信息和工作成绩、工作态度、总人数和名次,另外还有Frame控件、Label标签控件和一些命令按钮具体的窗体布局如图5-15图5-15查询评价窗体
③代码分析在窗体中显示名次,需要按总成绩进行排序,连接“pingjia表”代码如下Adodc
1.RecordSource=SELECTdistinct编号总成绩FROMpingjiawhere评价时间=Text
7.textorderby总成绩desc具体实现代码见附录
5.
3.5师资结构界面设计1功能简介在高校教师信息管理系统中,为了清晰的了解学校的师资结构,使用MSChart控件的饼形图表分析职称、学历、年龄在全校的占有率,在界面中直观的显示出来2窗体设计在窗体中添加MSChart控件和ADO控件,具体的窗体布局包括了职称比例图如图5-16,学历比例图、年龄比例图同图5-16类似图5-16职称比例图窗体3代码分析首先,将MSChart控件的chartType属性设置饼形图格式MSChart
1.chartType=VtChChartType2dPie,设置ShowLegend属性值为True,在Location对象指定的位置显示图表的图例,然后,通过SQL语句按各项分组统计学校总人数,最后,逐一设置各项在饼形图中的比例,具体实现代码见附录
5.4教学秘书模块设计1功能简介在高校教师信息管理系统中,选择教学秘书身份进入的界面如下图5-17所示,教学秘书主窗体主要包含课程安排、工作量、工作评价、师资结构、修改密码、重新登录、退出系统七个功能选项按钮,通过点击各项按钮可进入相应的子窗体或退出系统2窗体设计主界面的设计使用按钮转到各个窗体,具体的窗口布局如下图5-17在主窗体中,按Tab键可以使焦点在各个按键上顺序向下移动,获得焦点的按钮在按下Enter键时,进入相应的窗体图5-17教学秘书主窗体
5.
4.1课程安排界面设计1功能简介教师任课管理模块主要完成教师任课管理的功能,内容包括编号、姓名、星期、时间、课程、类型、学时、班级、教室等,本模块实现对教师任课信息的添加、删除、修改等操作2窗体设计利用树状结构显示课程信息,浏览方便、直观在窗体中添加了一个TreeView控件、一个ImageList控件和一个ADO控件控制的树型结构的显示另外还包括了ComboBox控件、TextBox控件、Frame控件、Label标签控件和一些命令按钮具体的窗体布局如图5-18图5-18课程表设置窗体3代码分析具体实现代码见附录
5.
4.2工作量界面设计1功能简介教师工作量模块主要完成教师工作量管理的功能,通过公式计算出教师的标准学时每个教师所上的的课程、学时、班级都已经在窗体中显示出来,教学秘书可以根据所给出的信息和公式对教师的工作量计算后进行添加、删除、修改等操作2窗体设计此窗体中放置了一个ADO控件,将其连接到数据库中的“gongzuo表”,设计此窗体主要使用了MSFlexGrid控件,显示了已经计算过工作量的教师记录另外还有Frame控件、ComboBox控件、TextBox控件、Label标签控件和一些命令按钮具体的窗体布局如图5-19图5-19工作量窗体3代码分析具体代码见附录部分
5.
4.3工作评价界面设计该模块包括了管理评价、查询评价、所有评价三个功能,具体介绍如下1管理评价
①功能简介管理评价是由教学秘书控制,主要负责在特定时间内开启教师评价功能,教师可以进入评价窗体对其他教师进行评价当教师在评价结束后,教学秘书再开启教师评价查询功能,教师可以进入自己的评价进行查询,还可以将两者都关闭
②窗体设计此窗体主要运用了CommondButton控件,添加了一个ADO控件,将其连接到数据库中的“control表”,点击不同的按钮,可以改变库中的标志,从而控制教师评价的不同功能具体的窗体布局如图5-20图5-20管理评价窗体2查询评价
①功能简介通过查询评价模块可以查询某一编号教师在某一年份的评价信息可以查看本教师的各项成绩、总人数和个人所排名次
②窗体设计此窗体中放置了一个ADO控件,将其连接到数据库中的“pingjia表”,在ComboBox控件中选择编号,在TextBox控件中输入年份,点击查询按钮,将会在下面的TextBox控件中显示该教师的评价信息具体的窗体布局如图5-21图5-21查询评价窗体3所有评价
①功能简介通过此模块显示所有评价,并且可以对某一不合理的评价进行删除
②窗体设计此窗体中放置了一个ADO控件,将其连接到数据库中的“pingjia表”,在MSFlexGrid控件中显示所有的评价另外还有TextBox控件、Label标签控件和一些命令按钮具体的窗体布局如图5-22图5-22所有评价窗体6系统测试系统测试是为了发现错误而执行程序的过程,其目的在于以最少的时间和人力系统地找出软件中潜在的各种错误和缺陷在系统开发过程中采用了多种措施保证软件质量,但是实际开发过程中还是不可避免地会产生差错,系统中通常可能隐藏着错误和缺陷,不经过严密测试的系统投入运行,将会造成难以想象的后果,因此系统测试是开发过程中为保证软件质量必须进行的工作
[17]因此,我们必须重视测试工作由于程序中隐藏的缺陷只在特定的环境下才有可靠显露,系统缺陷通常是由于对某些特定情况考虑不周造成的,因此测试不是为了表明程序正确,成功的测试也不是没有发现错误的测试有意义的软件测试应该是从“破坏”软件系统的角度出发,这种精心设计是最有可能暴露程序设计中的缺陷的测试方案为了确保本系统能够正常运行,需要在发布之后做一次较全面的测试现将具体操作及过程举例说明如下1“登录界面”测试打开高校教师信息管理系统,输入相应的姓名、密码,填写完成后选择权限,然后点击“确定”,将会根据不同权限出现不同的操作界面,即该用户已经登录成功了如果输入错误,系统将提示“密码输入错误,请重新输入!”,在测试输入三次错误密码,系统提示后自动退出2系务员模块测试
①“登录管理”测试点击系务员窗体中的“登录管理”按钮,运行“登录管理”窗体,在相应的文本框中输入编号、姓名、密码后;点击“添加”、“删除”、“修改”,系统运行成功并完成相应操作;点击“返回”将返回到主界面
②“信息管理”测试点击系务员窗体中的“信息管理”按钮,运行“信息管理”窗体,在窗体中输入相应的各项基本信息,点击“添加”、“删除”、“修改”,系统运行成功并完成相应操作;点击“返回”将返回到主界面
③“修改密码”测试点击窗体中的“修改密码”按钮,运行“修改密码”窗体,在窗体中输入姓名、原密码、新密码、确认密码,输入完毕后点击“确定”,如果输入的新密码和确认密码不一致,则提示“原密码和确认密码不一致,请重新输入!”,如果输入正确,密码修改成功;点击“返回”将返回到主界面
④“信息查询”测试点击系务员窗体中的“信息查询”按钮,运行“信息查询”窗体,在窗体中选择查询方式并输入查询需要满足的条件,可以进行多条件查询,如果有结果则会将各项记录显示出来点击“显示全部”,将会显示所有记录点击“返回”将返回到主界面
⑤“重新登录”测试系务员“重新登录”界面测试同上述
(1)“登录界面”测试
⑥“退出系统”测试点击窗体中的“退出系统”按钮,将会弹出对框,提示是否确定退出;如果点击“确定”将直接退出;如果点击“取消”将回到主界面3教师用户模块测试
①“基本信息”测试点击教师用户窗体中的“基本信息”按钮,运行“信息查询”窗体,在窗体中显示教师个人的各项信息,点击“确定”返回主界面
②“工作量”测试点击教师用户窗体中的“工作量”按钮,运行“工作量”窗体,在窗体中显示教师个人的编号、姓名、标准学时和课程信息;点击“确定”返回主界面
③“课程安排”测试点击教师用户窗体中的“课程安排”按钮,运行“课程安排”窗体,在窗体中以课程表形式显示教师个人的课程、类型、班级、教室信息;点击“确定”返回主界面
④“工作评价”测试点击教师用户窗体中的“工作评价”按钮,将会弹出一个新窗体,如果选择“进入对教师的工作评价”,运行“评价”窗体,对其他教师评价进行“添加”、“删除”、“修改”操作;如果选择“进入对自己的评价查询”,运行“查询评价”窗体,查看教师个人的评价情况;点击“确定”返回到主界面
⑤“师资结构”测试点击窗体中的“师资结构”,运行“师资结构”窗体,在窗体中以图表形式显示了高校教师的职称、学历、年龄三方面师资结构;点击“返回”返回主界面4教学秘书模块
①“课程安排”测试点击教学秘书窗体中的“课程安排”按钮,运行“课程安排”窗体,在窗体中输入相应的各项课程信息,点击“添加”、“删除”、“修改”,系统运行成功并完成相应操作;点击“返回”将返回到主界面
②“工作量”测试点击教学秘书窗体中的“工作量”按钮,运行“工作量”窗体,在窗体中根据所教课程信息进行计算后,点击“添加”、“删除”、“修改”,系统运行成功并完成相应操作;点击“返回”将返回到主界面
③“工作评价”测试点击教学秘书窗体中的“工作评价”按钮,运行“工作评价”窗体,在窗体中选择“管理评价”页面,完成对教师用户评价功能的管理;选择“查询评价”页面,输入编号和年份查询单个评价;选择“所有评价”页面,显示所有评价记录,系统运行成功并完成相应操作;点击“返回”将返回到主界面7结论本系统的总体任务是实现高校教师信息管理的系统化和自动化用户通过相应的模块,对教师信息进行显示、输入、添加、修改、删除、查询等功能,信息维护起来非常方便利用此系统,用户可以方便地浏览信息,找到需要的信息并对其进行修改此外,设置了系务员、教师用户和秘书三类用户权限,从而更好地确保了系统的安全性通过本次设计,可以对本系统的优点作如下结论1本软件具有友好的操作接口系统采用按钮连接方式,操作简单、功能完备、完全采用人机对话方式,交互性强2本软件操作具有简易性系统简单易操作,多用鼠标和键盘操作,诸多的信息提示,容错处理,使输入变得轻松灵活,只需轻轻点击及按键,其它工作都由系统来做,用简便直观的操作来完成复杂的功能3本软件具有完善的查询功能系统提供了关于教师信息管理的方方面面的查询例如你可以按编号查询,也可以按姓名查询可以完全根据你的需要和习惯进行查询,从而进一步为用户提供了方便4统计功能系统提供了数据统计功能,通过饼形图方式将职称、年龄、学历进行归类,按所占比例的不同构成饼形图,该统计形式,使用户查看更加方便、直观软件中存在的问题虽然系统有很多优点,但是不足之处也是存在的查询功能实现的是精确查询,而不能进行模糊查询在现实的应用中或许会暴露更多的系统漏洞,需要进一步的改善谢辞经过几个月来的努力,我终于完成了设计任务,在这里,我真诚地感谢帮助过我的所有人,谢谢他们对我提供了宝贵的意见和经验随着设计的完成,大学生活也已接近尾声,回想这段时光,有太多的收获和感慨,借此机会向在学习和生活中给予我关怀和帮助的老师、同学们表示衷心的感谢!在毕业设计结束之际,我首先要感谢我的毕业设计指导老师——老师王老师严谨治学,对待问题认真负责,解答问题时所表现出来的渊博的知识令我钦佩感谢她在我做毕业设计之时给予的指导,正是由于她对我的耐心指导,及时指出我的不足之处使我找到毕业设计的最好解决方案在毕业设计近四个月的时间里,我受到唐山学院计算机科学与技术系领导和全体老师的大力支持,在此我向他们表示感谢在这里我还要感谢和我一起做毕业设计的全体同学,我们在这段时间里在一起并肩作战,感谢他们与我共度这个紧张难忘的日子,我会永远珍惜这段友谊!带着许多的不舍,许多期盼,我就要离开母校了,在这里愿母校的明天更加美好!参考文献
[1]徐安东,李飞,邢晓怡.VisualBasic数据库应用开发教程[M].北京清华大学出版社,2007,1331-372.
[2]张宁.计算机应用技术[M].浙江经济学科出版社,2000100-120.
[3](美)TEDCOOMBSJONCAMPBELL编著,刘少鵾,邓云佳等译.VisualBasic编程实用大全[M].北京中国水利水电出版社,2005,524-198.
[4]柴欣,武优西.VisualBasic程序设计基础[M].北京中国铁道出版社,2005,9155-260.
[5]高春艳,王春才,李俊民.VisualBasic数据库系统开发完全手册[M].北京人民邮电出版社,2006,3439-490.
[6]张晓黎,张巍.VisualBasic+SQLServer数据库应用系统开发与实例[M].北京人民邮电出版社,2003,8120-156.
[7]高春艳,刘彬彬.VisualBasic控件参考大全[M].北京人民邮电出版社,2006,1222-586.
[8]赵增敏.SQLServer2000实用教程[M].北京电子工业出版社,2002,380-98.
[9]于松涛,徐振成.精通SQLServer2000数据库管理与开发[M].北京人民邮电出版社,2001,48-12.
[10]高春艳,李艳,谷伟东.VisualBasic数据库开发关键技术与实例应用[M].北京人民邮电出社,2004,528-29.
[11]高春艳,李俊民,刘彬彬.VisualBasic程序开发范例宝典[M].北京人民邮电出版社,2006,768-688.
[12]王珊,萨师煊.数据库系统概论[M].北京高等教育出版社,2006,578-125.
[13]波斯特,数据库管理系统[M](英文版).北京机械工业出版社,199313-18.
[14]牛允鹏.数据库及其应用[M].浙江经济学科出版社,199976-106.
[15]AbrahamsilberschatzHenryF.KorthS.Sudarshan.数据库系统概念[M](英文版).北京机械工业出版社,200336-45.
[16](美)巴顿.软件测试[M](英文版.北京机械工业出版社,1998120-125.附录程序设计清单文件名文件类型说明Frmlogin窗体文件登录主窗体Frmxiwu窗体文件系务员主窗体Frmjiaoshi窗体文件教师主窗体Frmmishu窗体文件秘书主窗体Frmdenglugl窗体文件登录管理主窗体Frmxinxigl窗体文件信息管理主窗体Frmxinxicx窗体文件信息查询主窗体Frmxgmima窗体文件修改密码主窗体Frmcxxinxi窗体文件查询信息主窗体Frmcxpingjia窗体文件查询评价主窗体Frmcxkecheng窗体文件查询课程主窗体Frmgongzuo窗体文件工作量主窗体Frmkecheng窗体文件课程表设置主窗体Frmmima窗体文件教师用户修改密码主窗体Frmmspj窗体文件管理评价主窗体Frmpingjia窗体文件评价主窗体Frmpj窗体文件进入评价主窗体Frmshizi窗体文件师资结构主窗体Dialog窗体文件退出系统对话框Dialog1窗体文件删除用户对话框Module1标准模块文件公共模块高校教师信息管理系统.vbp工程文件工程高校教师信息管理系统.exe执行文件系统部分代码1模块Module1具体代码PublicuseridAsString标记用户编号PublicusernameAsString标记用户名PublicusertypeAsInteger标记身份PublicuserpwdAsString标记密码PublicPublicStrAsString连接字符串Publicflag1AsInteger控制评价是否可用标志PublicSubmainPublicStr=Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=teacher连接字符串Frmlogin.ShowEndSub2登录界面设计部分代码(Frmlogin)PrivateSubcboType_Click‘权限列表框IfCbotype.text=系务员Thenusertype=0EndIfIfCbotype.text=教师用户Thenusertype=1EndIfIfCbotype.text=教学秘书Thenusertype=2EndIfEndSubPrivateSubcmdOK_Click‘确定按钮IfTxtname.text=OrTxtpwd.text=ThenMsgBox用户名或密码不能为空!vbOKOnly+vbExclamation提示信息Txtname.text=Txtpwd.text=Txtname.SetFocusExitSubEndIfStaticcountAsIntegerSelectCaseusertypeCase0:选择身份为系务员Adodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select*fromxiwuwherexname=Txtname.textandxpwd=Txtpwd.textAdodc
1.RefreshIfAdodc
1.Recordset.RecordCount0Thenusername=Txtname.textuserpwd=Txtpwd.textFrmxiwu.ShowUnloadMeElseMsgBox用户名或密码错误,请重新输入!48提示信息Txtname.text=Txtpwd.text=Txtname.SetFocuscount=count+1Ifcount=3ThenMsgBox您无权操作本系统!再见!vbCritical无权限UnloadMeEndIfExitSubEndIfCase1:选择身份为教师用户Adodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select*fromjiaoshiwherejname=Txtname.textandjpwd=Txtpwd.textAdodc
1.RefreshIfAdodc
1.Recordset.RecordCount0Thenusername=Txtname.textuserpwd=Txtpwd.textuserid=Adodc
1.Recordset.Fields0Frmjiaoshi.ShowUnloadMeElseMsgBox用户名或密码错误,请重新输入!48提示信息Txtname.text=Txtpwd.text=Txtname.SetFocuscount=count+1Ifcount=3ThenMsgBox您无权操作本系统!再见!vbCritical无权限UnloadMeEndIfExitSubEndIfCase2:选择身份为教学秘书Adodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select*frommishuwheremname=Txtname.textandmpwd=Txtpwd.textAdodc
1.RefreshIfAdodc
1.Recordset.RecordCount0Thenusername=Txtname.textuserpwd=Txtpwd.textFrmmishu.ShowUnloadMeElseMsgBox用户名或密码错误,请重新输入!48提示信息Txtname.text=Txtpwd.text=Txtname.SetFocuscount=count+1Ifcount=3ThenMsgBox您无权操作本系统!再见!vbCritical无权限UnloadMeEndIfExitSubEndIfEndSelectEndSubPublicSubmoving’移动字IfFrmlogin.Label
5.LeftFrmlogin.Label
5.Width+5000ThenFrmlogin.Label
5.Left=Frmlogin.Label
5.Left+50ElseFrmlogin.Label
5.Left=Frmlogin.Label
5.Left-11100EndIfEndSubPrivateSubTimer1_Timer’时间控制CallmovingEndSub3系务员模块部分代码
①登录管理界面设计部分代码(Frmdenglugl)PrivateSubCommand1_Click’添加按钮IfText
1.text=OrText
2.text=OrText
3.text=ThenMsgBox信息内容不能为空,请重新输入,vbOKOnly+vbInformation提示信息Text
1.SetFocusExitSubEndIfAdodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select*fromjiaoshiwherejid=Text
1.textAdodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenMsgBox此编号已经存在,请重新输入!vbOKOnly+vbInformation提示信息Text
1.SetFocusText
1.text=Text
2.text=Text
3.text=ExitSubEndIfAdodc
1.Recordset.AddNewAdodc
1.Recordset.Fields
0.Value=Text
1.textAdodc
1.Recordset.Fields
1.Value=Text
2.textAdodc
1.Recordset.Fields
2.Value=Text
3.textAdodc
1.Recordset.UpdateAdodc
1.RefreshMsgBox添加成功!48提示信息Text
1.text=Text
2.text=Text
3.text=Text
1.SetFocusForm_ActivateEndSubPrivateSubCommand2_Click’删除按钮IfText
1.text=ThenMsgBox编号不能为空,请重新输入!vbOKOnly+vbInformation提示信息Text
1.SetFocusExitSubEndIfMe.Enabled=FalseDialog
1.ShowEndSubPrivateSubCommand3_Click’修改按钮IfText
1.text=OrText
2.text=OrText
3.text=ThenMsgBox信息内容不能为空,请重新输入!vbOKOnly+vbInformation提示信息Text
1.SetFocusExitSubEndIfAdodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select*fromjiaoshiwherejid=Text
1.textAdodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenAdodc
1.Recordset.Fields
1.Value=Text
2.textAdodc
1.Recordset.Fields
2.Value=Text
3.textAdodc
1.Recordset.MoveNextAdodc
1.RefreshMsgBox修改成功!48提示信息Text
1.text=Text
2.text=Text
3.text=Text
1.SetFocusElseMsgBox没有此编号!48提示信息EndIfForm_ActivateEndSubSubdenglu’显示列函数WithMSFlexGrid
1.Cols=3Fori=0To
2.ColAlignmenti=flexAlignCenterCenter.ColWidthi=1500Nexti.RowHeight0=
400.TextMatrix00=编号.TextMatrix01=姓名.TextMatrix02=密码EndWithEndSubPrivateSubForm_ActivateAdodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select*fromjiaoshiAdodc
1.RefreshWithMSFlexGrid1IfAdodc
1.Recordset.RecordCount0ThenAdodc
1.Recordset.MoveLast.Rows=Adodc
1.Recordset.RecordCount+1Adodc
1.Recordset.MoveFirstElse.Rows=1EndIfCalldenglui=0DoUntilAdodc
1.Recordset.EOFi=i+
1.TextMatrixi0=Adodc
1.Recordset!jid.TextMatrixi1=Adodc
1.Recordset!jname.TextMatrixi2=Adodc
1.Recordset!jpwdMSFlexGrid
1.RowHeighti=330Adodc
1.Recordset.MoveNextLoopEndWithdisplaystatusbarEndSubPrivateSubMSFlexGrid1_Click’单击控件Dimrowfield3AsStringIfMSFlexGrid
1.Rows=1ThenExitSubElsenewline=MSFlexGrid
1.RowMSFlexGrid
1.Row=oldlineIfMSFlexGrid
1.Row0ThenFori=0ToMSFlexGrid
1.Cols-1MSFlexGrid
1.Col=iNextEndIfMSFlexGrid
1.Row=newlineFori=0ToMSFlexGrid
1.Cols-1MSFlexGrid
1.Col=irowfieldi=MSFlexGrid
1.textNextText
1.text=Trimrowfield0Text
2.text=Trimrowfield1Text
3.text=Trimrowfield2oldline=newlineEndIfEndSubSubdisplaystatusbar’显示记录数Adodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select*fromjiaoshiAdodc
1.RefreshStatusBar
1.SimpleText=★目前共有Adodc
1.Recordset.RecordCount名教师★EndSub
②信息管理界面设计部分代码(Frmxinxigl)PrivateSubCombo2_Click’单击列表框Adodc
3.ConnectionString=PublicStrAdodc
3.RecordSource=select*fromjiaoshiwherejid=Combo
2.textAdodc
3.RefreshIfAdodc
3.Recordset.RecordCount0ThenText
2.text=Adodc
3.Recordset.Fields1EndIfEndSubPrivateSubCommand3_Click’添加图片按钮CommonDialog
1.Filter=*.bmp;*.ico;*.jpg;*.gifCommonDialog
1.Action=1s=CommonDialog
1.FileNameImage
1.Picture=LoadPicturesEndSubPrivateSubForm_LoadAdodc
3.ConnectionString=PublicStrAdodc
3.RecordSource=select*fromjiaoshiAdodc
3.RefreshIfAdodc
3.Recordset.RecordCount0ThenAdodc
3.Recordset.MoveFirstDoWhileAdodc
3.Recordset.EOF=Falses=Adodc
3.Recordset.Fields0Combo
2.AddItemsAdodc
3.Recordset.MoveNextLoopEndIfCombo
1.ListIndex=0Combo
2.ListIndex=0Combo
3.ListIndex=0Combo
7.ListIndex=0Combo
8.ListIndex=0MSFlexGrid
1.ClearssEndSub
③修改密码界面设计部分代码(Frmxgmima)PrivateSubCommand1_Click’修改密码确定按钮IfText
1.text=OrText
2.text=OrText
3.text=OrText
4.text=ThenMsgBox姓名或密码不能为空!vbOKOnly+vbExclamation提示信息Text
1.text=Text
2.text=Text
3.text=Text
4.text=Text
1.SetFocusExitSubEndIfIfText
2.textuserpwdThenMsgBox原密码输入不正确,请重新输入!vbOKOnly+vbInformation提示信息Text
1.text=Text
2.text=Text
3.text=Text
4.text=Text
1.SetFocusExitSubElseIfText
4.textText
3.textThenMsgBox新密码与确认密码不相同,请重新输入!vbOKOnly+vbInformation提示信息Text
2.text=Text
3.text=Text
4.text=Text
2.SetFocusExitSubElseSelectCaseusertypeCase0:选择身份为系务员Adodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select*fromxiwuwherexname=usernameandxpwd=userpwdAdodc
1.RefreshCase2:选择身份为教学秘书Adodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select*frommishuwheremname=usernameandmpwd=userpwdAdodc
1.RefreshEndSelectIfAdodc
1.Recordset.RecordCount0Thenuserpwd=Text
3.textAdodc
1.Recordset.Fields2=Text
3.textAdodc
1.Recordset.UpdateMsgBox修改成功!vbOKOnly+vbInformation提示信息Text
1.text=Text
2.text=Text
3.text=Text
4.text=Text
1.SetFocusEndIfEndIfEndIfEndSub
④信息查询界面设计部分代码(Frmxinxicx)PrivateSubCommand1_Click’查询按钮strSQL=select*fromusersIfCheck
1.Value=CheckedThenstrSQL=strSQLwhere编号=Text
1.textEndIfIfCheck
1.ValueCheckedAndCheck
2.Value=CheckedThenstrSQL=strSQLwhere姓名=Text
2.textEndIfIfCheck
1.Value=CheckedAndCheck
2.Value=CheckedThenstrSQL=strSQLand姓名=Text
2.textEndIfIfCheck
1.ValueCheckedAndCheck
2.ValueCheckedAndCheck
3.Value=CheckedThenstrSQL=strSQLwhere性别=Combo
1.textEndIfIfCheck
1.Value=CheckedOrCheck
2.Value=CheckedAndCheck
3.Value=CheckedThenstrSQL=strSQLand性别=Combo
1.textEndIfIfCheck
1.ValueCheckedAndCheck
2.ValueCheckedAndCheck
3.ValueCheckedAndCheck
4.Value=CheckedThenstrSQL=strSQLwhere学历=Combo
4.textEndIfIfCheck
1.Value=CheckedOrCheck
2.Value=CheckedOrCheck
3.Value=CheckedAndCheck
4.Value=CheckedThenstrSQL=strSQLand学历=Combo
4.textEndIfIfCheck
1.ValueCheckedAndCheck
2.ValueCheckedAndCheck
3.ValueCheckedAndCheck
4.ValueCheckedAndCheck
5.Value=CheckedThenstrSQL=strSQLwhere职称=Combo
2.textEndIfIfCheck
1.Value=CheckedOrCheck
2.Value=CheckedOrCheck
3.Value=CheckedOrCheck
4.Value=CheckedAndCheck
5.Value=CheckedThenstrSQL=strSQLand职称=Combo
2.textEndIfAdodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=strSQLAdodc
1.RefreshWithMSFlexGrid1IfAdodc
1.Recordset.RecordCount0ThenAdodc
1.Recordset.MoveLast.Rows=Adodc
1.Recordset.RecordCount+1Adodc
1.Recordset.MoveFirstElse.Rows=1EndIfCallFillMSFlexGrid1i=0DoUntilAdodc
1.Recordset.EOFi=i+
1.TextMatrixi0=Adodc
1.Recordset!编号.TextMatrixi1=Adodc
1.Recordset!姓名.TextMatrixi2=Adodc
1.Recordset!性别.TextMatrixi3=Adodc
1.Recordset!籍贯.TextMatrixi4=Adodc
1.Recordset!出生日期.TextMatrixi5=Adodc
1.Recordset!身份证号.TextMatrixi6=Adodc
1.Recordset!毕业院校.TextMatrixi7=Adodc
1.Recordset!学历.TextMatrixi8=Adodc
1.Recordset!专业.TextMatrixi9=Adodc
1.Recordset!政治面貌.TextMatrixi10=Adodc
1.Recordset!入职时间.TextMatrixi11=Adodc
1.Recordset!职称.TextMatrixi12=Adodc
1.Recordset!联系电话.TextMatrixi13=Adodc
1.Recordset!家庭住址MSFlexGrid
1.RowHeighti=330Adodc
1.Recordset.MoveNextLoopEndWithdisplaycountEndSub4教师用户模块部分代码
①基本信息查询界面设计部分代码(Frmcxxinxi)PrivateSubForm_Load’显示个人基本信息Adodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select*fromuserswhere编号=useridAdodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenText
1.text=Adodc
1.Recordset.Fields0Text
2.text=Adodc
1.Recordset.Fields1Text
3.text=Adodc
1.Recordset.Fields2Text
4.text=Adodc
1.Recordset.Fields3Text
5.text=Adodc
1.Recordset.Fields4Text
6.text=Adodc
1.Recordset.Fields5Text
7.text=Adodc
1.Recordset.Fields6Text
8.text=Adodc
1.Recordset.Fields7Text
9.text=Adodc
1.Recordset.Fields8Text
10.text=Adodc
1.Recordset.Fields9Text
11.text=Adodc
1.Recordset.Fields10Text
12.text=Adodc
1.Recordset.Fields11Text
13.text=Adodc
1.Recordset.Fields12Text
14.text=Adodc
1.Recordset.Fields13Image
1.Picture=LoadPictureAdodc
1.Recordset.Fields14EndIfEndSub
②查询工作量界面设计部分代码(Frmcxgongzuo)PrivateSubForm_Load’显示个人工作量Text
3.text=Text
1.text=useridText
2.text=usernameAdodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select*fromgongzuowhere编号=useridAdodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenText
5.text=Adodc
1.Recordset.Fields2EndIfAdodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select*fromkechengwhere编号=useridorderby课程Adodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenAdodc
1.Recordset.MoveFirstDoWhileAdodc
1.Recordset.EOF=FalseText
3.text=Text3+Adodc
1.Recordset!课程+学时Adodc
1.Recordset!学时+Adodc
1.Recordset!班级+vbCrLfAdodc
1.Recordset.MoveNextLoopEndIfEndSub
③查询课程界面设计部分代码(Frmcxkecheng)PrivateSubForm_Load’显示课程表MSFlexGrid
1.ClearssLabel
3.Caption=usernameAdodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select*fromkechengwhere姓名=Label
3.CaptionAdodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenAdodc
1.Recordset.MoveFirstDoWhileAdodc
1.Recordset.EOF=FalseWithMSFlexGrid
1.Col=weektocolLeftAdodc
1.Recordset!星期
3.Row=timerowLeftAdodc
1.Recordset!时间
3.text=Adodc
1.Recordset!课程+[+Adodc
1.Recordset!类型+]+vbCrLf+Adodc
1.Recordset!班级+vbCrLf+Adodc
1.Recordset!教室Adodc
1.Recordset.MoveNextEndWithLoopEndIfEndSubSubssWithMSFlexGrid
1.Cols=
8.Rows=6Fori=0To
5.RowHeighti=800Nexti.TextMatrix00=.RowHeight0=
360.TextMatrix10=第一讲.TextMatrix20=第二讲.TextMatrix30=第三讲.TextMatrix40=第四讲.TextMatrix50=第五讲.TextMatrix01=星期一.TextMatrix02=星期二.TextMatrix03=星期三.TextMatrix04=星期四.TextMatrix05=星期五.TextMatrix06=星期六.TextMatrix07=星期日.ColWidth0=760Fori=1To
7.ColAlignmenti=flexAlignCenterCenter.ColWidthi=1640NextiEndWithEndSubFunctionweektocolstrweekAsStringAsIntegerSelectCasestrweekCase星期一weektocol=1Case星期二weektocol=2Case星期三weektocol=3Case星期四weektocol=4Case星期五weektocol=5Case星期六weektocol=6Case星期日weektocol=7EndSelectEndFunctionFunctiontimerowstrtimeAsStringAsIntegerSelectCasestrtimeCase第一讲timerow=1Case第二讲timerow=2Case第三讲timerow=3Case第四讲timerow=4Case第五讲timerow=5EndSelectEndFunction
④查询评价界面设计部分代码(Frmcxpingjia)PrivateSubCommand2_Click’查询按钮Dimnn1n2abAsIntegerIfText
7.text=ThenMsgBox请输入要查询的年份!vbOKOnly+vbInformation提示信息ExitSubEndIfAdodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=SELECT编号FROMpingjiagroupby编号Adodc
1.Refreshn=Adodc
1.Recordset.RecordCountAdodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=SELECTdistinct编号总成绩FROMpingjiawhere评价时间=Text
7.textorderby总成绩descAdodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenAdodc
1.Recordset.MoveFirstDoWhileNotAdodc
1.Recordset.EOFn2=n2+1IfAdodc
1.Recordset!编号=useridThenExitDoEndIfAdodc
1.Recordset.MoveNextLoopElseMsgBox没有记录,请重新输入!vbOKOnly+vbInformation提示信息ExitSubEndIfAdodc
2.ConnectionString=PublicStrAdodc
2.RecordSource=SELECT*FROMpingjiawhere编号=useridand评价时间=Text
7.textAdodc
2.RefreshIfAdodc
2.Recordset.RecordCount0ThenAdodc
2.Recordset.MoveFirstDoWhileNotAdodc
2.Recordset.EOFa=a+Adodc
2.Recordset.Fields2b=b+Adodc
2.Recordset.Fields3n1=n1+1Adodc
2.Recordset.MoveNextLoopText
1.text=useridText
2.text=usernameText
3.text=Formata/n
100.00Text
4.text=Formatb/n
100.00Text
5.text=nText
6.text=n2ElseMsgBox没有记录,请重新输入!vbOKOnly+vbInformation提示信息EndIfEndSub
⑤师资结构界面设计部分代码(Frmshizi)PrivateSubForm_Load学历比例图Adodc
1.ConnectionString=PublicStrAdodc
1.RecordSource=select学历COUNT*asxlfromusersgroupby学历Adodc
1.RefreshAdodc
2.ConnectionString=PublicStrAdodc
2.RecordSource=selectcount*asxlfromusersAdodc
2.RefreshMSChart
1.ColumnCount=Adodc
1.Recordset.RecordCountIfAdodc
1.Recordset.RecordCount0ThenFori=1ToAdodc
1.Recordset.RecordCountMSChart
1.Column=iMSChart
1.Row=1MSChart
1.ColumnLabel=Adodc
1.Recordset.Fields
0.Value占总人数:FormatAdodc
1.Recordset.Fields1/Adodc
2.Recordset.Fields
0.Value
0.00%MSChart
1.Data=Adodc
1.Recordset.Fields
1.ValueAdodc
1.Recordset.MoveNextNextiEndIfMSChart
1.RowCount=1Endsub5教学秘书模块部分代码
①课程表设置界面设计部分代码(Frmkecheng)PublicSubTree_change显示树型课程TreeView
1.Nodes.ClearDimnode1node2node3AsNodeDimkeytextAsStringAdodc
1.ConnectionString=PublicStrAdodc
2.ConnectionString=PublicStrkey=Text
1.texttext=Text
1.textSetnode1=TreeView
1.Nodes.Addtvtext1Setnode2=TreeView
1.Nodes.AddtvtvwChild星期一2Adodc
1.RecordSource=select*fromkechengwhere编号=Combo
2.textand星期=星期一Adodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenAdodc
1.Recordset.MoveFirstDoWhileAdodc
1.Recordset.EOF=Falsekey=TrimAdodc
1.Recordset.Fields时间text=[Adodc
1.Recordset.Fields时间]Adodc
1.Recordset.Fields课程Setnode3=TreeView
1.Nodes.Addnode
2.IndextvwChildtext3Adodc
1.Recordset.MoveNextLoopnode
3.EnsureVisibleEndIfSetnode2=TreeView
1.Nodes.AddtvtvwChild星期二2Adodc
1.RecordSource=select*fromkechengwhere编号=Combo
2.textand星期=星期二Adodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenAdodc
1.Recordset.MoveFirstDoWhileAdodc
1.Recordset.EOF=Falsekey=TrimAdodc
1.Recordset.Fields时间text=[Adodc
1.Recordset.Fields时间]Adodc
1.Recordset.Fields课程Setnode3=TreeView
1.Nodes.Addnode
2.IndextvwChildtext3Adodc
1.Recordset.MoveNextLoopnode
3.EnsureVisibleEndIfSetnode2=TreeView
1.Nodes.AddtvtvwChild星期三2Adodc
1.RecordSource=select*fromkechengwhere编号=Combo
2.textand星期=星期三Adodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenAdodc
1.Recordset.MoveFirstDoWhileAdodc
1.Recordset.EOF=Falsekey=TrimAdodc
1.Recordset.Fields时间text=[Adodc
1.Recordset.Fields时间]Adodc
1.Recordset.Fields课程Setnode3=TreeView
1.Nodes.Addnode
2.IndextvwChildtext3Adodc
1.Recordset.MoveNextLoopnode
3.EnsureVisibleEndIfSetnode2=TreeView
1.Nodes.AddtvtvwChild星期四2Adodc
1.RecordSource=select*fromkechengwhere编号=Combo
2.textand星期=星期四Adodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenAdodc
1.Recordset.MoveFirstDoWhileAdodc
1.Recordset.EOF=Falsekey=TrimAdodc
1.Recordset.Fields时间text=[Adodc
1.Recordset.Fields时间]Adodc
1.Recordset.Fields课程Setnode3=TreeView
1.Nodes.Addnode
2.IndextvwChildtext3Adodc
1.Recordset.MoveNextLoopnode
3.EnsureVisibleEndIfSetnode2=TreeView
1.Nodes.AddtvtvwChild星期五2Adodc
1.RecordSource=select*fromkechengwhere编号=Combo
2.textand星期=星期五Adodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenAdodc
1.Recordset.MoveFirstDoWhileAdodc
1.Recordset.EOF=Falsekey=TrimAdodc
1.Recordset.Fields时间text=[Adodc
1.Recordset.Fields时间]Adodc
1.Recordset.Fields课程Setnode3=TreeView
1.Nodes.Addnode
2.IndextvwChildtext3Adodc
1.Recordset.MoveNextLoopnode
3.EnsureVisibleEndIfSetnode2=TreeView
1.Nodes.AddtvtvwChild星期六2Adodc
1.RecordSource=select*fromkechengwhere编号=Combo
2.textand星期=星期六Adodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenAdodc
1.Recordset.MoveFirstDoWhileAdodc
1.Recordset.EOF=Falsekey=TrimAdodc
1.Recordset.Fields时间text=[Adodc
1.Recordset.Fields时间]Adodc
1.Recordset.Fields课程Setnode3=TreeView
1.Nodes.Addnode
2.IndextvwChildtext3Adodc
1.Recordset.MoveNextLoopnode
3.EnsureVisibleEndIfSetnode2=TreeView
1.Nodes.AddtvtvwChild星期日2Adodc
1.RecordSource=select*fromkechengwhere编号=Combo
2.textand星期=星期日Adodc
1.RefreshIfAdodc
1.Recordset.RecordCount0ThenAdodc
1.Recordset.MoveFirstDoWhileAdodc
1.Recordset.EOF=Falsekey=TrimAdodc
1.Recordset.Fields时间text=[Adodc
1.Recordset.Fields时间]Adodc
1.Recordset.Fields课程Setnode3=TreeView
1.Nodes.Addnode
2.IndextvwChildtext3Adodc
1.Recordset.MoveNextLoopnode
3.EnsureVisibleEndIfnode
1.EnsureVisiblenode
2.EnsureVisibleEndSub
②工作量界面设计部分代码(Frmgongzuo)PrivateSubCommand1_Click’累加按钮IfText
3.text=OrText
4.text=ThenMsgBox计划学时和班数不能为空,请重新输入!vbOKOnly+vbInformation提示信息ExitSubEndIfa=Text
3.textb=Text
4.textIfNotIsNumericaOrNotIsNumericbThenMsgBox评价为数值型,请重新输入!vbOKOnly+vbInformation提示信息ExitSubEndIfIfText
3.text0OrText
3.text1000OrText
4.text0OrText
4.text1000ThenMsgBox计划学时和班数为数值0-1000之间,请重新输入!vbOKOnly+vbInformation提示信息ExitSubEndIfText
5.text=Text
5.text+Text
3.text*1+Text
4.text-1*
0.3Text
2.text=Text
2.text+1EndSub
③评价界面设计部分代码(Frmpingjia)PrivateSubCommand4_Click’评价按钮n=Combo
1.ListCountsearch=TrimCombo
1.textFori=0Ton-1Ifsearch=TrimCombo
1.ListiThenExitForEndIfNextIfi=nThenMsgBox此教师编号不存在,请重新输入!vbOKOnly+vbInformation提示信息ExitSubEndIfIfText
2.text=OrText
7.text=ThenMsgBox评价不能为空,请重新输入!vbOKOnly+vbInformation提示信息ExitSubEndIfa=Text
2.textb=Text
7.textIfNotIsNumericaOrNotIsNumericbThenMsgBox评价为数值型,请重新输入!vbOKOnly+vbInformation提示信息ExitSubEndIfAdodc
2.ConnectionString=PublicStrAdodc
2.RecordSource=SELECT*FROMpingjiawhere编号=Combo
1.textand评价编号=Text
3.textand评价时间=Text
5.textAdodc
2.RefreshIfAdodc
2.Recordset.RecordCount0ThenMsgBox该教师已被评价!vbOKOnly+vbInformation提示信息ElseAdodc
2.Recordset.AddNewAdodc
2.Recordset.Fields0=Combo
1.textAdodc
2.Recordset.Fields1=Text
1.textAdodc
2.Recordset.Fields2=Text
2.textAdodc
2.Recordset.Fields3=Text
7.textAdodc
2.Recordset.Fields4=ValText
2.text+ValText
7.textAdodc
2.Recordset.Fields5=Text
3.textAdodc
2.Recordset.Fields6=Text
4.textAdodc
2.Recordset.Fields7=Text
5.textAdodc
2.Recordset.UpdateAdodc
2.RefreshMsgBox添加成功!vbOKOnly+vbInformation提示信息EndIfForm_ActivateEndSub系务员编号姓名密码教师用户编号姓名密码教学秘书编号姓名密码家庭住址专业学历入职时间政治面貌身份证号照片毕业院校教师基本信息身份证号出生日期联系电话职称性别编号籍贯姓名课程信息编号姓名类型课程班级学时时间星期教室评价信息编号姓名评价编号总成绩评价时间评价姓名工作态度工作成绩工作量标准学时姓名编号教师用户模块高校教师信息管理系统教学秘书模块系务员模块登录管理信息管理修改密码信息查询重新登录退出系统课程安排工作量工作评价师资结构修改密码重新登录退出系统职称比例图学历比例图年龄比例图评价查询评价查询评价管理评价所有评价修改密码添加新用户修改密码添加新用户基本信息工作量课程安排工作评价师资结构修改密码重新登录退出系统职称比例图学历比例图年龄比例图-12-。