【文章內(nèi)容簡介】 員工出差時間 …… 員工基本信息實(shí)體 員工姓名 員工性別 參加工作時間 進(jìn)入公司時間 … .. 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 12 頁 共 40 頁 員工考勤信息實(shí)體包括的屬性有部門、姓名、考勤年月、本月天數(shù)、公休天數(shù)、應(yīng)出勤天數(shù)、加班費(fèi)、扣考核、出勤、加班時間、出差工地天數(shù)、請假、年休、曠工、遲到、早退、忘訂卡、節(jié)假日上班、其他加班、補(bǔ) 休天數(shù)、其他、備注。 三、員工工作評價信息實(shí)體 圖 員工工作評價信息實(shí)體 員工工作評價信息實(shí)體包括的屬性有 部門 、姓名、時間、工作業(yè)績、工作態(tài)度、業(yè)務(wù)水平、備注、其他 其他 2。 四、員工工資信息實(shí)體 圖 員工工資信息實(shí)體 員工工資信息實(shí)體 員工基本信息 員工底薪 員工所得稅 員工實(shí)發(fā)工資 …… 員工工作評價信息實(shí)體 員工基本信息 員工工作業(yè)績 員工工作態(tài)度 員工業(yè)務(wù)水平 …… 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 13 頁 共 40 頁 員工工資信息實(shí)體包括的屬性有 部門 、姓名、底薪、補(bǔ)貼、獎金、加班、扣考核、房貼、房租、養(yǎng)老金、醫(yī)療保險、住房公積金、稅前小計、所得稅、實(shí)發(fā)工資、計發(fā)時間。 然 后可以得到實(shí)體與實(shí)體之間總的關(guān)系 ER 圖。 圖 系統(tǒng) ER 圖 員工檔案信息建立后，可以進(jìn)行員工的考勤管理和員工的工作評價，進(jìn)而得到員工的考勤信息和工作評價信息，而員工的工資的計發(fā)需要對員工的考勤信息和工作評價信息建立之后才能進(jìn)行。 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 現(xiàn)在需要將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為 SQL Server 2021 數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。 在上面的實(shí)體以及實(shí)體之間關(guān)系的基礎(chǔ)上，形成數(shù)據(jù)庫中的表格以及 各個表格之間的關(guān)系。 企業(yè)人事管理系統(tǒng)數(shù)據(jù)庫中各個表格的設(shè)計結(jié)果如下面的幾個表格所示。每個表格表示在數(shù)據(jù)庫中的一個表。 一、 manrecord 員工基本信息表 員 工 考勤管理 工作評價 考勤信息 工作評價信息 計發(fā)工資 員工工資 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 14 頁 共 40 頁 表 manrecord 員工基本信息表 列 名 數(shù)據(jù)類型 可否為空 說明 Ygid Varchar NOT NULL 編號 （主鍵） Ygname Varchar NOT NULL 姓名 Ygdept Varchar NULL 部門 Ygsex Varchar NULL 性別 Ygbirthday Datetime NULL 生日 Ygplace Varchar NULL 籍貫 Yglevel Varchar NULL 學(xué)歷 Ygspecial Varchar NULL 專業(yè) Ygdate1 Datetime NULL 參加工作時間 Ygdate2 Datetime NULL 入黨時間 Ygbusi Varchar NULL 職稱 Ygdate3 Datetime NULL 職稱時間 Ygstatus Varchar NULL 原身份 Ygoffice Varchar NULL 原工作單位 Ygduty Varchar NULL 原職務(wù) Ygdate4 Datetime NULL 進(jìn)入公司時間 Ygdate5 Datetime NULL 起薪時間 Ygdate6 Datetime NULL 調(diào)入時間 Ygno Varchar NULL 檔號 Ygremark1 text NULL 備注 二、 checkin 員工考勤信息表 表 checkin 員工考勤信息表 列名 數(shù)據(jù)類型 可否為空 說明 Kqid varchar NOT NULL 編號 （外鍵）指向manrecord表中的Ygdept Kqname varchar NOT NULL 姓名 Kqdate Datetime NOT NULL 日期 Kqdays numeric NOT NULL 本月天數(shù) Kqrday numeric NULL 公休假天數(shù) Kqtday numeric NOT NULL 應(yīng)出勤天數(shù) Kqwork numeric NOT NULL 出勤 Kqabsent numeric NULL 曠工 Kqrest numeric NULL 年休 Kqleave numeric NULL 請假 Kqlate numeric NULL 遲到 Kqearly numeric NULL 早退 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 15 頁 共 40 頁 Kqfet numeric NULL 忘訂卡 Kqover1 numeric NULL 節(jié)假日加班 Kqover2 numeric NULL 其他加班 Kqfill numeric NULL 補(bǔ)休天數(shù) Kqgo numeric NULL 出差工地天數(shù) Kqpay numeric NULL 加班費(fèi) Kqdeduct numeric NULL 扣考核 Kqother varchar NULL 其 他 kqremark Text NULL 備注 三、 manappraise 員工工作評價信息表 表 manappraise 員工工作評價信息表 列名 數(shù)據(jù)類型 可否為空 說明 Pjdept varchar NOT NULL 部門 Pjname varchar NOT NULL 姓名 Pjno Char NOT NULL ID Pjid varchar NOT NULL 編號 （外鍵）指向manrecord表中的Ygdept Pjdate Datetime NOT NULL 時間 Pjresult Varchar NULL 工作業(yè)績 Pjposition Varchar NULL 工作態(tài)度 Pjlevel Varchar NULL 業(yè)務(wù)水平 Pjremark text NULL 備注 Pjother1 varchar NULL 其他 1 Pjother2 varchar NULL 其他 2 四、 pay 員工工資信息表 表 pay 員工工資信息表 列名 數(shù)據(jù)類型 可否為空 說明 Gzid Varchar NOT NULL 編號 （外鍵）指向manrecord表中的Ygdept Gzname Varchar NOT NULL 姓名 Gzbase numeric NOT NULL 底薪 Gzall numeric NULL 補(bǔ)貼 Gzall numeric NULL 獎金 Gzbonus numeric NULL 加班 Gzdeduct numeric NULL 扣考核 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 16 頁 共 40 頁 Gzage numeric NULL 代扣養(yǎng)老金 Gznedical numeric NULL 代扣醫(yī)療保險 Gzhouse1 numeric NULL 代扣住房公積金 Gztotal numeric NULL 稅前小計 Geduty numeric NULL 所得稅 Gzhouse2 numeric NULL 房貼 Gzhouse3 numeric NULL 房租 Gzlaborage numeric NOT NULL 實(shí)發(fā)工資 Gzdate datetime NOT NULL 時間 Manrecord 表是所有表中最基礎(chǔ)的一個 表，其他所有表的建立都是需要在它的基礎(chǔ)上進(jìn)行。而 checkin 表和 manappraise 表又是 pay 表得以建立的前提。 由此分析， 可以得出數(shù)據(jù)庫中 表與表之間的關(guān)系是： 圖 數(shù)據(jù)庫結(jié)構(gòu)圖 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 17 頁 共 40 頁 4. 系統(tǒng)功能模塊的實(shí)現(xiàn) 系統(tǒng)管理模塊 主要實(shí)現(xiàn)對系統(tǒng)用戶的增加和修改密碼的功能。 一、 添加用戶 進(jìn)入系統(tǒng)后，選擇菜單“系統(tǒng) |添加用戶”就可以添加用戶，如圖 所示： 圖 添加用戶窗口 首先要判斷數(shù)據(jù)庫中是否存在該用戶： txtSQL = select * from user_Info1 Set mrc = ExecuteSQL(txtSQL, MsgText)， 然后判斷兩 次密碼輸入是否一致： Trim() Trim() 而且密碼不能為空。 最后把數(shù)據(jù)添加到數(shù)據(jù)庫中， (0) = Trim() (1) = Trim() 更新數(shù)據(jù)庫 再關(guān)閉數(shù)據(jù)庫。 二、 修改密碼 用戶可以修改自己的密碼，選擇菜單“系統(tǒng) |修改密碼”，如圖 ： 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 18 頁 共 40 頁 圖 修改密碼窗口 首先判斷兩次輸入的密碼是否一致，如果一致的話，就找到該用戶名，修改其密碼： txtSQL = select * from user_Info1 where user_ID =39。 amp。 UserName amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) (1) = Trim() 員工基本信息模塊 員工基本信息模塊包括三個子 模塊：對員工基本信息的添加子模塊，對員工基本信息的修改子模塊和對員工基本信息的查詢子模塊。 一、員工基本信息添加子模塊 選擇“員工基本信息 |添加員工基本信息”菜單，將出現(xiàn)如圖 所示的窗體： 畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 19 頁 共 40 頁 圖 員工基本信息的添加窗口 首先，編號、姓名、部門這三項不能為空 Select Case intCount Case 0 sMeg = 編號 Case 1 sMeg = 姓名 Case 3 sMeg = 部門 End Select sMeg = sMeg amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus 然后判斷是否有相同的 ID 記錄： txtSQL = select * from manrecord where ygid=39。 amp。 Trim(txtItem(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) 如果沒有的話，就加入新記錄： txtSQL = select * from manrecord Set mrc = ExecuteSQL(txtSQL, MsgText) 否則應(yīng)該先刪除已有的記錄： txtSQL = delete from manrecord where ygid=39。 amp。 Trim(txtItem(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) 二、員工基本信息修改子模塊 選擇“員工基本信息 |修改員工信息”菜單，將出現(xiàn)如圖 所示的窗體： 圖 員工基本信息的修改窗口 用來顯示員工的檔案記錄。 主要用到兩個函數(shù)：一個是用來顯示表頭的 ShowTitle，另一個用來顯示數(shù)畢業(yè)論文（企業(yè)人事管理系統(tǒng)開發(fā)） 第 20 頁 共 40 頁 據(jù)的 ShowData。 howTitle 函數(shù) : 首先要定義列數(shù)： .Cols = 21 然后要定義列標(biāo)題： .TextMatrix(0, 1) = 編號 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 部門 .TextMatrix(0, 4) = 性別 .TextMatrix(0, 5) = 出生日期 .TextMatrix(0, 6) = 籍貫 . . . .TextMatrix(0, 20) = 備注 還要固定表頭： .FixedRows = 1 之后還要進(jìn)行一些格式的設(shè)置等等。 而 ShowData 函數(shù) : 首先判斷數(shù)據(jù)集是否為空： If = False Then With msgList .Rows = 1 然后判斷是否已經(jīng)到 最后一條記錄： Do While Not .Rows = .Rows + 1 For i = 1 To 最