人力資源管理系統(tǒng)教材

1、項(xiàng)目 4 人力資源管理系統(tǒng) 項(xiàng)目來源：湖南科創(chuàng)信息技術(shù)股份有限公司 隨著市場(chǎng)競(jìng)爭的日趨激烈，人才已成為實(shí)現(xiàn)企業(yè)自身戰(zhàn)略目標(biāo)的一個(gè)非常關(guān)鍵的因素。 企業(yè)中人心向背和員工對(duì)工作的投入程度在很大程度上決定了該企業(yè)的興衰與成敗。 如何能 保持本企業(yè)對(duì)員工的工作責(zé)任感， 激勵(lì)他們的工作熱情， 減少人才的流失， 已成為困擾企業(yè) 主管和人力資源經(jīng)理的一個(gè)日益尖銳的問題，可以說企業(yè)管理從根本上來講就是對(duì)人的管 理?，F(xiàn)在“公平、公正、合理”的企業(yè)管理原則已為不少企業(yè)所采納。但是要實(shí)現(xiàn)“公平、 公正、合理”絕非易事，它不是僅靠規(guī)章制度和政策就可以解決的。通過建立透明、相容、 一致、易查和全面的人力資源信息系統(tǒng)，

2、將與人相關(guān)的信息統(tǒng)一地管理起來， 才有可能為 “公 平、公正、 合理” 原則的實(shí)現(xiàn)，以及企業(yè)在運(yùn)作和勞資糾紛等方面的風(fēng)險(xiǎn)規(guī)避等建立一套科 學(xué)的保障體系。 本章將向讀者全面剖析人力資源管理的內(nèi)容， 由此得出人力資源管理系統(tǒng)需求分析和數(shù)據(jù)建 模，并最終演示如何利用 Visual Basic.NET 完成系統(tǒng)的制作。 1 人力資源管理的任務(wù)與作用 1.1 人力資源管理的任務(wù) 人力資源管理工作的主要任務(wù)有： 進(jìn)行人力資源規(guī)劃和分析 貫徹平等就業(yè)機(jī)會(huì)原則 聘任員工 從事人力資源開發(fā) 確定報(bào)酬和福利 處理員工與勞資關(guān)系 人力資源規(guī)劃和分析包括幾方面的任務(wù)。 在進(jìn)行人力資源規(guī)劃的過程中， 經(jīng)理人員將預(yù) 計(jì)未

3、來影響勞動(dòng)力供求的有關(guān)因素。 人力資源分析要求具備各種相關(guān)的信息資料、 通信系統(tǒng) 和評(píng)價(jià)系統(tǒng)，它們是從事協(xié)調(diào)人力資源工作所不可或缺的部分。 政府在遵從平等就業(yè)機(jī)會(huì)法規(guī)方面的要求， 無疑將對(duì)所有其他人力資源管理工作產(chǎn)生重 大影響。 例如， 企業(yè)在進(jìn)行戰(zhàn)略性人力資源規(guī)劃時(shí)， 為貫徹在雇傭少數(shù)種族成員和婦女方面 的贊助性行為的要求， 就必須為雇傭各種各樣的雇員留有充分的余地。 另外在招聘選拔和培 訓(xùn)人員時(shí)，所有經(jīng)理人員都必須遵守平等就業(yè)機(jī)會(huì)法規(guī)的要求。 聘任員工指選擇適合標(biāo)準(zhǔn)要求的相應(yīng)數(shù)量的人員， 來填補(bǔ)企業(yè)的崗位空缺。 職務(wù)分析是 聘任工作的基礎(chǔ)。 根據(jù)職務(wù)分析所得結(jié)論， 就可以準(zhǔn)備工作說明書和職

4、務(wù)要求細(xì)則， 這兩項(xiàng) 都是在招聘中所需使用的材料。 在人員選拔過程中， 應(yīng)特別注意選擇最符合要求的員工來填 補(bǔ)企業(yè)的崗位空缺。 員工培訓(xùn)與人力資源開發(fā)工作包括想新雇員介紹企業(yè)的各種情況、對(duì)現(xiàn)有員工進(jìn)行職業(yè) 技能培訓(xùn)、鼓勵(lì)和幫助員工在多方面提高和發(fā)展等內(nèi)容。在職務(wù)不斷演化和改變的環(huán)境下， 為了適應(yīng)技術(shù)的變化，企業(yè)就必須對(duì)員工進(jìn)行培訓(xùn)和再培訓(xùn)。 此外，為迎接未來的挑戰(zhàn)，還 必須鼓勵(lì)各級(jí)負(fù)責(zé)人、 管理者和所有員工不斷有所發(fā)展和提高。 為此企業(yè)一般制定了員工職 業(yè)發(fā)展計(jì)劃，這種計(jì)劃的目的，是為那些在企業(yè)內(nèi)尋求自我發(fā)展的員工設(shè)計(jì)出發(fā)展的路徑， 并安排為此所需要的有關(guān)活動(dòng)。 為了提高員工的工作成效， 企業(yè)

5、還應(yīng)對(duì)員工的工作表現(xiàn)進(jìn)行 考核，以確定員工的本職工作究竟做的怎么樣。 報(bào)酬就是通過薪金、 獎(jiǎng)勵(lì)和福利等方式來報(bào)答為企業(yè)工作的員工。 企業(yè)必須認(rèn)真設(shè)計(jì)和 不斷完善基本工資和薪酬制度。 除了工薪以外， 越來越多的企業(yè)好指定了某些獎(jiǎng)勵(lì)計(jì)劃， 例 如利潤分享和工作獎(jiǎng)勵(lì)等。 但是另一方面， 快速增長的福利費(fèi)用， 特別是扶搖直上的醫(yī)療的 保健費(fèi)用，仍將繼續(xù)是一個(gè)值得思考和認(rèn)真對(duì)待的重大問題。 如果員工和企業(yè)雙方都想聯(lián)手共創(chuàng)繁榮， 那么管理著和員工就必須卓有成效地處理雙方 的關(guān)系。 不論員工是否由工會(huì)來代表， 企業(yè)都必須重視與員工健康、 人身安全和財(cái)物保障有 關(guān)的各項(xiàng)工作。 為促成企業(yè)與員工的良好關(guān)系， 企

6、業(yè)還必須保障員工的各種權(quán)利。 另外為了 使員工如同管理者那樣準(zhǔn)確地了解企業(yè)對(duì)員工的期望。 企業(yè)還必須制定、 傳達(dá)和不斷更新人 力資源政策和規(guī)則。在有工會(huì)的企業(yè)中，企業(yè)還應(yīng)重視和處理好資方和工會(huì)的關(guān)系。 1.2 人力資源管理系統(tǒng)的作用 人力資源管理系統(tǒng)是以先進(jìn)的軟件和高速、 大容量的硬件為基礎(chǔ)的， 新的人力資源管理 模式，通過集中式的信息庫、自動(dòng)處理信息、員工自助服務(wù)、外協(xié)以及服務(wù)共享，達(dá)到降低 成本、 提高效率、改進(jìn)員工服務(wù)模式的目的。 它通過與企業(yè)現(xiàn)有的網(wǎng)絡(luò)技術(shù)相聯(lián)系，保證人 力資源與日新月異的技術(shù)環(huán)境同步發(fā)展。 一般來說， 可以分為四個(gè)部分來理解人力資源管理 系統(tǒng)。 1. 管理人員角色和目

7、標(biāo)的改變 傳統(tǒng)的人力資源管理中，管理人員的絕大部分精力將耗費(fèi)在繁瑣的日常行政事務(wù)處理 上，而作為企業(yè)管理層的參謀角色應(yīng)該做的咨詢和策略制定的工作相對(duì)缺乏。 通過人力資源 管理系統(tǒng)管理人員將決大部分精力放在管理層提供咨詢、 建議上， 而在行政事務(wù)上的工作可 以由電子化系統(tǒng)完成，只需占用 HR 人員極少的精力和時(shí)間。 2 提供更好的服務(wù) 人力資源管理系統(tǒng)可以迅速、 有效地收集各種信息， 加強(qiáng)內(nèi)部的信息溝通。 各種用戶可 以直接從系統(tǒng)中獲得自己所需要的各種信息，并根據(jù)相關(guān)信息做出決策和相應(yīng)的行動(dòng)方案。 3. 降低成本 人力資源管理系統(tǒng)通過減少人力資源管理工作的操作成本、 降低員工流動(dòng)率、 減少通訊

8、費(fèi)用等途徑達(dá)到降低企業(yè)運(yùn)作成本的目的。 4. 革新管理理念 人力資源管理系統(tǒng)的最終目的是達(dá)到革新企業(yè)的管理理念而不僅僅是改進(jìn)管理方式、 優(yōu) 化人力資源管理。 先進(jìn)技術(shù)應(yīng)用與人力資源管理時(shí)， 并不僅僅是為了將現(xiàn)有的人力資源工作 做的更好， 更重要的是， 做些對(duì)于企業(yè)來講更有效率的事情， 成為管理層的決策支持者，為 決策提供信息和解決方案。 2 功能分析與系統(tǒng)流程圖 由于篇幅有限， 本實(shí)例詳細(xì)介紹如圖 1 所示的功能開發(fā)過程， 并簡化其中各功能所包含 的屬性，其他功能讀者完全可以參照這些功能的開發(fā)方法實(shí)現(xiàn)。 人力資源管理系 機(jī)構(gòu)踹制矗騙 =1機(jī)構(gòu)詳細(xì)信息 機(jī)構(gòu)編制管理 圖1詳細(xì)介紹的功能模塊 圖2

9、系統(tǒng)流程圖 3數(shù)據(jù)庫設(shè)計(jì) 一個(gè)基本的人力資源管理系統(tǒng)數(shù)據(jù)庫中包括多張數(shù)據(jù)表，分別存放相應(yīng)子功能的數(shù)據(jù)信 息，其中組織機(jī)構(gòu)編碼表和職員基本信息表是起關(guān)鍵作用的表，用于存放基礎(chǔ)的數(shù)據(jù)信息。 其他涉及組織機(jī)構(gòu)信息和職員信息的數(shù)據(jù)表，都只記錄機(jī)構(gòu)或職員的編號(hào)，根據(jù)作為外鍵的 編號(hào)字段和組織機(jī)構(gòu)編碼表或職員基本信息表相對(duì)應(yīng)。因此這2張表和其他數(shù)據(jù)表間的關(guān)系 是1: N的關(guān)系。 本程序共需8張表，用途分別如表 1所示。 表1系統(tǒng)數(shù)據(jù)表及其用途 數(shù)據(jù)表名稱 數(shù)據(jù)表用途 用戶清單 保存系統(tǒng)使用者的信息 職員基本信息表 用于保存企業(yè)組織機(jī)構(gòu)的詳細(xì)信息，包括機(jī)構(gòu)間的層次編碼等 組織機(jī)構(gòu)編碼表 用于保存企業(yè)員工的基

10、本信息 月工資統(tǒng)計(jì)表 用于保存、計(jì)算當(dāng)月的員工工資 個(gè)人所得稅表 用于保存?zhèn)€人所得稅的稅率數(shù)據(jù) 工資發(fā)放歷史表 用于保存所有月份工資發(fā)放的歷史 職員獎(jiǎng)勵(lì)表 用于保存員工的獎(jiǎng)勵(lì)情況 職員懲罰表 用于保存員工的懲罰情況 不計(jì)稅工熒 工貿(mào)下限 a_tfB 于人所得銳宰 逸迫扣曉釵 zJ 月工資統(tǒng)計(jì)表 HKI上J 識(shí)員嵋號(hào) 董本工費(fèi) 川尸荷單 浮動(dòng)工資 用戶扁號(hào) 合同補(bǔ) 部匚 啊補(bǔ)_ 1 密碼 1*1|并十冶J 繪奴機(jī)柏編碼表 類剔 jkbsIiLd.4x It anlTidasc ItAnLbVAl 類別號(hào) 單應(yīng)褊號(hào) 單垃地址 單僮電話號(hào)碼 開戶恨疔 帳號(hào) 開尸全稱 序號(hào) n員騙號(hào) 慈罰類単 循罰金

11、罰 是舌計(jì)人工費(fèi) 蕩罰原因 剽血見 連罰日醐 職員基豐佶息表 內(nèi)部編號(hào) 職員藹號(hào) 姓E簡瑪 出生曰朋 年齡 ftp 1 民族 I 工黃發(fā)放歷史表 日朗 基本工倚 浮動(dòng)工貴 合同補(bǔ) waw卜 底卄 iwim 犁獎(jiǎng)勵(lì)表 序號(hào) 刻0類世 是否計(jì)入工資 煩原因 W3HS 見 煩日期 以下為數(shù)據(jù)表之間的關(guān)系圖 圖3數(shù)據(jù)表關(guān)系圖 3.1創(chuàng)建數(shù)據(jù)庫 打開SQL Server企業(yè)管理器，新建一個(gè)數(shù)據(jù)庫，將其命名為hrmbook。后面幾小節(jié)我 們將列出幾個(gè)重點(diǎn)的數(shù)據(jù)表的建庫腳本。 3.2創(chuàng)建“組織機(jī)構(gòu)編碼表” CREATE TABLE dbo.組織機(jī)構(gòu)編碼表( 內(nèi)部編號(hào)int IDENTITY (1, 1) N

12、OT NULL , 類別varchar (100) NULL , Abslndex int NULL , Itemlndex int NULL , ItemLevel int NULL , ParentIndex int NULL , 類別號(hào)char (10) NULL, 單位編號(hào)varchar (20) NOT NULL PRIMARY KEY, 單位名稱varchar (100) NULL , 拼音編碼varchar (50) NULL , 單位地址varchar (100) NULL , 單位電話號(hào)碼varchar (50) NULL , 開戶銀行varchar (100) NULL ,

13、 帳號(hào) varchar (50) NULL , 開戶全稱 varchar (100) NULL ) ON PRIMARY GO 3.3 創(chuàng)建“職員基本信息表” CREATE TABLE dbo. 職員基本信息表 ( 內(nèi)部編號(hào) int IDENTITY (1, 1) NOT NULL , 職員編號(hào) varchar (30) NOT NULL PRIMARY KEY, 姓名 varchar (20) NOT NULL , 姓名簡碼 varchar (10) NULL , 性別 varchar (2) NULL , 出生日期 int NULL , 年齡 int NULL , 籍貫 varchar (

14、50) NULL , 民族 varchar (20) NULL , 文化程度 char (50) NULL , 畢業(yè)學(xué)校 char (100) NULL , 健康狀況 varchar (50) NULL , 婚姻狀況 varchar (10) NULL , 身份證號(hào)碼 varchar (18) NULL , 家庭電話 varchar (50) NULL , 辦公電話 varchar (50) NULL , 手機(jī) varchar (50) NULL , 電子郵件地址 varchar (50) NULL , 職工賬號(hào) varchar (20) NULL , 單位編號(hào) varchar (20) NU

15、LL, 備注 varchar (100) NULL ) ON PRIMARY GO 3.4 創(chuàng)建其他數(shù)據(jù)表 CREATE TABLE dbo. 用戶清單 ( 用戶編號(hào) char (6) NOT NULL , 部門 char (20) NOT NULL , 姓名 char (10) NOT NULL , 性別 char (2) NOT NULL , 密碼 char (10) NULL ) ON PRIMARY GO CREATE TABLE dbo. 月工資統(tǒng)計(jì)表 ( 日期 int NULL , 職員編號(hào) varchar (30) Not NULL PRIMARY KEY, 基本工資 float

16、 NULL DEFAULT (0) , 浮動(dòng)工資 decimal(26, 2) NULL DEFAULT (0) , 合同補(bǔ) decimal(26, 2) NULL DEFAULT (0) , 糧副補(bǔ) decimal(26, 2) NULL DEFAULT (0) , 房補(bǔ) decimal(26, 2) NULL DEFAULT (0) , 臨時(shí)補(bǔ) decimal(26, 2) NULL DEFAULT (0) , 職務(wù)工資 decimal(26, 2) NULL DEFAULT (0) , 工齡工資 decimal(26, 2) NULL DEFAULT (0) , 考核工資 decimal

17、(26, 2) NULL DEFAULT (0) , 獎(jiǎng)金 decimal(26, 2) NULL DEFAULT (0) , 應(yīng)發(fā)金額合計(jì) decimal(26, 2) NULL DEFAULT (0) , 房租 decimal(26, 2) NULL DEFAULT (0) , 水電費(fèi) decimal(26, 2) NULL DEFAULT (0) , 請(qǐng)假扣除 decimal(26, 2) NULL DEFAULT (0) , 考勤扣除 decimal(26, 2) NULL DEFAULT (0) , 罰款 decimal(26, 2) NULL DEFAULT (0) , 住房公積金

18、 decimal(26, 2) NULL DEFAULT (0) , 醫(yī)療保險(xiǎn) decimal(26, 2) NULL DEFAULT (0) , 養(yǎng)老 保險(xiǎn) decimal(26, 2) NULL DEFAULT (0) , 失業(yè)保險(xiǎn) decimal(26, 2) NULL DEFAULT (0) , 生育保險(xiǎn) decimal(26, 2) NULL DEFAULT (0) , 工傷保險(xiǎn) decimal(26, 2) NULL DEFAULT (0) , 應(yīng)扣金額合計(jì) decimal(26, 2) NULL DEFAULT (0) , 工資合計(jì) decimal(26, 2) NULL DEF

19、AULT (0) , 個(gè)人所得稅 decimal(26, 2) NULL DEFAULT (0) , 實(shí)發(fā)金額 decimal(26, 2) NULL DEFAULT (0) , 發(fā)放否 char (10) NULL , 月份 int NULL ) ON PRIMARY GO CREATE TABLE dbo. 個(gè)人所得稅表 ( 編號(hào) int NOT NULL PRIMARY KEY, 級(jí)數(shù) char (2) NOT NULL , 不計(jì)稅工資 decimal(26, 2) NOT NULL DEFAULT (800), 工資下限 decimal(26, 2) NOT NULL DEFAULT

20、(0), 工資上限 decimal(26, 2) NOT NULL DEFAULT (0), 個(gè)人所得稅率 decimal(26, 2) NOT NULL DEFAULT (0), 速算扣除數(shù) decimal(26, 2) NOT NULL DEFAULT (0), 備注 varchar (50) NULL ) ON PRIMARY GO CREATE TABLE dbo. 工資發(fā)放歷史表 ( 日期 int NULL , 職員編號(hào) varchar (30) NULL , 基本工資 float NULL , 浮動(dòng)工資 decimal(26, 2) NULL , 合同補(bǔ) decimal(26, 2

21、) NULL , 糧副補(bǔ) decimal(26, 2) NULL , 房補(bǔ) decimal(26, 2) NULL , 臨時(shí)補(bǔ) decimal(26, 2) NULL , 職務(wù)工資 decimal(26, 2) NULL , 工齡工資 decimal(26, 2) NULL , 考核工資 decimal(26, 2) NULL , 獎(jiǎng)金 decimal(26, 2) NULL , 應(yīng)發(fā)金額合計(jì) decimal(26, 2) NULL , 房租 decimal(26, 2) NULL , 水電費(fèi) decimal(26, 2) NULL , 請(qǐng)假扣除 decimal(26, 2) NULL , 考

22、勤扣除 decimal(26, 2) NULL , 罰款 decimal(26, 2) NULL , 住房公積金 decimal(26, 2) NULL , 醫(yī)療保險(xiǎn) decimal(26, 2) NULL , 養(yǎng)老 保險(xiǎn) decimal(26, 2) NULL , 失業(yè)保險(xiǎn) decimal(26, 2) NULL , 生育保險(xiǎn) decimal(26, 2) NULL , 工傷保險(xiǎn) decimal(26, 2) NULL , 應(yīng)扣金額合計(jì) decimal(26, 2) NULL , 工資合計(jì) decimal(26, 2) NULL , 個(gè)人所得稅 decimal(26, 2) NULL , 實(shí)

23、發(fā)金額 decimal(26, 2) NULL , 發(fā)放否 char (10) NULL , 月份 int NULL ) ON PRIMARY GO CREATE TABLE dbo. 職員獎(jiǎng)勵(lì)表 ( 序號(hào) int IDENTITY (1, 1) NOT NULL PRIMARY KEY 職員編號(hào) varchar (30) NOT NULL , 獎(jiǎng)勵(lì)類型 varchar (20) NULL , 獎(jiǎng)勵(lì)金額 float NULL DEFAULT (0), 是否計(jì)入工資 char (10) NULL DEFAULT ( 否 ), 獎(jiǎng)勵(lì)原因 varchar (50) NULL , 部門意見 varch

24、ar (100) NULL , 獎(jiǎng)勵(lì)日期 int NULL ) ON PRIMARY GO CREATE TABLE dbo. 職員懲罰表 ( 序號(hào) int IDENTITY (1, 1) NOT NULL PRIMARY KEY, 職員編號(hào) varchar (30) NOT NULL , 懲罰類型 varchar (20) NULL , 懲罰金額 float NULL DEFAULT (0) , 是否計(jì)入工資 char (10) NULL DEFAULT ( 否 ), 懲罰原因 varchar (50) NULL , 部門意見 varchar (100) NULL , 懲罰日期 int NU

25、LL ) ON PRIMARY GO 3.5 創(chuàng)建外部關(guān)鍵字 ALTER TABLE dbo. 月工資統(tǒng)計(jì)表 ADD CONSTRAINT FK_ 月工資統(tǒng)計(jì)表 _職員基本信息表 FOREIGN KEY （ 職員編號(hào) ） REFERENCES dbo. 職員基本信息表 （ 職員編號(hào) ） GO ALTER TABLE dbo. 工資發(fā)放歷史表 ADD CONSTRAINT FK_ 工資發(fā)放歷史表 _職員基本信息表 FOREIGN KEY （ 職員編號(hào) ） REFERENCES dbo. 職員基本信息表 （ 職員編號(hào) ） GO ALTER TABLE dbo. 職員獎(jiǎng)勵(lì)表 ADD CONSTRAI

26、NT FK_ 職員獎(jiǎng)勵(lì)表 _職員基本信息表 FOREIGN KEY （ 職員編號(hào) ） REFERENCES dbo. 職員基本信息表 （ 職員編號(hào) ） GO ALTER TABLE dbo. 職員懲罰表 ADD CONSTRAINT FK_ 職員懲罰表 _職員基本信息表 FOREIGN KEY （ 職員編號(hào) ） REFERENCES dbo. 職員基本信息表 （ 職員編號(hào) ） GO 3.6 創(chuàng)建存儲(chǔ)過程 系統(tǒng)使用了四個(gè)存儲(chǔ)過程， 分別實(shí)現(xiàn)從歷史導(dǎo)入工資明細(xì)、 計(jì)算當(dāng)月工資和工資發(fā)放的功能。 這些存儲(chǔ)過程都在“當(dāng)月工資管理”模塊中使用，可以通過以下的腳本代碼創(chuàng)建。 if exists (sele

27、ct * from dbo.sysobjects where id = object_id(Ndbo.sf_ 空數(shù)據(jù)置 0) and OBJECTPROPERTY(id, NIsProcedure) = 1) drop procedure dbo.sf_ 空數(shù)據(jù)置 0 GO if exists (select * from dbo.sysobjects where id = object_id(Ndbo.sf_ 形成月工資統(tǒng)計(jì)表 ) and OBJECTPROPERTY(id, NIsProcedure) = 1) drop procedure dbo.sf_ 形成月工資統(tǒng)計(jì)表 GO if e

28、xists (select * from dbo.sysobjects where id = object_id(Ndbo.sf_ 當(dāng)月工資統(tǒng)計(jì) ) and OBJECTPROPERTY(id, NIsProcedure) = 1) drop procedure dbo.sf_ 當(dāng)月工資統(tǒng)計(jì) GO if exists (select * from dbo.sysobjects where id = object_id(Ndbo.sf_ 當(dāng)月工資發(fā)放 ) and OBJECTPROPERTY(id, NIsProcedure) = 1) drop procedure dbo.sf_ 當(dāng)月工資發(fā)放

29、 GO begin transaction update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月

30、工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 月工資統(tǒng)計(jì)表 set update 個(gè)人所得稅表 set create procedure sf_空數(shù)據(jù)置 0 as commit GO 基本工資 =0 where 基本工資 is null 職務(wù)工資 =0 where 職務(wù)工資 is null 工齡工資 =0 where 工齡工資 is null 考核工資 =0 where 考核工資 is null 獎(jiǎng)金 =0 where 獎(jiǎng)金 is null 應(yīng)發(fā)金額合計(jì) =0 where 應(yīng)發(fā)金額合計(jì) is null 房租 =0 where 房租 i

31、s null 水電費(fèi) =0 where 水電費(fèi) is null 請(qǐng)假扣除 =0 where 請(qǐng)假扣除 is null 罰款 =0 where 罰款 is null 考勤扣除 =0 where 考勤扣除 is null 住房公積金 =0 where 住房公積金 is null 醫(yī)療保險(xiǎn) =0 where 醫(yī)療保險(xiǎn) is null 養(yǎng)老 保險(xiǎn) =0 where 養(yǎng)老保險(xiǎn) is null 應(yīng)扣金額合計(jì) =0 where 應(yīng)扣金額合計(jì) is null 失業(yè)保險(xiǎn) =0 where 失業(yè)保險(xiǎn) is null 個(gè)人所得稅 =0 where 個(gè)人所得稅 is null 工資合計(jì) =0 where 工資合計(jì) i

32、s null 實(shí)發(fā)金額 =0 where 實(shí)發(fā)金額 is null 個(gè)人所得稅率 =0 where 個(gè)人所得稅率 is null create procedure sf_當(dāng)月工資統(tǒng)計(jì) as begin transaction declare month int select month = 日期 from 月工資統(tǒng)計(jì)表 - 計(jì)算獎(jiǎng)金 update 月工資統(tǒng)計(jì)表 set 獎(jiǎng)金 = (select sum(獎(jiǎng)勵(lì)金額)from 職員獎(jiǎng)勵(lì)表 as i where i.是否計(jì)入工資=是and i.獎(jiǎng)勵(lì)日期 month*1OO and i.獎(jiǎng)勵(lì)日期 month*1OO and i.懲罰日期 1 then

33、個(gè)人所得稅率 /100 else 個(gè)人所得稅率 end from 個(gè)人所得稅表 where 工資上限 1 then 個(gè)人所得稅率 /100 else 個(gè)人所得稅率 end , gzxx = 工資下限 from 個(gè)人所得稅表 where 工資下限 =gzsx select grsds = grsds + (gzhj-gzxx)*sl update 月工資統(tǒng)計(jì)表 set 個(gè)人所得稅 = grsds where current of mycur fetch next from mycur into zybh,gzhj END close mycur deallocate mycur - 計(jì)算實(shí)發(fā)工資

34、 update 月工資統(tǒng)計(jì)表 set 實(shí)發(fā)金額 = 工資合計(jì) -個(gè)人所得稅 commit GO create procedure sf_形成月工資統(tǒng)計(jì)表導(dǎo)入工資月份 int, 統(tǒng)計(jì)工資月份int as begin transaction delete from 月工資統(tǒng)計(jì)表 - 刪除已有數(shù)據(jù) if exists （select * from 工資發(fā)放歷史表 where 日期 =導(dǎo)入工資月份 ） begin - 從歷史倒入 insert into 月工資統(tǒng)計(jì)表 （日期, 職員編號(hào), 基本工資 , 浮動(dòng)工資, 合同補(bǔ), 糧副補(bǔ), 房補(bǔ), 臨時(shí)補(bǔ), 職務(wù)工資 , 工齡工資 , 考核工資 , 獎(jiǎng)金,

35、應(yīng)發(fā)金額合計(jì) , 房租 , 水電費(fèi) , 請(qǐng)假扣除 , 考勤扣除 , 罰款 , 住房公積金 , 醫(yī)療保險(xiǎn) , 養(yǎng)老保險(xiǎn) , 失業(yè)保險(xiǎn) , 生育保險(xiǎn) , 工傷保險(xiǎn) , 應(yīng)扣金額合計(jì) , 工資合計(jì) , 個(gè)人所得稅 , 實(shí)發(fā)金額 , 發(fā)放否 , 月份 ） select 統(tǒng)計(jì)工資月份 , 職員編號(hào) , 基本工資 , 浮動(dòng)工資 , 合同補(bǔ) , 糧副補(bǔ) , 房補(bǔ) , 臨時(shí)補(bǔ) , 職務(wù)工資 , 工齡工資 , 考核工資 , 獎(jiǎng)金 , 應(yīng)發(fā)金額合計(jì) , 房租, 水電費(fèi), 請(qǐng)假扣除 , 考勤扣除, 罰款, 住房公積金 , 醫(yī)療保險(xiǎn) , 養(yǎng)老保險(xiǎn) , 失業(yè)保險(xiǎn) , 生育保險(xiǎn) , 工傷保險(xiǎn) , 應(yīng)扣金額合計(jì) , 工資合

36、計(jì) , 個(gè)人所得稅 , 實(shí)發(fā)金額 , 發(fā)放否 , 月份 from工資發(fā)放歷史表as h where h.日期=導(dǎo)入工資月份 end - 新的員工 ,歷史沒有記錄 ,生成記錄 insert into 月工資統(tǒng)計(jì)表（職員編號(hào) ,日期） select 職員編號(hào) ,統(tǒng)計(jì)工資月份 from 職員基本信息表as h where h.職員編號(hào) not in （select 職員編號(hào) from 月工資統(tǒng)計(jì)表 ） - 將空數(shù)據(jù)置 0 exec sf_空數(shù)據(jù)置0 - 自動(dòng)計(jì)算工資 exec sf_當(dāng)月工資統(tǒng)計(jì) commit GO 發(fā)放指定職員的工資 create procedure sf_當(dāng)月工資發(fā)放職員編號(hào) c

37、har（10） as begin transaction update 月工資統(tǒng)計(jì)表 set 發(fā)放否 =是 from 月工資統(tǒng)計(jì)表 where 職員編號(hào) =職員編號(hào) insert into 工資發(fā)放歷史表 select * from 月工資統(tǒng)計(jì)表 where 職員編號(hào) =職員編號(hào) delete 月工資統(tǒng)計(jì)表 where 職員編號(hào) =職員編號(hào) commit GO 4 代碼與界面設(shè)計(jì) 本系統(tǒng)采用多文檔窗體程序，每一功能對(duì)應(yīng)一個(gè)子窗體。 4.1 程序運(yùn)行結(jié)果 本實(shí)例的運(yùn)行結(jié)果如圖 4 所示。 選擇主菜單中的各菜單項(xiàng)即可進(jìn)入相應(yīng)的功能。例如可 以選擇【薪資福利管理】 |【當(dāng)月工資管理】菜單命令，調(diào)出如

38、圖5 所示的工資管理功能窗 體，在其中輸入各個(gè)工資項(xiàng)明細(xì)，單擊【計(jì)算當(dāng)月工資】按鈕可以計(jì)算出工資；其中的工資 項(xiàng)明細(xì)也可以通過【導(dǎo)入工資歷史】按鈕從歷史數(shù)據(jù)中導(dǎo)入，從而減輕輸入工作的強(qiáng)度；單 擊工資發(fā)放按鈕，可以發(fā)放選定職員的工資， 打印出工資條并將工資發(fā)放的記錄放入歷史。 圖4實(shí)例運(yùn)行結(jié)果 1人力演源藝?yán)碇两y(tǒng) 機(jī)構(gòu)編制普理QC)職員信息莒理(X.)薪貴福利莒理 圖5當(dāng)月工資管理功能窗體 4.2創(chuàng)建工程 啟動(dòng)Microsoft Visual Studio.NET2003,在主菜單中選擇【文件】|【新建】|【項(xiàng)目】命令， 彈出【新建項(xiàng)目】 對(duì)話框沒，在【項(xiàng)目類型】列表框中選擇 【Visual B

39、asic項(xiàng)目】，然后在【模 板】列表框中選擇【W(wǎng)indow應(yīng)用程序】。在【名稱】文本框中輸入一個(gè)合適的方案文件名， 選取要存放的位置，然后單擊【確定】按鈕完成新項(xiàng)目的創(chuàng)建。 6.3創(chuàng)建系統(tǒng)主窗體 (1)利用系統(tǒng)默認(rèn)生成的窗體作為主窗體，并將其對(duì)應(yīng)的文件改名為“frm Main.vb ”， 為其添加主菜單控件以及StatusBar控件，布局如圖6所示。 圖6系統(tǒng)主窗體 (2)窗體的屬性設(shè)置如表 2所示。 表2 主窗體屬性設(shè)置 對(duì)象(控件)名 屬性 取值(說明) frmMai n Name frmMai n frmMai n Text 人力資源管理系統(tǒng) frmMai n IsMdiCo ntai

40、ner True StatusBar Text 人力資源管理系統(tǒng) (3)窗體的主菜單屬性設(shè)置如表 5所示。 表3 窗體主菜單屬性設(shè)置 菜單欄 菜單項(xiàng) 屬性 取值(說明) Men ultemDep Text 機(jī)構(gòu)編制管理 Men ultemDepMa nage Text 機(jī)構(gòu)設(shè)置及編碼 Men ultemDepI nfo Text 機(jī)構(gòu)詳細(xì)信息 Men ultemPeople Text 職員信息管理 Men ultemDepPeopleMa nage Text 職員信息維護(hù) Men ultemPeopleQuery Text 職員信息查詢 Men ultemSalary Text 薪資福利管理

41、Men ultemPeopleSalaryMa nage Text 當(dāng)月工資計(jì)算 Men ultemTaxI nfo Text 個(gè)人所得稅率 Men ultemPrize Text 工資發(fā)放歷史 Men ultemPu nish Text 職員獎(jiǎng)勵(lì)管理 Men ultemSalaryhis Text 職員懲罰管理 (4)添加判斷子窗體實(shí)例狀態(tài)的函數(shù)Get In sta nceState,此函數(shù)主要作用是用來實(shí)現(xiàn)單擊 主窗體的某菜單項(xiàng)，如【計(jì)算當(dāng)月工資】只是出現(xiàn)一個(gè)計(jì)算當(dāng)月工資窗體。 Private Function GetInstanceState( ByVai name As String

42、) As Boolean 獲得frmMain窗體的子窗體的數(shù)量 Dim i As Integer = MeMdiChildren.Length 循環(huán)判斷是否有名為 name的子窗體實(shí)例 For i = 0 To MeMdiChildren.Length - 1 If MeMdiChildren(i).Name = name Then 存在名為name的子窗體，是子窗體獲得焦點(diǎn)并返回True MeMdiChildren(i).Focus() Return True End If Next 不存在名為Name的子窗體False Return False End Function ( 5)添加采單項(xiàng)

43、 MenuItemDepManage 的 Click 事件響應(yīng)函數(shù)。 Private Sub MenuItemDepManage_Click( ByVal sender As Object , _ ByVal e As System.EventArgs)Handles MenuItemDepManage.Click 判斷機(jī)構(gòu)設(shè)置及編碼窗體是是否已經(jīng)創(chuàng)建 If GetInstanceState(frmDepManage) Then 機(jī)構(gòu)設(shè)置及編碼窗體已經(jīng)創(chuàng)建并返回 Exit Sub End If 創(chuàng)建并顯示商品資料維護(hù)窗體 Dim childFrm As frmDepManage = Newfr

44、mDepManage childFrm.MdiParent =Me childFrm.Show() End Sub 4.4 創(chuàng)建數(shù)據(jù)訪問模塊 因?yàn)楦鱾€(gè)窗體均需要對(duì)數(shù)據(jù)庫進(jìn)行訪問，可以把對(duì)數(shù)據(jù)庫的一些操作通過一個(gè)類來實(shí) 現(xiàn)，這樣可以使對(duì)數(shù)據(jù)庫的訪問更加簡單。選擇【文件】|【添加新項(xiàng)】命令添加一個(gè)名為 “DataBase.vb” 的類文件。 Imports System.Data Imports System.Data.SqlClient Imports System.ComponentModel Public Class DataBase 實(shí)現(xiàn)接口 IDisposable Implements IDisposable 數(shù)據(jù)庫連接對(duì)象 Private SqlConn A