基于WEB的人事管理系统的开发与实现

修改密码部分代码如下：
If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then                                        //判断条件
   MM_editQuery = "update " & MM_editTable & " set " `
…………
MM_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
//新密码的确定
Next
MM_editQuery = MM_editQuery & "where"& MM_editColumn & " = " & MM_recorded                                   //更新SQL语句参数值
If (Not MM_abortEdit) Then
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection  //连接用户数据表
   MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute                               //执行语句
MM_editCmd.ActiveConnection.Close                //关闭连接
call fnCreateLog("更改密码")   //调用fnCreateLog函数创建日志       
5.4 员工详细资料显示模块
    员工显示模块如图5.5主要是用于显示员工的基本资料，通过这个模块可以看到员工的基本信息、婚姻状况、教育状况、工作经历、家庭情况、工作动态、惩罚记录、考勤记录、资薪和档案合同。
 
                                 图5.5 员工资料显示模块

5.5 查询员工信息模块
 
                               图5.6查询员工信息模块
可以通过查询员工信息模块查询员工的详细资料（例如：查询所有员工的信息、查询某部门员工的信息、查询某个员工的信息以及管理员选项等）。
在主界面上点击组合查询进入，重要代码如下：
………………  `获取前台界面查询字段值
Dim search  
Dim search_numRows  //查询字段数
Set search = Server.CreateObject("ADODB.Recordset")
search.ActiveConnection = MM_EmpMain_STRING  //连接数据库
search.Source = "SELECT distinct ID FROM Search where " & searchCondition
search.CursorType = 0
search.CursorLocation = 2
search.LockType = 1   //属性设置
search.Open()
search_numRows = 0
IDstring = ""
while not search.eof  //从第一条开始查到最后一条
IDstring = IDstring & search("ID") & ","
search.movenext       //下一条
5.6 新增员工信息模块
      如图5.7为新增员工信息模块。主要用于添加新员工的基本信息。
 
图5.7 增加员工模块
5.7 系统日志模块
     如图5.8为系统日志模块主要对登陆用户的时间和操作时间进行登记，有效的防止用户文明使用系统资源。
 
图5.8 系统日志模块
记录员工登陆信息的主要代码如下：
Function fnCreateLog(PageName)        //函数声明
UserID = request.Cookies("ID")        //缓存该id的权限
ProcessName = PageName                //把获取的值赋值给事件名
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_EmpMain_STRING   //实现数据库的连接
MM_editQuery = "insert into logMainTain (UserID,ProcessName) values ("&UserID&",'"&ProcessName&"')"       //插入语句
MM_editCmd.CommandText = MM_editQuery //对数据库查询语句容器赋值
MM_editCmd.Execute                  //执行语句  
End function

 
6 结论
通过几个多月来的设计，我能够较好把4年中所学的知识给综合运用在一起，充分把毕业设计的思想给体现在本系统的设计中 。本课题采用的各个技术把一个空白的页面规划成一个具有实用价值的站点。让我了解到了自己所学知识存在的价值。
本系统具有运行速度快、稳定性好的优点，可以作为企业人事管理部门进行人事网络管理的一种工具。能够有效的提高工作效率。它的不足之处是内容太少了。转贴于 酷文网-论文下载中心 http://www.coolwen.net

共9页: 上一页 [1] [2] [3] [4] [5] [6] [7] 8 [9] 下一页

网摘收藏:

上一篇：基于WEB的网上购物系统的开发与设计
下一篇：基于jsp的Web通用考试系统的开发与设计

 -> 在百度中搜索：基于WEB的人事管理系统的开发与实现
 -> 在Google中搜索：基于WEB的人事管理系统的开发与实现