基于VF的宿舍管理系统

1、经济管理学院School of Economics and Management管理科学与工程系Department of Management Science and Technology管理信息系统课程设计报告题 目：学生宿舍管理系统姓名/学号蒋泽武/12360123专业班级信息管理与信息系统（一）班指导教师赵 晖/梁晓霞/安 蓉成绩9目 录1 引言11.1 项目背景和意义11.2 学生宿舍管理信息化11.2.1 学生宿舍管理信息化的目标11.2.2 学生宿舍管理信息化的优势21.3 学生宿舍管理现状及存在的问题21.3.1 学生宿舍管理的现状21.4 对策与建议21.5 主要研究内容与方

2、法21.5.1 系统开发的方法21.5.2 学生宿舍管理系统采用的模式31.5.3 编程环境32 系统分析42.1 需求分析42.2 可行性分析52.2.1 技术可行性52.2.2 经济上可行性52.3 详细调查52.3.1 功能模块分析52.3.2 组织结构分析62.4 业务流程分析62.5 数据流程分析72.6 数据字典83 系统设计93.1 系统总体设计123.1.1 系统总体结构设计123.2 系统详细设计123.2.1 代码设计123.2.2 数据库设计 建立数据表 建立数据库完整性174 系统实施184.1 系统实施的主要任务184.2 系统程序

3、设计184.2.1 用户登录系统184.2.2 子系统功能的实现194.2.3 学生管理模块204.2.4 寝室管理模块234.2.5 寝室查询模块284.2.6 用户管理模块334.2.7 宿舍楼管理模块344.2.8 学生登录功能的实现36结论.40参考文献.41附件一429管理信息系统课程设计报告1 引言1.1 项目背景和意义学生宿舍管理系统是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于后台数据库的建立和维护要求建立起数据一致性和完整性强、数据安全性好的库。而对于前端应用程序的开发则要求应用程序能提供强大的数据操纵功能，界面友好、

4、使用简单方便等特点。旧的手工纪录的宿舍管理方式已经不能适应高速发展的信息化时代，新的宿舍管理系统开发出来之后，学校的现有的宿舍信息管理将有很大的改观，由过去的人工方式转变为计算机方式，由效率低、数据冗余、易产生错误转变为检索迅速、查找方便、可靠性高、存储量大。这些优点能够极大地提高效率，也是学校科学化、正规化管理的重要条件。1.2 学生宿舍管理信息化为了提高学生宿舍管理水平，使学生宿舍管理信息更好地服务于管理单位，应积极开展学生宿舍管理信息化工作，对充分发挥学校的网络资源优势，对于充分提高学校学生宿舍的管理质量，都具有重要意义和作用。1.2.1 学生宿舍管理信息化的目标学生宿舍管理系统对于一个

5、学校来说是必不可少的组成部分。目前好多学校还停留在宿舍管理人员手工记录数据的最初阶段，手工记录对于规模小的学校来说还勉强可以接受，但对于学生信息量比较庞大，需要记录存档的数据比较多的高校来说，人工记录是相当麻烦的。而且当查找某条记录时，由于数据量庞大，还只能靠人工去一条条的查找，这样不但麻烦还浪费了许多时间，效率也比较低。当今社会是飞速进步的世界，原始的记录方式已经被社会所淘汰了，计算机化管理正是适应时代的产物。信息世界永远不会是一个平静的世界，当一种技术不能满足需求时，就会有新的技术诞生并取代旧技术。21世纪的今天，信息社会占着主流地位，计算机在各行各业中的运用已经得到普及，自动化、信息化的

6、管理越来越广泛应用于各个领域。针对如此，设计了一套学生宿舍管理系统。学生宿舍管理系统采用的是计算机化管理，系统做的尽量人性化，使用者会感到操作非常方便，管理人员需要做的就是将数据输入到系统的数据库中去。由于数据库存储容量相当大，而且比较稳定，适合较长时间的保存，也不容易丢失。这无疑是为信息存储量比较大的学校提供了一个方便、快捷的操作方式。本系统具有运行速度快、安全性高、稳定性好的优点，并且具备完善的报表生成、修改功能，能够快速的查询学校所需的住宿信息。1.2.2 学生宿舍管理信息化的优势旧的手工纪录的宿舍管理方式已经不能适应高速发展的信息化时代，新的宿舍管理系统开发出来之后，学校的现有的宿舍信

7、息管理将有很大的改观，由过去的人工方式转变为计算机方式，由效率低、数据冗余、易产生错误转变为检索迅速、查找方便、可靠性高、存储量大。1.3 学生宿舍管理现状及存在的问题1.3.1 学生宿舍管理的现状目前的好多学校还停留在宿舍管理人员手工记录数据的最初阶段，当查找和修改记录时，由于数据量庞大，造成错误率高，效率很低。1.4 对策与建议学生宿舍管理是学校教学管理的一个重要内容。随着知识经济、信息时代的到来，学校管理工作的信息化程度已成为衡量学校管理水平的重要标志，学生宿舍管理工作要增强信息意识，提高信息化程度，重视信息的流通和交换，采用计算机进行学生宿舍管理，尤其是借助校园网来实现学生宿舍管理信息

8、化可大大提高工作效率，可使数据统计可靠、准确，情况反馈及时、迅速，信息搜集客观、全面，增强管理工作的科学性和有效性，取代了不必要的手工劳动和重复劳动。1.5 主要研究内容与方法1.5.1 系统开发的方法结构化的系统开发方法是常用的开发方法，强调从系统出发，自顶向下，逐步求精地开发系统，开发过程中始终贯穿着这个思想。系统开发方法有系统结构化开发方法、原型法和面向对象法。系统结构化开发方法的优点有：（1）注重系统开发过程的整体性和全局性；（2）严格区分工作阶段；（3）立足全局，步步为营，减少返工，有利于提高开发质量，加快开发速度；（4）目标明确，阶段性强，开发过程易于控制。结构化的系统开发方法是常

9、用的开发方法，强调从系统出发，自顶向下，逐步求精地开发系统，开发过程中始终贯穿着这个思想，而原型法管理水平要求高，不适用于大型的系统。面向对象法需要一定的软件支持环境，不太适宜大型的MIS开发，不能从科学管理角度进行理顺和优化，初学者不易接受。因此，针对这个案例中的企业，进行综合考虑后，更适合于系统结构化开发方法。1.5.2 学生宿舍管理系统采用的模式客户/服务器技术到目前已发展为对等层到对等层的处理模式。在这种模式下，网络上的每一台计算机的作用都是相同的，所有的计算机既是客户机也是服务器。随着Internet的迅速发展和网上计算机资源的多样化，C/S模式将变得越来越重要。C/S模式能充分发挥

10、客户端PC的处理能力，很多工作可以在客户端处理后再提交给服务器。对应的优点就是客户端响应速度快。1.5.3 编程环境Visual FoxPro 简称VFP，是Microsoft公司推出的数据库开发软件，它引入了可视化编程技术，提供众多的工具，使得对一些常用功能的操作更为简单直观。其独具特色的数据库容器为交互式用户和应用程序开发者提供了集中的数据管理功能，它不仅支持面向对象的编程方法，可生成真正事件驱动的应用程序，可方便地与其他应用程序共享和交换数据，具有客户/服务器能力。 Visual FoxPro 6.0及其中文版是可运行于Windows 95和Windows NT平台的32位数据库开发系统

11、，它不仅可以简化数据库管理，而且能使应用程序的开发流程更为合理。Visual FoxPro 6.0使组织数据、定义数据库规则和建立应用程序等工作变得简单易行。利用可视化的设计工具和向导，用户可以快速创建表单、查询和打印报表。VFP 6.0在语言方面作了强大的扩充，支持面向对象可视化编程技术，是用户收集信息、查询数据、创建集成数据库系统、进行实用系统开发较为理想的工具软件。SQL（结构化查询语言）是一种一体化的语言，它包括了数据定义、数据操作和数据控制等方面的功能，它可以完成数据库活动的全部工作。SQL是一种非过程化的语言，它一次处理一条记录，对数据提供自动导航，允许用户在更高在更高层次大的数据

12、结构中工作。SQL言语非常简洁。在 Visual FoxPro 6.0中，并不支持所有的SQL言语（不支持数据库控制功能），它只支持其中的子集。这些子集中的命令对于数据库维护和查询是十分重要的，这些言语包括SESECT-SQL、ALTER、TABLE-SQL、CREATE、DELECT-SQL、UPDATA-SQL、INSERT-SQL等命令。2 系统分析2.1 需求分析2.1.1用户对于系统的需求 用户登录学生宿舍管理系统主要目在于查看各类信息、维修信息和修改密码等。因此，用户界面因提供以下功能： 1. 用户登录：用户打开登录界面后可以正常登录到主界面中。2. 学生管理：

13、用户可以查询、浏览、添加学生的信息。3. 寝室管理：用户可以管理寝室的基本事务，比如学生晚归登记、人员来访登记、物品出入登记、退宿登记以及报修登记等。 4. 寝室查询：用户可以查询并浏览寝室的基本事务。 5. 舍楼管理：用户可以查询并修改宿舍楼的基本信息。6. 用户管理：用户可以添加新的用户，并且可以修改密码。2.1.2数据库需求分析学生宿舍管理系统的数据库功能主要体现在对各种信息的提供、保存、更新、添加和查询操作上，包括宿舍楼信息、寝室信息、学生信息、用户信息和宿舍楼员工信息，各个部分的数据内容又有内在联系。针对该系统的数据特点，可以总结出如下的需求：1用户可以在登录界面

14、用自己的账号进入系统。2用户可以添加、修改学生信息和宿舍楼信息。3用户可以添加、修改宿舍楼的基本事务4用户可以添加、修改用户表的数据以添加和修改用户信息。针对上诉系统功能分析和需求总结，可设计以下的数据项和数据结构：1管理员表：包括用户名、密码。2学生信息表：包括学号、姓名、寝室号、所在宿舍楼、所在班级、电话号码和入住时间。3宿舍信息表：包括寝室号、寝室人数、床位数、所在宿舍楼和其他信息。4宿舍楼信息表：包括宿舍楼号、宿管、保安、清洁工、宿管电话。5宿舍员工表：包括员工号、姓名、性别、年龄、宿舍楼号、职务、联系电话和备注。6晚归记录表：包括学号、姓名、性别、所在宿舍楼、晚归时间和晚归原因。7人

15、员来访表：包括来访人、被访人、宿舍楼号、宿舍号、来访时间、离开时间和备注。8物品出入表：包括学号、带进物品、带出物品、时间、备注。9退宿表：包括学号、姓名、性别、所在宿舍楼、寝室号、入学日期、退学日期、所读专业。10报损表：包括报修时间、报修物品、数量、原因、所在宿舍楼和寝室号。2.2 可行性分析2.2.1 技术可行性在目前的科学技术水平条件下,已经成功地创建了众多复杂的管理信息系统,而宿舍管理信息系统与这些系统而言是十分简单的系统。因此，建立一个供学校内部使用的学生宿舍管理信息系统，在技术上不存在实质性的障碍。技术上的可行性分析要考虑将来要采用的硬件和软件技术能否满足用户（这里是校方）提出的

16、要求（如计算机的容量、速度等）。此外,还要考虑开发人员的水平，这个系统很简单，有一定专业知识的人都可以完成。2.2.2 经济上可行性主要从对项目的经济上进行分析评价,一方面是支出的费用,包括设备购置费、管理和维护费用、人员工资和培训费等,另一个是取得的收益。这是个小型的管理系统,从投入的人力,财力与物力来讲是非常之小的,只要一台电脑,一台打印机,这个系统就可以搞起来,考虑到学校里有电脑,现只要购置一台打印机就可以了。从节省人力方面,可以让管理人员从繁与复杂的工作中解脱出来,做更多的工作,可以给宿舍里的管理提高一个层次。2.3 详细调查2.3.1 功能模块分析学生宿舍管理系统具有以下各项功能：学

17、生基本信息管理、宿舍楼基本信息管理、学生信息系统管理、宿舍楼信息系统管理、寝室信息系统管理、用户信息系统管理。调查后，可以用功能模块图来描述从系统目标到各项功能的层次关系，如图3.1。图3.1 管理功能图2.3.2 组织结构分析组织结构图如图3.2所示。图3.2 组织结构图2.4 业务流程分析通过业务流程调查，我们可以了解系统内各单位、人员之间的业务处理过程及其之间的关系。业务流程描述了学生宿舍管理系统的事务管理系统管理、学生信息系统管理、系统用户信息系统管理的过程，具体的业务流程图如图3.3。图3.3 业务流程图2.5 数据流程分析图3.4 总系统顶层数据流程图2.6 数据字典数据字典主要用

18、来描述数据流程图中的数据流、数据存储、处理过程和外部实体。数据字典通过数据元素和数据结构来描写数据流、数据存储的属性。数据字典在系统开发中具有十分重要的意义，不仅在系统分析阶段，而且在整个研制过程中以及今后系统运行中都要使用它。 数据存储的定义 名称：学生信息表 总编号：1-01别名：学生信息表 编 号：01描述：记录学生基本信息的表定义：学生信息表=学号+姓名+寝室号+所在宿舍楼+所在班级+电话号码+入住时间位置：学生宿舍楼信息管理系统数据库名称：寝室信息表 总编号：1-02别名：寝室信息表 编 号：02描述：记录寝室基本信息的表定义：寝室信息表=寝室号+寝室人数+床位数+所在宿舍楼+其他信

19、息位置：学生宿舍楼信息管理系统数据库名称： 宿舍楼信息表 总编号：1-03别名：宿舍楼信息表 编 号：03描述：记录宿舍楼基本信息的表定义：宿舍楼信息表=宿舍楼号+宿管+保安+清洁工+宿管电话位置：学生宿舍楼信息管理系统数据库名称：晚归记录表 总编号：1-04别名：晚归记录表 编 号：04描述：记录学生晚归记录的表定义：晚归记录表=学号+姓名+性别+所在宿舍楼+晚归时间+晚归原因位置：学生宿舍楼信息管理系统数据库名称：人员来访表 总编号：1-05别名：人员来访表 编 号：05描述：记录人员来访信息的表定义：人员来访表=来访人+被访人+宿舍楼号+宿舍号+来访时间+离开时间位置：学生宿舍楼信息管理

20、系统数据库名称：物品出入表 总编号：1-06别名：物品出入表 编 号：06描述：记录宿舍楼贵重物品出入的表定义：物品出入表=学号+带进物品+带出物品+时间+备注位置：学生宿舍楼信息管理系统数据库名称： 退宿表 总编号：1-07别名：退宿表 编 号：07描述：记录学生退宿信息的表定义：退宿表=学号+姓名+性别+所在宿舍楼+寝室号+入学日期+退学日期+所读专业位置：学生宿舍楼信息管理系统数据库名称：报损表 总编号：1-08别名：报损表 编 号：08描述：记录宿舍报损设备的表定义：报损表=报修时间+报修物品+数量+原因+所在宿舍楼+寝室号位置：学生宿舍楼信息管理系统数据库名称：管理员表 总编号：1-

21、09别名：管理员表 编 号：09描述：记录管理员登录系统所需信息的表 定义：管理员表=用户名+密码位置：学生宿舍楼信息管理系统数据库名称： 学生登录表 总编号：1-10别名：学生登录表 编 号：10描述：记录学生登录系统临时存放学号的表定义：学生登录表=学号位置：学生宿舍楼信息管理系统数据库 数据项的定义 数据项编号：1-01数据项名称：学号别名：无简 述：学生的编号类型：字符型长度：8 位 数据项编号：1-02数据项名称：寝室号别名：无简 述：寝室的编号类型：字符型长度：3位数据项编号：1-03数据项名称：宿舍楼号别名：所在宿舍楼简 述：宿舍楼的编号类型：字符型长度：3位数据项编号：1-04

22、数据项名称：用户名别名：管理员简 述：管理员用于登录系统的用户名类型：字符型长度：10位数据流的定义数据流名称：学号编号：F1简述：管理员用于管理学生信息数据流来源：管理员数据流去向：信息维护系统数据流组成：学号+姓名+寝室号+所在宿舍楼+所在班级+电话号码+入住时间3 系统设计3.1 系统总体设计3.1.1 系统总体结构设计采用结构化设计方法，其基础是模块化，结构化方法规定了一系列模块的分解协调原则和技术，将整个系统分解成相对独立的若干模块，通过对模块的设计和模块之间关系的协调来实现整个系统的功能。图3-1顶层模块结构图3.2 系统详细设计3.2.1 代码设计代码设计原则 1.唯一性 每一个

23、代码代表唯一的实体或属性，而每一实体或属性由唯一的代码来标识。 2.合理性 编码设计必须与编码对象的分类体系相适应，以使代码对编码对象的分类具有标识作用。3.可扩充性和稳定性 编码时要留有足够的备用代码，以便将来扩充。另外，还要考虑系统的发展和变化，要考虑它的使用期限，一般来说，应该使用35年。 4.简单性。 代码结构要简单，尽量缩短代码的长度，以便于输入，提高处理效率，并且要便于识别和记忆。另外在使用中要避免使用易于混淆的字母。 5.适用性。 代码要尽量反应编码对象的特点，以便于识别与记忆；要同时适用于计算机和人工处理。 6.规范性。 代码的结构、类型、编码格式必须严格统一，以便于计算机处理

24、。 易于修改性。 8.标准化与通用性。3.2.2 数据库设计 概念设计阶段目标：概念结构设计师是将需求分析得到的用户需求抽象为信息结构即概念模型的过程。它是整个数据库设计的关键。概念结构设计步骤分为两步：第一步是抽象数据并设计局部视图，第二步是集成局部视图，得到全局的概念结构。设计过程（1）选择中层数据流为切入点，通常选择实际系统中的子系统；（2）设计分E-R图，即各子模块的E-R图；（3）生成初步E-R图，通过合并方法，做到各子系统实体、属性、联系统一；（4）生成全局E-R图，通过消除冲突等方面。通过分析系统的业务流图与数据流图，得到系统围绕“车辆”与“车位”之间的相互关系。阶

25、段成果，分E-R图：图3-2 E - R图 建立数据表表3.1 学生信息表字段名数据类型字段长度与格式可否为空学号字符型8Not Null姓名字符型6Not Null寝室号数值型3Not Null所在宿舍楼字符型3Not Null所在班级字符型10Not Null电话号码数值型11Not Null入住时间日期型MM/DD/YYYYNot Null表3.2 管理员表字段名数据类型字段长度与格式可否为空用户名字符型10Not Null密码字符型6Not Null表3.3 寝室信息表字段名数据类型字段长度与格式可否为空寝室号字符型3Not Null寝室人数数值型1Not Null床位数

26、数值型1Not Null所在宿舍楼字符型3Not Null其他信息字符型20Not Null表3.4 宿舍楼信息表字段名数据类型字段长度与格式可否为空宿舍楼号字符型3Not Null宿管字符型6Not Null保安字符型6Not Null清洁工字符型6Not Null宿管电话数值型11Not Null表3.5 晚归记录表字段名数据类型字段长度与格式可否为空学号字符型8Not Null姓名字符型8Not Null性别字符型2Not Null所在宿舍楼字符型3Not Null晚归时间日期型MM/DD/YYYYNot Null晚归原因字符型20Not Null表3.6 人员来访表字段名数据类型字段长

27、度与格式可否为空来访人字符型8Not Null被访人字符型8Not Null宿舍楼号字符型3Not Null宿舍号数值型3Not Null来访时间日期型MM/DD/YYYYNot Null离开时间日期型MM/DD/YYYYNot Null备注字符型20Not Null表3.7 物品出入登记字段名数据类型字段长度与格式可否为空学号字符型8Not Null带进物品字符型20Not Null带出物品字符型20Not Null时间日期型MM/DD/YYYYNot Null备注字符型20Not Null表3.8 退宿表字段名数据类型字段长度与格式可否为空学号字符型8Not Null姓名字符型8Not N

28、ull性别字符型2Not Null所在宿舍楼字符型3Not Null寝室号数值型3Not Null入学日期日期型MM/DD/YYYYNot Null退学日期日期型MM/DD/YYYYNot Null所读专业字符型20Not Null表3.9 报损表字段名数据类型字段长度与格式可否为空保修时间日期型MM/DD/YYYYNot Null保修物品字符型20Not Null数量数值型5Not Null原因字符型20Not Null所在宿舍楼字符型3Not Null寝室号数值型3Not Null表3.10 登录时刻表字段名数据类型字段长度与格式可否为空学号字符型8Not Null 建立数据

29、库完整性图3-2 数据库完整性4 系统实施4.1 系统实施的主要任务建立完成的数据库，设计合理、正确的表单然后连编程序。每个子管理系统所需要的表单都要建立完整，表单与数据表之间的信息维护、表单与数据库之间数据联系、表单与表单之间的调用都要做到完美，让多个子系统联系起来，完成一个完整的总系统可以运行完成所需要的功能。4.2 系统程序设计4.2.1 用户登录系统图4-1 登录界面设计主要源代码见附页4.2.1 用户登录系统模块。4.2.2 子系统功能的实现图4-2 系统界面设计主要源代码如下所示。Destroy: release menu aaa extendedInit: do 主菜单.mpr

30、with this,"aaa"Rightclick: do 主菜单.mpr4.2.3 学生管理模块图4-3 浏览学生信息界面点此退出.窗口：thisform.release图4-4 添加学生信息主要控件代码如下：Command1(确认添加)：if empty(thisform.text1.value)=.t. or len(allt(thisform.text1.value)!=8messagebox("学号输入不正确，请重新输入")thisform.Text1.value=""elseif 学生信息表.学号=allt(thisfor

31、m.Text1.value)messagebox("已存在此学号，请重新输入")thisform.Text1.value=""elseinsert into 学生信息表 values(allt(thisform.Text1.value),alltrim(thisform.text2.value),thisform.text3.value,thisform.text4.value,alltrim(thisform.text5.value),thisform.text6.value,thisform.text7.value)messagebox("

32、添加成功")endifendifthisform.refreshCommand2(重新输入)：thisform.Text1.value=""thisform.text2.value=""thisform.text3.value=0thisform.text4.value=""thisform.text5.value=""thisform.text6.value=0thisform.text7.value=Command3(返回):thisform.release图4-5 查询学生信息界面详细代码见附页4.

33、2.3 学生管理模块。4.2.4 寝室管理模块图4-6 学生晚归登记界面Command1(确认登记)：insert into 晚归记录表 value;(thisform.text1.value,thisform.text2.value,thisform.text3.value,thisform.text4.value,thisform.text5.value,thisform.text6.value)messagebox("登记成功")Thisform.refreshCommand2(重新输入)：thisform.text1.value=""thisfo

34、rm.text2.value=""thisform.text3.value=""thisform.text4.value=""thisform.text5.value=thisform.text6.value=""Command3(返回)：thisform.release图4-7 人员来访登记界面Command1(确认登记)：insert into 人员来访表 values;(thisform.Text1.value,alltrim(thisform.text2.value),thisform.text3.valu

35、e,thisform.text4.value,thisform.text5.value,thisform.text6.value,thisform.text7.value)messagebox("添加成功")thisform.refreshCommand2(重新输入)：thisform.text1.value=""thisform.text2.value=""thisform.text3.value=""thisform.text4.value=0thisform.text5.value=thisform.text

36、6.value=thisform.text7.value=""Command3(返回)：thisform.release图4-8 物品出入登记界面Command1(确认登记)：insert into 物品出入表 values;(thisform.text1.value,thisform.text2.value,thisform.text3.value,thisform.text4.value,thisform.text5.value)messagebox("登记成功")thisform.refreshCommand2(重新输入)：thisform.tex

37、t1.value=""thisform.text2.value=""thisform.text3.value=""thisform.text4.value=thisform.text5.value=""Command3(返回)：thisform.release图4-9 退宿情况登记界面Command1(确认登记)：insert into 退宿表 values;(thisform.Text1.value,thisform.text2.value,thisform.text3.value,thisform.text4.

38、value,thisform.text5.value,thisform.text6.value,thisform.text7.value,thisform.text8.value)messagebox("添加成功")thisform.refreshCommand2(重新输入)：thisform.text1.value=""thisform.text2.value=""thisform.text3.value=""thisform.text4.value=""thisform.text5.valu

39、e=0thisform.text6.value=thisform.text7.value=thisform.text8.value=""Command3(返回)：thisform.release图4-10 报修情况登记界面Command1(确认登记)：insert into 报损表 values;(thisform.Text1.value,alltrim(thisform.text2.value),thisform.text3.value,thisform.text4.value,alltrim(thisform.text5.value),thisform.text6.va

40、lue)messagebox("添加成功")thisform.refreshCommand2(重新输入)：thisform.text1.value=thisform.text2.value=""thisform.text3.value=0thisform.text4.value=""thisform.text5.value=""thisform.text6.value=0Command3(返回)：thisform.release4.2.5 寝室查询模块图4-11 浏览学生晚归信息界面Ccommand1(查询):se

41、le 晚归记录表set filter tolocate for allt(晚归记录表.所在宿舍楼)=allt(thisform.text1.value) AND LEN(allt(晚归记录表.所在宿舍楼)=len(allt(thisform.text1.value)if found()set filter to (晚归记录表.所在宿舍楼)=allt(thisform.text1.value)thisform.refreshelsemessagebox("没有此宿舍楼信息！")Endif点此退出.窗口：thisform.release图4-12 浏览人员来访情况界面Ccomm

42、and1(查询):sele 人员来访表set filter tolocate for allt(人员来访表.宿舍楼号)=allt(thisform.text1.value) AND LEN(allt(人员来访表.宿舍楼号)=len(allt(thisform.text1.value)if found()set filter to (人员来访表.宿舍楼号)=allt(thisform.text1.value)thisform.refreshelsemessagebox("没有此宿舍楼信息！")Endif点此退出.窗口：thisform.release图4-13 浏览物品出入信

43、息界面Ccommand1(查询):sele 物品出入表set filter tolocate for 物品出入表.时间=thisform.text1.valueif found()set filter to (物品出入表.时间)=thisform.text1.valuethisform.refreshelsemessagebox("没有此时间段信息！")Endif点此退出.窗口：thisform.release图4-14 浏览退宿情况界面Ccommand1(查询):sele 退宿表set filter tolocate for allt(退宿表.所在宿舍楼)=allt(th

44、isform.text1.value) AND LEN(allt(退宿表.所在宿舍楼)=len(allt(thisform.text1.value)if found()set filter to (退宿表.所在宿舍楼)=allt(thisform.text1.value)thisform.refreshelsemessagebox("没有此宿舍楼信息！")Endif点此退出.窗口：thisform.release图4-15 浏览报修情况界面Ccommand1(查询):sele 报损表set filter tolocate for allt(报损表.所在宿舍楼)=allt(t

45、hisform.text1.value)if found()set filter to (报损表.所在宿舍楼)=allt(thisform.text1.value)thisform.refreshelsemessagebox("没有此宿舍楼信息！")Endif点此退出.窗口：thisform.release4.2.6 用户管理模块图4-16 修改管理员用户名界面图4-17 修改管理员密码界面详细代码见附页4.2.6 用户管理模块4.2.7 宿舍楼管理模块图4-18 浏览宿舍楼信息界面Ccommand1(查询):sele 宿舍楼信息表set filter tolocate f

46、or allt(宿舍楼信息表.宿舍楼号)=allt(thisform.text1.value) AND LEN(allt(宿舍楼信息表.宿舍楼号)=len(allt(thisform.text1.value)if found()set filter to (宿舍楼信息表.宿舍楼号)=allt(thisform.text1.value)thisform.refreshelsemessagebox("没有此宿舍楼信息！")endif点此退出.窗口：thisform.release图4-19 修改宿舍楼信息界面Command1(增加记录):this.enabled=.F.stat

47、e=1SET EXCLUSIVE ON thisform.grid1.readonly=.F.append blankthisform.grid1.setfocusCommand2(删除记录):ans=messagebox("确定删除当前记录吗？",4+32,"确认删除")if ans=6SET EXCLUSIVE ON deletepackthisform.releasedo form 修改宿舍楼信息界面.scxendifthisform.refreshCommand3(修改记录):SET EXCLUSIVE ON This.enabled=.F.st

48、ate=2thisform.grid1.readonly=.F.Command4(保存记录):if state=1.or.state=2flusHendifmessagebox("保存成功",0+64,"提示")thisform.releaseCommand5(返回):thisform.release4.2.8 学生登录功能的实现图4-20 学生登录主界面主要源代码如下所示。Destroy: release menu bbb extendedInit: do 学生登录主菜单.mpr with this,"bbb"Rightclick:

49、 do 学生登录主菜单.mpr图4-21 学生查询个人信息界面Command1(查询):if len(allt(thisform.text1.value)!=8 messagebox("学号输入错误，请重新输入！",0+64,"提示")elseif 学生登录表.学号=allt(thisform.text1.value)scanif 学生信息表.学号=allt(thisform.text1.value) thisform.text学号.Value=学生信息表.学号 thisform.text姓名.Value=学生信息表.姓名 thisform.text寝室

50、号.Value=学生信息表.寝室号 thisform.text所在宿舍.Value=学生信息表.所在宿舍楼 thisform.text所在班级.Value=学生信息表.所在班级 thisform.text电话号码.Value=学生信息表.电话号码 thisform.text入住时间.Value=学生信息表.入住时间 thisform.refresh return endif endscanelsemessagebox("亲！只能查看自己的信息噢")endifendifthisform.Text1.value=""thisform.refresh图4-22

51、 学生浏览报修情况界面Command1(查询):sele 报损表set filter tolocate for allt(报损表.所在宿舍楼)=allt(thisform.text1.value)if found()set filter to (报损表.所在宿舍楼)=allt(thisform.text1.value)thisform.refreshelsemessagebox("没有此宿舍楼信息！")Endif点此退出.窗口：thisform.release图4-23 学生浏览宿舍楼信息界面Command1(查询):sele 宿舍楼信息表set filter tolocate for allt(宿舍楼信息表.宿舍楼号)=allt(thisform.text1.value) AND LEN(allt(宿舍楼信息表.宿舍楼号)=len(allt(thisform.text1.value)if found()set filter to (宿舍楼信息表.宿舍楼号)=all