智能排课系统毕业设计Word版

整理为word格式整理为word格式整理为word格式沈阳化工学院本科毕业论文题目:智能排课系统 院系:计算机科学与技术学院专业:计算机科学与技术班级:计0802学生姓名:孙鹏指导教师:赵振江论文提交日期:年月日论文答辩日期:年月日整理为word格式整理为word格式整理为word格式内容摘要排课问题是所有教育行业都要面对的问题，尤其针对高校纷繁复杂的课程和专业，一直没有很好解决方法。但这又是每个学校在每个学期都会碰到的必修课。本文在相关理论的指导下，在分析以往一些排课软件的基础上，提出一种排课系统的设计方法，对一些具体的问题给出相应解决方案。希望对于相关部门有所帮助。此系统主要被分为三个部分：界面的设计、排课算法的设计、以及报表的自动生成。纵观全局，我们确定用VisualBasic语言作为程序设计语言以及运用SQLServer2000数据库作为后台的数据库支持。关键词:排课、排课系统、设计、高校整理为word格式整理为word格式整理为word格式AbstractCoursearrangingProblemisaproblemwhichworkinginthedevelopmentofeducationisfacing.Especially,thereisnoagoodsolutionforthismatterofthecollege.However,itisalsoanecessaryadministrationtaskforeveryschoolineverysemester.Thisessay,withthecorrelativetheory’sguidance,onthebasisofanalyzingsomecourses-arrayingsoftware,proposesadesignmethodofcommonlyusedcoursesarrayinginformationsystemincollege,andsolvessomeofthecertainproblems.Hopingitisusefulfortherelativedepartment.Thesystemconsistofthreeparts:theinterfacedesign,thealgorithmofCourseTimetablesystem,andprintingthetables.Onthewhole,wedecidedtouseVBcomputerlanguagetodesignandSQLServer2000DataBasetosupport.Keywords:coursesarranging;coursesarrangementmanagementsystem;design;college整理为word格式整理为word格式整理为word格式目录TOC\o"1-7"\h\z\u一. 绪论 11.1 背景与意义 11.2 课题研究内容 1二. 方案设计与论证 22.1 可行性研究 22.1.1 系统目标及任务 22.1.2 开发工具的选择和介绍 22.1.3 对现有的排课系统的分析 22.1.4 系统的逻辑模型 22.1.5 系统的可行性 22.1.6 成本效益分析 22.2 需求分析 22.2.1 系统的运行环境要求 22.2.2 系统的功能要求 22.2.3 系统的性能要求 2三. 总体设计 23.1 模块设计 23.2功能分解 2整理为word格式整理为word格式整理为word格式3.3数据库设计 23.3.1定义属性表 23.4 排课系统总构架 2四. 详细设计 24.1 用户界面设计 34.1.1简单易用和个性化需求 24.1.2对数据的查询 24.1.3系统菜单功能 24.2 课程表的生成 34.2.1班级课程表查询打印设计 24.2.2教师课程表查询打印设计 24.2.3教室课程表查询打印设计 2五. 测试 25.1 排课系统功能测试 35.2 排课系统课表合理性测试 35.3 该系统的不足和改进方案 3六. 结论 36.1 软件设计小结 3整理为word格式整理为word格式整理为word格式智能排课系统绪论背景与意义随着信息技术的飞速发展，各个行业的信息化势在必行。正所谓“科学技术是第一生产力”，科技的进步大大地提高了生产率。然而，在高校这个知识密集的地方，如何才能提高办学效率，更好地完成教学任务，跟上社会发展步伐，这是一个摆在教学工作者面前的一个迫切的问题。应用信息化来改造传统的教学管理模式是一个重要途径。近几年来，随着各高校办公自动化工作的推进，教务管理自动化也被摆上了日程。在教务工作中占有很大比重的一项就是每学期的课程排定工作。由于教工、教室和设备的相对紧张，如何进行合理地安排和分配，从而充分利用教学资源是我们不得不面对的问题。而人工进行排课不仅任务重，效率低，而且易出错，难于维护，想要排出一张各方面都满意的课表非常困难。并且随着高校规模的扩大手工排课的难度和工作量呈几何级数增长。课题研究内容排课系统正是为了减轻教务人员的工作量，实现教务工作自动化，解决排课这一老大难问题的教务办公软件。尤其针对高校的排课一直都没有很好的解决整理为word格式整理为word格式整理为word格式方法，但是此问题又是每个学校在每个学期都会碰到的必要行政作业。本文在相关理论的指导下，在分析以往一些排课软件的基础上，提出一个高校通用排课系统的设计方法，并对一些具体的问题给出相应解决方案。但是，由于技术、经验的有限和数据量过大，目前我们很难做出一个满足所有需要的排课系统。因为它不仅要考虑到教室冲突问题和教师冲突问题，还要考虑到分段课、单双周课时的资源利用问题；另外由于高校的教学特点，还要处理合班课、分班课、体育课与选修课等特殊课程。针对这些问题，在此专门对数据库设计作了一些探索，并于架构的选择和模块的划分上经过精心调整，在菜单的设计上也体现了人性化的操作。该设计贴近用户需求，功能完整，架构合理，并用大量的框图模型体现了系统的规划。本软件使用MicrosoftBasic6.0进行编写和SQLServer2000数据库相连接。数据库的特点：1.实现数据共享2.实现数据独立3.减少了数据冗余度4.避免了数据不一致性5.加强了对数据的保护。一个数据库应用系统通常是由数据库和应用程序两部分组成，它们是在数据库管理系统支持下设计和开发出来的。整理为word格式整理为word格式整理为word格式方案设计与论证可行性研究系统目标及任务本软件主要是适用于高等学校教务部门的办公软件，运用此软件，可以免去工作人员繁忙而枯燥的手工排课过程，直接通过计算机进行排课。我的任务是完成排课系统的界面设计以及排课后报表的生成开发工具的选择和介绍针对目前世界上流行的大量软件和开发工具，经过认真分析其优缺点，结合排课系统的需要和目前的硬件环境，我们选用微软WINDOWS平台下的VisualBasic6.0（简写为VB6.0）作为软件开发工具和SQLServer2000数据库进行连接。作为数据库系统的开发，VisualBasic是一个非常理想选择。VisualBasic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础。在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、整理为word格式整理为word格式整理为word格式动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，VisualBasic具有以下特点：1、可视化编程用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。VisualBasic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。VisualBasic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。2、面向对象的程序设计4.0版以后的VisualBasic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C++)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而VisualBasic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，VisualBasic自动生成对象的整理为word格式整理为word格式整理为word格式程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。3、结构化程序设计语言VisualBasic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。VisualBasic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。VisualBasic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计VisualBasic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离VisualBasic环境，直接在Windows环境下运行。4、事件驱动编程机制VisualBasic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击”(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用VisualBasic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。5、访问数据库整理为word格式整理为word格式整理为word格式VisualBasic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理SQLServer2000数据库，并提供了强大的数据存储功能。VisualBasic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQLServer，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库。6、对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看作是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看作是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compounddocument)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。7、动态链接库(DLL)VisualBasic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C++或汇编语言编写的程序加入到VisualBasic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序整理为word格式整理为word格式整理为word格式接口(API)函数，实现SDK所具有的功能。对现有的排课系统的分析随着我国市场经济的快速发展和信息化水平的不断提高，如何利用先进的管理手段，提高教育单位教学排课管理的水平，是当今社会所面临的一个课题。提高教育管理水平，必须全方位地提高教育管理意识。只有高标准、高质量的管理才能满足教育事业的发展需求。面对信息时代的挑战，利用高科技手段来提高教学排课管理无疑是一条行之有效的途径。在某种意义上，信息与科技在教学管理与现代化建设中显现出越来越重要的地位。教学排课管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标志。有关排课管理系统的软件市面上有不少，教学管理人员也试用过一些，但总觉得不是很好用，不能完全满足我们的要求，所以都放弃用这些软件了，改为每次输入数据后，用手工更改数据库存量和安排课程，另外课表也无法用限制条件自动生成.以及直接导出到EXCLE表中，所以，迫切希望有一套完全适合排课管理应用的软件，以减轻管理人员的工作负担。另一方面由于这类软件大多数是单机版的，现在也有不少是网络板的，但大部份都是在本地网络上运行的。因此系统的开发方向应当是面向网络版的排课管理系统开发。这点在今后的学习中将不断完善。整理为word格式整理为word格式整理为word格式系统的逻辑模型排课系统排课编辑排课系统排课编辑自动生成课表查询打印课表系统数据初始化退出系统帮助编辑班级信息编辑教室信息编辑教师信息编辑教学计划查询班级课程表查询教室课程表表查询教师课程表图2－1系统结构图系统流程图为了实现管理信息系统的计算机化，仅仅用文字来描述信息的流动和存储还远远不够，还要进一步调查分析舍去物质流，抽象出信息流，绘制出数据流程图，并对各种数据的属性和各项处理功能进行详细分析。系统分析的主要成果是系统的逻辑模型。本系统主要是以数据流图、数据字典和E-R图为主要描述工具来勾画系统的概貌。数据流图（DFD，dataflowdiagram）是描述数据处理过程的有力工具。数据流图从数据传递和加工的角度，以图形的方式刻画数据流从输入到输出的移动变换过程。整理为word格式整理为word格式整理为word格式用用户登录功能模块的使用数据库图2－2系统流程图Chart2-2Systemdiagram数据字典名字：班级编号描述：唯一地标识班级库表中一个特定班级的关键域定义：班级编号=10{char}位置：编辑班级信息，课程信息，教学计划，班级课程表名字：教室编号描述：唯一地标识教室库表中一个特定教室的关键域定义：教室编号=10{char}位置：编辑教室信息，教室课程表名字：教师编号描述：唯一地标识教师库表中一个特定教师的关键域定义：教师编号=10{char}整理为word格式整理为word格式整理为word格式位置：编辑教师信息，教学计划，教师课程表名字：学院编号描述：唯一地标识学院库表中一个特定学院的关键域定义：学院编号=10{char}位置：编辑教师信息名字：班级课程表描述：每学期一个确定班级的上课情况信息表定义：班级课程表=班级名称+课程名称+上课地点位置：输出到打印机名字：课程编号描述：唯一地标识课程库表中一门特定课程的关键域定义：课程编号=10{char}位置：编辑课程信息，教学计划名字：教室课程表描述：每学期一个确定教室的上课时间安排情况信息表整理为word格式整理为word格式整理为word格式定义：教室课程表=教室名称+班级名称位置：输出到打印机名称：教师课程表描述：每学期每个教师的上课情况信息表定义：教师课程表=教师姓名+课程名称+班级名称+教室名称位置：输出到打印机系统的可行性经济可行性分析本系统开发简单但要耗去一定的时间，所用的开发工具和软件都差不多是免费的。本系统在以后的使用中对于教育办公自动化管理，节省教育人力、物力资源等都有很大的帮助。由此可见，开发此系统在经济上是完全可行的。操作可行性分析如今的计算机已经走进千家万户，硬件成本的下降，导致计算机购买成本的降低.我的这套系统是利用自己的计算机加微软的集成开发环境MicrosoftVisualBasic6.0作为软件的开发平台和SQLServer2000数据库连接。使开发出来的系统有直观的用户界面、有良好的安全性设置、有详细的操作说明书，这样更使各类用户很快地掌握系统的使用方法和操作，因此在操作上是可行的。整理为word格式整理为word格式整理为word格式技术可行性分析从目前IT业界比较流行的数据库开发、管理软件来看，对于比较简单的中小型数据库，VB和SQLServer2000的结合无疑是在实际应用中较为成功的一种解决方案。为用户提供了业界软件开发一直坚持的操作简单的用户界面、完善强大的数据库操作功能和简洁明了的数据库接口。所以技术实行起来相对会容易。成本效益分析本系统的开发平台和开发工具都是免费提供的，所以不存在经济成本问题。由于本软件还处于开发初期，所开发出的软件需要不断的修改和维护，就效益而言，它取代了传统的手工排课方式，节省了人力和时间。如果要创造更高的效益需要对系统进行更多的优化。整理为word格式整理为word格式整理为word格式需求分析系统的运行环境要求硬件要求1486/DX66Mhz以上CPU2内存16M以上(使用WindowsNT需要32M以上内存)3硬盘容量1GB以上(典型安装需要128MB硬盘空间,完全安装须要147MB硬盘空间,外加Microsoft开发者文档67MB硬盘空间)4VGA以上分辨率的显示器.5一个CD-ROM驱动器6鼠标、打印机软件要求1操作系统应使用MicrosoftWindows95及以上版本或者更高版本。2安装有VisualBasic语言及SQLServer2000数据库。系统的功能要求利用计算机实现计算机自动排课管理势在必行。对于教育单位来说，利用计算机支持其高效率完成排课管理的日常事务，是适应现代教学制度要求、推动教学管理走向科学化、规范化的必要条件；而排课管理是一项琐碎、复杂而又十分细致的工作，课表信息录入,教师授课安排,限制条件输入,课表的自动生成等管理,一般不允许出错，如果实行手工操作,须手工填制大量的表格,这就会耗费教育工作人员大量的时间和精力，计算机进行排课工作的管理，不仅能够保证各项信息准确无误、快速输出，同时计算机具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高排课管理的效率,也是教育的科学化、正规化管理,与世界接轨的重要条件。整理为word格式整理为word格式整理为word格式系统的性能要求本系统在性能上应达到如下要求：系统软件运行应该速度快、稳定、可靠，具有很高的健壮性和容错、纠错能力；系统软件操作上应简单、方便，界面简洁明了、美观；系统软件应能具有较高的安全性，对内对外都有严格的身份认证和数据保密的措施；系统软件在结构上应具有很好的可扩展性，便于将来的功能扩展和维护；数据计算准确无误，精确度符合业务的需要。教师教师编号教师教师编号姓名职称图2－3教师E-R2.班级E-R图班级班级学院班级编号专业班级人数图2－4班级E-R整理为word格式整理为word格式整理为word格式3.课程E-R图课程课程课名学时课程编号图2－5课程E-R4.教室E-R图教室名称容纳人数教室编号教室教室名称容纳人数教室编号教室 图2-6教室E-R整理为word格式整理为word格式整理为word格式三．总体设计模块设计模块是软件结构的基础，软件结构的好坏完全由模块的属性体现出来，把软件模块化的目的是为了降低软件复杂性，使软件设计，测试，调试，维护等工作变得简易，但随着模块数目的增加，通过接口连接这些模块的工作量也随之增加。从这些特性可得出如图的一条总的成本（或工作量）曲线，在考虑模块化时，应尽量使模块数接近于图中的M，它使得研制成本最小，而且应尽量避免不足的模块化或超量。图3－1模块与成本关系图Chart4-1Relationbetweenmoduleandcost基于上述原因，在进行总体规划的初步设想中，以高校各种资源和资源的分配为依据，综合多种相关因素，将该系统划分成以下六个子功能模块：基本信息管理子系统、用户管理子系统、数据管理子系统、教学计划管理子系统、排课管理子系统、课表查询子系统。在数据库设计上，遵循“功能分离，数据共享”的原则，将数据库分成基础数据库及目标数据库两大部分，其中，基础数据库又可分为初始设置信息库、基本信息库、用户信息库三个功能子库。目标库主要存放系统运行过程中的动态数据，目标方案等。整理为word格式整理为word格式整理为word格式功能分解基本信息管理子系统功能：班级信息，教室信息和教室信息的添加、保存、编辑和删除：1、用户管理子系统功能：用户密码的设置和修改，用户权限的设置，用户重新登陆；2、数据管理子系统功能：包括对教室、教师、班级、教学计划和课表数据的保存、查询、更新、删除；3、教学计划管理子系统功能：某一确定的学期的教学工作计划，对于班级而言，每门课程的学时、开始周、结束周以及每门课程的任课教师，该子系统对教学计划进行管理和完善；4、排课管理子系统功能：包括自动排课，手动排课两个部分；5、课表查询子系统功能：对于具体的班级、教师、教室进行课表查询，打印；数据库设计排课管理系统是一项复杂的系统工程，其间需要大量的数据来支撑，从某种程度上来讲，排课管理系统的设计过程，其实也就是一个规范和完整的数据库设计过程。经过多年的发展，关系型数据库系统（RDBMS）是最成熟的一种数据库管理模式，也是当前最流行的数据库管理系统。故在此也采用该模式（在加一些关系数据库的介绍）。定义属性表1.bClass表字段名称类型说明整理为word格式整理为word格式整理为word格式ClassID字符班级编号整理为word格式整理为word格式整理为word格式ClassName文本班级名称DepID文本学院编号SpecID文本专业编号、ClassStuNum整型班级人数图3－2班级表Chart3-2Classtable2.bClassRoom表字段名称类型说明ClassRoomID字符教室编号，字段大小10ClassRoomName文本教室名称，字段大小16ClassTypeID字符教室类型，字段大小16ClassRoomStuNum整型容纳人数，字段大小4BuildingID字符教学楼编号，字段大小10ClassRoomFlag整型教室标识符，字段大小4图3－3教室表Chart3-3Classroomtable3.bCourse表字段名称类型说明CourseID字符课程编号，字段大小10CourseName字符课程名称，字段大小20CourseYXJ字符课程优先级，字段大小10ClassID字符班级编号，字段大小10CourseFlag整型课程标识符，字段大小4图3－4课程表Chart3-4Coursetable整理为word格式整理为word格式整理为word格式4.bTeacher表字段名称类型说明TeacherID字符教师编号，字段大小10TeacherName文本教师名称，字段大小16DepID文本学院编号，字段大小16CourseID字符课程编号，字段大小10图3－5教师表5.bTeachPlan表字段名称类型说明CourseID字符课程编号，字段大小10CourseName文本课程名称，字段大小16TeacherID字符教师编号，字段大小10TeacherName文本教师名称，字段大小16WeekNum字符周学时，字段大小10CourseNum字符总学时，字段大小10图3－6教师计划表Chart3-6Reachplantable6.bTempTable表字段名称类型说明ClassID字符班级编号，字段大小10CourseID字符课程编号，字段大小10TeacherID字符教师编号，字段大小10ClassRoomID字符教室编号，字段大小10TTime整型时间标识，字段大小4整理为word格式整理为word格式整理为word格式Week整型周数，字段大小4图3－7临时表Chart3-7Temporarytable排课系统总构架基本信息录入基本信息录入优先级高先排资源要求设置优先级高先排资源要求设置开始排课开始排课检查排课冲突检查排课冲突生成课表查询课表生成课表查询课表打印课表打印课表图3－8系统总架构Chart3-8Systemframe整理为word格式整理为word格式整理为word格式 四.详细设计用户界面设计随着视窗操作系统的全面推广和流行，如今GUI已经成为业界用户接口的一个标准。在本系统的设计过程中，也按照GUI的设计原则来设计用户接口，给用户提供一个友好的人机交互界面。具体来说，将按照以下几点原则来设计。简单易用和个性化需求无论什么系统，面向什么使用者，都应该以简单易用而不显枯燥为标准。本系统使用图形化的用户界面，整个界面功能键的设定和窗体布局，完全具有独特统一的风格。对数据的查询查询是信息系统中不可缺少的功能。本系统设计的是一种可对任意指定的表、按所有字段进行的查询。查询的结果，在本系统中用数据窗口对象显示输出。对于查询的结果，用户也可以根据自己的需求，选择显示的字段和设计自己的视图。当然，系统下一步应该提供的功能就是根据查询结果，生成各式各类的报表。在实际的系统设计中,菜单可分为两种类型,即下拉式菜单和弹出式菜单,下拉式菜单系统中,一般有一个主菜单,其中包括若干个选择项.主菜单单的每一项又可下拉出下一级子菜单.这样用一个个的窗口的形式弹出在屏幕上,它是通过菜单编辑器建立,其步骤如下：选取要建立菜单的窗体整理为word格式整理为word格式整理为word格式从“工具”菜单中,选取“菜单编辑器”建立如下图所示的系统主菜单：

图4－1菜单编辑Chart4-1Menuedit基本信息输入基本信息输入菜单是让录入员输入和修改课程信息、班级信息、教师信息、教室信息基本数据，数据管理包括课程、班级、教师、教室、课表数据的查询，打印。班级信息中包括班级编号、班级名称、班级人数以及添加、保存、查询、编辑、删除等功能。如下为班级信息的界面：整理为word格式整理为word格式整理为word格式图4－2班级信息界面Chart4-2Interfaceofclassinformation教师信息中包括教师编号、教师姓名、职称以及添加、保存、查询。课程表的生成班级课程表查询打印设计经过信息录入和复杂的排课过程，终于到了生成课程表的输出后期阶段，显示出完整的课程表是我们的最终目的。本系统是直接将课程表到入EXCEL表格中，使表格的形式更加美观，所用工具用户非常熟悉。如下是班级课表查询界面：整理为word格式整理为word格式整理为word格式图4－3班级课表查询界面Chart4-3Interfaceofinquireclasstable通过输入确定的班级编号，来搜索某一具体班级的课程表。若你忘记班级的编号，可以通过界面上的班级编号与班级名称对照表查询班级编号。当确定好你所要查询的班级后，点击“查询课程表”按钮，就可以查询该班的课程表了。图4－4班级课程表界面Chart4-4Interfaceofclasstable上图就是最终生成的班级课程表。其主要代码如下：PrivateSubCommand1_Click()整理为word格式整理为word格式整理为word格式DimstrCourseIDAsStringDimstrClassRoomIDAsStringDimiAsInteger,jAsIntegerIfCombo1.Text=""ThenMsgBox"请输入要查询的班级编号！"ExitSubEndIfstrSQL="SELECT*FROMbTempTableAwhereclassid="&Combo1.Text&"orderbyttime"strtempsql="SELECTcourseID,courseNameFROMbCourse"strclassroomsql="SELECTClassRoomID,ClassRoomNameFROMbclassroom"ConenctToDatabaserst.OpenstrSQL,db,adOpenKeyset,adLockOptimistictemp.Openstrtempsql,db,adOpenKeyset,adLockReadOnlyclasstemp.Openstrclassroomsql,db,adOpenKeyset,adLockReadOnlyIfrst.RecordCount()<>0Theni=rst.RecordCount()ElseMsgBox"无此信息，请重新输入！"rst.Closetemp.Closeclasstemp.CloseExitSubEndIfSetxlapp=NewExcel.ApplicationSetxlbook=xlapp.Workbooks.Open(App.Path&"\课程表模板.xlt")xlapp.Visible=TrueSetxlsheet=xlbook.Worksheets("班级课程表")xlsheet.Activatexlsheet.Cells(5,1)=Combo1.Text&"级"xlsheet.Cells(5,6)=DateWhilei<>0strCourseID=rst.Fields("courseID")temp.Filter="courseID='"&strCourseID&"'"strClassRoomID=rst.Fields("classroomID")classtemp.Filter="classroomID='"&strClassRoomID&"'"SelectCaserst.Fields("Ttime")CaseIs=1xlsheet.Cells(9,3)=temp.Fields("coursename")xlsheet.Cells(11,3)=classtemp.Fields("classroomName")整理为word格式整理为word格式整理为word格式CaseIs=2xlsheet.Cells(13,3)=temp.Fields("coursename")整理为word格式整理为word格式整理为word格式xlsheet.Cells(15,3)=classtemp.Fields("classroomName")CaseIs=3xlsheet.Cells(17,3)=temp.Fields("coursename")xlsheet.Cells(19,3)=classtemp.Fields("classroomName")CaseIs=4xlsheet.Cells(21,3)=temp.Fields("coursename")xlsheet.Cells(23,3)=classtemp.Fields("classroomName")CaseIs=5xlsheet.Cells(9,4)=temp.Fields("coursename")xlsheet.Cells(11,4)=classtemp.Fields("classroomName")CaseIs=6xlsheet.Cells(13,4)=temp.Fields("coursename")xlsheet.Cells(15,4)=classtemp.Fields("classroomName")CaseIs=7xlsheet.Cells(17,4)=temp.Fields("coursename")xlsheet.Cells(19,4)=classtemp.Fields("classroomName")CaseIs=8xlsheet.Cells(21,4)=temp.Fields("coursename")xlsheet.Cells(23,4)=classtemp.Fields("classroomName")CaseIs=9xlsheet.Cells(9,5)=temp.Fields("coursename")xlsheet.Cells(11,5)=classtemp.Fields("classroomName")CaseIs=10xlsheet.Cells(13,5)=temp.Fields("coursename")xlsheet.Cells(15,5)=classtemp.Fields("classroomName")CaseIs=11xlsheet.Cells(17,5)=temp.Fields("coursename")xlsheet.Cells(19,5)=classtemp.Fields("classroomName")CaseIs=12xlsheet.Cells(21,5)=temp.Fields("coursename")xlsheet.Cells(23,5)=classtemp.Fields("classroomName")整理为word格式整理为word格式整理为word格式CaseIs=13xlsheet.Cells(9,6)=temp.Fields("coursename")xlsheet.Cells(11,6)=classtemp.Fields("classroomName")CaseIs=14xlsheet.Cells(13,6)=temp.Fields("coursename")xlsheet.Cells(15,6)=classtemp.Fields("classroomName")CaseIs=15xlsheet.Cells(17,6)=temp.Fields("coursename")xlsheet.Cells(19,6)=classtemp.Fields("classroomName")CaseIs=16xlsheet.Cells(21,6)=temp.Fields("coursename")xlsheet.Cells(23,6)=classtemp.Fields("classroomName")整理为word格式整理为word格式整理为word格式CaseIs=17xlsheet.Cells(9,7)=temp.Fields("coursename")xlsheet.Cells(11,7)=classtemp.Fields("classroomName")CaseIs=18xlsheet.Cells(13,7)=temp.Fields("coursename")xlsheet.Cells(15,7)=classtemp.Fields("classroomName")CaseIs=19xlsheet.Cells(17,7)=temp.Fields("coursename")xlsheet.Cells(19,7)=classtemp.Fields("classroomName")CaseIs=20xlsheet.Cells(21,7)=temp.Fields("coursename")xlsheet.Cells(23,7)=classtemp.Fields("classroomName")CaseIs=21xlsheet.Cells(9,8)=temp.Fields("coursename")xlsheet.Cells(11,8)=classtemp.Fields("classroomName")CaseIs=22xlsheet.Cells(13,8)=temp.Fields("coursename")xlsheet.Cells(15,8)=classtemp.Fields("classroomName")CaseIs=23xlsheet.Cells(17,8)=temp.Fields("coursename")xlsheet.Cells(19,8)=classtemp.Fields("classroomName")CaseIs=24xlsheet.Cells(21,8)=temp.Fields("coursename")xlsheet.Cells(23,8)=classtemp.Fields("classroomName")CaseIs=25xlsheet.Cells(9,9)=temp.Fields("coursename")xlsheet.Cells(11,9)=classtemp.Fields("classroomName")CaseIs=26xlsheet.Cells(13,9)=temp.Fields("coursename")xlsheet.Cells(15,9)=classtemp.Fields("classroomName")CaseIs=27xlsheet.Cells(17,9)=temp.Fields("coursename")整理为word格式整理为word格式整理为word格式xlsheet.Cells(19,9)=classtemp.Fields("classroomName")CaseIs=28xlsheet.Cells(21,9)=temp.Fields("coursename")xlsheet.Cells(23,9)=classtemp.Fields("classroomName")CaseElseMsgBox"数据溢出，请检查系统！"EndSelecti=i-1rst.MoveNextWend整理为word格式整理为word格式整理为word格式教师课程表查询打印设计有了班级课程表的设计成功，教师课程表就显得容易多了。我们依然把课程表导入到EXCEL中，基于界面风格的统一，与班级课表查询相似。下面是教师课表查询界面：图4－5教师课表查询界面Chart4-5Interfaceofinquireteachertable通过以上界面可以查询具体教师一学期的课程安排情况，其中生成的课表信息包括所教课程和班级，上课具体时间，教室。使教师一目了然，方便地查询到自己所教班级、课程。准确无误地反映在课表上。整理为word格式整理为word格式整理为word格式图4－6教师课程表界面Chart4-6Interfaceofteachertable以下是主要代码：PrivateSubCommand1_Click()DimaAsStringDimiAsInteger,jAsIntegerDimstrCourseIDAsStringDimstrClassRoomIDAsStringDimstrclasssqlAsStringDimstrClassIDAsStringstrsql="SELECT*FROMbTempTableAwhereteacherid="&Text1.Text&"orderbyttime"strtempsql="SELECTcourseID,courseNameFROMbCourse"strclassroomsql="SELECTClassRoomID,ClassRoomNameFROMbclassroom"strclasssql="selectclassID,classnamefrombclass"ConenctToDatabaserst.Openstrsql,db,adOpenKeyset,adLockOptimisticcoursetemprst.Openstrtempsql,db,adOpenKeyset,adLockReadOnlyclasstemprst.Openstrclasssql,db,adOpenKeyset,adLockReadOnlyclassroomrst.Openstrclassroomsql,db,adOpenDynamic,adLockReadOnlyIfrst.RecordCount()<>0Theni=rst.RecordCount()ElseMsgBox"无此信息，请重新输入！"rst.Closecoursetemprst.Closeclasstemprst.Closeclassroomrst.CloseExitSubEndIfSetxlapp=NewExcel.ApplicationSetxlbook=xlapp.Workbooks.Open(App.Path&"\课程表模板.xlt")xlapp.Visible=TrueSetxlsheet=xlbook.Worksheets("教师课程表")xlsheet.Activatexlsheet.Cells(5,1)=DataGrid1.Columns(1).Textxlsheet.Cells(5,6)=DateWhilei<>0整理为word格式整理为word格式整理为word格式strCourseID=rst.Fields("courseID")coursetemprst.Filter="courseID='"&strCourseID&"'"整理为word格式整理为word格式整理为word格式strClassRoomID=rst.Fields("classroomID")classroomrst.Filter="classroomID='"&strClassRoomID&"'"strClassID=rst.Fields("classID")classtemprst.Filter="classID='"&strClassID&"'"SelectCaserst.Fields("Ttime")CaseIs=1xlsheet.Cells(9,3)=coursetemprst.Fields("coursename")xlsheet.Cells(10,3)=classroomrst.Fields("classroomName")xlsheet.Cells(12,3)=classtemprst.Fields("classname")CaseIs=2xlsheet.Cells(13,3)=coursetemprst.Fields("coursename")xlsheet.Cells(14,3)=classroomrst.Fields("classroomName")xlsheet.Cells(16,3)=classtemprst.Fields("classname")CaseIs=3xlsheet.Cells(17,3)=coursetemprst.Fields("coursename")xlsheet.Cells(18,3)=classroomrst.Fields("classroomName")xlsheet.Cells(20,3)=classtemprst.Fields("classname")CaseIs=4xlsheet.Cells(21,3)=coursetemprst.Fields("coursename")xlsheet.Cells(22,3)=classroomrst.Fields("classroomName")xlsheet.Cells(24,3)=classtemprst.Fields("classname")CaseIs=5xlsheet.Cells(9,4)=coursetemprst.Fields("coursename")xlsheet.Cells(10,4)=classroomrst.Fields("classroomName")xlsheet.Cells(12,4)=classtemprst.Fields("classname")整理为word格式整理为word格式整理为word格式CaseIs=6xlsheet.Cells(13,4)=coursetemprst.Fields("coursename")xlsheet.Cells(14,4)=classroomrst.Fields("classroomName")xlsheet.Cells(16,4)=classtemprst.Fields("classname")CaseIs=7xlsheet.Cells(17,4)=coursetemprst.Fields("coursename")xlsheet.Cells(18,4)=classroomrst.Fields("classroomName")xlsheet.Cells(20,4)=classtemprst.Fields("classname")CaseIs=8xlsheet.Cells(21,4)=coursetemprst.Fields("coursename")xlsheet.Cells(22,4)=classroomrst.Fields("classroomName")xlsheet.Cells(24,4)=classtemprst.Fields("classname")CaseIs=9xlsheet.Cells(9,5)=coursetemprst.Fields("coursename")xlsheet.Cells(10,5)=classroomrst.Fields("classroomName")xlsheet.Cells(12,5)=classtemprst.Fields("classname")CaseIs=10xlsheet.Cells(13,5)=coursetemprst.Fields("coursename")整理为word格式整理为word格式整理为word格式xlsheet.Cells(14,5)=classroomrst.Fields("classroomName")xlsheet.Cells(16,5)=classtemprst.Fields("classname")CaseIs=11xlsheet.Cells(17,5)=coursetemprst.Fields("coursename")xlsheet.Cells(18,5)=classroomrst.Fields("classroomName")xlsheet.Cells(20,5)=classtemprst.Fields("classname")CaseIs=12xlsheet.Cells(21,5)=coursetemprst.Fields("coursename")xlsheet.Cells(22,5)=classroomrst.Fields("classroomName")xlsheet.Cells(24,5)=classtemprst.Fields("classname")CaseIs=13xlsheet.Cells(9,6)=coursetemprst.Fields("coursename")xlsheet.Cells(10,6)=classroomrst.Fields("classroomName")xlsheet.Cells(12,6)=classtemprst.Fields("classname")CaseIs=14xlsheet.Cells(13,6)=coursetemprst.Fields("coursename")xlsheet.Cells(14,6)=classroomrst.Fields("classroomName")xlsheet.Cells(16,6)=classtemprst.Fields("classname")CaseIs=15xlsheet.Cells(17,6)=coursetemprst.Fields("coursename")xlsheet.Cells(18,6)=classroomrst.Fields("classroomName")xlsheet.Cells(20,6)=classtemprst.Fields("classname")CaseIs=16xlsheet.Cells(21,6)=coursetemprst.Fields("coursename")整理为word格式整理为word格式整理为word格式xlsheet.Cells(22,6)=classroomrst.Fields("classroomName")xlsheet.Cells(24,6)=classtemprst.Fields("classname")CaseIs=17xlsheet.Cells(9,7)=coursetemprst.Fields("coursename")xlsheet.Cells(10,7)=classroomrst.Fields("classroomName")xlsheet.Cells(12,7)=classtemprst.Fields("classname")CaseIs=18xlsheet.Cells(13,7)=coursetemprst.Fields("coursename")xlsheet.Cells(14,7)=classroomrst.Fields("classroomName")xlsheet.Cells(16,7)=classtemprst.Fields("classname")CaseIs=19xlsheet.Cells(17,7)=coursetemprst.Fields("coursename")xlsheet.Cells(18,7)=classroomrst.Fields("classroomName")xlsheet.Cells(20,7)=classtemprst.Fields("classname")CaseIs=20xlsheet.Cells(21,7)=coursetem