学生信息管理系统设计（附程序代码）VB+access

《学生信息管理系统设计（附程序代码）VB+access》由会员分享，可在线阅读，更多相关《学生信息管理系统设计（附程序代码）VB+access（83页珍藏版）》请在装配图网上搜索。

1、XXXXXXX大 学毕 业 设 计 （ 论 文 ）题目：_ 专 业： 姓 名： 指导老师： 日 期： 2学生信息管理系统设计【摘要】学生信息管理系统是典型的管理信息系统(MIS)，其开发主要包括后台数据库的建立和维护，以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的数据库，而对于后者则要求应用程序功能完备，操作简单，使用方便等特点。经过分析，本设计使用Microsoft公司的Access 2003作为后台数据库，前台采用Visual Basic 6.0开发工具，利用其提供的各种面向对象的编程技术，尤其是数据库设计器这一方便而简洁的操纵数据库的智能化对象，首

2、先在短时间内建立系统应用原型，然后对初始原型系统进行功能扩展，不断修正和改进，直到形成用户满意的可行系统。【关键词】管理信息系统；Visual Basic 6.0；Access 2003；面向对象；学生信息管理目 录【摘要】I【关键词】I前 言1第1章 需求分析21.1 系统开发的背景分析21.1.1 国外现状21.1.2 国内现状21.2 系统开发的可行性分析21.2.1 管理上的可行性21.2.2 社会上的可行性31.2.3 经济上的可行性31.2.4 技术上的可行性31.2.5 可行性分析结论31.3 系统开发的需求分析4第 2 章 系统总体设计52.1 系统目标设计52.2 系统开发设

3、计思想52.3 系统总体功能设计52.3.1 实现对学生的基本信息管理52.3.2 实现学生综合素质测评成绩管理62.3.3 本系统功能结构图62.3.4 本系统计算机处理的业务流程图62.4 系统基本结构设计82.4.1 系统登录模块。82.4.2 用户管理模块。92.4.3 MDI窗体（系统主窗体）模块。92.5 本系统数据库设计92.5.1 数据库表结构102.5.2 数据库数据表关系结构图152.6 本系统的运行环境15第 3 章 系统详细设计173.1 Visual Basic 6.0简介173.2 Visual Basic 6.0窗口环境183.3 Microsoft Access

4、 2003简介193.4 数据库表设计213.5 系统功能的实现213.5.1 登录窗体213.5.3 系统主窗体233.5.4 学生信息设置子窗体253.5.5 学生信息查询主窗体263.5.6 德育成绩设置子窗体283.5.7 智育成绩设置子窗体303.5.8 体育成绩设置子窗体323.5.9 能力成绩设置子窗体343.5.10 综合成绩设置子窗体363.5.11 综合成绩查询子窗体393.5.12 课程信息设置子窗体443.5.13 德育类型设置子窗体463.5.14 能力类型设置子窗体473.5.15 系统用户管理子窗体493.6 本系统特色功能简介513.6.1 动态模糊查询功能51

5、3.6.2 打印功能54第 4 章 调试与维护574.1 调试574.2 维护57第 5 章 结束语58第 6 章 致谢辞59附录一：参考文献60附录二：程序源代码6178前 言随着计算机技术的发展，软件规模也日益庞大，软件开发也日益复杂，随之而来的问题却是，更多系统要求都无法实现，达不到管理的目的，究其根本，相当多的软件失败是由于需求不明确、不确定导致的。众所周知，在目前众多的应用系统软件中，数据库应用系统软件占据了80% 的比重，也就是说，在我们的管理与日常生活中，大多数管理都可以通过数据库应用系统来进行。如今，高校信息化管理已成为必然趋势。为适应本校学生综合信息管理的需求，实现应用计算机

6、对学生的基本信息以及综合素质测评信息进行管理，使学生综合信息管理实现简洁化、自动化、计算机化，开发一个相应的学生信息管理系统将会是一个具有理论和实际意义的明智之举。第1章 需求分析1.1 系统开发的背景分析1.1.1 国外现状随着科学技术的不断提高，计算机科学技术日渐成熟，其强大的功能已为人们深刻认识。使用计算机对信息进行管理,具有手工管理所无法比拟的优点，例如检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高信息管理的效率。计算机在管理中的应用开始于1954年，当时美国首先用计算机处理工资单，40多年来，计算机在处理管理信息方面发展迅速，例如，60年代

7、美国计算机在管理中应用项目不到300项，到了1975年达到2670项。其中几乎所有的大中专院校均以采用了计算机化的管理模式。1.1.2 国内现状 我国在全国范围内推广计算机在管理中的应用，是从70年代末开始的，虽然起步较晚，但是近几年发展却较快，特别是微型计算机的出现和普及为电子信息处理提供了物美价廉的手段，对于推动我国管理信息处理的现代化建设起了重要的作用。经过30年的改革开放，越来越多的学校加大在管理系统上投资的举动，足以说明这一趋势。学生信息管理系统的应用是一种趋势，必将发挥出越来越大的作用！ 尽管现在很多学校都有计算机，但是尚未用于信息管理，没有发挥出计算机应有的效力，资源闲置比较突出

8、，这些都可以成为本信息管理系统的开发的基本环境。1.2 系统开发的可行性分析1.2.1 管理上的可行性本系统的开发，将实现两大功能目标：一是实现学生的基本信息管理，以取代手工记录的纸质管理模式，这将大大减轻教师、学生干部等相关工作人员的工作负担，同时节省时间，提高工作效率；二是实现学生综合素质测评的管理，以取代传统的查阅大量原始资料后手工填制综合素质测评表的费时费劲的工作方法，使每学期的学生综合素质测评工作能够高效地进行，所以本系统的设计开发在管理上是可行的。1.2.2 社会上的可行性由于我国的计算机起步较晚，用计算机来实现对大量数据的管理相对不够完善，虽然目前已经出现了很多管理学生信息的系统

9、，但是往往存在着用户界面不友好，后台数据混乱，不便于开发新功能等问题。鉴于目前本校每一学期的学生综合素质测评管理和学生信息管理还停留在纸质模式的阶段。每个学期伊始的综合素质测评成绩都是学生自己根据成绩单的成绩记录来填制综合素质测评表、进行有关计算然后上交班干部，再由班干部进行核对、统计后而得到的，这样做不仅花费了学生的大量时间还难免会出现一些失误，工作效率很低，而且不能及时地满足学生们对信息化管理的需求。所以本系统的设计开发在社会上是可行的。1.2.3 经济上的可行性经济上预期估计的费用包括主机、计算机外围设备、系统开发及将来系统投入运行后的管理维护费用等。随着现代计算机科学技术的不断进步，电

10、脑品质上升且价格降至较低价位，硬件上的优势有利于本系统的开发与投入运行。由本系统在处理学生信息管理上所带来的人力的节省可以使人才资源得到更加合理的利用；财力的节省可加快资金周转速度，从而降低成本；存储空间的节省以及数据保管的便利进一步降低了管理费用，所以本系统的设计开发在经济上是可行的。1.2.4 技术上的可行性当前的软、硬件技术都在不断的发展进步，这对本系统的开发来说是非常有利的。软件要求易学，界面友好，容易掌握。开发技术上使用可视化的面向对象程序设计语言Visual Basic和数据库管理工具Access开发，Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解并

11、翻译成计算机可以识别的机器指令，并可以判断每条语句的语法错误。在整个程序设计好之后，可以编译生成可执行文件（.EXE），脱离Visual Basic环境，直接在Windows系统下运行。硬件的配置要求也不太高，本校具备的计算机已经完全可以满足需求，再加上本次设计指导老师的悉心指导和相关参考文献，所以本系统的设计开发在技术上是可行的。1.2.5 可行性分析结论此学生信息管理系统的使用对象是教师和学生，功能目标就是实现学生的基本信息管理以及综合素质测评管理，涉及到的数据资料比较容易获取，且每个数据具有较强的关联性，所以本系统不算复杂，通过以上管理上、经济上、技术上等的可行性分析，本系统的设计开发实

12、现具备了可行性。1.3 系统开发的需求分析当代是一个信息化的时代，本校已经将信息化建设融入到了校园建设当中，拥有了多种信息管理系统，例如公众应用系统、本科生应用系统、教师应用系统等。本人作为一名计算机专业的学生，开发一个学生信息管理系统目的是使本校拥有一个兼学生基本信息管理与综合素质测评管理于一体的信息管理系统，原因是： 本校的学生信息管理置于本科生应用系统之下。每个在校大学生，不论其来自哪个系哪个专业都是使用这个系统来注册自己的基本信息、这样方便学院管理层对全院学生进行信息管理。目前本系还没有一个能够管理本系学生基本信息的系统。 每一学期的综合素质测评还停留在纸质模式的阶段。现阶段的综合素质

13、测评都是学生自己根据成绩单的成绩记录来填制综合素质测评表、进行有关计算然后上交班干部，再由班干部进行核对、统计后而得到的，这样做不仅花费了学生的大量时间还会难免会出现一些失误。 综合素质测评不仅包括了学生的智育、还有德育、体育、能力等这些需要考核的项目，这样对学生的综合素质测评就显得更全面，但同时也使该项工作变得繁杂。本系统从以上这些方面出发，力求能够使之成专门针对本系的具有学生基本信息管理与综合素质测评管理为一体的综合信息管理系统。这样既是对自己所学专业知识的一次检验，也是希望为本系的信息化建设贡献了自己的一份绵薄之力。第 2 章 系统总体设计本系统由前台和后台模块构成，采用C/S（Clie

14、nt/Server,客户端/服务器）结构设计。C/S结构的优点：应用系统独立、系统维护简单，用户界面一致；对于应用程序的修改、功能增删或者升级等非常方便；对于客户端没有特别的要求，无须具备运行平台也可，本系统发布时，可将其所需组件一起打包发布，安装后即可使用，而且使用方便。 2.1 系统目标设计通过设计并实施本学生信息管理系统，使本系的学生综合信息管理工作系统化、规范化、自动化，从而达到提高教学管理效率的目的。2.2 系统开发设计思想系统应符合学生信息管理的规定，满足学生信息日常管理的工作需要，并达到操作过程中的直观、方便、实用、安全等要求。 使用当今比较流行的软件工程开发和设计思想，使用自顶

15、向下，逐层细化的方式求得各子系统。然后设计窗体、摆放控件、设计代码、调试运行等等。 使用MDI（多文档窗口窗体）技术集成各子窗体，形成了多文档窗体界面。使用菜单和工具条上的命令按钮图标调用各子系统的功能模块。 使用可视化面向对象的程序设计语言Visual Basic 6.0和数据库管理工具Access 2003开发。主窗口使用了类似于Word的多文档窗口。通过ADO对象的数据环境控件连接Access数据库，具有一般数据库管理系统的添加、删除、修改和查询等基本功能，界面友好，操作简单。2.3 系统总体功能设计2.3.1 实现对学生的基本信息管理 能够实现对学生基本信息进行添加、修改、删除、查询和

16、打印等功能。 能够实现对学生的教育经历信息的添加、修改、删除和查询等功能。 能够按学号、姓名等对学生的基本信息进行检索并将检索结果显示在屏幕上。 要求有错误提示功能，例如性别只能输入男女，输入错误则提示重新输入。 如果查询不到相应的信息应提示用户。实现学生的基本信息管理，这是根据管理学生信息的需要，将各个学生的基本信息分类，开发不同的子功能模块，如有基本信息模块、教育经历信息模块等。此功能的实现旨在取代手工记录的工作效率低，错误多，不利于存储和管理等的劣势而发挥无纸化管理工作的高效率，减轻教师以及学生干部的工作负担，使学生基本信息管理简洁化、自动化和计算机化。2.3.2 实现学生综合素质测评成

17、绩管理 根据教务处提供的上学期各门课程成绩和体育成绩进行学生的智育和体育成绩登记。 根据班上同学提供的考勤记录和奖惩情况进行登记。 根据宿管中心的舍情通报进行登记。 能根据以上信息计算所有同学的综合素质测评成绩。 根据专业奖学金评定办法提出各班级获得奖学金的名单。 打印学生的综合素质成绩单和智育成绩单实现学生综合素质测评管理功能，就是根据本校学生手册的评定方法，对学生的德育、智育、体育以及能力四个方面进行综合评定。在评定中对学生的德育、智育、体育以及能力成绩进行相应的考核，再根据该综合素质测评成绩对学生颁发相应的奖助学金。本系统对学生的德育、智育、体育、能力等成绩进行智能化管理，以满足我系学生

18、在计算机上进行综合素质测评的需求。该系统功能的实现可以有效的帮助教务处管理学生成绩，方便学生查询自己的成绩，计算自己的综合素质测评成绩。同时为优秀三好学生、优秀班干及各种奖学金的评定等提供了依据。2.3.3 本系统功能结构图如图2.1所示。2.3.4 本系统计算机处理的业务流程图如图2.2所示。学生综合信息管理系统综合素质测评管理学生基本信息管理基本信息设置系统信息维护体育成绩设置德育成绩设置智育成绩设置基本信息查询能力成绩设置综合素质测评成绩综合成绩打印智育成绩打印图2.1 系统功能结构图登录 成功综合成绩查询能力成绩设置智育成绩设置学生信息设置德育类型设置能力类型设置系统用户管理年级，班级

19、设定学生信息查询学生用户管理德育成绩设置体育成绩设置综合成绩设置课程信息设置系统登录(身份识别)开始系统主窗体(MDI)窗体图2.2 系统计算机处理的业务流程图2.4 系统基本结构设计通过对本系统功能需求的了解，明确了系统的主要功能，本系统主要包含以下功能模块，分别是：2.4.1 系统登录模块。本模块所实现的功能为： 用户身份验证 登录提示对话 登录成功时的连接2.4.2 用户管理模块。本模块所实现的功能为： 用户基本信息设置 用户信息查询 添加、修改、删除、保存用户信息2.4.3 MDI窗体（系统主窗体）模块。本模块中又包含了以下几个子模块，分别是： 学生信息设置、查询模块 德育类型设置，德

20、育成绩设置、查询模块 课程信息设置、查询模块 智育成绩设置、查询、打印模块 体育成绩设置、查询模块 能力类型设置、查询模块 能力成绩设置、查询、打印模块 综合测评成绩设置、查询、打印等模块以上模块所实现的功能就是本系统的主要功能，实现了对学生的基本信息管理和综合素质测评成绩管理等相关的管理功能。2.5 本系统数据库设计数据库技术在计算机软件邻域研究中一直是非常重要的主题，从20世纪60年代到现今，50多年来数据库技术得到了迅速发展，并已形成较为完整的理论体系和实用系统。所以在通俗的意义上，数据库不妨理解为存储数据的基地。在数据库应用系统开发之前，对开发数据库的基本概念应当了解，对数据库的结构、

21、开发数据库应用程序的步骤、开发体系及方法都应当有相当清晰的了解和认识。开发的主要过程为：理解用户的需求，然后，把它们转变为有效的数据库设计。把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用体系。数据库数据由DBMS（数据库管理系统）处理，DBMS则由开发人员和用户通过应用程序直接或间接地使用。在系统开发的过程中，最重要的环节就是数据库的结构设计。一个好的数据库结构设计会减少数据库的存储量，数据的完整性和一致性比较高，并且使系统具较快的响应速度，从而提高管理效率。一个成功的信息管理系统，是建立在许多条件之上的，而数据库技术就是其中的一个非常重要的条件和关键技术。所以我们必须进行

22、数据库需求分析，进行数据库需求分析的主要目标就是为了确定基本数据、数据结构以及数据处理的流程等。本系统数据库设计的表如图2.3所示：图2.3 本系统数据库表2.5.1 数据库表结构本系统共涉及到13张数据表，分别是系统用户信息表、学生用户信息表、学生信息表、德育类型设置表、德育成绩设置表、缺勤扣分设置表、课程信息设置表、智育成绩设置表、体育成绩设置表、能力类型设置表、能力成绩设置表、综合素质测评成绩设置表、访前设设置表等，其各种表的结构分别如下所示： 系统用户信息表列名数据类型长度允许空编号自动编号长整形否用户名文本50否用户密码文本50否用户性别文本10否用户身份文本50否真实姓名文本50否

23、联系电话文本50否所属部门文本50否记住用户名文本10否记住密码文本10否 学生用户信息表列名数据类型长度允许空编号自动编号长整形否帐号文本50否密码文本50否信息录入者文本50否信息录入时间文本50否 学生信息表列名数据类型长度允许空编号自动编号长整形否学号文本20否姓名文本20否性别文本10否年龄数字整形否民族文本50否籍贯文本50否通信地址文本100否联系电话文本20否备注备注无限制是所属年级文本50否所属班级文本50否信息录入者文本50否信息录入时间文本50否 德育类型设置表列名数据类型长度允许空编号自动编号长整形否代码文本50否名称文本50否分类文本50否信息录入者文本50否信息录入

24、时间文本50否 德育成绩设置表列名数据类型长度允许空编号自动编号长整形否学号文本50否姓名文本50否德育名称文本50否德育成绩数字单精度型否所属年级文本50否所属班级文本50否信息录入者文本50否信息录入时间文本50否 缺勤扣分设置表列名数据类型长度允许空编号自动编号长整形否学号文本50否姓名文本50否缺勤名称文本50否缺勤周次文本50否缺勤次数数字单精度型否所属年级文本50否所属班级文本50否信息录入者文本50否信息录入时间文本50否 课程信息设置表列名数据类型长度允许空编号自动编号长整形否课程编号文本50否课程名称文本100否课程类型文本20否课程学分数字单精度型否课程描述备注无限制是所属

25、年级文本10否所属班级文本10否信息录入者文本50否信息录入时间文本50否 智育成绩设置表列名数据类型长度允许空编号自动编号长整形否学号文本50否姓名文本50否课程名称文本50否得分数字单精度型否所属年级文本10否所属班级文本10否信息录入者文本50否信息录入时间文本50否 体育成绩设置表列名数据类型长度允许空编号自动编号长整形否学号文本50否姓名文本50否基本得分数字单精度型否加分数字单精度型否减分数字单精度型否所属年级文本10否所属班级文本10否信息录入者文本50否信息录入时间文本50否 能力类型设置表列名数据类型长度允许空编号自动编号长整形否代码文本50否名称文本50否分类文本50否信息

26、录入者文本50否信息录入时间文本50否 能力成绩设置表列名数据类型长度允许空编号自动编号长整形否学号文本50否姓名文本50否能力名称文本50否能力成绩数字单精度型否所属年级文本10否所属班级文本10否信息录入者文本50否信息录入时间文本50否 综合素质测评成绩设置表列名数据类型长度允许空编号自动编号长整形否学号文本50否姓名文本50否德育数字单精度型否智育数字单精度型否体育数字单精度型否能力数字单精度型否综合数字单精度型否名次数字长整形是奖学金级别文本10是所属年级文本10否所属班级文本10否信息录入者文本50否信息录入时间文本50否 访前设置表列名数据类型长度允许空编号自动编号长整形否年级文

27、本50否班级文本50否2.5.2 数据库数据表关系结构图如图2.3所示。2.6 本系统的运行环境为了保证本系统运行的效率和可靠性，客户机的软硬件配置要求不是很高。具体要求如下：操作系统环境：Windows95/98/2000/2003/XP硬件配置：CPU：500MHZ以上，内存：128M以上，硬盘：5GB以上建议使用分辨率：1024*576以上图2.3 数据库数据表关系结构图第 3 章 系统详细设计3.1 Visual Basic 6.0简介Visual Basic是一种可视化的、面对对象的和使用事件驱动方式为一体的结构化高级程序设计开发工具，可用于开发Windows环境下的种类应用程序。它

28、简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点： 可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的

29、实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种各样的“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现系统功能的那部分代码，从而可以大大提高程序设计的效率。 面向对象的程序设计：4.0版以后的Visual Basic支持

30、面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。 结构化程序设计语言：Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然

31、语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。 Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。3.2 Visual Basic 6.0窗口环境启动Visual Basic集成开发环境后，即可以看到主窗口的顶部，该窗

32、口的顶部由标题栏、菜单栏和工具栏等组成。 标题栏和菜单栏标题栏是屏幕最顶端的水平条，他显示的是应用程序的名字。启动VB后，标题栏中显示的信息是“工程1-Microsoft Visual Basic设计”，设计表明当前的工作状态是“设计阶段”。菜单栏位于标题栏的下面，菜单栏中的菜单命令提供了开发、调试、保存应用程序所需要的工具。菜单中包含了所有的VB提供的功能的选项，而其中一些常用的功能或操作选项则被提取出来放在了“便捷工具按钮”中。 工具栏工具栏位于菜单栏的下面，它以图标的形式提供了部分常用菜单命令的功能，通过鼠标点击这些快捷按钮可以加快程序开发的速度。 VB6.0提供了4种工具栏，包括编辑、

33、标准、窗体编辑器和调试，并可根据需要定义用户自己的工具栏。下图3.1标出了常见的工具按钮的作用:图3.1 VB6集成开发环境工具栏 窗体设计器窗体设计器窗口简称窗体（Form）,是应用程序最终面向用户的窗口。他对应于应用程序的运行结果，各种图形、图像、数据等都是通过窗体或窗体中的控件显示出来的。当打开一个新的工程文件时，VB建立一个空的窗体，并命名为FormX（X1，2，3.） 工程管理器用来管理开发一个VB程序所需要的各种类型的窗体和模块，含有建立一个应用程序所需要的文件的清单。在工程管理窗口中还有“查看代码”“查看对象”和“切换文件夹”三个按钮。当我们点击“添加窗体”便捷工具按钮后，左图的

34、“VB工程管理器”中就会显示出新添加的窗体，这也就是“VB工程管理器”的功能，它使我们从总体上把握程序开发的各个部分。 属性窗口在属性（Properties）窗口中你可以改变窗体上用户界面元素的特性，或称做属性。属性是用户界面中对象性质的描述。 窗体布局窗口调整程序运行时，程序窗体在屏幕中的初始位置，把鼠标移到左图屏幕中的窗体上，这时鼠标会变成移动形状，拖动窗体，就设置好了运行时此窗体的位置。 工具箱工具箱实际上是一个窗口，称为工具箱窗口，可以通过单击其右上角的“X”关闭，如果想打开工具箱，则可以执行“视图”菜单中的“工具箱”命令或单击标准工具栏中的“工具箱”按钮。 代码编辑区域“代码编辑区域

35、”，当我们在“窗体设计区域”双击鼠标，就能弹出这个区域，可以看到一行行的VB程序显示在其中，我们可以修改，写入程序代码，来让程序实现一定的功能，它是整个程序设计的关键。3.3 Microsoft Access 2003简介Microsoft Access 2003是一种关系型数据库管理系统 (RDBMS)。Access数据库是Microsoft Office 2003套件的Professional版和Developer版的一个组件，不需要单独安装。 与其他关系型数据库一样，MS Access充当“后端”，不但能存储和管理数据，还能编写数据库管理软件，用户可以通过Access提供的开发环境及工具

36、方便地构建数据库应用程序，大部分是直观的可视化的操作，无需编写程序代码，是一种使用方便、功能较强的数据库开发工具。Access数据库具有以下的特点： 功能比较单一，不提供数据发布、分布式事务处理等操作，因此比SQL Server数据库需要的内存和磁盘资源要少。 Access数据库一般适合于桌面应用程序，以及中小型企业的数据库管理系统应用。Access应用程序的可执行文件为：MSACCESS.EXE，并且该文件的位置与PowPoint、Excel等都在同一个目录下，例如Office 2003，在目录.Office安装目录Office10下可以找到该文件。要运行Access，可以双击文件MSACC

37、ESS.EXE，也可以在“开始”菜单上以快捷方式启动，启动后的界面如下图3.2所示：图3.2 access启动后的界面Access数据库由七个对象组成：表、查询、窗体、报表、页、宏以及模块。表(Table) 表是数据库的基本对象，是创建其他6种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。查询(Query)查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。 窗体(Form)窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。 报表(Report)报表的功能是将数据库中的数据分类汇总

38、，然后打印出来，以便分析。 页(Page) 也叫数据访问页。是连接到数据库的 Web 页，在数据访问页中，可以查看、添加、编辑和操作存储在数据库中的数据。数据访问页还可以包括其他来源的数据，例如 Microsoft Excel。宏(Macro)宏相当于DOS中的批处理，用来自动执行一系列操作。Access列出了一些常用的操作供用户选择，使用起来十分方便。模块(Module)模块的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。3.4 数据库表设计首先创建一个名为“stu.mdb”的数据库，保存在和系统工程源文件同一个目录下的“数据库”文件夹中，然后根据本系学生综合

39、信息管理系统的一般工作过程和用户需求的研究分析，“学生信息表”中包括编号、学号、姓名、性别、年龄、民族、籍贯、通信地址、联系电话、备注等这些字段，则可使用设计器创建表，输入上述字段名称，并设好数据类型，即可得到“学生信息设计表”，由此表就可生成“学生信息表”了。其他数据表的创建于此方法类似，数据表结构图如上所述。3.5 系统功能的实现3.5.1 登录窗体登录窗体是一个系统必不可少的界面之一，其主要功能在于验证系统用户的合法性，使合法用户能够顺利的使用系统，而将非法用户拒之门外。本系统记录界面如下图3.3所示：图3.3 系统登录窗体本窗体点击“登录”按钮时所执行的代码如下：Private Sub

40、 CmdOk_Click()If Trim(TxtName) = Then MsgBox 请先输入用户名！, vbCritical, 用户登录 TxtName = TxtName.SetFocus Exit SubEnd IfIf Trim(TxtPwd) = Then MsgBox 请先输入用户密码！, vbCritical, 用户登录 TxtPwd = TxtPwd.SetFocus Exit SubEnd IfD1.RecordSource = select * from 用户信息 where 用户名= & Trim(TxtName) & D1.RefreshIf D1.Recordse

41、t.RecordCount 1 Then MsgBox 您输入的用户名错误！, vbCritical, 用户登录 TxtName.SetFocus Exit SubEnd IfIf Trim(D1.Recordset.Fields!用户密码) Trim(TxtPwd) Then MsgBox 您输入的用户密码错误！, vbCritical, 用户登录 TxtPwd = TxtPwd.SetFocus Exit SubEnd If登录成功strUser = Trim(TxtName)strSF = Trim(CmbSF)MsgBox 欢迎使用本系统！, vbInformation, 登录成功Un

42、load MeFrmFirst.ShowEnd Sub3.5.3 系统主窗体系统主窗体是整个系统的核心，在这里，几乎将系统所有的功能都囊括其中。本系统主窗体采用MDI（多文档窗口窗体）界面设计，可以在当中很方便的打开，或者关闭各种系统子功能窗体，而在操作系统任务栏中却只存在系统主窗体一个任务图标。另外，本系统主窗体还采用了几个VB的内置函数，很容易的就实现了当中子窗体的各种排列功能，如层叠排列，水平平铺，垂直排列等等，使系统界面更友好，使用更方便。本系统主界面效果图分别如图3.5、图3.6所示。图3.5 系统主窗体图3.6 层叠排列子窗体本窗体实现以上功能的部分特色代码如下：Private S

43、ub mmuCascade_Click()IsSP = FalseIsCZ = FalseIsCD = TrueMe.Arrange vbCascade 层叠排列子窗体End SubPrivate Sub mmuTileH_Click()IsCD = FalseIsCZ = FalseIsSP = TrueMe.Arrange vbTileVertical 水平平铺子窗体End SubPrivate Sub mmuTileV_Click()IsCD = FalseIsSP = FalseIsCZ = TrueMe.Arrange vbTileHorizontal 垂直平铺子窗体End Sub3

44、.5.4 学生信息设置子窗体本子窗体模块实现了对学生相关信息的设置功能，包括对相关记录的添加、修改、删除等功能。如下图3.8所示：图3.8 学生信息设置子窗体本窗体实现“保存记录”时所执行的部分代码如下：With D1.Recordset .Fields!学号 = Trim(TxtNo) .Fields!姓名 = Trim(TxtName) If Opt(0).Value = True Then .Fields!性别 = 男 Else .Fields!性别 = 女 End If .Fields!年龄 = Trim(TxtAge) .Fields!民族 = Trim(TxtMZ) .Fields

45、!籍贯 = Trim(TxtJG) .Fields!通信地址 = Trim(TxtAddress) .Fields!联系电话 = Trim(TxtPhone) .Fields!备注 = Trim(TxtBZ) .Fields!所属年级 = Trim(strGrade) .Fields!所属班级 = Trim(strClass) .Fields!信息录入者 = Trim(strUser) .Fields!信息录入时间 = Trim(strTime) .UpdateEnd WithD1.Refresh3.5.5 学生信息查询主窗体本子窗体模块实现了对之前所述的学生相关信息的查询，以及对查询结果的打

46、印等功能。本窗体内采用了动态模糊查询技术，即用户每输入一个字符，系统都将会执行一次模糊查询操作，用户输入的字符数越多，查询到的结果越少，但越精确；反之，用户输入的字符数越少，查询到的结果越多，但越不精确。而且本窗体内还提供了两种查询方式，分别是按学生学号查询和按学生姓名查询，使查询过程更加灵活方便。动态模糊查询技术也是本系统的特色功能之一，后面将会详加阐述。本窗体界面运行效果如图3.9所示。图3.9 学生信息查询子窗体本窗体中实现按“学生学号”动态模糊查询的代码如下：Private Sub TxtNo_Change() 按学生学号动态模糊查询If isPrint2 = True Then Un

47、load FrmPrint2End IfIf Trim(TxtNo) Then D1.RecordSource = select 学号,姓名,性别,年龄,民族,籍贯,通信地址,联系电话,备注,信息录入者,信息录入时间 from 学生信息 where 所属年级= & Trim(strGrade) & and 所属班级= & Trim(strClass) & and 学号 like * & Trim(TxtNo) & * D1.Refresh If D1.Recordset.RecordCount 0 Then MsgBox 该同学的此类型德育成绩已经存在，录入失败！请核对后再进行录入！, vbC

48、ritical, 系统提示 CmbName.SetFocus Exit SubEnd IfWith D2.Recordset .AddNew .Fields!学号 = Trim(LabNo.Caption) .Fields!姓名 = Trim(LabName.Caption) .Fields!德育名称 = Trim(CmbName) .Fields!德育成绩 = CCur(Trim(TxtDeFen) .Fields!所属年级 = Trim(strGrade) .Fields!所属班级 = Trim(strClass) .Fields!信息录入者 = Trim(strUser) .Fields

49、!信息录入时间 = Trim(Year(Date) & 年 & Month(Date) & 月 & Day(Date) & 日 & Time) .UpdateEnd WithD2.RefreshMsgBox 数据录入成功！, vbInformation, 系统提示If MsgBox(是否继续对该同学的德育成绩进行录入？, vbQuestion + vbYesNo, 系统提示) = vbYes Then CmbName.ListIndex = 0 TxtDeFen = CmbName.SetFocus Exit SubElse IsEnableDy (False) CmdDYOk.Enabled

50、 = FalseEnd If3.5.7 智育成绩设置子窗体本子窗体模块实现了对学生的智育成绩进行相关设置的功能，包括对智育成绩的录入、修改、查询和删除等功能。在本窗体中，先使用动态模糊查询技术查找到要进行设置的学生相关信息，然后对其相关的智育成绩分数进行选择和设置，设置完成后，系统会对该学生的智育成绩分数进行自动计算，然后写入数据库并为后述的学生综合素质测评提供相关的分数计算依据。本窗体的运行效果如图3.11所示。3.11 学生智育成绩设置子窗体本窗体中实现智育成绩录入时所执行的部分代码如下：D2.RecordSource = select * from 智育成绩 where 学号= & Tr

51、im(LabNo.Caption) & and 课程名称= & Trim(CmbName) & D2.RefreshIf D2.Recordset.RecordCount 0 Then MsgBox 该同学该课程的课程成绩已经存在，录入失败！请核对后再进行录入！, vbCritical, 系统提示 CmbName.SetFocus Exit SubEnd IfWith D2.Recordset .AddNew .Fields!学号 = Trim(LabNo.Caption) .Fields!姓名 = Trim(LabName.Caption) .Fields!课程名称 = Trim(CmbNa

52、me) .Fields!得分 = CCur(Trim(TxtDeFen) .Fields!所属年级 = Trim(strGrade) .Fields!所属班级 = Trim(strClass) .Fields!信息录入者 = Trim(strUser) .Fields!信息录入时间 = Trim(Year(Date) & 年 & Month(Date) & 月 & Day(Date) & 日 & Time) .UpdateEnd WithD2.RefreshMsgBox 数据录入成功！, vbInformation, 系统提示If MsgBox(是否继续对该同学的课程成绩进行录入？, vbQu

53、estion + vbYesNo, 系统提示) = vbYes Then CmbName.ListIndex = 0 TxtDeFen = CmbName.SetFocus Exit SubElse CmdDYOk.Enabled = FalseEnd If3.5.8 体育成绩设置子窗体本子窗体模块实现了对学生的体育成绩进行相关设置的功能，包括对体育成绩的录入、修改、查询和删除等功能。在本窗体中，先使用动态模糊查询技术查找到要进行设置的学生相关信息，然后对其相关的体育成绩分数进行选择和设置，设置完成后，系统会对该学生的体育成绩分数进行自动计算，然后写入数据库并为后述的学生综合素质测评提供相关的

54、分数计算依据。本窗体的运行效果如图3.12所示。图3.12 学生体育成绩设置子窗体本窗体中实现学生体育成绩“查询”时的代码如下：Private Sub CmdDYSch_Click()Dim strCh As StringDim strRut As StringstrCh = InputBox(请输入要查询的学生学号！, 学生体育成绩查询)If Trim(strCh) = Then MsgBox 输入无效，取消查询操作！, vbCritical, 系统提示 Exit SubEnd IfD2.RecordSource = select * from 体育成绩 where 学号= & Trim(strCh) & D2.RefreshIf D2.Recordset.RecordCount 1 Then MsgBox 查询结束，无学号为 & Trim(strCh) & 的同学的任何体育成绩记录！, vbInformation, 系统提示 Exit SubEnd IfWith D2.Re