vf宿舍管理完整实验.docxVIP

《数据库语言》实验报告 学院 专业 班级 学号 姓名 教师 2009 西安理工大学宿舍管理系统的设计与实现 一、引言 宿舍管理信息的手工登录与查询，是一项非常繁重而枯燥的劳动， 耗费许多人才和物力，而且会因人的情绪烦躁而出现失误，因此在计算 机飞速发展的今天，应用数据库技术实现酒店管理是可行而必要的工 作 。本课程设计旨在设计西安理工大学宿舍管理系统，提高工作效 率，提高管理水平。 二、系统分析 2.1 选择开发工具 操作系统： windows98/windows2000/windowsXP 开发语言： visual foxpro 6.0 2.2 功能分析 系统开发的总体任务是实现各种信息的系统化、规范化、和自动 系统功能分析是在系统开发的基础上完成。本例中的西安理工大学 宿舍管理系统可以完成的主要功能有： 宿舍查询系统的登录。 管理人员对学生信息的查询，添加，删除。 学生对个人信息的查询 流程图如下： 三、数据库设计 数据库需求分析：学生详细信息的保存、提供、添加，这就要求数据库结构 能充分满足各种信息的输入与输出。收集基本数据、数据结构以及数据处理流 程，组成一份详尽的数据字典，为后面的具体设计打下基础。 在仔细调查有关宿舍管理系统需求的基础上，得到如下的本系统所处理的数 据流程。 数据库设计如下： 学生详细信息表： 学生信息： 宿舍详细信息： 学生密码： 管理密码： 数据库关系如下： 四、表单及程序 1、系统进入界面 代码： 进入系统代码： do form 登陆界面.sex thisform.release 退出代码： thisform.release 登录界面： Form1 属性设置： Caption : 西安理工大学宿舍管理系统 V1.0 ShowWindow : 2 — 作为顶层表单 Form1 事件代码： Init 事件： do menu1.mpr with this,.t. 菜单的设计： 确定代码： n=0 if thisform.optiongroup1.option2.value=1 loca for 学 生 密 码 . 学 号 =allt (thisform.text1.value) and 学 生 密 码 . 密 码 =allt(thisform.text2.value) if found() do form 学生进入界面 .scx 学生进入界面 .refresh read event thisform.visible=.t. thisform.text2.value= else messagebox(输入用户名或密码错误 ”) thisform.text2.value= thisform.text2.setfocus n=n+1 endif if n=3 messagebox(次数超过限制) thisform.release endif endif if thisform.optiongroup1.option1.value=1 loca for 管 理 密 码 . 用 户 名 =allt (thisform.text1.value) and 管 理 密 码 . 密 码 =allt(thisform.text2.value) if found() do form 管理界面 .scx 管理界面 .refresh read event thisform.visible=.t. thisform.text2.value= else messagebox(输入用户名或密码错误 ”) thisform.text2.value= thisform.text2.setfocus n=n+1 endif if n=3 messagebox(次数超过限制) thisform.release endif endif 退出代码： thisform.release 管理界面： 点击打印后的界面： Form1 属性设置： Caption : 西安理工大学宿舍管理系统 V1.0 ShowWindow : 2 — 作为顶层表单 Commandgroup1 属性设置： command1—caption ：上一个 Comma nd2 — capti on： 下一个 Comma nd3 — capti on： 添力口 Comma nd4 — capti on： 删除 Comma nd5 — capti on： 退出 Comma nd1 — capti on：打印 Timer1 — interval ： 100 Form1 数据环境： 代码： 上一个： if not bof() skip -1 thisform.refresh endif 下一个： if not eof() skip thisform.refresh endif