熊全洪　李　忠

摘 要：ASP.NET作為新一代Web應用程序開發(fā)平臺，它是一個已編譯的、基于.NET的開發(fā)環(huán)境，它提供了生成企業(yè)級應用程序所必需的全部服務，基于 .NET Framework 生成，整個框架都可用于任何 ASP.NET 應用程序?？梢允褂萌魏闻c公共語言運行庫(CLR)兼容的語言(包括 Visual Basic.NET、C# 和 JScript .NET)來創(chuàng)建應用程序。我們可以充分運用asp.net與sqlserver的完美結(jié)合以及良好的開發(fā)優(yōu)勢，來創(chuàng)建本人事管理系統(tǒng)。

關鍵詞：數(shù)據(jù)庫；人事管理系統(tǒng)；三層架構(gòu)

1 背景及其意義

人力資源管理系統(tǒng)(HRMS，Human Resources Management System)，是指組織或社會團體運用系統(tǒng)學理論方法，對企業(yè)的人力資源管理方方面面進行分析，規(guī)劃、實施、調(diào)整，提高企業(yè)人力資源管理水平，使人力資源更有效的服務于組織或團體目標。

企業(yè)現(xiàn)代人事管理是建立在先進的軟件和高速、大容量的硬件基礎上的新的人力資源管理模式，同過集中式的信息庫、自動處理信息、員工自助服務、服務共享，達到降低成本、提高效率、改進員工服務模式。它通過與企業(yè)現(xiàn)有的網(wǎng)絡技術想聯(lián)系，保證人力資源與日新月異的技術環(huán)境同步發(fā)展。一般說來，可以分為四個部分來理解人力資源管理系統(tǒng)：

(1)管理人員角色和目標的改變。(2)提供更好的服務。(3)降低成本。(4)革新管理理念。

現(xiàn)代人力資源管理對企業(yè)的意義，體現(xiàn)在以下幾方面：

(1)對企業(yè)決策層。人、財、物、信息等，可以說是企業(yè)管理關注的主要方面，人又是最為重要的、活的、第一資源，只有管理好了“人”這一資源，才算抓住了管理的要義、綱領，綱舉才能目張。

(2)對人力資源管理部門。人不僅是被管理的“客體”，更是具有思想、感情、主觀能動性的“主體”，如何制定科學、合理、有效的人力資源管理政策、制度，并為企業(yè)組織的決策提供有效信息，永遠都是人力資源管理部門的課題。

(3)對一般管理者。任何管理者都不可能是一個“萬能使者”，更多的應該是扮演一個“決策、引導、協(xié)調(diào)”屬下工作的角色。他不僅僅需要有效地完成業(yè)務工作，更需要培訓下屬，開發(fā)員工潛能，建立良好的團隊組織等。

(4)對一個普通員工。任何人都想掌握自己的命運，但自己適合做什么、企業(yè)組織的目標、價值觀念是什么、崗位職責是什么、自己如何有效地融入組織中、結(jié)合企業(yè)組織目標如何開發(fā)自己的潛能、發(fā)揮自己的能力、如何設計自己的職業(yè)人生等，這是每個員工十分關心，而又深感困惑的問題。我們相信現(xiàn)代人力資源管理會為每位員工提供有效的幫助。

2 系統(tǒng)結(jié)構(gòu)設計

圖1

2.1 邏輯體系結(jié)構(gòu)

2.2 結(jié)構(gòu)設計如圖

圖2

2.3 系統(tǒng)環(huán)境概述

(1)系統(tǒng)開發(fā)操作系統(tǒng)：windows server 2003

(2)系統(tǒng)開發(fā)數(shù)據(jù)：MS SQL Server 2005

(3)系統(tǒng)前臺頁面設計：Dreamweaver CS3

(4)NET Framework：.NET Framework 2.0版可再發(fā)行組件包(.NET Framework 2.0框架)

(5)IDE開發(fā)工具：Microsoft Visual Studio 2005

3 需求分析

根據(jù)以上對人力管理內(nèi)容的和人力資源管理系統(tǒng)的分析，本人力管理系統(tǒng)主要由如圖3所示的各功能模塊組成

圖3

4 總體設計

(1)表示層：用于顯示用戶界面，其機構(gòu)如圖4所示。

圖4

(2)業(yè)務層：用于顯示層和數(shù)據(jù)層的交互。其中為了防止信息的安全，本系統(tǒng)使用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)) '獲取待加密的數(shù)據(jù)

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.數(shù)據(jù)層：用于存儲系統(tǒng)各項信息，是整個系統(tǒng)的核心，其結(jié)構(gòu)如圖5所示

圖5

5 數(shù)據(jù)庫連接

本系統(tǒng)通過web.config和一個數(shù)據(jù)庫操作類進行數(shù)據(jù)庫連接。代碼如下

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數(shù)據(jù)庫連接字符串

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

Private cn As SqlConnection '創(chuàng)建SQL連接

Private sda As SqlDataAdapter '創(chuàng)建SQL數(shù)據(jù)適配器

Private sdr As SqlDataReader '創(chuàng)建SQL數(shù)據(jù)讀取器

Private cmd As SqlCommand '創(chuàng)建SQL命令對象

Private ds As DataSet '創(chuàng)建數(shù)據(jù)集

Private dv As DataView '創(chuàng)建視圖

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 總結(jié)

本系統(tǒng)可以作為一個獨立的系統(tǒng)運行，也可以和其他的應用系統(tǒng)接何起來，實現(xiàn)數(shù)據(jù)共享。在設計系統(tǒng)的時候留有接口，可以為其他系統(tǒng)調(diào)用。由于時間倉促，設計仍有不滿之處，期待進一步的改進。