鉴于大家对其他类别十分关注，我们编辑小组在此为大家搜集整理了“企业人员管理系统”一文，供大家参考学习
3.5 系统用户管理 在如图3.19所示的系统功能模块页面上单击右上角的【用户管理】按钮，将在左侧的窗口中显示【添加用户】、【删除用户】和【信息修改】三个功能按钮，如图3.25所示。 图3.25 添加用户页面 在系统用户管理模块中可以对使用该系统的用户进行管理，包括用户添加、用户的删除和用户信息的修改。在进入模块中各功能子模块时，也应首先进行登录用户的权限验证。当session（“usertype”）的值为“管理员”时，可以进入功能模块，否则不能进入[6]。 3.5.1添加用户 由于企业人员管理系统是一个专用的应用程序，因此不提供用户注册的功能。在系统初始化时，可使用有一个名为admin的默认管理员帐户进行登录。根据需要admin管理员可以添加其他的系统用户，添加页面如图3.26所示。 图3.26 添加用户页面 在添加用户时，不但要键入添加用户的用户名和密码，还要设置该用户的类型：管理员或一般用户。管理员可以在系统中进行所有的管理操作，而一般用户只能浏览人员信息。新添加的系统用户信息可以用Insert into语句将其写入数据表adminuser中。具体实现语句如下： ''删除字符串两边的空格符 <% user=trim(Request.Form("username")) pwd=trim(Request.Form("pwd")) usertype=Request.Form("usertype") rst.CursorType = 0 rst.CursorLocation = 2 rst.LockType = 3 strSQL="SELECT * FROM administrator WHERE UserName=" &"''"& user &"''" rst.open strSQL， my_conn %> <%if rst.EOF or rst.BOF then %> <%rst.close%> <% ''用户信息入数据库 StrSql = "INSERT INTO administrator (UserName，Password，UserType) Values (''" StrSql = StrSql & user & "''， ''" StrSql = StrSql & pwd & "''， ''" StrSql = StrSql & usertype & "'' ) " my_conn.Execute StrSql <%else%> Response.write(“用户名重复，请重新填写！”) End if %> 3.5.2删除用户 在图3.25的左侧，单击【删除用户】按钮，将进入用户删除页面，如图3.27所示。 图3.27 删除用户页面 单击【删除】按钮，在经过删除确认之后，该系统用户将从数据表adminuser表中删除。删除数据记录可以使用delete语句，具体如下： strSQL="DELETE FROM administrator WHERE ID =''"+id+"''" 3.5.3信息修改 在图3.25的左侧，单击【信息修改】按钮，将进入用户信息修改页面，如图3.28所示。 图3.28 用户信息修改页面 要修改用户信息，首先要从数据表administrator中读取用户的原始信息，这可以通过Select语句实现，具体如下： strSQL = "Select * from administrator Where UserName="&"''"&username&"''" 要修改的系统用户信息可以是用户名或密码。在信息修改完毕之后，应将新的用户信息在数据表administrator中进行更新，具体的实现语句如下： StrSql ="Update administrator set PassWord="&"''"& password &"''"&"where ID=" &"''"&id&"''" my_Conn.Execute StrSql StrSql ="Update administrator set UserName="&"''"& user &"''"&"where ID=" &"''"&id&"''" my_Conn.Execute StrSql |
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
