自动排课系统.doc

JSJ06-305@VB自动排课系统设计与实现(源代码+系统)

收藏

资源目录
跳过导航链接。
JSJ06-305@VB自动排课系统设计与实现(源代码+系统).zip
JSJ06-305@VB自动排课系统设计与实现(源代码+系统)
自动排课系统
自动排课系统.doc---(点击预览)
源代码
back.jpg
classRep.DCA
classRep.Dsr
classRep.dsx
ctRep.DCA
ctRep.Dsr
ctRep.dsx
DataEnv.DCA
DataEnv.Dsr
DataEnv.dsx
dataUse.mdb
fmloading.frm
fmloading.frx
fmStart.frm
fmStart.frx
Form1.frm
Form1.frx
Form2.frm
Form2.frx
Form3.frm
Form3.frx
Form4.frm
Form4.frx
Form5.frm
Form5.frx
Form6.frm
Form6.frx
frmAbout.frm
frmAbout.frx
frmLogin.frm
frmLogin.frx
TEMP.FRM
ThrMgr.PDM
ThrMgr.vbp
ThrMgr.vbw
TrRep.DCA
TrRep.Dsr
TrRep.dsx
工程1.vbw
排课管理系统.exe
压缩包内文档预览:(预览前20页/共24页)
预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图
编号:507627    类型:共享资源    大小:2.06MB    格式:ZIP    上传时间:2015-11-11 上传人:QQ28****1120 IP属地:辽宁
12
积分
关 键 词:
毕业设计论文
资源描述:
JSJ06-305@VB自动排课系统设计与实现(源代码+系统),毕业设计论文
内容简介:
学 士 学 位 论 文 题 目 自动排课系统 学 生 * 指导教师 * 年 级 *级 专 业 * 系 别 * 学 院 * 哈尔滨师范大学 2006 年 5 月 nts自动排课系统 哈尔滨师范大学计算机科学与技术系 2 摘要 : 制定一个学校的排课计划是一项非常耗时且相当辛苦的工作,而且它还得由有学校排课工作经验或者这方面知识的人才能做好。在一所高校时一个课程表的制定是一个难题,因为在有关课程表的问题上有很多的限制条件得考虑,还有大量的数据空间被挖掘 ,即便你的输入数据量并不是实际意义上的大批量。 课程编排系统是一个学校不可缺少的部分 ,它的内容对于学校的决策者和管理者来说都至关重要 ,所以自动课程编排系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案,这种管理方式存在着许多缺点 ,如 :效率低、保密性差 ,另外时间一长 ,将产生大量的文件和数据 ,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高 ,计算机科学日渐成熟 ,其强大的功能已为人们深刻认识 ,它已进入人类社会的各个领域并发挥着越来越重要的作用。 本系统 经过测试,运行稳定,可投入使用。 关键字 : 排课 管理, VB,数据库 nts自动排课系统 哈尔滨师范大学计算机科学与技术系 3 Abstract: Formulates a school platoon class plan is an item consumes extremely when also the quite laborious work, moreover it also must by have the school row of class work experience or this aspect knowledge talented person can complete. When a university a class schedule formulation is a difficult problem, because has the very many limiting condition in the related class schedule question to result in the consideration, but also has the massive data space to excavate, even if your input data quantity is not in the practical significance mass. The curriculum arranges the system is a school essential part, Its content said regarding the school policy-maker and the superintendent all very important, Therefore the automatic curriculum arranges the system to be supposed to be able to provide the sufficient information and the quick inquiry method for the user. But the people have since always used the traditional artificial way management document file, this management way has many shortcomings, For example: The efficiency low, the secrecy is bad, Moreover the time one is long, Will produce the massive documents and the data, This regarding the search, the renewal and the maintenance has all brought many difficulties. Along with science and technology unceasing enhancement, The computer science is mature day after day, Its formidable function had profoundly known for the people, t entered the human society each domain and is playing the more and more vital role. This system after the test, the movement is stable, may put into the use. Key words: Curriculum management, VB, database nts自动排课系统 哈尔滨师范大学计算机科学与技术系 4 目 录 摘 要 . 1 Abstract. 3 第一章 绪论 . 5 1.1 本课题的研究意义 . 5 1.2 系统可行性分析 . 6 第二章 开发软件介绍 . 7 2.1 系统的架构 . 7 2.2 系统运行环境操作系统 . 7 2.3 系统开发环境 . 7 2.4 开发工具 . 8 2.4.1Visual Basic 的简介 . 8 2.4.2 ACCESS 简介 . 9 第三章 需求分析 . 11 第四章 系统实现 . 13 4 1 本学期课程设置模块设计 . 13 4 2 教师入库信息模块设计 . 14 4 3 课程安排管理模块设计 . 16 4.4 课程查询模块设计 . 18 第五章 系统的问题与调试 . 211 总 结 . 222 致 谢 . 233 参考文献 . 244 nts自动排课系统 哈尔滨师范大学计算机科学与技术系 5 绪论 1 1 本课题的研究意义 数据库是从 60 年代初发展起来的计算机技术。经过四十来年的发展,数据库技术己 经趋于成熟。数据库在新的 计算机 环境中发生了很大的变化。就数据应用而言呈现出多样化的空间,如数字图书馆、电子出版物、电子商务、远程教育系统等的出现,给数据库技术提出了更多、更高的要求。 自动课程编排系统是一个学校不可缺少的部分 ,它的内容对于学校的决策者和管理者来说都至关重要 ,所以自动课程编排系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案,这种管理方式存在着许多缺点 ,如 : 效率低、保密性差 ,另外时间一长 ,将产生大量的文件和数据 ,这对于查找、更新和维护都带来了不少的困 难。 随着科学技术的不断提高 ,计算机科学日渐成熟 ,其强大的功能已为人们深刻认识 ,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分 ,使用计算机对选课信息进行管理 ,有着手工管理所无法比拟的优点 。 例如 : 检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率 ,也是企业的科学化、正规化管理 ,与世界接轨的重要条件。 在高等学校的教务管理工作中,课程表的编排是一项十分复杂、棘手的工作。在排课过程中,除了满足大量的制约条件以外,还必须解决许多 冲突与矛盾,例如:两位教师不能同一时间在同一班级上课、一位教师不能在同一时间上两门课等等。利用计算机辅助进行课表编排工作,既提高了排课工作的科学性,又可大大减轻管理人员的工作强度,提高工作效率,从而使学校教务管理现代化迈上了一个新台阶。 我国不少高校都实行了学分制,它的核心是允许学生自由选课,即把学习的自主权交给学生。在这里,自动排课时的制约因素比较复杂,工作量也很大,而且往往需要在较短的时间内完成。运用计算机辅助选课,即能实时地对大量选课数据进行检验和统计,十分方便地输出选课结果,同时也避免了人工处理时容 易产生的错误。 nts自动排课系统 哈尔滨师范大学计算机科学与技术系 6 从系统开发的复杂程度来看,计算机辅助排课与选课是高校教务系统中的两个关键子系统,目前不少教务系统尚未很好地解决排课与选课问题。本文主要对高校教务管理系统中计算机课表编排与选课子系统的基本功能、设计思想、需求分析以及实现技术进行探讨。本设计的系统可以通过登陆界面对学生老师的功能权限进行分配,登陆后各自实施各自的功能。 1.2 系统可行性分析 技术上可行:该系统所需硬件设备,市场上销售且价格较低,甚至可以使用原有的设备,软件上,操作系统采用 Windows 系列操作系统,数据库管理系统采用 Visual Basic,这些软件在 MIS 开发中已被大量应用,技术上都比较成熟。因此在技术上是可行的。 经济上可行:由于学校急需采用计算机来进行图书馆的管理,因此对开发图书管理系统大力支持,开发经费没有问题。 综上所述,开发图书管理系统在技术上、经济上、都是可行的。 nts自动排课系统 哈尔滨师范大学计算机科学与技术系 7 第二章 开发软件介绍 2.1 系统的架构 本系统开发使用的系统只是普通的 PC 机,操作系统为 Windows 2000 Professional 版本。考虑到使用的数据量不大,数据库的建立使用的是 Office 2000 中的 Microdoft Access。数 据访问方法为使用 ADO(Active 数据对象ActiveDataObjects)通过 ODBC 的方法同数据库借口。使用这种方式访问数据,可以使用任何一种 ODBC 数据源,即不止适合于 SQL Server、 Oracle、 Access等数据库应用程序,也适合与 Excel 表格、文本文件、图形文件和无格式的数据文件。 2.2 系统运行环境操作系统 采用的是当前流行的主流操作系统微软公司的 WindowsXP。 2.3 系统开发环境 系统开发环境包括硬件平台和软件平台两种。 硬件平台是指开发与运行所需要的硬件环境,主要包括 计算机机型及硬件配置。由于本系统是一个小型的 MIS 管理系统,因此对计算机硬件的要求不高,比较经济,只要配备有 PII300 处理器(或以上)、 64M 内存(或以上)、 20G 硬(或以上)的普通微机即可顺利运行。 软件平台是指系统开发与运行的软件环境。本系统在开发时选用了稳定性较强的 Windows XP 中文专业版和 Visual Basic6.0 作为开发语言,同时选用了Access 数据库,由于这些软件产品都是 Microsoft 公司的产品,因此彼此之间的兼容性较好,开发出的应用系统稳定性较高。 Visual Basic 6.0 具有可视化的开发环境,可以快速完成系统的开发,内部集成的数据库访问通道,使得可以轻松方便的对数据库管理。 数据库采用 MICROSOFT ACCESS,由于我们的系统要求,采用它完全可以适合我们的工作需求,并且它所支持的数据类型十分丰富,维护简便,费用较低,nts自动排课系统 哈尔滨师范大学计算机科学与技术系 8 容易升级。 2.4 开发工具 在确定了操作系统后,就该选择开发工具了。经过了综合的比较而且最重要的是本人在学校期间 自己自学 的就是 Visual Basic。这 不是一个 数据库管理系统 软件 ,所以我们必须得选一个合适的数据库。考虑到我这个系统针对的用户,已经 价格方面的考虑,完全可以使用 Access 来进行开发,而且我在使用 Visual Basic 的时候,操作数据库方面使用的是微软提供的数据访问接口,先我们来了介绍一下 Visual Basic 以及微软提供了哪些数据库访问方法,并且各自都有什么特点。 2.4.1 Visual Basic 的简介 首先,我们还从 Visual Basic 这个名字开始,来认识这个软件。所谓“Visual” 指的是开发图形用户界面 (GUI) 的方法。 它 不需编写大量 的 代码去描述界面元素的外观和位置,而只要把预先建立的对象 添加 到屏幕上的 某 一 位置即 可。如果已使用过诸如 Paint 之类的绘图程序,则实际上已掌握了创建用户界面的必要技巧。 “Basic” 指的是 BASIC (Beginners All-Purpose Symbolist Instruction Code) 语言,一种在计算技术发展历史上应用得最为广泛的 编程 语言。 Visual Basic 在原有 BASIC 语言的基础上进一步发展,至今包含了数百条语句、函数及关键词,其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程 语言的功能,而初学者只要掌握几个关键词就可以建立实用的应用程序。 Visual Basic 不仅是 Visual Basic 编程语言。 Visual Basic 编程系统和 VBA 都使用这一语言。 Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言,它是 Visual Basic 语言的子集。这样,在学习 Visual Basic 中得到的经验可应用到所有这些领域中。 接着,我们再从 Visual Basic 的发展历史来进一步地认识一下它。 Visual Basic 的最初版本是 Visual Basic1.0,那时的 Visual Basic 只是简单地以对象的属性为中心来进行编程。到了 Visual Basic2.0 时,开始正式地采用面向对象技术,其有一个重要的新特性就是可拥有对象变量,并把 Variant 型变量作为缺nts自动排课系统 哈尔滨师范大学计算机科学与技术系 9 省数据类型变量。没过多久 Visual Basic 的下两个版本 Visual Basic3.0 和Visual Basic4.0 接踵而至,一种内建的新的控件类型 数据控件,能够使创建一个与数据库交互作用的应用程序变得令人惊讶的容易。在微软的其它应用程序,如 WORD 字处理软件、 EXCEL 电子报表软件、 ACCESS 数据库软件中都做了改变,使得它们可以与 Visual Basic 一致工作。这种新技术被称作为 Visual Basic For Applications,它帮助实现了 Visual Basic 的最初设想。理论上,人们总是能够通过某种叫做动态数据交换( DDE)的技术使视窗系统应用程序彼此交互。但那样既慢而且又麻烦。 Visual Basic 的完美之处在于它能使程序员获得一块数据 如报表,并将它看作是 Visual Basic 的对象。其目的就是要使视窗系统下的每一件事 情都支持同样的易于使用的高级语言。 Visual Basic5.0 出现以后,在某些方面有了重大的突破。它给予了程序员长期期待的不用离开 Visual Basic 环境,就可以创建新的定制控件类型和创建其它项目类型的能力。除了一般应用程序外,程序员还能创建文档 DLLs、 OLE 服务器和 ActiveX 控件。当 Visual Basic 逐渐复杂时,世界已经在围着它转了。项目类型的增加不是用来迷惑程序员,而是提供灵活性的。视窗系统已经成为一个特别丰富的环境,可使应用程序彼此交流和共享数据。我们现在所使用的 Visual Basic6.0 被看着是 Visual Basic 的网络版本。可以看出它投入了相当一部分的精力去支持微软日益在Internet 和分布式(网络)计算方面的重视程度。虽然它没有象 Visual Basic5.0所引起的那样激动人心,但它还是在某些方面做了一些有用的改进。其最重要的一个改进就是增加了 ADO 数据控件,它可以缩小本地和远程数据控件之间的差别。换句话说,程序员在很大程度上可以与数据库交互作用,而不用担心网络上由谁来提供服务。 此外, Visual Basic 在数据开发方面提供了十分强大的功能。有自带的数据管理器( Data Manager)、数据控件( Data Control)及数据访问对象 (DAO)等一系列功能强大的工具来协助管理人员轻松地进行与数据库的连接和管理。 2.4.2 ACCESS 简介 数据库选用 Microsoft 公司的 Access 产品作为数据库应用程序。目前的Access 2000是 Microsoft强大的桌面数据库平台的第六代产品,是 3 2位 Accessnts自动排课系统 哈尔滨师范大学计算机科学与技术系 10 的第三个版本。 Access 有以下一些基本定义: ( 1)数据库是一个包含各种 Access “对象” (表、查询、窗体、报表、宏和模块 )的文件, Access 中 所有工作都是建立在此基础之上的。 ( 2)表是存放数据的容器,被设计成行和列的格式,就像电子表中的那样。每一列叫做一个“字段”,包含特定类型的信息,如姓名或学历。每一行称为一个“记录 ”, 包含与单个实体有关的所有信息,如某个员工的姓名、性别、所在部门、学历等。对于像 Access 这样的关系数据库管理程序,一个数据库通常包含几个存放相关数据的不同表。 ( 3)查询是一个 Access 对象,它询问数据库中有关数据的问题。根据设计方法的不同,查询能够在数据库中检索并组合来自不同表的数据。例如,可以设计一个查询来告知在公司中 工作超过 1 年的职员有多少。查询还可以对一组数据执行操作,如更新或删除某组记录。 ( 4)窗体是一个窗口,它提供一种很方便的途径来查看数据库中已有记录或向数据库中增添新记录。在 Access 中,可以创建一个窗体,用来同时查阅单个表或多个表中的数据,还可以打印和显示窗体。 ( 5)报表是一个 Access 对象,设计来显示数据,其作用类似于窗体,但主要是用于数据打印,不能输入数据。 ( 6)页是一种特殊类型的窗体,它使用户能够利用 Web 浏览器查看和编辑Access 的表。 ( 7)宏用来保存 Access 中的一系列操作。可自动执 行一些日常的任务,以便简化在 Access 中的工作。 ( 8)模块是用 Visual Basic for Applications(VBA) 编写的过程, VBA 是Access 的基础程序设计语言。利用 VBA 可以编写程序代码来完成 Access 宏所不能完成的特定任务。 nts自动排课系统 哈尔滨师范大学计算机科学与技术系 11 第三章 需求分析 自动课程编排系统需要满足来自三方面的需求,这三个方面分别是学生、教师和管理员。学生的需求是查询院系的课程情况及学生信息的修改;教师对选课系统自动排课情况进行操作,同时形成自动排课查看确认;选课管理员的功能最为复 杂,包括对学生、教师、选课进行管理和统计,及系统状态的查看、维护并生成选课报表。学生可以直接查看选课情况,学生可以根据本人学号和密码登录系统,还可以进行本人信息的查询和维护部分。一般情况下,学生只应该查询和维护本人的个人信息,若查询和维护其他学生的选课信息,就要知道其他学生的学号和密码。这些是很难得到的,特别是密码,所以不但满足了学生的要求,还保护了学生的个人隐私。 学校管理人员有修改自动课程编排系统的权限,所以需对管理人员登陆本模块进行更多的考虑。在此系统中,学校管理人员可以记录学生登陆日志,并打印生成相 应的报表给用户查看和确认院系管理人员功能的信息量大,数据安全性和保密性要求最高。本功能实现对排课信息、教师信息、总体情况信息的查询和统计、管理人员信息查看及维护。设计不同用户的操作权限和登陆方法,对所有用户开放的课程查询和个人部分信息维护,查看个人情况信息,维护个人密码。根据排课情况对数据库进行操作,并生成报表根据选课情况,维护管理员信息,维护教师信息,维护学生信息处理信息的完整性。 本系统主要实现教师信息管理、学生信息管理、课程信息管理和系信息管理,其中教师信息管理有教师姓名、教师工号、教师职称、教师所属 系;学生信息管理有学生姓名、学生学号和学生所在系;课程信息管理有课程名称、学分、上课地点、已选人数、课程性质、开课系、课程人数;系信息管理有 ID 和 Password。 ( 1)学生信息模块完成学生的登陆,然后根据各位同学所在的系不同,调出相应的课程模块。其中学生登录模块的功能是验证登录人员确实是本院的学生,学生启动本系统后,系统提示输入学生学号码和密码,验证后进入主控操作界面。 ( 2)教师信息模块完成教师的登陆 ,然后根据各位教师所在的系不同 ,教师所教的课程不同 ,调出要排课的课程 。 其中教师登陆模块的功能是验证登录人员确实是本院的教师,教师启动本系统后,系统提示输入教师工号和密码,验证后进入主控操作界面。 nts自动排课系统 哈尔滨师范大学计算机科学与技术系 12 ( 3)课程信息管理包括必修课程和选修课程 ,学生必需先登陆才能进行对课程查询。 管理员可以通过超级用户身份登录 ,对系统进行全面的管理 ,对新用户的添加 ,删除 ,对信息进行管理。管理员可以对老师及同学的帐户进行管理,老师、学生不同身份的用户进入不同的界面,进行不同的操作。教师可以发布自己本学期所要教的课程。同学可以通过查询本学期所开设课程进行了解课程安排。 系统结构图如下所示: 排课管理系统 教职员入库信息 排课管理 教职员带课查询 本学期课程设置 nts自动排课系统 哈尔滨师范大学计算机科学与技术系 13 第四章 系统实现 4 1 本学期课程设置模块设计 本系统只提供最多十门的课程设置,用户可以根据自己的实际需要来编排里面的课程内容,对于小学来说,十门应该足够了。 本模块界面如下所示: 主要代码如下所示: Private Sub cn_Click(Index As Integer) On Error GoTo ex: Dim lcnt As Integer Dim strTxt As String Select Case Index Case 0: CanSave (True) Case 1: con.Execute (delete * from subject) For lcnt = 0 To 9 strTxt = Trim$(LTrim$(Txt(lcnt).Text) If Len(strTxt) 0 Then rs.AddNew rs!csjname = strTxt rs.Update nts自动排课系统 哈尔滨师范大学计算机科学与技术系 14 End If Next lcnt CanSave (False) Case 2: For lcnt = 0 To 9 Txt(lcnt) = str(lcnt) Next lcnt CanSave (False) End Select Exit Sub ex: MsgBox database error, vbOKOnly + vbExclamation, error End Sub 4.2 教 师 入库信息模块设计 本模块主要对教师信息的录入,以便清楚知道教师的情况, 所以教师管理这个模块是比不可少的。光对教师的资料了解便清楚知道,某个老师是能胜任的课程。 本模块主要界面如下所示: nts自动排课系统 哈尔滨师范大学计算机科学与技术系 15 主要代码如下所示: Private Sub Command2_Click(Index As Integer) On Error GoTo errDeal If Index = 0 Or Index = 2 Then CanSave (True) Else CanSave (False) End If Select Case Index Case 0: rs.AddNew Call toNull Case 1: j = MsgBox(你确定要删除本记录吗? , vbYesNo + vbQuestion, 删除 ) If j = vbYes Then rs.Delete Call toNull End If Case 2: rs.Delete rs.AddNew Case 3: If Len(LTrim$(RTrim$(Text1(0).Text) 0 Then rs.AddNew For i = 0 To 2 If Len(LTrim$(RTrim$(Text1(i).Text) 0 Then rs.Fields(i) = Text1(i).Text End If Next i rs.Update Else MsgBox 姓名不得为空 , vbOKOnly + vbExclamation, Error End If Case 4: For i = 0 To 2 Text1(i).Text = strBak(i) Next i Call Command2_Click(3) nts自动排课系统 哈尔滨师范大学计算机科学与技术系 16 End Select Exit Sub errDeal: MsgBox database Error, vbExclamation + vbOKOnly, error okEnd: End Sub 4 3 课程安排管理模块设计 本模块可以安排一个星期五天的课程,教师可以根据实际情况制定课程表,并可安排任课老师的安排,课程的安排方便课程查询时需要。以便及时发现错误能及时修改。下面的年级班数,可以根据实际情况而定。 本模块界面如下图所示: 主要代码如下所示: Private Sub cb_Click(Index As Integer) Me.MousePointer = 11 On Error GoTo errDeal Select Case Index Case 0: ClassCode = Trim(Combo1(0).Text) & . & Trim(Combo1(1).Text) If Len(Trim(Combo1(0).Text) 0 And Len(ClassCode) 1 Then Call displayInfo cb(1).Enabled = True End If nts自动排课系统 哈尔滨师范大学计算机科学与技术系 17 Case 1: cb_Click (0) EnableSave (True) cb(1).Enabled = False Case 2: If TrChanged Then strSql = delete * from trclass where cclasscode= & ClassCode & conn.Execute strSql Dim strTrName As String For i = 0 To sjCnt - 1 strTrName = Trim(Combo2(i).Text) If Len(strTrName) 0 Then strSql = insert into trclass values( & ClassCode & , + + Trim(Label2(i).Caption) + , + + Trim(Combo2(i).Text) + ) me.caption = strSql conn.Execute strSql End If Next i TrChanged = False rsTrAry.Requery cb(1).Enabled = False End If If ClassChanged Then conn.Execute delete * from classarray where cclasscode= & ClassCode & Dim X, Y As Integer For i = 0 To 49 Y = i Mod 5 + 1 X = Int(i / 5) + 1 If Len(Trim(Combo3(i).Text) 0 Then strSql = insert into classarray values( & ClassCode & , & Y & , & X & , & Trim(Combo3(i).Text) & ) me.caption = strSql conn.Execute strSql End If Next i ClassChanged = False nts自动排课系统 哈尔滨师范大学计算机科学与技术系 18 rsClassAry.Requery End If EnableSave (False) Case 3: For i = 0 To sjCnt - 1 Combo2(i).Text = Combo2(i).Tag Next i For i = 0 To 49 Combo3(i).Text = Combo3(i).Tag Next i EnableSave (False) cb(1).Enabled = False End Select GoTo ok errDeal: MsgBox Error Unknown ok: Me.MousePointer = 0 End Sub 4.4 课程查询模块设计 本模块主要是方便学生及教师能很快的查询,什么时间该上什么课,由哪个老师上等信息。 本模块界面图如下所示: nts自动排课系统 哈尔滨师范大学计算机科学与技术系 19 主要代码如下所示: Private Sub Command1_Click() On Error GoTo bnEnd Me.MousePointer = 11 Dim sSql As String Dim dgUse As DataGet Select Case Index Case 0: Call ClearCombo strName = LTrim$(RTrim$(Combo1.Text) If Len(strName) 0 Then sSql = strSql & & strName & Set rs = conn.Execute(sSql) If Not rs.EOF Then While Not rs.EOF dgUse.class = rs.Fields(0) dgUse.Sjname = rs.Fields(1) dgUse.Tw = rs.Fields(2) dgUse.Tn = rs.Fields(3) idx = (dgUse.Tn - 1) * 5 + dgUse.Tw - 1 nts自动排课系统 哈尔滨师范大学计算机科学与技术系 20 Combo3(idx).Visible = True Combo3(idx).AddItem (dgUse.class & 班 ) Combo3(idx).AddItem (dgUse.Sjname) Combo3(idx).Text = Combo3(idx).List(value) rs.MoveNext Wend Else MsgBox 没有得到相关数据,请检查 , vbOKOnly + vbInformation, 数据捕捉 End If Dim lcnt As Integer For lcnt = 0 To 49 If Combo3(lcnt).ListCount 2 Then Combo3(lcnt).BackColor = RGB(200, 255, 255) Combo3(lcnt).AddItem (注意有重课 ) End If Next lcnt Else MsgBox 请输入或选择一教职员姓 名 , vbInformation + vbOKOnly, 查询输入 End If End Select bnEnd: Me.MousePointer = 0 End Sub nts自动排课系统 哈尔滨师范大学计算机科学与技术系 21 第五章 系统的问题与调试 在系统的编写过程中,通常会出现大量的这样或是那样的错误,处理错误能力的大小也是评价一个程序员优秀与否的标准。程序中的错误大致分三种:语法错误、逻辑错误、意外错误。这里面语法错误是最常见的,占了错误中的大部分,但也是最容易解决的,通常在 程序的编译时,多半可以发现这些错误并将其解决,逻辑错误的解决也不难,只要真正了解程序的流程及内部的逻辑关系,也会迎刃而解。最难处理的是意外错误,通常发生此类错误时,还要查找很多与之相关的程序部分,真正了解错误的本质,还需要有较全面和扎实的专业知识。在这次的毕业设计过程中,我也遇到了很多问题。例如,当在进行查询时,如果两条查询使用的是同一个 Recordset 对象。 对于一个 VB 的初学者来说,记录集 Recordset 往往使用后不能养成随手关闭的习惯。这样就会造成上述的情况。在程序设计的初期,这样类似的错误 一直困扰者我。当两个过程使用的是同一个变量的时候,在新打开过程的时候应该先关闭掉原先的内容的 Recordset。避免这种错误的方法就是用 Close 属性关闭掉先前使用的 Recordset 对象,然后再对第二个对象进行操作。 从这次毕业设计的过程中我学到了很多有用的东西,上面这些只是在查错方面的一些技巧。严谨、负责、求实、进取的精神则是此次毕业设计给我的最大启示。任何一个微小的 Bu
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
提示  人人文库网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:JSJ06-305@VB自动排课系统设计与实现(源代码+系统)
链接地址:https://www.renrendoc.com/p-507627.html

官方联系方式

2:不支持迅雷下载,请使用浏览器下载   
3:不支持QQ浏览器下载,请用其他浏览器   
4:下载后的文档和图纸-无水印   
5:文档经过压缩,下载后原文更清晰   
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

网站客服QQ:2881952447     

copyright@ 2020-2025  renrendoc.com 人人文库版权所有   联系电话:400-852-1180

备案号:蜀ICP备2022000484号-2       经营许可证: 川B2-20220663       公网安备川公网安备: 51019002004831号

本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知人人文库网,我们立即给予删除!