【正文】 meInfo(員工加班信息 ) 、 BasicSar（基本工資設(shè)定表）、 kouchu（扣除）、 timekaoqin（記時(shí)考勤）、 salarysta（產(chǎn)品單價(jià)設(shè)定表） 、 salary（員工工 資表） 、 YGZJS（月工資結(jié)算表） 等 詳細(xì)信息如下 。 基本檔案表 t_br ER 模型 如圖 32 所示， 系統(tǒng)用戶 ER 模型如 圖 33 所示 ， 員工考勤信息表 AttendanceInfo ER 模型如 圖 34 所示 。保存員工的相關(guān)信息，是管理系統(tǒng)核心數(shù)據(jù)，所有其它的信息都是依附與這張表而存在的。 表 31 基本檔案表 t_br 字段 類型 長度 必填字段 工號(hào) 文本 6 是 姓名 文本 10 是 性別 文本 10 是 部門 文本 10 是 薪金 數(shù)字 10 是 所學(xué)專業(yè) 文本 20 是 職務(wù) 文本 10 否 工資類別 數(shù)字 10 是 合同開始時(shí)間 日期 /時(shí)間 是 合同終止時(shí)間 日期 /時(shí)間 是 職工類型 文本 10 是 生日 日期 /時(shí)間 否 工齡 數(shù)字 10 否 年齡 數(shù)字 3 是 文化程度 文本 10 否 民族 文本 10 否 政治面貌 文本 10 否 身份證號(hào) 文本 18 是 籍貫 文本 200 是 聯(lián)系電話 數(shù)字 15 否 手機(jī) 數(shù)字 15 是 家庭住址 文本 200 是 健康狀況 文本 10 是 照片 OLE 對(duì)象 否 18 員工考勤信息表， 其結(jié)構(gòu)如 表 32 所示。 此表數(shù)據(jù)只保存員工的出勤情況，并不包括每日生產(chǎn)產(chǎn)量的考勤信息。 用戶所有請(qǐng)假信息保存在此表中。 表 33 員工請(qǐng)假信息表 LeaveInfo 字段 類型 長度 必填字段 工號(hào) 文本 5 是 姓名 文本 10 是 病假天數(shù) 數(shù)字 長整型 是 事假天數(shù) 數(shù)字 長整型 是 假期開始時(shí)間 日期 /時(shí)間 是 19 員工加班信息表 ， 結(jié)構(gòu)如 表 34 所示。 表 34 員工 加班信息表 OverTimeInfo 字段 類型 長度 必 填字段 工號(hào) 文本 5 是 姓名 文本 10 是 特殊加班天數(shù) 數(shù)字 長整型 否 正常加班天數(shù) 數(shù)字 長整型 否 加班日期 日期 /時(shí)間 是 員工工資表，結(jié)構(gòu)如 表 35 所示。然后轉(zhuǎn)存到其它表作進(jìn)一步處理。在改 擴(kuò)展 名的同時(shí)也對(duì)數(shù)據(jù)庫進(jìn)行了加密。 只有正確輸入打開密碼時(shí)才能打開數(shù)據(jù)庫。 圖 35 要求輸入密碼 21 第 四 章 各功能的實(shí)現(xiàn) 、 系統(tǒng)安全及權(quán)限的實(shí)現(xiàn) 為了確保系統(tǒng)的安全，對(duì)數(shù)據(jù)庫進(jìn)行加密處理，采用了用戶和組管理，并記錄用戶登錄信息。 為了實(shí)現(xiàn)該功能，系統(tǒng)采用了遞歸方式，使高一級(jí)別的用戶可以管理低級(jí)用戶，最高權(quán)限屬于管理員。 成功登陸后顯示如圖 42 所示工資管理系統(tǒng)主界面。 如 圖 41 所示： 圖 41 登錄窗口 實(shí)現(xiàn) 功能的部分主要代碼： Private Sub Comok_Click() On Error GoTo Dealerror Dim strSql As String Dim strMsg As String 39。 amp。 39。MsgBox 歡迎使用工資 管理系統(tǒng) , vbOKCancel + vbOKOnly, 系統(tǒng)登錄 strusername = txtUserName userpassword = txtPassword If CmbStatus = Then MsgBox 請(qǐng)選擇登陸身份 !, vbOKOnly + vbCritical, 系統(tǒng)登錄 Else If = 0 And objRs!admin = True Then UserAdmin = 1 End If If = 0 And objRs!admin = False Then 23 X = MsgBox(你不是管理員，將以普通用戶登陸 , vbOKCancel + vbOKOnly, 系統(tǒng)登錄 ) End If If X = 2 Then = = Else 39。 amp。 39。 amp。 39。登陸次數(shù) Exit Sub Dealerror: msg = 程序執(zhí)行出錯(cuò) ,錯(cuò)誤信息如下 : amp。 ShowError msg End Sub Dim objRs As Recordset Dim i As Integer Dim Logontimes As Integer Private Sub Comcancle_Click() n = MsgBox(你選擇了退出系統(tǒng)登陸 ,退出將不能啟動(dòng)管理系統(tǒng) ! amp。 是否真的退出 ?, vbYesNo, 系統(tǒng)驗(yàn)證 ) If n = vbYes Then Unload Me End If End Sub 24 圖 42 工資管理系統(tǒng) 主窗體 、 員工 基本檔案 信息的實(shí)現(xiàn) 員工 基本檔案 信息 管理 ，在 窗體中完成員工基本信息的錄入工作。 如 圖 43 所示 圖 43 員工 基本檔案 信息 錄入窗口 25 相應(yīng)部分代碼如下 ： 39。如果是修改 (保存照片 刪除原記錄 保存記錄 ) If blnChange = True Then 39。 amp。 39。保存到文件 tmpPath = amp。 = LoadPicture(tmpPath) Else blnDel = False End If End If 39。 amp。 39。 amp。 39。數(shù)字型 If = Then (薪金 ) = 0 Else (薪金 ) = End If If = Then (所學(xué)專業(yè) ) = Null Else (所學(xué)專業(yè) ) = 28 End If 39。日期型 (生日 ) = If = Then (政治面貌 ) = Null Else (政治面貌 ) = End If If = Then (婚姻狀況 ) = Null Else (婚姻狀況 ) = End If If = Then (籍貫 ) = Null Else (籍貫 ) = End If If = Then (手機(jī) ) = 0 Else (手機(jī) ) = End If If = Then (身份證號(hào) ) = Null Else 29 (身 份證號(hào) ) = End If If = Then (聯(lián)系電話 ) = Null Else (聯(lián)系電話 ) = End If If = Then (家庭住址 ) = Null Else (家庭住址 ) = End If 39。添加照片 Set iStm = New If Len(strFileName) 0 Then With iStm .Type = adTypeBinary 39。設(shè)置上下班時(shí)間 Dim sql As String Dim rs As New Dim strMsg As String sql = delete * from TimeSetting Set rs = ExecuteSQL(sql, strMsg) 39。 判斷下班時(shí)間大于上班時(shí)間 MsgBox 請(qǐng)正確的輸入時(shí)間 , vbOKOnly + vbExclamation, 警告！ 39。判斷下班時(shí)間大于上班時(shí)間 MsgBox 請(qǐng)正確的輸入時(shí) 間 , vbOKOnly + vbExclamation, 警告！ 39。 : amp。 : amp。 : amp。 : amp。 : amp。 : amp。 : amp。 : amp。添加上班信息 If InFlag = True Then If = Or = Then MsgBox 要添加上班信息 ,員工編號(hào)與姓名不能為空 ,請(qǐng)輸入 , vbOKOnly, 提示 Exit Sub End If 39。 : amp。 : amp。判斷上午上班時(shí)間是否遲到 If tmsb1 tmsetswxb Then If tmsb1 tmsetswsb Then ilate = 1 MsgBox 遲到 Else ilate = 0 MsgBox 正常上班 34 End If 39。 : amp。 : amp。添加下班信息 If OutFlag = True Then If = Or = Then MsgBox 要添加下班信息 ,員工編號(hào)與姓名不能為空 ,請(qǐng)輸入 , vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。 : amp。 : amp。判斷上午下班時(shí) 間 If tmxb1 tmsetxwsb Then If tmxb1 tmsetswxb Then iearly = 1 MsgBox 早退 Else iearly = 0 MsgBox 正常下班 End If 39。 : amp。 : amp。初始化為當(dāng)天時(shí)間 End Sub 設(shè)置員工每日產(chǎn)量考勤 在 該窗體中輸入相應(yīng)的信息，完成 每日產(chǎn)量考勤 具體如圖 46 所示，相應(yīng)部分代碼如下 ： 圖 46 員工每日產(chǎn)量考勤 37 “ 保存”按鈕代碼如下 ： Private Sub cmdOK_Click() Dim rs As Dim strSql As String Dim strMsg As String