基于VF的宿舍标准管理系统.doc

经济管理学院
School of Economics and Management
管理科学与工程系
Department of Management Science and Technology
管理信息系统
课程设计报告
题 目：
学生宿舍管理系统
姓名/学号

蒋泽武/12360123
专业班级
信息管理与信息系统（一）班
指引教师
赵 晖/梁晓霞/安 蓉
成绩

目 录
1 引言 1
1.1 项目背景和意义 1
1.2 学生宿舍管理信息化 1
1.2.1 学生宿舍管理信息化目的 1
1.2.2 学生宿舍管理信息化优势 2
1.3 学生宿舍管理现状及存在问题 2
1.3.1 学生宿舍管理现状 2
1.4 对策与建议 2
1.5 重要研究内容与办法 2
1.5.1 系统开发办法 2
1.5.2 学生宿舍管理系统采用模式 3
1.5.3 编程环境 3
2 系统分析 4
2.1 需求分析 4
2.2 可行性分析 5
2.2.1 技术可行性 5
2.2.2 经济上可行性 5
2.3 详细调查 5
2.3.1 功能模块分析 5
2.3.2 组织构造分析 6
2.4 业务流程分析 6
2.5 数据流程分析 7
2.6 数据字典 8
3 系统设计 9
3.1 系统总体设计 12
3.1.1 系统总体构造设计 12
3.2 系统详细设计 12
3.2.1 代码设计 12
3.2.2 数据库设计 13
3.2.2.1 建立数据表 13
3.2.2.1 建立数据库完整性 17
4 系统实行 18
4.1 系统实行重要任务 18
4.2 系统程序设计 18
4.2.1 顾客登录系统 18
4.2.2 子系统功能实现 19
4.2.3 学生管理模块 20
4.2.4 寝室管理模块 23
4.2.5 寝室查询模块 28
4.2.6 顾客管理模块 33
4.2.7 宿舍楼管理模块 34
4.2.8 学生登录功能实现 36
结论............................................................................................................................40
参照文献.....................................................................................................................41
附件一 42

1 引言
1.1 项目背景和意义
学生宿舍管理系统是典型信息管理系统(MIS)，其开发重要涉及后台数据库建立和维护以及前端应用程序开发两个方面。对于后台数据库建立和维护规定建立起数据一致性和完整性强、数据安全性好库。而对于前端应用程序开发则规定应用程序能提供强大数据操纵功能，界面和谐、使用简朴以便等特点。旧手工纪录宿舍管理方式已经不能适应高速发展信息化时代，新宿舍管理系统开发出来之后，学校既有宿舍信息管理将有很大改观，由过去人工方式转变为计算机方式，由效率低、数据冗余、易产生错误转变为检索迅速、查找以便、可靠性高、存储量大。这些长处可以极大地提高效率，也是学校科学化、正规化管理重要条件。
1.2 学生宿舍管理信息化
为了提高学生宿舍管理水平，使学生宿舍管理信息更好地服务于管理单位，应积极开展学生宿舍管理信息化工作，对充分发挥学校网络资源优势，对于充分提高学校学生宿舍管理质量，都具备重要意义和作用。
1.2.1 学生宿舍管理信息化目的
学生宿舍管理系统对于一种学校来说是必不可少构成某些。当前好多学校还停留在宿舍管理人员手工记录数据最初阶段，手工记录对于规模小学校来说还勉强可以接受，但对于学生信息量比较庞大，需要记录存档数据比较多高校来说，人工记录是相称麻烦。并且当查找某条记录时，由于数据量庞大，还只能靠人工去一条条查找，这样不但麻烦还挥霍了许多时间，效率也比较低。当今社会是飞速进步世界，原始记录方式已经被社会所裁减了，计算机化管理正是适应时代产物。信息世界永远不会是一种安静世界，当一种技术不能满足需求时，就会有新技术诞生并取代旧技术。21世纪今天，信息社会占着主流地位，计算机在各行各业中运用已经得到普及，自动化、信息化管理越来越广泛应用于各个领域。针对如此，设计了一套学生宿舍管理系统。学生宿舍管理系统采用是计算机化管理，系统做尽量人性化，使用者会感到操作非常以便，管理人员需要做就是将数据输入到系统数据库中去。由于数据库存储容量相称大，并且比较稳定，适合较长时间保存，也不容易丢失。这无疑是为信息存储量比较大学校提供了一种以便、快捷操作方式。本系统具备运营速度快、安全性高、稳定性好长处，并且具备完善报表生成、修改功能，可以迅速查询学校所需住宿信息。
1.2.2 学生宿舍管理信息化优势
旧手工纪录宿舍管理方式已经不能适应高速发展信息化时代，新宿舍管理系统开发出来之后，学校既有宿舍信息管理将有很大改观，由过去人工方式转变为计算机方式，由效率低、数据冗余、易产生错误转变为检索迅速、查找以便、可靠性高、存储量大。
1.3 学生宿舍管理现状及存在问题
1.3.1 学生宿舍管理现状
当前好多学校还停留在宿舍管理人员手工记录数据最初阶段，当查找和修改记录时，由于数据量庞大，导致错误率高，效率很低。
1.4 对策与建议
学生宿舍管理是学校教学管理一种重要内容。随着知识经济、信息时代到来，学校管理工作信息化限度已成为衡量学校管理水平重要标志，学生宿舍管理工作要增强信息意识，提高信息化限度，注重信息流通和互换，采用计算机进行学生宿舍管理，特别是借助校园网来实现学生宿舍管理信息化可大大提高工作效率，可使数据记录可靠、精确，状况反馈及时、迅速，信息收集客观、全面，增强管理工作科学性和有效性，取代了不必要手工劳动和重复劳动。
1.5 重要研究内容与办法
1.5.1 系统开发办法
构造化系统开发办法是惯用开发办法，强调从系统出发，自顶向下，逐渐求精地开发系统，开发过程中始终贯穿着这个思想。系统开发办法有系统构造化开发办法、原型法和面向对象法。系统构造化开发办法长处有：
（1）注重系统开发过程整体性和全局性；
（2）严格区别工作阶段；
（3）立足全局，步步为营，减少返工，有助于提高开发质量，加快开发速度；
（4）目的明确，阶段性强，开发过程易于控制。
构造化系统开发办法是惯用开发办法，强调从系统出发，自顶向下，逐渐求精地开发系统，开发过程中始终贯穿着这个思想，而原型法管理水平规定高，不合用于大型系统。面向对象法需要一定软件支持环境，不太适当大型MIS开发，不能从科学管理角度进行理顺和优化，初学者不易接受。因而，针对这个案例中公司，进行综合考虑后，更适合于系统构造化开发办法。

1.5.2 学生宿舍管理系统采用模式
客户/服务器技术到当前已发展为对等层到对等层解决模式。在这种模式下，网络上每一台计算机作用都是相似，所有计算机既是客户机也是服务器。随着Internet迅速发展和网上计算机资源多样化，C/S模式将变得越来越重要。C/S模式能充分发挥客户端PC解决能力，诸多工作可以在客户端解决后再提交给服务器。相应长处就是客户端响应速度快。
1.5.3 编程环境
Visual FoxPro 简称VFP，是Microsoft公司推出数据库开发软件，它引入了可视化编程技术，提供众多工具，使得对某些惯用功能操作更为简朴直观。其独具特色数据库容器为交互式顾客和应用程序开发者提供了集中数据管理功能，它不但支持面向对象编程办法，可生成真正事件驱动应用程序，可以便地与其她应用程序共享和互换数据，具备客户/服务器能力。
Visual FoxPro 6.0及其中文版是可运营于Windows 95和Windows NT平台32位数据库开发系统，它不但可以简化数据库管理，并且能使应用程序开发流程更为合理。Visual FoxPro 6.0使组织数据、定义数据库规则和建立应用程序等工作变得简朴易行。运用可视化设计工具和向导，顾客可以迅速创立表单、查询和打印报表。VFP 6.0在语言方面作了强大扩充，支持面向对象可视化编程技术，是顾客收集信息、查询数据、创立集成数据库系统、进行实用系统开发较为抱负工具软件。
SQL（构造化查询语言）是一种一体化语言，它涉及了数据定义、数据操作和数据控制等方面功能，它可以完毕数据库活动所有工作。SQL是一种非过程化语言，它一次解决一条记录，对数据提供自动导航，容许顾客在更高在更高层次大数据构造中工作。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. 学生管理：顾客可以查询、浏览、添加学生信息。
3. 寝室管理：顾客可以管理寝室基本领务，例如学生晚归登记、人员来访登记、物品出入登记、退宿登记以及报修登记等。 
4. 寝室查询：顾客可以查询并浏览寝室基本领务。 
5. 舍楼管理：顾客可以查询并修改宿舍楼基本信息。
6. 顾客管理：顾客可以添加新顾客，并且可以修改密码。
2.1.2 数据库需求分析
学生宿舍管理系统数据库功能重要体当前对各种信息提供、保存、更新、添加和查询操作上，涉及宿舍楼信息、寝室信息、学生信息、顾客信息和宿舍楼员工信息，各个某些数据内容又有内在联系。针对该系统数据特点，可以总结出如下需求：
1．顾客可以在登录界面用自己账号进入系统。
2．顾客可以添加、修改学生信息和宿舍楼信息。
3．顾客可以添加、修改宿舍楼基本领务‘
4．顾客可以添加、修改顾客表数据以添加和修改顾客信息。
针对上诉系统功能分析和需求总结，可设计如下数据项和数据构造：
1．管理员表：涉及顾客名、密码。
2．学生信息表：涉及学号、姓名、寝室号、所在宿舍楼、所在班级、电话号码和入住时间。
3．宿舍信息表：涉及寝室号、寝室人数、床位数、所在宿舍楼和其她信息。
4．宿舍楼信息表：涉及宿舍楼号、宿管、保安、清洁工、宿管电话。
5．宿舍员工表：涉及员工号、姓名、性别、年龄、宿舍楼号、职务、联系电话和备注。
6．晚归登记表：涉及学号、姓名、性别、所在宿舍楼、晚归时间和晚归因素。
7．人员来访表：涉及来访人、被访人、宿舍楼号、宿舍号、来访时间、离开时间和备注。
8．物品出入表：涉及学号、带进物品、带出物品、时间、备注。
9．退宿表：涉及学号、姓名、性别、所在宿舍楼、寝室号、入学日期、退学日期、所读专业。
10．报损表：涉及报修时间、报修物品、数量、因素、所在宿舍楼和寝室号。
2.2 可行性分析
2.2.1 技术可行性
在当前科学技术水平条件下,已经成功地创立了众多复杂管理信息系统,而宿舍管理信息系统与这些系统而言是十分简朴系统。因而，建立一种供学校内部使用学生宿舍管理信息系统，在技术上不存在实质性障碍。
技术上可行性分析要考虑将来要采用硬件和软件技术能否满足顾客（这里是校方）提出规定（如计算机容量、速度等）。此外,还要考虑开发人员水平，这个系统很简朴，有一定专业知识人都可以完毕。
2.2.2 经济上可行性
重要从对项目经济上进行分析评价,一方面是支出费用,涉及设备购买费、管理和维护费用、人员工资和培训费等,另一种是获得收益。这是个小型管理系统,从投入人力,财力与物力来讲是非常之小,只要一台电脑,一台打印机,这个系统就可以搞起来,考虑到学校里有电脑,现只要购买一台打印机就可以了。从节约人力方面,可以让管理人员从繁与复杂工作中解脱出来,做更多工作,可以给宿舍里管理提高一种层次。
2.3 详细调查
2.3.1 功能模块分析
学生宿舍管理系统具备如下各项功能：学生基本信息管理、宿舍楼基本信息管理、学生信息系统管理、宿舍楼信息系统管理、寝室信息系统管理、顾客信息系统管理。调查后，可以用功能模块图来描述从系统目的到各项功能层次关系，如图3.1。

图3.1 管理功能图
2.3.2 组织构造分析
组织构造图如图3.2所示。

图3.2 组织构造图
2.4 业务流程分析
通过业务流程调查，咱们可以理解系统内各单位、人员之间业务解决过程及其之间关系。业务流程描述了学生宿舍管理系统事务管理系统管理、学生信息系统管理、系统顾客信息系统管理过程，详细业务流程图如图3.3。

图3.3 业务流程图
2.5 数据流程分析

图3.4 总系统顶层数据流程图
2.6 数据字典
数据字典重要用来描述数据流程图中数据流、数据存储、解决过程和外部实体。数据字典通过数据元素和数据构造来描写数据流、数据存储属性。
数据字典在系统开发中具备十分重要意义，不但在系统分析阶段，并且在整个研制过程中以及此后系统运营中都要使用它。
① 数据存储定义
名称：学生信息表 总编号：1-01
别名：学生信息表 编 号：01
描述：记录学生基本信息表
定义：学生信息表=学号+姓名+寝室号+所在宿舍楼+所在班级+电话号码+入住时间
位置：学生宿舍楼信息管理系统数据库
名称：寝室信息表 总编号：1-02
别名：寝室信息表 编 号：02
描述：记录寝室基本信息表
定义：寝室信息表=寝室号+寝室人数+床位数+所在宿舍楼+其她信息
位置：学生宿舍楼信息管理系统数据库
名称： 宿舍楼信息表 总编号：1-03
别名：宿舍楼信息表 编 号：03
描述：记录宿舍楼基本信息表
定义：宿舍楼信息表=宿舍楼号+宿管+保安+清洁工+宿管电话
位置：学生宿舍楼信息管理系统数据库
名称：晚归登记表 总编号：1-04
别名：晚归登记表 编 号：04
描述：记录学生晚归登记表
定义：晚归登记表=学号+姓名+性别+所在宿舍楼+晚归时间+晚归因素
位置：学生宿舍楼信息管理系统数据库
名称：人员来访表 总编号：1-05
别名：人员来访表 编 号：05
描述：记录人员来访信息表
定义：人员来访表=来访人+被访人+宿舍楼号+宿舍号+来访时间+离开时间
位置：学生宿舍楼信息管理系统数据库
名称：物品出入表 总编号：1-06
别名：物品出入表 编 号：06
描述：记录宿舍楼贵重物品出入表
定义：物品出入表=学号+带进物品+带出物品+时间+备注
位置：学生宿舍楼信息管理系统数据库
名称： 退宿表 总编号：1-07
别名：退宿表 编 号：07
描述：记录学生退宿信息表
定义：退宿表=学号+姓名+性别+所在宿舍楼+寝室号+入学日期+退学日期+所读专业
位置：学生宿舍楼信息管理系统数据库
名称：报损表 总编号：1-08
别名：报损表 编 号：08
描述：记录宿舍报损设备表
定义：报损表=报修时间+报修物品+数量+因素+所在宿舍楼+寝室号
位置：学生宿舍楼信息管理系统数据库
名称：管理员表 总编号：1-09
别名：管理员表 编 号：09
描述：记录管理员登录系统所需信息表
定义：管理员表=顾客名+密码
位置：学生宿舍楼信息管理系统数据库
名称： 学生登录表 总编号：1-10
别名：学生登录表 编 号：10
描述：记录学生登录系统暂时存储学号表
定义：学生登录表=学号
位置：学生宿舍楼信息管理系统数据库

② 数据项定义

数据项编号：1-01
数据项名称：学号
别　　　名：无
简 述：学生编号
类　　　型：字符型
长　　　度：8 位

数据项编号：1-02
数据项名称：寝室号
别　　　名：无
简 述：寝室编号
类　　　型：字符型
长　　　度：3位

数据项编号：1-03
数据项名称：宿舍楼号
别　　　名：所在宿舍楼
简 述：宿舍楼编号
类　　　型：字符型
长　　　度：3位

数据项编号：1-04
数据项名称：顾客名
别　　　名：管理员
简 述：管理员用于登录系统顾客名
类　　　型：字符型
长　　　度：10位

③数据流定义
数据流名称：学号
编　　　号：F1
简　　　述：管理员用于管理学生信息
数据流来源：管理员
数据流去向：信息维护系统
数据流构成：学号+姓名+寝室号+所在宿舍楼+所在班级+电话号码+入住时间

3 系统设计
3.1 系统总体设计
3.1.1 系统总体构造设计
采用构造化设计办法，其基本是模块化，构造化办法规定了一系列模块分解—协调原则和技术，将整个系统分解成相对独立若干模块，通过对模块设计和模块之间
关系协调来实现整个系统功能。
图3-1顶层模块构造图
3.2 系统详细设计
3.2.1 代码设计
代码设计原则
1.唯一性
每一种代码代表唯一实体或属性，而每一实体或属性由唯一代码来标记。
2.合理性
编码设计必要与编码对象分类体系相适应，以使代码对编码对象分类具备标记作用。
3.可扩充性和稳定性
编码时要留有足够备用代码，以便将来扩充。此外，还要考虑系统发展和变化，要考虑它有效期限，普通来说，应当使用3~5年。
4.简朴性。
代码构造要简朴，尽量缩短代码长度，以便于输入，提高解决效率，并且要便于辨认和记忆。此外在使用中要避免使用易于混淆字母。
5.合用性。
代码要尽量反映编码对象特点，以便于辨认与记忆；要同步合用于计算机和人工解决。
6.规范性。
代码构造、类型、编码格式必要严格统一，以便于计算机解决。
易于修改性。
8.原则化与通用性。

3.2.2 数据库设计
3.2.2.1 概念设计阶段
目的：概念构造设计师是将需求分析得到顾客需求抽象为信息构造即概念模型过程。它是整个数据库设计核心。概念构造设计环节分为两步：第一步是抽象数据并设计局部视图，第二步是集成局部视图，得到全局概念构造。
设计过程
（1）选取中层数据流为切入点，普通选取实际系统中子系统；
（2）设计分E-R图，即各子模块E-R图；
（3）生成初步E-R图，通过合并办法，做到各子系统实体、属性、联系统一；
（4）生成全局E-R图，通过消除冲突等方面。
通过度析系统业务流图与数据流图，得到系统环绕“车辆”与“车位”之间互有关系。
阶段成果，分E-R图：
图3-2 E - R图

3.2.2.2 建立数据表
表3.1 学生信息表
字段名
数据类型
字段长度与格式
可否为空
学号
字符型
8
Not Null
姓名
字符型
6
Not Null
寝室号
数值型
3
Not Null
所在宿舍楼
字符型
3
Not Null
所在班级
字符型
10
Not Null
电话号码
数值型
11
Not Null
入住时间
日期型
MM/DD/YYYY
Not Null
表3.2 管理员表
字段名
数据类型
字段长度与格式
可否为空
顾客名
字符型
10
Not Null
密码
字符型
6
Not Null

表3.3 寝室信息表
字段名
数据类型
字段长度与格式
可否为空
寝室号
字符型
3
Not Null
寝室人数
数值型
1
Not Null
床位数
数值型
1
Not Null
所在宿舍楼
字符型
3
Not Null
其她信息
字符型
20
Not Null
表3.4 宿舍楼信息表
字段名
数据类型
字段长度与格式
可否为空
宿舍楼号
字符型
3
Not Null
宿管
字符型
6
Not Null
保安
字符型
6
Not Null
清洁工
字符型
6
Not Null
宿管电话
数值型
11
Not Null
表3.5 晚归登记表
字段名
数据类型
字段长度与格式
可否为空
学号
字符型
8
Not Null
姓名
字符型
8
Not Null
性别
字符型
2
Not Null
所在宿舍楼
字符型
3
Not Null
晚归时间
日期型
MM/DD/YYYY
Not Null
晚归因素
字符型
20
Not Null
表3.6 人员来访表
字段名
数据类型
字段长度与格式
可否为空
来访人
字符型
8
Not Null
被访人
字符型
8
Not Null
宿舍楼号
字符型
3
Not Null
宿舍号
数值型
3
Not Null
来访时间
日期型
MM/DD/YYYY
Not Null
离开时间
日期型
MM/DD/YYYY
Not Null
备注
字符型
20
Not Null

表3.7 物品出入登记
字段名
数据类型
字段长度与格式
可否为空
学号
字符型
8
Not Null
带进物品
字符型
20
Not Null
带出物品
字符型
20
Not Null
时间
日期型
MM/DD/YYYY
Not Null
备注
字符型
20
Not Null
表3.8 退宿表
字段名
数据类型
字段长度与格式
可否为空
学号
字符型
8
Not Null
姓名
字符型
8
Not Null
性别
字符型
2
Not Null
所在宿舍楼
字符型
3
Not Null
寝室号
数值型
3
Not Null
入学日期
日期型
MM/DD/YYYY
Not Null
退学日期
日期型
MM/DD/YYYY
Not Null
所读专业
字符型
20
Not Null
表3.9 报损表
字段名
数据类型
字段长度与格式
可否为空
保修时间
日期型
MM/DD/YYYY
Not Null
保修物品
字符型
20
Not Null
数量
数值型
5
Not Null
因素
字符型
20
Not Null
所在宿舍楼
字符型
3
Not Null
寝室号
数值型
3
Not Null
表3.10 登录时刻表
字段名
数据类型
字段长度与格式
可否为空
学号
字符型
8
Not Null
3.2.2.1 建立数据库完整性

图3-2 数据库完整性

4 系统实行
4.1 系统实行重要任务
建立完毕数据库，设计合理、对的表单然后连编程序。每个子管理系统所需要表单都要建立完整，表单与数据表之间信息维护、表单与数据库之间数据联系、表单与表单之间调用都要做到完美，让各种子系统联系起来，完毕一种完整总系统可以运营完毕所需要功能。
4.2 系统程序设计
4.2.1 顾客登录系统

图4-1 登录界面设计
重要源代码见附页4.2.1 顾客登录系统模块。
4.2.2 子系统功能实现

图4-2 系统界面设计
重要源代码如下所示。
Destroy：release menu aaa extended
Init：do 主菜单.mpr with this,"aaa"
Rightclick：do 主菜单.mpr
4.2.3 学生管理模块

图4-3 浏览学生信息界面

点此退出...窗口：thisform.release

图4-4 添加学生信息
重要控件代码如下：
Command1(确认添加)：
if empty(thisform.text1.value)=.t. or len(allt(thisform.text1.value))!=8
messagebox("学号输入不对的，请重新输入")
thisform.Text1.value=""
else
if 学生信息表.学号=allt(thisform.Text1.value)
messagebox("已存在此学号，请重新输入")
thisform.Text1.value=""
else
insert 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("添加成功")
endif
endif
thisform.refresh

Command2(重新输入)：
thisform.Text1.value=""
thisform.text2.value=""
thisform.text3.value=0
thisform.text4.value=""
thisform.text5.value=""
thisform.text6.value=0
thisform.text7.value={}

Command3(返回):thisform.release

图4-5 查询学生信息界面
详细代码见附页4.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.refresh

Command2(重新输入)：
thisform.text1.value=""
thisform.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.value,thisform.text4.value,thisform.text5.value,thisform.text6.value,thisform.text7.value)
messagebox("添加成功")
thisform.refresh

Command2(重新输入)：
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text4.value=0
thisform.text5.value={}
thisform.text6.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.refresh

Command2(重新输入)：
thisform.text1.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.value,thisform.text5.value,thisform.text6.value,thisform.text7.value,thisform.text8.value)
messagebox("添加成功")
thisform.refresh

Command2(重新输入)：
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text4.value=""
thisform.text5.value=0
thisform.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.value)
messagebox("添加成功")
thisform.refresh

Command2(重新输入)：
thisform.text1.value={}
thisform.text2.value=""
thisform.text3.value=0
thisform.text4.value=""
thisform.text5.value=""
thisform.text6.value=0

Command3(返回)：thisform.release

4.2.5 寝室查询模块

图4-11 浏览学生晚归信息界面
Ccommand1(查询):
sele 晚归登记表
set filter to
locate for allt(晚归登记表.所在宿舍楼)=allt(thisform.text1.value) AND LEN(allt(晚归登记表.所在宿舍楼))=len(allt(thisform.text1.value))
if found()
set filter to (晚归登记表.所在宿舍楼)=allt(thisform.text1.value)
thisform.refresh
else
messagebox("没有此宿舍楼信息！")
Endif

点此退出...窗口：thisform.release

图4-12 浏览人员来访状况界面
Ccommand1(查询):
sele 人员来访表
set filter to
locate for allt(人员来访表.宿舍楼号)=allt(thisform.text1.value) AND LEN(allt(人员来访表.宿舍楼号))=len(allt(thisform.text1.value))
if found()
set filter to (人员来访表.宿舍楼号)=allt(thisform.text1.value)
thisform.refresh
else
messagebox("没有此宿舍楼信息！")
Endif

点此退出...窗口：thisform.release

图4-13 浏览物品出入信息界面
Ccommand1(查询):
sele 物品出入表
set filter to
locate for 物品出入表.时间=thisform.text1.value
if found()
set filter to (物品出入表.时间)=thisform.text1.value
thisform.refresh
else
messagebox("没有此时间段信息！")
Endif

点此退出...窗口：thisfo