朝阳中学人事劳资管理系统设计与实现

目 录 摘 要.1 关键词.1 一、需求分析.2 1、系统分析的重要性.2 2、课题介绍.3 3、课题目的及意义.4 4、主要设计功能.4 二、开发工具的选择.5 1、开发工具选择.5 2、VISUAL BASIC 编程环境介绍.5 3、使用 ACCESS2003 实现关系型数据库 .8 4、二者的结合（DBA）.9 5、硬件开发环境.10 三、系统总体规划.11 1、系统功能.11 2、系统数据流程图.11 3、数据库的概念设计.12 4、数据库的逻辑设计.14 四、系统详细设计.19 1、系统子模块功能概括.19 2、用户界面的实现.19 3、系统的特点.30 4、目前存在的问题及改进意见.30 五、系统测试.31 1、系统测试的分类.31 2、系统测试工作的特点.32 3、本节小结.32 致谢.33 参考文献.34 第 0 页（共 34 页） 朝阳中学学生信息管理系统设计与实现 西南大学 计算机信息管理 XXX 指导教师：XXX 摘摘 要要: : 随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施 在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位 要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点 相适应的管理信息系统。 本文介绍了在 Visual Basic6.0 环境下采用“自上而下地总体规划，自下而 上地应用开发的策略开发一个管理信息系统的过程。通过分析朝阳中学学校学生 管理的不足，创建了一套行之有效的计算机管理学生的方案。文章介绍了学生信 息管理系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分 主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主 要模块的算法,本系统界面友好，操作简单，比较实用。 关键词关键词：信息管理系统；学生管理；Visual Basic 应用 第 1 页（共 34 页） 一、需求分析 学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决 策者和管理者来说都至关重要,所以学生信息管理系统设计是以能够为用户提供 充足的信息和快捷的查询手段为核心内容的。一直以来人们所使用的传统的人工 管理文件信息的方式实在是太落后，它存在着许许多多的缺点，效率低、保密性 差的问题尤其突出。另外工作量稍微一大,将会有大量的文件和数据需要维护,有 些问题是人工所无法解决的。 随着科学技术的不断提高,计算机应用越来越广泛,其强大的功能已为人们所 深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算 机应用的一部分,使用计算机对学生信息进行管理,具有着手工管理所无法比拟的 优点，检索快捷、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低 等。这些显而易见的优点能够极大地提高学校管理人员的工作效率，也即提高进 行学生信息管理的效率。由于这些原因加之指导老师的睿智指导，选择这样一个 朝阳中学学生信息管理系统设计与实现的设计也就成了必然。 下面我就谈谈朝阳中学学生信息管理系统设计与实现的开发过程中所遇 到的问题及解决方法。 1、系统分析的重要性 在管理信息系统的生命周期中，紧接系统规划阶段的是系统开发。系统开发 阶段的目标是根据系统规划所确定的系统总体结构方案和项目开发计划，按拟定 的项目开发出可以运行的实际系统。这是系统建设工作中任务最为繁重、耗费资 源最多的一个阶段，这个阶段又可划分为系统分析、系统设计、系统实施三个小 阶段，构成系统开发生命周期的三个主要阶段。 系统分析阶段的主要活动有：系统初步调查、可行性研究、系统详细调查、 新系统逻辑方案的提出。这是管理信息系统开发的起始阶段，也是非常重要的阶 段。按照结构化方法严格划分工作阶段， “先逻辑、后物理”的原则，系统分析 阶段的目标，就是按系统规划所定的某个开发项目范围，明确系统开发的目标和 用户的信息需求，提出系统的逻辑方案。系统分析在整个系统开发过程中，是要 解决“做什么”的问题，把要解决哪些问题、满足用户哪些具体的信息需求，调 查、分析清楚，从逻辑上，或者说从信息处理的功能需求上提出系统的方案，即 第 2 页（共 34 页） 逻辑模型，为下一阶段进行物理方案设计、解决“怎么做”提供依据。本阶段主 要解决用户要求做什么，该问题值不值得做，是否有可行的解决办法，以防止花 费了大量人力、物力、财力和时间后，却发现问题无解，而造成浪费。若有解， 且值得做，就应该推荐一个较好的解决方案，并制定一个初步计划。由此，可见 系统分析的重要。 （2）系统分析 系统分析是程序设计中的一门重要课题，在本章中，我们将会对朝阳中学学 生信息管理系统的系统需求进行分析，分析其可行性及重要性，进而对系统的各 个模块进行分析、设计。 （3）需求分析 每所中学每年都有大量的学生入学，如何对学生的信息进行有效的管理，这 是一件比较复杂的问题。为更好的做好学生信息管理这项工作，提高工作效率， 更好的为学校的发展和一线教学服务，结合我校实际情况，自行开发一套适合我 校对学生进行管理的学生停息管理系统。在我校目前的学生信息管理中，虽然应 用了计算机进行管理，摆脱了全手工的管理方式，但由于没有一套统一的方式、 方法和软件系统支持，仍然存在着诸如数据分散、不一致、可利用率低等的问题， 以致影响了工作效率的进一步提高。目前我校的校园网络已经基本建设完毕，网 络的应用为我校的发展提供的良好的基础支持。朝阳中学学生信息管理系统的实 现，可以使学校更方便的对学生信息进行查询和录入，配合学校教学的步伐。 （4）可行性分析 通过调查分析，建立新的学生信息管理信息系统有其充分的必要性和可能性。 可以建立该信息系统的可能性具体包含了它具有经济可行性、技术可行性和社会 可行性，新系统能达到以最小的开发成本取得最佳的经济效益，开发中所需人员、 硬软件支持以及其它费用进行估算情况均满意，技术条件也能保证顺利完成开发 工作。 最终认为该系统完全可行，并根据其特点决定采用 VB6.0 作为开发工具。 2、课题介绍 中学学生信息的管理是一项既重要又繁琐的工作。为更好的做好这项工作， 提过工作效率，更好的为学校的发展和一线教学服务，决定：结合我校实际的情 况，自行开发一套自己的学生信息管理系统。 第 3 页（共 34 页） 3、课题目的及意义 (1) 开发一个学生信息管理系统意义 计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分 低廉，性能有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行 的原因主要有以下几个方面： 首先，计算机可以代替人工进行许多繁杂的劳动； 其次，计算机可以节省许多资源； 第三，计算机可以大大的提高人们的工作效率； 第四，计算机可以使敏感文档更加安全，等等。 为了解决传统学生信息的管理正面临着的这些问题，我所设计的学生信息管 理系统软件也就应运而生了。 (2) 使用计算机管理学生信息的意义 由于我国有些学校学生信息的管理水平比较低，只停留在纸介质的水准上， 这样的机制很明显地已不能适应时代的发展要求，它浪费了过多的人力及物力， 还存在一些先天缺陷。在信息时代，这种传统的管理方法被以计算机为基础的信 息管理方法取代已是大势所趋。 归纳起来，学生信息管理系统做到以下功能比较适合学校管理： 一，可以存储历届的学生信息，安全、高效； 二，系统可操作性强，能够节省人力，最好只需一到二名信息录入员； 三，查找信息速度快、效率高，可以检索有条件信息； 四，为将来学校实现网络化教育做准备。 4、主要设计功能. 本系统具备以下功能： 系统管理具体包括添加用户信息、密码修改等。 可以对学校班级进行管理，如班级浏览、添加班级、班级查询等； 可以对学生档案进行管理, 如档案添加、档案浏览、档案查询等； 可以对学生交费情况进行管理,如学生交费浏览、添加、查询等； 可以对学生课程设置,如基本课程设置； 可以对学生成绩进行管理,如考试类型设置学生成绩添加、浏览、查询等； 第 4 页（共 34 页） 二、开发工具的选择 本章主要介绍了在程序，系统开发过程中所用到的软件和硬件环境，以及各 类工具在 windows2003 环境下的安装与调试。 1、开发工具选择 编程环境的选择： 现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我 国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有： Microsoft 公司的 Visual Basic, Microsoft 公司的 Visual C, Borland 公司的 Delphi 和 Powersoft 公司的 PowerBulider 以及 Java 等。 在这些程序开发工具中，有的强调程序语言的弹性与执行效率；有的则偏重 于可视化程序开发工具所带来的便利性与效率的提高，各有各的优点和特色，也 满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有 便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必定要耗费数倍 的工夫来处理，使得原来所标榜的效率提高的优点成为了一纸空谈；相反地，如 果只强调语言的弹性，却没有便利的工具作配合，会使得一些即使非常简单的界 面处理动作，变得复杂和麻烦起来，这样也会浪费程序设计师们的宝贵时间。作 为数据库系统的开发，Visual Basic 是一个非常理想选择，它有效地避免了以上 所谈到的诸缺点。数据库技术是 MIS 设计中的重要支持技术，在 MIS 开发过程中， 如何选择数据库管理也是一个重要的问题，目前，数据库产品可谓琳琅满目，每 种产品都具有各自的特点和适用范围，因此，在选择数据库前，我慎重考虑了一 下，应数据库应用的特点及适用范围，本系统选用了数据库 Access DataBase， 开发工具当然是非 Visual Basic 莫属了。 2、Visual Basic 编程环境介绍 (1) Visual Basic 的功能简介 1、面向对象的可视化编程方法： 用传统程序设计语言设计程序时，大都是通过编写程序代码来实现用户界面， 在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察，这很 麻烦，大大影响了软件开发的效率。Visual Basic 则是应用的面向对象的程序设 第 5 页（共 34 页） 计方法(OOP)，提供了可视化的设计方法，它把程序和数据封装起来作为一个对 象，并为每个对象赋予应有的属性，使对象成为实在的东西。开发人员不必再为 界面设计而编写大量程序代码，也不需要通过一遍遍编译来修改不满意之处了。 只要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件” ， 即图形对象，并设置这些图形对象的属性，就可以轻松完成任务了。Visual Basic 会自动产生界面设计代码，程序设计人员不必再手工编写实现程序功能的 那些烦人的代码，从而可以大大提高程序设计的效率。 2、结构化程序设计语言： Visual Basic 是在 BASIC 语言的基础上发展起来的，具有高级程序设计语言 的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic 语句简单易 懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使 用灵活的调试器和编译器。 Visual Basic 是解释型语言，在输入代码的同时，解释系统将高级语言分解 翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计 Visual Basic 程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译 生成可执行文件(.EXE)，脱离 Visual Basic 环境，直接在 Windows 环境下运行。 3、事件驱动编程机制： Visual Basic 通过事件来执行对象的操作。一个对象可能会产生多个事件， 每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击 该按钮时，将产生一个“单击”(CLICK)事件，而在产生该事件时将执行一段程 序，用来实现指定的操作。 在用 Visual Basic 设计大型应用软件时，不必建立具有明显开始和结束的程 序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由 用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通 用过程来执行指定的操作，这样可以方便编程人员，提高效率。 4、访问数据库功能： Visual Basic 具有强大的数据库管理功能，利用数据控件和数据库管理窗口， 可以直接建立或处理 Microsoft Access 格式的数据库，并提供了强大的数据存 储和检索功能。同时，Visual Basic 还能直接编辑和访问其他外部数据库，如： DATABASE，FoxPro，Paradox 等，这些数据库格式都可以用 Visual Basic 编辑和 第 6 页（共 34 页） 处理。 Visual Basic 提供开放式数据连接，即 ODBC 功能，可通过直接访问或建立 连接的方式使用并操作后台大型网络数据库，如 SQL Server，Oracle 等。在应 用程序中，可以使用结构化查询语言 SQL 数据标准，直接访问服务器上的数据库， 还提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数 据库的 SQL 的编程技术，为单机上运行的数据库提供了 SQL 网络接口，可以在分 布式环境中快速而有效地实现客户/服务器(client/server)方案。 5、动态数据交换(DDE)功能： 利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的 数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动 态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic 提供 了动态数据交换的编程技术，可以在应用程序中与其他 Windows 应用程序建立动 态数据交换，在不同的应用程序之间进行通信。 6、对象的链接与嵌入(OLE)功能： 对象的链接与嵌入(OLE)将每个应用程序都看作是一个对象(object)，将不同 的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声 音、影像、图像、动画、文字等各种信息的集合式的文件。利用 OLE 技术，可以 方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程 序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来 应用程序完全相同的操作。Visual Basic 就采用了 OLE 技术。 7、动态链接库(DLL)功能： Visual Basic 是一种高级程序设计语言，不具备低级语言的功能，对访问机 器硬件的操作不太容易实现。但它可以通过动态链接库技术将 C/C+或汇编语言 编写的程序加入到 Visual Basic 应用程序中，可以像调用内部函数一样调用其 他语言编写的函数。此外，通过动态链接库，还可以调用 Windows 应用程序接口 (API)函数，实现 SDK 所具有的功能。 (2) 开发工具 Visual Basic 的使用 Visual Basic 应用由一系列对象组成，包括有函数、菜单、函数、结构和数 据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编 辑器等，这些对象和控件中都可在许多程序中重复使用，使其具有了最广大意义 上的可通用性和扩展性。 第 7 页（共 34 页） 使用 Visual Basic 的菜单编辑器即可建立菜单或者修改已经存在的菜单。 由于大家对菜单等的使用已驾轻就熟，现着重对主要控件的使用作个介绍： 首先，选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在 “控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0” ，然后， 在工具箱中增加该控件，即可实现控件的添加。 1.ToolBar 控件： ToolBar 控件与 Office97 种看到的 ToolBar 是类似的 ToolBar 就是一个可以 在窗体上浮动的工具，同时也是其他 ActiveX 的容器。通过在 ToolBar 中迁入其 它控件即可以向用户提供更好应用功能。Toolbar 又是一个工具条控件，是实现 工具条的主体。其中的按钮可以显示图像和标题，并按功能分组或加入分隔符， 还可以设置鼠标停留在其上显示的提示字符。Toolbar 还是一个控件容器且具有 Style 属性，并可以为其增加下拉按钮和平滑按钮等。 2.ImageList 控件:ImageList 用于为其他控件提供图像库，属性定义与数据 条对应的 ImageList 控件名，该控件定义工具条按钮显示的图像。 3.Align 控件:定义工具条在窗体中的位置 4.ToolTipText 控件:是字符串类型，定义控件的提示字符 5.Style 控件:定义按钮外观。 6. HotImangeList 控件:设置 ImageList 控件名，使控件定义按钮获得热点 时显示的图像。 7.DisabledImageList 控件:定义工具条按钮无效时显示的图像。 3、使用 Access2003 实现关系型数据库 (1) 数据库的概念 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和 表达信息。简而言之，数据库就是信息的集合。计算机的数据库可以分为两类： 非关系型数据库（flat-file）和关系型数据库（relational） 。关系型数据库中 包含了多个数据表的信息，数据库含有各个不同部分的术语，如记录、域等。 (2) 新建一个数据库 创建任何一个数据库的第一步是要仔细地规划数据库，设计必须是灵活的、 有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。其新建过程包括： 第 8 页（共 34 页） 1.标识需要的数据； 2.收集被标识的字段到表中； 3.标识主关键字字段； 4.绘制一个简单的数据图表； 5.规范数据； 6.标识指定字段的信息； 7.创建物理表。 (3) 修改已建的数据库 数据库的修改分为：添加、编辑和删除记录。这三种操作均可由 Visual Basic 创建的程序来完成。 (4) 实现数据库之间的联系 数据库之间的关系是指两个库之间共享一个共同的关键字值。一个链接是指 一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时 建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的链 接形式称为自链接，这种链接是指一个表被连接到它自己的一个字段，或在不同 的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、 组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数 据库中如何与其它的库建立关系。 (5) 关系型数据库的实现 Access2003 是关系数据库开发工具，数据库能汇集各种信息以供查询、存储 和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据 表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外， Access 允许创建自定义报表用于打印或输出数据库中的信息。Access 也提供了 数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其 他网络用户共享数据库。如上所述，Access 作为关系数据库开发具备了许多优 点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。 4、二者的结合（DBA） 1.与 VB 的连接： Visual Basic 提供了与底层数据库系统紧密的连接。它支持不同的关系数据 库管理系统并充分发挥每一个数据库的特长，生成独立应用或脱离服务器运行的 应用程序。Visual Basic 连接数据库的方式有两种： 第 9 页（共 34 页） 方式一，通过使用 Visual Basic 的 DATA 控件；方式二，通过使用由 Visual Basic 提供的专用的直接与数据库相连的接口。 2.JET 数据库引擎： 它提供了与数据库打交道的途径，我们是通过它以及 Visual Basic 来访问 数据库并对其进行各种操作。Visual Basic、Access 以及其他的软件产品大都是 通过共用 JET 数据库引擎的，这给用户提供了丰富的数据类型。 3.DATA 控件的桥梁作用： DATA 在数据库中的信息与将信息显示给用户看的 Visual Basic 程序之间架 起了一座桥梁。我们可以设置 DATA 控件的各个属性，告诉它要调用哪个数据库 的哪个部分。缺省情况下，DATA 控件根据数据库中的一个或多个数据表建立一个 dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着， 当原来的数据表中的内容改变了以后，该记录集合中的记录也会随之改变。 DATA 控件还提供了用来浏览不同记录的各种跳转按钮。将 DATA 控件放置在 窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。 5、硬件开发环境 所用的机器硬件最低配置是： 奔腾 3 处理器，主频 400HZ;128M 内存，10G 硬盘。 第 10 页（共 34 页） 三、系统总体规划 1、系统功能 朝阳中学学生信息管理系统是一个交互式查询系统，利用该系统学生作为只 读用户可以查询自己的信息，修改自己个人信息如进入系统的口令；学校教师作 为普通用户则可以录入自己班级学生的基本信息等，当然条件是在系统允许的情 况下；查询所教科目的学生成绩，修改系统口令。系统管理员用户作为超级用户 可管理所有用户的权限。 1.系统管理： 此项功能权限仅限于超级用户即系统管理员，实现的功能有：用户注册，角 色定义，权限分配，用户信息维护等。普通用户的帐号不拥有这些权限。 2.数据编辑： 此项权限由超级用户和给予权限的普通用户享有。由于归于系统用户的范畴， 因此，所进行的操作是对原始数据库的编辑，选中数据库中的某一表便可以进行 数据编辑，当然，修改时一定要慎之又慎，要考虑到数据的参照完整性。否则， 修改后的数据很难得出正确的查询结果。 系统功能图如图 3-1 所示： 图 3-1 系统功能图 2、系统程序运行流程图 系统程序运行流程图如图 3-2 所示： 第 11 页（共 34 页） 图 3-2 系统程序运行流程图 3、数据库的概念设计 1、数据模型设计。 根据朝阳中学学生信息管理系统的需要，设计的一个名为 xs 的数据库，xs 数据库中有 8 张表。如下： 1. 成绩信息表 cj。主要存放朝阳中学学生信息管理系统用户的信息，如学 号学期，类型，课程名称，分数等。 2. 班级信息表 class。该表存放学校班级的信息，班级，班级编号，班主任， 教室，年级，备注等。 3. 班级课程信息表 classkecheng。该表存放班级课程的信息，如课程名称， 学期学校，班级等。 4.交费信息表 jf。主要是存放学校学生交费情况的信息，如学号，学期，交 费，欠费，日期，操作员等。 第 12 页（共 34 页） 5.学生基本信息信息表 xj。存放学校学生的档案基本信息，如姓名，学号， 性别，班级，出生日期，家庭住址，邮编，备注等。 6.学费信息表 xuefei。该表存放学校每个年级的学费信息，如学校，学期， 年级，学费等 7. 用户名信息表 use。该表存放登录朝阳中学学生信息管理系统各用户的信 息，如姓名，用户帐号，用户密码等。 部分数据表相关 E-R 图如图 3-3，3-4，3-5，3-6，3-7，3-8。 图 3-3 教师 E-R 图 图 3-4 班级 E-R 图 图 3-5 课程 E-R 图 图 3-6 学生 E-R 图 第 13 页（共 34 页） 图 3-7 用户 E-R 图 关系实体图如图 3-8 所示： 图 3-8 实体联系图 4、数据库的逻辑设计 数据库采用了 Microsoft 推出的 Access 数据库，这是微软集成到 Office 中的 一个桌面数据库，能够快速方便的和 Office 的其他套件综合使用。由于 Access 具 有显著的简易性和有效性，大量的桌面数据库系统都采用 Access 作为后台数据库。 使用 Access 的好处还在于，如果你的系统扩展到 Client/Server 模式的时候，可以 使用 Microsoft 的数据库服务器软件 SQL Server，此时，程序只需要简单的修改 一下链接（ADO 的数据源）就可以，这样，为程序的平滑扩展提供了非常有力的 条件。 该系统的 xs 数据库表的具体信息如以下表格所示: (1)成绩信息表(cj) 一个中学有多个年级而一个年级又有多个班级,每个班级所学的课程也不同, 因此，如何合理存放每个学生的各个学期的成绩就至关重要 第 14 页（共 34 页） 表 3-1 成绩信息表(cj) (2)班级信息表(class) 班级数据库将对信息的管理具体到班级，在一个较小的范围内实现对学生信 息的管理，这对于学校管理是具有实际意义的。这是学生信息管理中最小范围的 管理，已不需要用学号作为标识，可对一些更具体的信息进行管理，实现更细化 的管理。该表就可实现对学生上课信息的管理，例如上课教室等。 表 3-2 班级信息表 字段名称字段类型字段宽度是否可空 年级文本16否 班级文本20否 教室文本5否 班主任文本8否 备注备注无是 (3)班级课程信息表(classkecheng) 该数据表对不同年级、班级、根据学期的不同对每个学期每个班上所学课程 对其进行管理。 表 3-3 班级课程信息表 字段名称字段类型字段宽度是否可空 年级文本16否 学校文本8否 学期文本50否 课程名称文本20否 (4)交费信息表(jf) 该数据表对学生各学期交费信息的管理，由于每个年级每个学期的所交学费 字段名称字段类型字段宽度是否可空 学号文本10否 学期文本50否 类型文本16否 课程名称文本20否 分数数字单精度否 第 15 页（共 34 页） 的信息不同，此表可以根据学生是哪个年级每一学期的交费情况进行管理。 表 3-4 交费信息表 字段名称字段类型字段宽度是否可空 学号文本5否 学期文本50否 交费货币小数位数自动否 欠费货币小数位数自动否 日期日期/时间自动否 操作员文本10否 (5)学生基本信息表(xj) 为方便管理，我们采用学号作为唯一的标识。因为在学校中每个学生都有一 个唯一标识身份的代码学号，用它管理简便易行。该表共有学号、姓名、性别、 班级、出生年月、家庭住址、邮政编码、联系电话、入学时间、备注十个字段， 学号作为主键。 第 16 页（共 34 页） 表 3-5 学生基本信息表 字段名称字段类型字段宽度是否可空 学号文本5否 姓名文本8否 性别文本2否 班级文本10否 出生年月日期/时间自动否 家庭住址文本30否 邮政编码数字长整型否 联系电话数字长整型否 入学时间日期/时间自动否 备注备注无是 (6)学费信息表(xuefei) 该数据表是对学生各学期各年级交学费信息的管理，由于入学时间、学期的 不同，其交费信息也不相同，故要设立专门的表对其进行管理。 表 3-6 学费信息表 字段名称字段类型字段宽度是否可空 年级文本16否 学校文本20否 学期文本40否 学费货币小数位数自动否 (7)用户名信息表(use) 该表主要实现用户注册、角色定义、权限分配和用户信息维护等功能，普通 用户的帐号是否有效。各字段的含义 Username(用户名)、password(密码)用来进 入系统时输入，admin(管理员)、readonly(自由访问者)、根据不同权限来确定 可实现的不同功能，超级用户（管理员）可实现对所有功能的访问，普通用户其 权限由超级用户来指定，只读用户只能浏览和查询，不能修改和添加。 第 17 页（共 34 页） 表 3-7 用户信息表 字段名称字段类型字段宽度是否可空 username文本20否 password文本20否 Admin文本2否 readonly文本2否 ptuser文本2否 第 18 页（共 34 页） 四、系统详细设计 1、系统子模块功能概括 该学生信息管理系统包括系统管理模块、学生信息管理模块。其中学生信息 管理模块又包括班级管理模块、学生档案管理模块、学生交费管理模块、课程管 理模块、成绩管理模块。 本系统具有如下功能： 系统管理：包括添加用户，修改密码，重新登陆，退出； 班级管理：包括班级浏览，添加班级，班级查询； 学生信息管理：包括信息添加，信息浏览，信息查询； 学生交费管理：包括基本学费设置，学生交费浏览，学生交费添加，学生交 费查询； 课程管理：包括基本课程设置，班级课程设置； 成绩管理：包括考试类型设置，成绩添加，成绩浏览，成绩查询； 打印报表： 包括学生档案信息报表，学生班级信息报表，学费信息报表； 2、用户界面的实现 (1)登录界面 首先，系统的界面是至关重要的。它是与用户沟通的桥梁，用户工作时要时 时面对它，所以界面一定要简洁、直观，操作简单。本系统界面的登录口令画面 如图 4-1 所示，根据选择的相应用户和对应的口令进入系统，进行相应的操作。 若密码错误，则弹出“密码错误”对话框。登陆界面如图 4-1 所示： 图 4-1 登录界面 第 19 页（共 34 页） 可以使用下面程序完成： Dim mrc As ADODB.Recordset txtsql = select username from use where username= & Trim(Text1.Text) & Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then MsgBox 用户名错误！, vbExclamation + vbOKOnly, 警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit Sub End If username = mrc.Fields(0) txtsql = select username from use where password= & Trim(Text2.Text) & Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then MsgBox 密码错误！, vbExclamation + vbOKOnly, 警告 Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Exit Sub 登录流程图 4-2： 图 4-2 登录流程图 (2)系统的主界面 第 20 页（共 34 页） 密码无误，正确登录后会看到主界面。 主界面如图 4-3 所示： 图 4-3 主界面 (3)系统管理界 点击系统管理后看到的界面如图 4-4 所示： 图 4-4 系统管理界面 若是超级用户（管理员）则可以使用添加用户功能，在此可以添加用户的同 时给用户赋予权限。超级用户是权限最高的用户，他可以享有系统的所有功能。 第 21 页（共 34 页） 只读用户权限最低，只可以浏览系统的某些内容，而不能参与修改。普通用户可 以根据超级用户赋予的权限进行权限栏中的任意一项或多项功能。普通用户和只 读用户都没有添加用户功能。作为普通用户在进行未赋予权限的功能和只读用户 在进行“写”操作时，会弹出对话框“对不起，你没有管理本功能的权限，请与 管理员联系！” 学生信息管理部分包括班级管理、学生信息管理、学生交费管理、课程管理、 成绩管理。而每一部分都包括对该部分信息的添加、浏览、查询、修改、删除。 其实现过程是相似的。我们以朝阳中学学生信息管理为例，介绍其实现过程。 (4)学生档案管理界面 点击后出现如图 4-5 界面。 图 4-5 学生档案管理界面 在学生档案管理的添加界面中，我们先通过变量传递得到输入的学号，然后 进行判断。 首先程序先对输入的学号进行判断，若已存在，则给出提示信息，若不存在， 则显示所要添加的内容。输入学生档案后，我们将档案加入到数据库中，如图 4- 6。而对于记录删除，可以使用下面程序完成： txtsql1 = select * from xj where 学号= & Trim(Text1(0).Text) & Set mrc = ExecuteSQL(txtsql1) If modi = False Then If mrc.EOF = False Then sss = MsgBox(已经存在该学号的记录,学号不能重复！, vbExclamation + vbOKOnly, 警告) Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) 第 22 页（共 34 页） mrc.Close Exit Sub 图 4-6 学生档案管理的添加界面 另外，对于记录查找，可以使用下面程序来完成： Dim aa As Integer txtsql = If Trim(Text1(0).Text) Then aa = 1 If txtsql = Then txtsql = xj.学号= & Trim(Text1(0).Text) & Else txtsql = txtsql & and xj.学号= & Trim(Text1(0).Text) & End If End If If Trim(Text1(1).Text) Then aa = 1 If txtsql = Then txtsql = xj.姓名= & Trim(Text1(1).Text) & Else txtsql = txtsql & and xj.姓名= & Trim(Text1(1).Text) & 第 23 页（共 34 页） End If End If If Trim(Text1(2).Text) Then aa = 1 If txtsql = Then txtsql = xj.班级= & Trim(Text1(2).Text) & Else txtsql = txtsql & and xj.班级= & Trim(Text1(2).Text) & End If End If If Trim(Text1(3).Text) Then aa = 1 txtsql = txtsql = xj.姓名 like % & Trim(Text1(3).Text) & % End If If aa = 0 Then ss = MsgBox(你至少要输入一个条件以上才能查询！, , 警告) Text1(0).SetFocus Exit Sub End If Dim str As String str = select * from xj where & txtsql Dim mrc As ADODB.Recordset Set mrc = ExecuteSQL(str) If mrc.EOF = True Then zzz = MsgBox(对不起，没有此学生的档案记录！, vbOKOnly, 查询) Form4.ZOrder (0) Form4.Text1(0).SetFocus Exit Sub 对于记录修改，可以使用下面程序： If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) = Then 第 24 页（共 34 页） sssss