【正文】 息工作狀態(tài)用戶信息工 作 狀 態(tài)上 班 時(shí) 間 . . 圖 23 一層數(shù)據(jù)流程圖 添 加 員 工修 改 員 工 信 息添 加 部 門查 詢 員 工 信 息新 員 工 信 息員 工 信 息員 工 信 息員 工 信 息員 工 信 息 更 新員 工 信 息 添 加查 詢 部 門 信 息修 改 部 門 信 息新 部 門 信 息部 門 信 息部 門 信 息部 門 信 息 更 新部 門 信 息 添 加部 門 信 息身 份 驗(yàn) 證注 冊(cè) 信 息出 差 登 記上 班 登 記請(qǐng) 假 登 記查 詢 員 工 工 作狀 態(tài)上 班 信 息請(qǐng) 假 信 息員 工 工 作 狀 態(tài)添 加 上 班 時(shí) 間上 班 時(shí) 間 設(shè) 置 上 班 時(shí) 間用 戶 信 息工 作 狀 態(tài)查 詢 部 門 信 息查 詢 員 工 信 息查 詢 員 工 工 作 狀 態(tài)員 工 表上 班 情 況表部 門 表請(qǐng) 假 情 況表注 冊(cè) 信 息表出 差 情 況表上 班 時(shí) 間表上 班 時(shí) 間新 員 工 注 冊(cè) 信 息出 差 信 息 . . ER 圖 圖 25 ER 圖 管 理 員管 理員 工部 門屬 于MNN1進(jìn) 入 公 司 時(shí)間員 工 姓 名 員 工 性 別 員 工 年 齡員 工員 工 密 碼部 門部 門 名 稱部 門 I D管 理 員密 碼管 理 員 編 號(hào)P請(qǐng) 假 單出 差 單上 班 單查 詢NNN1登 記111 . . 數(shù)據(jù)字典 名字：個(gè)人資料數(shù)據(jù) 描述：職工的個(gè)人信息，用于對(duì)職工的確認(rèn) 定義：個(gè)人資料數(shù)據(jù) =員工 ID+員工姓名 +員工性別 +出生日期 +職務(wù) +個(gè)人工作資料檔案 位置：輸入到員工表 名字：職工列表數(shù)據(jù) 描述：職工的部門信息，用于對(duì)職工部門的確認(rèn) 定義：職工列表數(shù)據(jù) =員工 ID +員工姓名 +部門代碼 +部門名稱 +員工類別 +員工職位 +查詢密碼 位置：輸入到部門表、用戶表 名字：考勤數(shù)據(jù) 描述：職工的考勤信息 定義：考勤數(shù)據(jù) =員工 ID+年月 +遲到 +早退 +請(qǐng)假 +曠工 位置：輸入到請(qǐng)假表、上班表、出差表 名字：上班類型數(shù)據(jù) 描述：上班類型的信息，用于對(duì)員工上班時(shí)間類型的確認(rèn) 定義：上班類型數(shù)據(jù) =類型代號(hào) +類型名稱 位置：輸入到上班類型表 名字：部門數(shù)據(jù) 描述：部門的信息，用于對(duì) 部門的確認(rèn) 定義：部門資料數(shù)據(jù) =部門代號(hào) +部門名稱 位置：輸入到部門表 名字：上班時(shí)間數(shù)據(jù) 描述：關(guān)于每日上班時(shí)間的信息，用于員工對(duì)上班時(shí)間的確認(rèn) 定義：上班時(shí)間數(shù)據(jù) =上午工作開始時(shí)間 +上午工作離開時(shí)間 +下午工作開始時(shí)間 +下午工作離開時(shí)間 位置：輸入到上班時(shí)間表 . . 名字：操作用戶表 別名：操作用戶信息 描述：是對(duì)使用本系統(tǒng)的用戶進(jìn)行身份和權(quán)限驗(yàn)證用的 定義：用戶名 +密碼 +所屬單位 +權(quán)限一 +權(quán)限二 +操作員 位置：所有表單 名字：用戶名 別名： 描述：惟一標(biāo)識(shí)本系統(tǒng)的用戶身份 定義：用戶名 =5{字符 }5 位置：操作用戶表 名字：密碼 別名： 描述：驗(yàn)證本系統(tǒng)的用戶身份 定義：密碼 =5{字符 }5 位置：用戶表 名字：權(quán)限一 別名： 描述：標(biāo)識(shí)本系統(tǒng)的用戶對(duì)本系統(tǒng)管理權(quán)使用權(quán)限 定義：權(quán)限一 =5{字符 }5 位置：用戶表 名字：權(quán)限二 別名： 描述：標(biāo)識(shí)本系統(tǒng)的用戶對(duì)本系統(tǒng)登記權(quán)的使用權(quán)限 定義：權(quán)限二 =5{字符 }5 位置：用戶表 . . 第三章 信息系統(tǒng)設(shè)計(jì) 功能結(jié)構(gòu)圖設(shè)計(jì) 圖 31 功能結(jié)構(gòu)圖 主 系 統(tǒng)管 理 員 功 能 用 戶 功 能添加刪除修改用戶查詢工作狀態(tài)設(shè)置上班下班時(shí)間添加修改刪除部門工作登記出差登記請(qǐng)假登記 輸入 輸出 設(shè)計(jì) 表 31 登錄 名稱、標(biāo)識(shí)符 登錄 輸入 填寫用戶的 ID號(hào)和密碼，點(diǎn)擊確認(rèn)按鈕。 輸出 提示登錄成功進(jìn)入系統(tǒng)主頁面 表 32 員工上班 名稱、標(biāo)識(shí)符 上班 輸入 選擇部門、姓名，點(diǎn)擊上班 輸出 提示上班成功信息 . . 表 33 員工下班 名稱、標(biāo)識(shí)符 下班 輸入 輸入部門、姓名，點(diǎn)擊上班 輸出 提示下班成功信息 表 34 修改密碼 名稱、標(biāo)識(shí)符 修改密碼 輸入 管理員輸入用戶名、原始密碼、新設(shè)定的密碼 輸出 提示修改密碼成功信息 表 35 申請(qǐng) 請(qǐng)假 名稱、標(biāo)識(shí)符 申請(qǐng)請(qǐng)假 輸入 輸入請(qǐng)假人姓名、所屬部門、請(qǐng)假時(shí)間、請(qǐng)假時(shí)長(zhǎng)、請(qǐng)假原因 輸出 提示請(qǐng)假申請(qǐng)已經(jīng)提交信息 表 36 申請(qǐng)出差 名稱、標(biāo)識(shí)符 申請(qǐng)出差 輸入 申請(qǐng)人姓名、所屬部門、出差的開始時(shí)間、出差地點(diǎn)、出差原因 輸出 提示出差申請(qǐng)已經(jīng)提交信息 表 37 員工添加 名稱、標(biāo)識(shí)符 添加員工 輸入 輸入部門、姓名、性別、年齡、進(jìn)公司時(shí)間、個(gè)人密碼 輸出 提示添加已完成 表 38 部門添加 名稱、標(biāo)識(shí)符 部門添加 輸入 輸入部門名稱 輸出 提示添加已完成 表 39 上下班時(shí)間設(shè)定 名稱、標(biāo)識(shí)符 上、下班時(shí)間設(shè)定 輸入 上、下班時(shí)間 輸出 提示設(shè)置成功 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì) 概念設(shè)計(jì) 數(shù)據(jù)庫一般分為三級(jí)模式：外模式、概念模式和內(nèi)模式。 . . 在這里我們將要設(shè)計(jì)的是數(shù)據(jù)庫的概念模式。 通過對(duì)職工出勤管理系統(tǒng)的內(nèi)容和數(shù)據(jù)流程分析及 ER 圖，設(shè)計(jì)如下數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： 信息 。 包括 部門編號(hào)、部門名稱、部門人數(shù)等 。 信息 。 包括用戶名、密碼、姓名、性別、出生日期、籍貫等。 信息 。 包括編號(hào)、部門名稱、姓名、性別、出生日期、籍貫等信息。 信息 。 包括序列號(hào)、編號(hào)、簽到時(shí)間、簽離時(shí)間等信息。 。包括員工請(qǐng)假、出差、早退、遲到、上班。 信息 。 包括記錄號(hào)、編號(hào)、日期、簽到時(shí)間、簽離時(shí)間、遲到、缺勤、早退等信息。 。 包括用戶名稱、密碼、所在單位、用戶權(quán)限信息、操作員、最后修改時(shí)間。 邏輯結(jié)構(gòu)設(shè)計(jì)設(shè)計(jì) 根據(jù)職工考勤管理系統(tǒng)的功能要求，選取 SQLServer 2020 作為后臺(tái)數(shù)據(jù)庫。 在上面的實(shí)體和實(shí)體之間的 ER 圖設(shè)計(jì)基礎(chǔ)上，將 ER 圖轉(zhuǎn)化為關(guān)系模型，形成數(shù)據(jù)庫中的表格及表格之間的關(guān)系。 該數(shù)據(jù)庫 由 5 個(gè)表組成，部門表、超級(jí)用戶表、用戶表、考勤表、考勤歷史表。分別如下表所示： 表 310 出差表 名稱 字段 類型 為空性 備注 部門代號(hào) departmentId 數(shù)字 否 員工 ID workerId 數(shù)字 否 出差時(shí)間 ccTime 日期 /時(shí)間 否 出差地點(diǎn) ccArea 文本 是 出差天數(shù) ccLength 數(shù)字 是 登記時(shí)間 dcTime 日期 /時(shí)間 是 銷差時(shí)間 xcTime 日期 /時(shí)間 是 出差備注 ccContent 文本 是 表 311部門表 名稱 字 段 類型 為空性 備注 部門代號(hào) departmentId 數(shù)字 否 唯一表示部門 部門名稱 departmentName 文本 否 部門名稱 . . 表 312 請(qǐng)假表 名稱 字段 類型 為空性 備注 部門代號(hào) departmentId 數(shù)字 否 員工 ID workerId 數(shù)字 否 請(qǐng)假時(shí)間 qjTime 日期 /時(shí)間 否 請(qǐng)假天數(shù) qjLength 數(shù)字 是 登記時(shí)間 djTime 日期 /時(shí)間 是 請(qǐng)假原因 qjReason 文本 是 銷假時(shí)間 xjTime 日期 /時(shí)間 是 是否曠工 ynKg 是 /否 是 表 313 上班表 名稱 字段 類型 為空性 備注 部門代號(hào) departmentId 數(shù)字 否 員工 ID workerId 數(shù)字 否 工作日期 workday 日期 /時(shí)間 否 上午上班時(shí)間 mstartTime 日期 /時(shí)間 是 下午上班時(shí)間 astartTime 日期 /時(shí)間 是 上午下班時(shí)間 mleaveTime 日期 /時(shí)間 是 下午下班時(shí)間 aleaveTime 日期 /時(shí)間 是 上班類型 1 workmsType 數(shù)字 是 存放工作類型 表中的 typeId 0：正常上班 1：請(qǐng)假 2：出差 3：早退 4：遲到 上班類型 2 workmlType 數(shù)字 是 默認(rèn)值為 0，作為是否已經(jīng)登記的標(biāo)記 上班類型 3 workasType 數(shù)字 是 默認(rèn)值為 0，作為是否已經(jīng)登記的標(biāo)記 上班類型 4 workalType 數(shù)字 是 默認(rèn)值為 0，作為是否已經(jīng)登記的標(biāo)記 表 314 用戶表 名稱 字段 類型 為空性 備注 用戶名 username 文本 否 密碼 password 文本 否 真實(shí)姓名 realname 文本 否 注冊(cè)時(shí)間 regtime 日期 /時(shí)間 否 . . 權(quán)限 permission 數(shù)字 否 0:管理員 1:普通用戶 表 315 員工表 名稱 字段 類型 為空性 備注 部門代號(hào) departmentId 數(shù)字 否 員工 ID workerId 數(shù)字 否 員工姓名 workerName 文本 是 員工性別 workerSex 文本 是 員工年齡 workerAge 數(shù)字 是 進(jìn)入公司時(shí)間 intoCompanyTime 日期 /時(shí)間 否 員工密碼 workerPsw 文本 否 進(jìn)行出勤輸入的最后驗(yàn)證 表 316 上班時(shí)間表 名稱 字段 類型 為空性 備注 上午工作開始時(shí)間 mstartTime 日期 /時(shí)間 否 上午工作離開時(shí)間 mleaveTime 日期 /時(shí)間 否 下午工作開始時(shí)間 astartTime 日期 /時(shí)間 否 下午工作離開時(shí)間 aleaveTime 日期 /時(shí)間 否 表 317 上班類型表 名稱 字段 類型 為空性 備注 類型代號(hào) typeId 數(shù)字 否 類型名稱 typeName 文本 是 代碼設(shè)計(jì) 部門代號(hào)為兩位數(shù)，按照創(chuàng)建時(shí)間早晚排行。例如：生 產(chǎn)部為第七個(gè)創(chuàng)建的部門，所以他的編號(hào)為 07。 員工 ID 一共分成 6 位，前兩位表示部門代號(hào)，中間兩位表示進(jìn)入部門年份，后兩位表示員工編號(hào)。例如：婁京兆是 2020 年生產(chǎn)部招收的第一位員工，那么他的 ID 就是 071301。 上班類型代號(hào)為一位數(shù)，按照上班類型分為五類， 0：正常上班 1：請(qǐng)假 2：出差 3：早退 4：遲到。 . . 第四章 信息系統(tǒng)實(shí)施 源程序 添加用戶 Dim m_clsUser As clsUser Private Sub cmdReg_Click() Set m_clsUser = New clsUser txtUserName, txtPassword, txtPasswordConfirm, txtRealName, boPermission, txtRegTime, frmAddUser End Sub Private Sub Form_Load() 管理員 , 0 普通用戶 , 1 = 0 End Sub Private Sub cmdClose_Click() Unload Me End Sub 修改密碼 Dim m_clsUser As clsUser Private Sub cmdChPwdOk_Click() Set m_clsUser = New clsUser txtChUser, txtOldPwd, txtNewPwd,