【正文】 : amp。 : amp。判斷上午上班時(shí)間是否遲到 If tmsb1 tmsetswxb Then If tmsb1 tmsetswsb Then ilate = 1 MsgBox 遲到 Else ilate = 0 MsgBox 正常上班 34 End If 39。 : amp。 : amp。判斷下班時(shí)間大于上班時(shí)間 MsgBox 請(qǐng)正確的輸入時(shí) 間 , vbOKOnly + vbExclamation, 警告！ 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。 39。 39。 是否真的退出 ?, vbYesNo, 系統(tǒng)驗(yàn)證 ) If n = vbYes Then Unload Me End If End Sub 24 圖 42 工資管理系統(tǒng) 主窗體 、 員工 基本檔案 信息的實(shí)現(xiàn) 員工 基本檔案 信息 管理 ，在 窗體中完成員工基本信息的錄入工作。 amp。 39。 為了實(shí)現(xiàn)該功能，系統(tǒng)采用了遞歸方式，使高一級(jí)別的用戶可以管理低級(jí)用戶，最高權(quán)限屬于管理員。然后轉(zhuǎn)存到其它表作進(jìn)一步處理。 此表數(shù)據(jù)只保存員工的出勤情況，并不包括每日生產(chǎn)產(chǎn)量的考勤信息。 其中 分為 12 張 主 表 ,分別為： t_br（基本檔案表）、 t_login（操作員登錄記錄表）、 系統(tǒng)用戶 （用戶表）、 AttendanceInfo（員工考勤信息表）、 LeaveInfo(員工請(qǐng)假信息 )、 OvertimeInfo(員工加班信息 ) 、 BasicSar（基本工資設(shè)定表）、 kouchu（扣除）、 timekaoqin（記時(shí)考勤）、 salarysta（產(chǎn)品單價(jià)設(shè)定表） 、 salary（員工工 資表） 、 YGZJS（月工資結(jié)算表） 等 詳細(xì)信息如下 。數(shù)據(jù)流圖如下 圖 21 所示 ： 13 、 模塊圖 如圖 ： 圖 22 系統(tǒng)功能模塊圖 14 第三章 數(shù)據(jù)庫設(shè)計(jì) 、 概述 在數(shù)據(jù)庫應(yīng)用系統(tǒng)的開發(fā)過程中，數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計(jì)是其中非常重要的一個(gè)環(huán)節(jié)。 查 詢員工考勤信息 ： 根據(jù)員工編號(hào)或時(shí)間進(jìn)行查詢得到所有的考勤信息。 基于以上眾多問題的分析，和企業(yè)管理制度的參考。 實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系 數(shù)據(jù)庫之間的關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就 是信息的集合。 本系統(tǒng)使用 Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單，您也可以使用 Visual Basic 的 Application Wizard 來操作。其程序的方法有 Show（顯示）方法， Hide（隱藏）方法， Refresh（刷新）方法。 (3) 屬性 (Properties) 屬性是 VB 系統(tǒng)提供的有關(guān)對(duì)象的參數(shù)或數(shù)據(jù)接口。 Visual Basic 系統(tǒng)除了一般高級(jí)語言所具有的一些名詞術(shù)語外，還有幾個(gè)系統(tǒng)常用的名詞。 VB 因簡單易學(xué)、功能強(qiáng)大、編譯速度快而從眾多的軟件開發(fā)工具中脫穎而出。 整個(gè)系統(tǒng)從符合操作簡便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，完成 工資管理 的全過程，包括 用戶管理、系統(tǒng)管理 、信息初始化、工具箱、幫助十一大模塊。數(shù)據(jù)庫管理系統(tǒng)再依據(jù)子模式 /模式映象的定義導(dǎo)出應(yīng)用程序所要讀取的記錄格式，將數(shù)據(jù)從系統(tǒng)緩沖區(qū)傳送到應(yīng)用程序的用戶工作區(qū)，并返回命令執(zhí)行情況的狀態(tài)信息。其中數(shù)據(jù)庫管理系統(tǒng)起著關(guān)鍵的中介作用。這些映象定義通常包含在各自外模式的描述中。外模式是模式的子集，是局部數(shù)據(jù)的邏輯結(jié)構(gòu)描述。概念模型是現(xiàn)實(shí)世界到信息世界的第一層抽象，這種信息結(jié)構(gòu)并不依賴于具體的計(jì)算機(jī)系統(tǒng)，也不是某一個(gè)數(shù)據(jù)庫管理系統(tǒng)支持的數(shù)據(jù)模型，它是現(xiàn)實(shí)世界到機(jī)器世界的一個(gè)中間層次。 企業(yè)工資管理系統(tǒng)是典型的信息管理系統(tǒng)（ MIS），前臺(tái)程序開發(fā)工具采用微軟的 VB6，后臺(tái)數(shù)據(jù)庫采用 Access數(shù)據(jù)庫。 企業(yè)的工資管理是公司管理的一個(gè)重要內(nèi)容。 論文最后論述了用 VB 與 ACCESS 編寫工資管理信息系統(tǒng)的設(shè)計(jì)過程。1 摘 要 傳統(tǒng)事業(yè)單位的工資管理方法以及傳統(tǒng)工資管理存在 很多 的缺陷與弊端。設(shè)計(jì)過程主要以上面的分析的重點(diǎn)作為依據(jù)。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來越復(fù)雜。 VB6 是一種面向?qū)ο蟮拈_發(fā)工具，具有組件豐富、語言簡單、功能強(qiáng)大的優(yōu)點(diǎn)。 關(guān)系模型的數(shù)據(jù)結(jié)構(gòu)，即所研究的對(duì)象類型包括有：關(guān)系，對(duì)應(yīng)一張 二維表，它由行和列組成；元組，對(duì)應(yīng)表中的一行；屬性，對(duì)應(yīng)表中的一列；主碼，對(duì)應(yīng)某個(gè)屬性值，它可以唯一確定一個(gè)元組；分量，對(duì)應(yīng)元組中的一個(gè)屬性值。它面向具體的應(yīng)用程序。當(dāng)模式改變時(shí)，只須對(duì)映象作相應(yīng)改變，可以使外模式保持不變，從而應(yīng)用程序不必修改，保證了數(shù)據(jù)的邏輯獨(dú)立性。當(dāng)應(yīng)用程序從數(shù)據(jù)庫中讀取一個(gè)數(shù)據(jù)時(shí)，它向數(shù)據(jù)庫管理系統(tǒng)發(fā)出讀取數(shù)據(jù)記錄的命令。 根據(jù)數(shù)據(jù)庫管理系統(tǒng)所具有的功能，可將它分為四個(gè)組成部分。經(jīng)過實(shí)際使用證明，本文所設(shè)計(jì)的工資管理系統(tǒng)可以滿足公司工資管理方面的需要。它提供了靈活的可視化設(shè)計(jì)工具，將可視化界面與面向?qū)ο蠹夹g(shù)完善、緊密地結(jié)合起來，并封裝了 Windows 編程的復(fù)雜性。其基本含義如下： (1) 視窗（ Form） 視窗是進(jìn)行人機(jī)交互的界面或接口，也叫窗體。用戶通過適當(dāng)?shù)卦O(shè)置或改變對(duì)象的屬性來確定對(duì) 象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對(duì)象。 (6) 過程 (Procedure) 過程是指經(jīng)過定義或說明的，或基于某一對(duì)象對(duì)應(yīng)的事件所引發(fā)的程序段。 實(shí)現(xiàn)工具欄 CoolBar 控件與 Office2021 中看到的 CoolBar 是類似的。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（ flatfile）和關(guān)系數(shù)據(jù)庫（ relational）。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。將系統(tǒng)具體分為系統(tǒng)管理、員工信息設(shè)定 、 工資信息管理 、 工資結(jié)算管理 、數(shù)據(jù)庫管理、工具箱、幫助 七 大模塊 : 系統(tǒng)管理 分為操作員登錄管理，用戶管理，鎖定操作畫面及退出。包括上下班，加班和出差信息，但是不能夠?qū)π畔⑦M(jìn)行任何的操作。 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。 15 圖 31 數(shù)據(jù)庫表 各個(gè)實(shí)體具體的描述 ER 圖如下。 表 32 員工考勤信息表 AttendanceInfo 字段 類型 長度 必填字段 工號(hào) 文本 6 是 姓名 文本 10 是 當(dāng)前日期 文本 10 是 出入標(biāo)志 文本 2 是 上班時(shí)間 日期 /時(shí)間 是 下班時(shí)間 日期 /時(shí)間 是 遲到次數(shù) 數(shù)字 10 否 早退次數(shù) 數(shù)字 10 否 LeaveInfo 員工請(qǐng)假 信息表， 其結(jié)構(gòu)如 表 33 所示。 表 35 員工工資表 salary 字段 類型 長度 必填字段 ID 自動(dòng)編號(hào) 是 工號(hào) 文本 5 是 姓名 文本 10 是 工作日 日期 /時(shí)間 是 產(chǎn)品類型 一 文本 文本 否 產(chǎn)品類型二 文本 否 產(chǎn)品類型三 文本 否 數(shù)量一 數(shù)字 否 數(shù)量二 數(shù)字 否 數(shù)量三 數(shù)字 否 單價(jià)一 數(shù)字 否 單價(jià)二 數(shù)字 否 單價(jià)三 數(shù)字 否 每日匯總 數(shù)字 是 20 最后，設(shè)計(jì)數(shù)據(jù)庫時(shí)， 考慮 數(shù)據(jù)庫的安全性，防止非管理人員用第三方軟件打開數(shù)據(jù)庫，特對(duì)數(shù)據(jù)庫 文件 也進(jìn)行了處理，將數(shù)據(jù)庫的 擴(kuò)展名 mdb 替換為 ldl， 起到了一定的迷惑性。 具體描述如下 : 、 登錄窗口的實(shí)現(xiàn) 系統(tǒng)登陸時(shí)，要求正確輸入用戶名和密 碼。 If Then MsgBox 用戶名錯(cuò)誤！ , vbOKOnly + vbCritical, 系統(tǒng)登錄 = Else If objRs!口令 txtPassword Then MsgBox 密碼錯(cuò)誤 !請(qǐng)重新輸入 !, vbOKOnly + vbCritical, 系統(tǒng)登錄 = Else 39。 Now amp。根據(jù)提示 在 該窗體中輸入相應(yīng)的信息， 最后單擊“保存”按鈕，進(jìn)行信息的保存。 Set rs = ExecuteSQL(strSql, strMsg) 39。 26 Set rs = ExecuteSQL(strSql, strMsg) Else strSql = select * from t_br where 工號(hào) =39。日期型 (合同開始時(shí)間 ) = (合同終止時(shí)間 ) = If = Then (工齡 ) = 0 Else (工齡 ) = End If 39。設(shè)置焦點(diǎn) Exit Sub End If sql = select * from TimeSetting Set rs = ExecuteSQL(sql, strMsg) ( 上 午 上 班 時(shí)間 ) = CDate( amp。 ) (下午上班時(shí)間 ) = CDate( amp。 ) MsgBox 時(shí)間已經(jīng)設(shè)置 , vbOKOnly + vbInformation, 設(shè)置結(jié)果！ Unload Me End Sub Private Sub Form_Load() Dim sql As String Dim rs As New 32 Dim strMsg As String sql = select * from TimeSetting Set rs = ExecuteSQL(sql, strMsg) If Then Exit Sub = (上午上班時(shí)間 ) = (上午下班時(shí)間 ) = (下午上班時(shí)間 ) = (下午下班時(shí)間 ) End Sub 、 添加員工考勤信息 添加上下班信息 窗體如圖 45 所示，填入相應(yīng)的信息，部分代碼如下 ： 圖 45 添加員工考勤信息 添加上下班信息 Private Sub cmdOK_Click