完整word版VF宿舍管理系统实验报告.docx

完整word版VF宿舍管理系统实验报告.docx

《完整word版VF宿舍管理系统实验报告.docx》由会员分享，可在线阅读，更多相关《完整word版VF宿舍管理系统实验报告.docx（16页珍藏版）》请在冰点文库上搜索。

完整word版VF宿舍管理系统实验报告

《数据库语言》实验报告

学院

专业

班级

学号

姓名

教师

2009

西安理工大学宿舍管理系统的设计与实现

一、引言

宿舍管理信息的手工登录与查询，是一项非常繁重而枯燥的劳动，耗费许多人才和物力，而且会因人的情绪烦躁而出现失误，因此在计算机飞速发展的今天，应用数据库技术实现酒店管理是可行而必要的工作。

本课程设计旨在设计西安理工大学宿舍管理系统，提高工作效率，提高管理水平。

二、系统分析

2.1选择开发工具

操作系统：

windows98/windows2000/windowsXP

开发语言：

visualfoxpro6.0

2.2功能分析

系统开发的总体任务是实现各种信息的系统化、规范化、和自动化。

系统功能分析是在系统开发的基础上完成。

本例中的西安理工大学宿舍管理系统可以完成的主要功能有：

Ø宿舍查询系统的登录。

Ø管理人员对学生信息的查询，添加，删除。

Ø学生对个人信息的查询

流程图如下：

三、数据库设计

数据库需求分析：

学生详细信息的保存、提供、添加，这就要求数据库结构能充分满足各种信息的输入与输出。

收集基本数据、数据结构以及数据处理流程，组成一份详尽的数据字典，为后面的具体设计打下基础。

在仔细调查有关宿舍管理系统需求的基础上，得到如下的本系统所处理的数据流程。

数据库设计如下：

学生详细信息表：

学生信息：

宿舍详细信息：

学生密码：

管理密码：

数据库关系如下：

四、表单及程序

1、系统进入界面

代码：

进入系统代码：

doform登陆界面.scx

thisform.release

退出代码：

thisform.release

登录界面：

Form1属性设置：

Caption:

西安理工大学宿舍管理系统V1.0

ShowWindow:

2—作为顶层表单

Form1事件代码：

Init事件：

domenu1.mprwiththis,.t.

菜单的设计：

确定代码：

n=0

ifthisform.optiongroup1.option2.value=1

locafor学生密码.学号=allt（thisform.text1.value）and学生密码.密码=allt（thisform.text2.value）

iffound（）

doform学生进入界面.scx

学生进入界面.refresh

readevent

thisform.visible=.t.

thisform.text2.value=""

else

messagebox（"输入用户名或密码错误"）

thisform.text2.value=""

thisform.text2.setfocus

n=n+1

endif

ifn>=3

messagebox（"次数超过限制"）

thisform.release

endif

endif

ifthisform.optiongroup1.option1.value=1

locafor管理密码.用户名=allt（thisform.text1.value）and管理密码.密码=allt（thisform.text2.value）

iffound（）

doform管理界面.scx

管理界面.refresh

readevent

thisform.visible=.t.

thisform.text2.value=""

else

messagebox（"输入用户名或密码错误"）

thisform.text2.value=""

thisform.text2.setfocus

n=n+1

endif

ifn>=3

messagebox（"次数超过限制"）

thisform.release

endif

endif

退出代码：

thisform.release

管理界面：

点击打印后的界面：

Form1属性设置：

Caption:

西安理工大学宿舍管理系统V1.0

ShowWindow:

2—作为顶层表单

Commandgroup1属性设置：

command1—caption：

上一个

Command2—caption：

下一个

Command3—caption：

添加

Command4—caption：

删除

Command5—caption：

退出

Command1—caption：

打印

Timer1—interval：

100

Form1数据环境：

代码：

上一个：

ifnotbof（）

skip-1

thisform.refresh

endif

下一个：

ifnoteof（）

skip

thisform.refresh

endif

添加：

doformtj.scx

删除：

sy=messagebox（"确认删除学生吗？

",4+32+256,"确认"）

ifsy=6

dele

pack

endif

thisform.refresh

退出：

thisform.release

打印：

reportform学生详细信息00for学号=alltrim（thisform.txt学号.value）preview

Timer1代码：

thisform.label1.left=thisform.label1.left-10

ifthisform.label1.left<0

thisform.label1.left=500

endif

报表设计：

添加界面：

确认添加代码：

dimensiona（5）

use学生详细信息00

docase

caselen（thisform.text1.value）>0andlen（thisform.text2.value）>0andlen（thisform.text3.value）>0andlen（thisform.text4.value）>0andlen（thisform.text5.value）>0

storethisform.text1.valuetoa

（1）

storethisform.text2.valuetoa

（2）

storethisform.text3.valuetoa（3）

storethisform.text4.valuetoa（4）

storethisform.text5.valuetoa（5）

zy=messagebox（"确认添加新纪录？

",4+32+256,"确认"）

ifzy=6

appendblank

gobottom

gatherfromafields学号,姓名,性别,籍贯,出生日期

messagebox（"添加成功！

"）

thisform.release

endif

caselen（thisform.text1.value）=0orlen（thisform.text2.value）=0orlen（thisform.text3.value）=0orlen（thisform.text4.value）=0orlen（thisform.text5.value）=0

messagebox（"输入值不能为空！

"）

endcase

use密码

docase

caselen（thisform.text1.value）>0andlen（thisform.text2.value）>0andlen（thisform.text3.value）>0andlen（thisform.text4.value）>0andlen（thisform.text5.value）>0

appendblank

gobottom

replace学号witha

（1）

replace密码witha

（1）

endcase

thisform.refresh

返回代码：

Thisform.release

学生进入界面：

Form1属性：

Caption:

西安理工大学宿舍管理系统V1.0

ShowWindow:

2—作为顶层表单

Form1事件代码：

Init事件：

domenu1.mprwiththis,.t.

菜单设计：

退出代码：

thisform.release

五、总结

1.通过VF做这个西安理工大学宿舍管理系统，我把许多课堂上的理论知识，应用于实践。

2.把整个系统的各个程序串起来就可以形成一个完整的系统，最后用菜单来显示整个过程可以有提纲挈领的效果。

3.在做8个按钮的时候，要注意各个按钮的关系，注意按钮的属性。

4.报表的制作可以手工也可以用想到做，改变报表样式使其更美观。

5.在做菜单时要注意做成顶层菜单。

在输入命令的时候要注意文件后缀。

6.在做VF的时候要注意设置默认路径，将所有文件程序都放在默认路径的文件里，防止丢失，供后来再作调整。

7.再建表的时候一定要注意没有相同的记录，也不可以有几个空记录，空纪录也被认为是相同记录。

表中的字段类型要准确，字符长度要确定，在建立连接时要注意两个表中相同字段类型、长度要一直

8.在做VF的时候容易出现一些系统自己的错误，有时可以尝试关掉VF重新开一个也许会避免一些错误。