行政单位管理信息系统的设计与实现

相关主题

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

行验证。首先判断输入的用户编号和密码是否为空，如果是空，则显示“请输入用户名或密码”的提示信息，提示用户输入信息。当用户编号和密码都不为空时，则到“address2.mdb”数据库的表中查询对应的记录，如果找到，则成功进入主界面，否则出现报错的提示信息，要求重新输入信息。当输入的信息完全正确时，则进入主界面。

系统所有使用人员，进入系统首先进入登录界面，进行身份认证，系统登录界面如下图5-1所示：

图5-1 用户登录界面

管理员输入用户名和密码之后，选择“系统管理员”选项，单击“登陆”按钮，即进入了管理员登陆首页，管理员首页界面如下图5-2所示：

图5-2 管理员主界面

访客不需输入用户名和密码，直接选择“访客”选项，单击“登陆”按钮，即进入了访客登陆首页，访客首页界面如下图5-3所示：

图5-3 访客主界面

(3)“用户登录”代码：

用户登陆：

用户名：

密码：

系统管理员

教职工

行登录。如下图5-4所示：

图5-4 “添加用户”界面

（3）“用户添加”代码：

用户名
密码
电话号码

On Error Resume Next

If Trim(Request("user"))<>"" and Trim(Request("password"))<>""Then

dim user,password,tel

user=request.Form("user")

password=request.Form("password")

tel=request.Form("tel")

dim rs,strSql

set rs=Server.CreateObject("ADODB.Recordset")

strsql="insert into teacher (user,password,tel) values

('"&user&"','"&password&"','"&tel&"')"

rs.open strsql,db,1,1

response.Write"您成功添加了下面的用户"

5.2.2 用户删除设计

删除用户窗体是用于对已存在的用户的密码进行修改。

（1）模块实现

在删除界面中，输入需要删除的用户名，单击“确定”按钮，即可将所选择的用户信息进行删除。如下图5-5所示：

图5-5 “用户删除”界面

(2) “删除用户”代码：

If Trim(Request("user"))<>"" Then

Dim strSql

strSql ="Delete From teacher Where user='" & Request("user") & "'"

Dim number

db.Execute strSql,number

If number=0 Then

Response.Write "用户名输入错误，找不到记录"

Else

Response.Write "

共有" & number & "条数据被删除"

response.Write "
"

response.Write "请确认:"&request("user")&"用户已经被删除"

End If

5.2.3 密码修改设计

密码修改是用来修改个人登录密码。