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

熊全洪　李　忠

摘 要：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 總結

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