【vf课程设计】基于visual foxpro的学生公寓管理信息系统的开发（提供完整源代码）

《【vf课程设计】基于visual foxpro的学生公寓管理信息系统的开发（提供完整源代码）》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、课程设计说明书课程名称：VISUALFOXPRO程序设计设计题目：学生公寓管理信息系统的开发学院：信息科学与工程学院姓名:学号：1.课程设计的目的开发这个系统的目的就是帮助学校的公寓管理部门提高工作效率，实现公寓管理的系统化、规范化和自动化。随着计算机信息技术的发展和进步，我们的社会已逐步向数字化、信息化、网络化迈进。学校作为发展的先驱，已经普遍使用计算机系统来进行各个部门的管理工作。学生公寓管理信息系统的主要功能特色有：1）各基础信息管理：包括了校区、公寓、专业、学生等相关基础信息的管理，方便系统管理。2）来访

2、人员日常行为管理：包括来访人员资料调查、统计及信息共享与传递。3）强大的查询功能：可以单独查询任意学生、任意时点的来访人员资料，也可单独查询任意房间、任意宿舍楼等。2．设计方案论证2.1总体设计2.1.1配置方案系统配置要根据用户的实际情况来定，主要依据就是系统工程的吞吐量和系统对稳定性的要求，此外，用户的维护水平也是需要考虑的重要因素。软件配置主要包括数据库的选择和操作系统的选择。学生公寓管理系统的软件配置要根据用户对系统工程的稳定性要求，系统的容量以及用户的维护水平来确定。2.2代码设计2.2.1欢迎界面代码

3、分析与实现该部分代码为系统工程提供一个欢迎界面，其功能是通过设置全局变量，使Label1Label2的字体大小和颜色循环变化，循环到所设定的次数后进入系统主界面，同时单击该界面也可立即进入系统主界面，下面是代码的具体实现。为表单添加代码。在其Init事件中添加中添加如下代码：publicipublicji=0j=0在其KeyPress事件中添加如下代码：thisform.releasedoformmain在表单的Click事件中添加如下代码：doformmain为Timer控件添加代码，在其Timer事件中添加

4、如下代码：ifi=0thisform.label1.fontsize=25thisform.label2.fontsize=25thisform.label1.forecolor=16711935thisform.label2.forecolor=65535i=1j=j+1elsethisform.label1.fontsize=25thisform.label2.fontsize=25thisform.label2.forecolor=rgb(0,255,0)thisform.label1.forecolor=

5、rgb(0,0,255)i=0j=j+1endififj>5thisform.releasedoformmainendif2.2.2系统主界面代码分析与实现在该界面的代码中通过设置全局变量来实现对各种操作的切换，如对查询、数据维护、成员删除和打印等操作的切换。下面是代码的具体实现。为“查询”按钮添加代码。在其Click事件中添加如下代码：publicmmdoformchecker2mm=1该功能是用户通过身份验证后，执行mm=1的过程，也就是查询操作。在“查询”按钮的MouseMove事件中添加如下代码：this

6、.forecolor=rgb(130,0,0)thisform.command2.forecolor=rgb(0,30,0)thisform.command3.forecolor=rgb(230,30,0)thisform.command4.forecolor=rgb(0,30,230)thisform.command5.forecolor=rgb(100,230,30)为“数据维护”按钮添加代码，在其Click事件中添加如下代码：publicmmdoformchecker1mm=4该功能是用户通过身份验证后，执

7、行mm=4的过程，也就是成员删除操作。为“打印”按钮添加代码，在其Click事件中添加如下代码：publicmmdoformchecker2mm=2上面代码的功能是用户通过身份验证后，执行mm=2的过程，也就是打印操作。2.2.3查询部分界面代码分析与实现该部分代码实现当管理员通过身份验证后，就可以进入查询主界面，然后在主界面可以选择各各查询操作。如查询寝室情况、查询用水电量、查询公寓情况、查询寝室评分等。1）用户验证界面代码分析与实现该部分代码实现对管理员身份的验证。为表单添加代码，在其init事件中添加如下代

8、码：publicinpswd1inpswd1=0为“确定”按钮添加代码，在其Click事件中添加如下代码：ifempty(thisform.text1.value)orempty(thisform.text2.value)messagebox("输入的信息不完整,请重新输入!",48,"警告")inpswd1=inpswd1+1ifinpswd1>=3messagebox