学生宿舍管理系统实验报告Word格式.docx

学生宿舍管理系统实验报告Word格式.docx

《学生宿舍管理系统实验报告Word格式.docx》由会员分享，可在线阅读，更多相关《学生宿舍管理系统实验报告Word格式.docx（27页珍藏版）》请在冰豆网上搜索。

（4）测试第8周

通过计算机实现对学生进出公寓的管理，明确管理员的权限。

通过与数据库进行连接，实现对学生数据的存储，修改等管理。

当用户要进行登陆操作时，由终端将信息传送到系统当中，系统将登陆信息和数据库中的信息进行比对，判断用户是否合法。

用户可以进行信息修改和信息查询等操作。

系统流程图

第0层

第1层

第2层

第3层

*********************************************

名字：

用户号码

别名：

描述：

系统识别用户的号码

定义：

用户的识别序列

位置：

登录界面

水电信息

当月的水电费用

水电费用信息

水电信息查询、水电缴纳

宿舍检查信息

宿舍检查评级

检查成绩

宿舍检查信息录入、宿舍检查信息公布

个人信息

管理员与用户的基本信息

个人基本信息

个人信息录入、个人信息修改

学生宿舍信息

学生宿舍号码

学生与宿舍号的对应

学生宿舍号更改

用户密码

登陆检验

登陆密码

用户登陆

数据库表：

学生信息

卫生评级

宿舍报修

登记信息

快递代取

对与不存在的用户或密码错误进行报错处理，水电费用精确到0.1

Windows7，WindowsXP，SQLseveral2008

4.系统设计

4.1总体设计系统功能模块图：

4.2系统的详细设计

（1）登录模块

用户通过该模块进入系统进行操作，不同的用户类型获得不同的权限。

用户也可以通过该模块进行用户注册。

输入：

用户名，密码

处理：

核对用户信息

输出：

登录成功，登录失败

登录模块ＰＡＤ图

登录模块交互界面

（2）学生操作模块

学生用户通过该模块实现对数据的查询，修改等操作

输入：

操作选择

处理：

识别操作，进行响应

输出：

页面跳转

学生模块PAD图

学生模块交互界面

（3）管理员操作模块

管理员用户通过该模块实现用户信息的管理，拥有所有的权限。

操作选择

管理员模块PAD图

管理员模块交互界面

5.编码

5.1程序设计语言与数据库系统的选择

本系统采用html和JavaScript及sql语言等制作而成，数据库采用SQL2008。

5.2系统模块的编码实现

<

%

'

=========================================================================================

用户登录页

1.其中就是判断用户输入的用户名和密码是否正确？

2.如果正确，就将用户名、E-mail保存到Session中，然后重定向回首页。

3.如果不正确，就输出错误提示信息

%>

%OptionExplicit%>

metahttp-equiv="

Content-Type"

content="

asp;

charset=gb2312"

>

!

--#IncludeFile="

odbc_connection.asp"

-->

下面首先查看用户名和密码是否正确

DimstrSql,rs

strSql="

SelectstrUserId,strEmailFromtbAddress5WherestrUserId='

"

&

Request.Form（"

txtUserId"

）&

"

AndstrPwd='

txtPwd"

Setrs=conn.Execute（strSql）

IfNotrs.EofAndNotrs.BofThen

'

如果有记录，表示有该用户，则将用户名和Email保存到Session中

Session（"

strUserId"

）=rs（"

）

strEmail"

Response.Write"

p>

h1>

登录成功!

/h1>

/p>

ahref='

pro.asp'

确认身份<

/a>

Else

如果没有记录，表示用户名或密码可能不正确，请给出提示信息

对不起，用户名或密码有误，请<

index.asp'

返回首页<

重新登录"

EndIf

（2）个人信息修改模块

用户修改个人信息页

1.这其实就是一个普通的更新记录页面。

首先将原有内容显示在表单中，提交表单后再更新记录。

2.在更新记录时有些信息可以省略，所以SQL语句较为复杂。

以QQ号码为例，如果用户原来提交了QQ号码，在这里删除了QQ号码。

那么此时就需要将该字段值清空，这里使用NULL关键字，这样该字段值就被清空了。

事实上此时也可以用空字符串"

将其清空。

%OptionExplicit%>

html>

head>

<

title>

修改个人信息<

/title>

text/html;

scriptlanguage="

JavaScript"

functioncheck_Null（）{

alert（"

真实姓名不能为空!

）;

returnfalse;

}

E-mail不能为空!

returntrue;

}

/script>

/head>

bodybgcolor="

#FFCC80"

bodybackground="

6.jpg"

palign="

center"

imgsrc="

photo/6.jpg"

width="

200"

height="

100"

/>

body>

h2align="

/h2>

下面读取该用户的信息，然后将其显示在后面的表格中

DimstrSql,rs

strSql="

Select*FromtbAddress5WherestrUserId='

Setrs=conn.Execute（strSql）

%>

formname="

frmInfo"

onsubmit="

javascript:

returncheck_Null（）;

action="

method="

post"

tablewidth="

80%"

border="

1"

bordercolorlight="

#B0B0B0"

bordercolordark="

#FFFFFF"

cellspacing="

0"

cellpadding="

align="

<

trheight="

25"

<

tdwidth="

20%"

用户名<

/td>

%=Session（"

）%>

/tr>

td>

真实姓名<

inputtype="

text"

name="

txtName"

size=15value="

%=rs（"

strName"

*<

性别<

<

radio"

rdoSex"

value="

男"

%Ifrs（"

strSex"

）="

ThenResponse.Write"

checked"

男

女"

女

电话<

txtTel"

size="

strTel"

E-mail<

txtEmail"

40"

QQ号码<

txtQQ"

15"

strQQ"

个人简介<

textareaname="

txtIntro"

rows="

4"

cols="

50"

>

strIntro"

/textarea>

/table>

submit"

确　定"

/form>

IfRequest.Form（"

）<

AndRequest.Form（"

Then

'

下面建立SQL语句，因为某些字段允许为空，所以需要判断一下

strSql="

UpdatetbUsersSetstrName='

strSql=strSql&

strEmail='

strSex='

dtmSubmit=#"

Date（）&

#"

注意：

如果用户没有提交QQ号码，那么不管原来有没有QQ号码，都将该字段值用NULL清空了。

IfRequest.Form（"

）<

strSql=strSql&

strQQ='

Else

strQQ=NULL"

EndIf

关于电话的解释同上面的QQ

strTel='

strTel=NULL"

关于备注的解释同上面的QQ

strIntro='

strIntro=NULL"

EndIf

WherestrUserId='

conn.Execute（strSql）

关闭对象

conn.close

Setconn=Nothing

Response.Redirect"

index.asp"

EndIf

/body>

/html>

（3）密码修改模块

用户修改密码页

1.首先判断用户输入的旧密码是否正确？

如果正确，就更新为新密码，如果不正确，就提醒重新填写。

修改个人密码<

旧密码不能为空!

新密码不能为空!

新密码和确认密码必须一致!

5.jpg"

photo/5.jpg"

400"

修改密码<

frmPwd"

trbgcolor="

tdheight="

旧密码<

password"

txtOldPwd"

新密码<

txtNewPwd"

确认密码<

txtNewPwd2"

class="

inputbutton"

如果提交了表单，就执行下面更新操作

下面先判断旧密码是否正确

DimstrSql,rs

SelectstrPwdFromtbAddress5WherestrUserId='

Setrs=conn.Execute（strSql）

Ifrs（"

strPwd"

Request.Form（"

）Then

Response.Write"

palign='

center'

对不起，旧密码不正确，请重新输入！

'

下面更新密码

strSql="

UpdatetbAddress5SetstrPwd='

conn.Execute（strSql）

conn.close

Setconn=Nothing

重定向到首页

Response.Redirect"

（4）用户注册模块

用户注册页---第一步

1.这一步要让用户输入用户名和密码。

2.如果用户名可以使用，就添加到数据库中，继续下一步。

要注意此时会将用户名保存到Session中，以备下一个页面使用。

3.如果用户名已经被使用，就提醒用户修改用户名。

--#INCLUDEFILE="

注册：

第一步<

javascript"

用户名不能为空!

用户名不能少于4个字符，也不能多于20个字符"

密码不能为空!

re