ＡＳＰ．ＮＥＴ２．０人事管理系统

熊全洪　李　忠

摘 要：ASP.NET作为新一代Web应用程序开发平台，它是一个已编译的、基于.NET的开发环境，它提供了生成企业级应用程序所必需的全部服务，基于 .NET Framework 生成，整个框架都可用于任何 ASP.NET 应用程序。可以使用任何与公共语言运行库(CLR)兼容的语言(包括 Visual Basic.NET、C# 和 JScript .NET)来创建应用程序。我们可以充分运用asp.net与sqlserver的完美结合以及良好的开发优势，来创建本人事管理系统。

关键词：数据库；人事管理系统；三层架构

1 背景及其意义

人力资源管理系统(HRMS，Human Resources Management System)，是指组织或社会团体运用系统学理论方法，对企业的人力资源管理方方面面进行分析，规划、实施、调整，提高企业人力资源管理水平，使人力资源更有效的服务于组织或团体目标。

企业现代人事管理是建立在先进的软件和高速、大容量的硬件基础上的新的人力资源管理模式，同过集中式的信息库、自动处理信息、员工自助服务、服务共享，达到降低成本、提高效率、改进员工服务模式。它通过与企业现有的网络技术想联系，保证人力资源与日新月异的技术环境同步发展。一般说来，可以分为四个部分来理解人力资源管理系统：

(1)管理人员角色和目标的改变。(2)提供更好的服务。(3)降低成本。(4)革新管理理念。

现代人力资源管理对企业的意义，体现在以下几方面：

(1)对企业决策层。人、财、物、信息等，可以说是企业管理关注的主要方面，人又是最为重要的、活的、第一资源，只有管理好了“人”这一资源，才算抓住了管理的要义、纲领，纲举才能目张。

(2)对人力资源管理部门。人不仅是被管理的“客体”，更是具有思想、感情、主观能动性的“主体”，如何制定科学、合理、有效的人力资源管理政策、制度，并为企业组织的决策提供有效信息，永远都是人力资源管理部门的课题。

(3)对一般管理者。任何管理者都不可能是一个“万能使者”，更多的应该是扮演一个“决策、引导、协调”属下工作的角色。他不仅仅需要有效地完成业务工作，更需要培训下属，开发员工潜能，建立良好的团队组织等。

(4)对一个普通员工。任何人都想掌握自己的命运，但自己适合做什么、企业组织的目标、价值观念是什么、岗位职责是什么、自己如何有效地融入组织中、结合企业组织目标如何开发自己的潜能、发挥自己的能力、如何设计自己的职业人生等，这是每个员工十分关心，而又深感困惑的问题。我们相信现代人力资源管理会为每位员工提供有效的帮助。

2 系统结构设计

图1

2.1 逻辑体系结构

2.2 结构设计如图

图2

2.3 系统环境概述

(1)系统开发操作系统：windows server 2003

(2)系统开发数据：MS SQL Server 2005

(3)系统前台页面设计：Dreamweaver CS3

(4)NET Framework：.NET Framework 2.0版可再发行组件包(.NET Framework 2.0框架)

(5)IDE开发工具：Microsoft Visual Studio 2005

3 需求分析

根据以上对人力管理内容的和人力资源管理系统的分析，本人力管理系统主要由如图3所示的各功能模块组成

图3

4 总体设计

(1)表示层：用于显示用户界面，其机构如图4所示。

图4

(2)业务层：用于显示层和数据层的交互。其中为了防止信息的安全，本系统使用MD5算法给管理员密码进行加密，主要代码如下：

Public Module lzmd5

Function lizhong_md5(ByVal input As String) As String

Dim md5before As MD5 = MD5.Create() '定义一个加密前的变量

Dim data As Byte() = md5before.ComputeHash(Encoding.Default.GetBytes(input)) '获取待加密的数据

Dim aftermd5 As New StringBuilder() '定义一个加密后的变量

Dim i As Integer '进行加密处理

For i = 0 To data.Length - 1

aftermd5.Append(data(i).ToString("x4")) '64位加密

Next i

Return aftermd5.ToString '返回MD5密文

End Function

End Module

3.数据层：用于存储系统各项信息，是整个系统的核心，其结构如图5所示

图5

5 数据库连接

本系统通过web.config和一个数据库操作类进行数据库连接。代码如下

web.config

＜connectionStrings＞

＜add name="lisinghrconn" connectionString="Data Source=./SQLEXPRESS；AttachDbFilename=|DataDirectory|/lxrlxy.mdf；Integrated Security=True；User Instance=True"

providerName="System.Data.SqlClient" /＞

＜/connectionStrings＞

SQL.VB：

Public Class SqlDataBase'获取Web.Config数据库连接字符串

Private lisinghrconn As String = ConfigurationManager.ConnectionStrings("lisinghrconn").ConnectionString

Private cn As SqlConnection '创建SQL连接

Private sda As SqlDataAdapter '创建SQL数据适配器

Private sdr As SqlDataReader '创建SQL数据读取器

Private cmd As SqlCommand '创建SQL命令对象

Private ds As DataSet '创建数据集

Private dv As DataView '创建视图

Public Sub Open()

cn = New SqlConnection(lisinghrconn)

cn.Open()

End Sub

Public Sub Close()

If cn IsNot Nothing Then

cn.Close()

cn.Dispose()

End If

End Sub

Public Function GetDs(ByVal strSql As String) As DataSet

Open()

sda = New SqlDataAdapter(strSql，cn)

ds = New DataSet()

sda.Fill(ds)

Close()

Return ds

End Function

Public Sub GetDs(ByVal ds As DataSet，ByVal strSql As String，ByVal strTableName As String)

Open()

sda = New SqlDataAdapter(strSql，cn)

sda.Fill(ds，strTableName)

Close()

End Sub

Public Function GetDv(ByVal strSql As String) As DataView

dv = GetDs(strSql).Tables(0).DefaultView

Return dv

End Function

Public Function GetTable(ByVal strSql As String) As DataTable

Return GetDs(strSql).Tables(0)

End Function

Public Function GetDataReader(ByVal strSql As String) As SqlDataReader

Open()

cmd = New SqlCommand(strSql，cn)

sdr = cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

Return sdr

End Function

Public Sub RunSql(ByVal strSql As String)

Open()

cmd = New SqlCommand(strSql，cn)

cmd.ExecuteNonQuery()

Close()

End Sub

End Class

End Namespace

6 总结

本系统可以作为一个独立的系统运行，也可以和其他的应用系统接何起来，实现数据共享。在设计系统的时候留有接口，可以为其他系统调用。由于时间仓促，设计仍有不满之处，期待进一步的改进。