企業人事管理系統的開發與設計(編輯修改稿)

　

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