【正文】 職務(wù)名稱 文本 30 是 備注 文本 255 是 (3)職工考勤信息表 字段名稱 數(shù)據(jù)類型 長度 主鍵 允許空 職工編號 文本 6 是 職工姓名 文本 10 是 考勤日期 文本 6 否 部門名稱 文本 50 是 出勤天數(shù) 數(shù)字 整型 是 假日加班 數(shù)字 整型 是 其它加班 數(shù)字 整型 是 13 酒店人事工資管理系統(tǒng) 第 13 頁 出差天數(shù) 數(shù)字 整型 是 補休天數(shù) 數(shù)字 整型 是 請假次數(shù) 數(shù)字 整型 是 曠工天數(shù) 數(shù)字 整型 是 遲到次數(shù) 數(shù)字 整型 是 早退 次數(shù) 數(shù)字 整型 是 備注 文本 255 是 (4)職工工資信息表 字段名稱 數(shù)據(jù)類型 長度 主鍵 允許空 職工編號 文本 6 是 職工姓名 文本 10 是 計發(fā)日期 文本 6 否 部門名稱 文本 50 是 底薪 數(shù)字 單精度型 是 獎金 數(shù)字 單精度型 是 補貼 數(shù)字 單精度型 是 加班費 數(shù)字 單精度型 是 房帖費 數(shù)字 單精度型 是 扣考核 數(shù)字 單精度型 是 養(yǎng)老金 數(shù)字 單精度型 是 醫(yī)療保險 數(shù)字 單精度型 是 住房公積金 數(shù)字 單精度 型 是 稅前小計 數(shù)字 單精度型 是 所得稅 數(shù)字 單精度型 是 實發(fā)工資 數(shù)字 單精度型 是 (5)口令信息表 字段名稱 數(shù)據(jù)類型 長度 主鍵 允許空 用戶名 文本 20 是 密碼 文本 10 是 權(quán)限 文本 6 是 14 酒店人事工資管理系統(tǒng) 第 14 頁 第四章 詳細設(shè)計工作 數(shù)據(jù)模塊的創(chuàng)建 將數(shù)據(jù)庫連接、數(shù)據(jù)表和數(shù)據(jù)源等運行期不可見的組件都放在窗體設(shè)計界面上，雖然在調(diào)用時比較直觀，但卻為界面布局設(shè)計帶來的麻煩，而且也不利于數(shù)據(jù)的統(tǒng)一管理。確定數(shù)據(jù)庫位置 Dim rc As New 39。當(dāng)不同權(quán)限的用戶登錄到該界面時功能有所不同，其控制由“用戶登錄”界面控制。保存當(dāng)前各個輸入框的值 FBmmc = Trim() FBz = Trim() = 0 39。 查詢代碼： Private Sub DataFind() 39。 amp。 If SQL Then SQL = select * from 部門基本情況 where 部門編號 39。寫入表頭標(biāo)題 = 1: = 部門編號 = 2: = 部 門 名 稱 = 3: = 備 注 SQL = SQL amp。數(shù)據(jù)刪除 Dim DelSQL As String Dim YesNo As Integer Dim SQL As String SQL = select * from 部門基本情況 If = 1 Then SQL, Cnndb, 3, 2 If 0 Then YesNo = MsgBox(真的要刪除表格里滿足條件的所有記錄嗎？ , vbYesNo + vbQuestion) If YesNo = vbYes Then DelSQL = If Then DelSQL = DelSQL amp。 Trim() amp。39。在此窗體中輸入的信息都進過合法性檢測，判斷職工編號是否出現(xiàn)重復(fù)，位數(shù)是否為 6 位（前兩位為部門編號，后四位為職工自25 酒店人事工資管理系統(tǒng) 第 25 頁 身編號）等。對職工 工資進行按月分組，計算職工各種工資項目和個人所得稅款等一些信息。 2 用戶管理 28 酒店人事工資管理系統(tǒng) 第 28 頁 該功能只針對管理員有效，用于對所有權(quán)限用戶口令的管理。檢測輸入口令的次數(shù) Dim DLYongHuMing As String Dim DLQuanXian As String Private Sub DataSave() 39。 ) SQL = SQL amp。 amp。 SQL = SQL amp。39。39。 amp。 39。 QuanXian End Sub Private Sub Men_Bjkqxx_Click() 編輯考勤信息 .Height = 8685 編輯考勤信息 .Width = 10290 編輯考勤信息 .Show 編輯考勤信息 .SetFocus (1).Text = 狀態(tài)：編輯考勤信息 amp。 Dim Cmdsize As Integer 39。 amp。 39。39。 ) (SQL) End Sub Private Sub DataFind() 39。 DLYongHuMing amp。 SQL = SQL amp。 ,用戶名 SQL = SQL amp。 圖 29 酒店人事工資管理系統(tǒng) 第 29 頁 源代碼： 1 用戶登陸 Dim rc As New 39。 1 密碼設(shè)置 該界面比較簡單，能讓登陸的用戶修改自己的密碼，但不能更改用戶名，此項對所有權(quán)限的用戶都適用。并能根據(jù)部門名稱、考勤日期進行職工考勤信息查詢。 1編輯職工信息 作為編輯職工信息這一項，所實現(xiàn)的功能是對 公司職工資料信息的存儲與編輯，方便對職工的分類與管理。 39。 and 部門名稱 =39。由于刪除記錄不可能在大量的數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)刪除也有數(shù)據(jù)查找功能，先在對應(yīng)的文本框中輸入要進行數(shù)據(jù)刪除的條件，再按刪除按鈕，系統(tǒng)便會列出滿足刪除條件的部門記錄，并提示是否刪除滿足條件的全部部門記錄，也可以一條一條刪除部門記錄，只要在數(shù)據(jù)表格中選中要刪除的部門記錄，在按一下刪除按鈕即可刪除數(shù)據(jù)。進行數(shù)據(jù)表格控件的修改 Dim i As Integer Dim j As Integer Dim FBmbh As String Dim FBmmc As String Dim FBz As String FBmbh = Trim() 39。 Trim() amp。 If Then SQL = SQL amp?；謴?fù)當(dāng)前各個輸入框的值 = FBmmc = FBz 20 酒店人事工資管理系統(tǒng) 第 20 頁 (2)數(shù)據(jù)查詢 當(dāng)操作員需要對某個部門進行查詢時，可以在編輯部門信息窗體下部中找到查詢按鈕。 添加代碼設(shè)置如下： Private Sub DataFresh(SQL As String) 39。 根據(jù)系統(tǒng)模塊結(jié)構(gòu)，建立系統(tǒng)主界面。 amp。本次設(shè)計選擇了 Access 2021 作為后臺數(shù)據(jù)庫，利用 Visual Basic 6 提供的數(shù)據(jù)庫開發(fā)平臺開發(fā)前臺部分。 *對其提供的部門資料情況進行添加、查詢、修改和刪除操作。這在一定程度上能夠節(jié)省人力物力，同時也大大加強了對數(shù)據(jù)處理的及時性和準(zhǔn)確性。 *對其提供的部門資料情況進行添加、查詢、修改和刪除操作。這在一定程度上能夠節(jié)省人力物力，同時也大大加強了對數(shù)據(jù)處理的及時性和準(zhǔn)確性。 Access 與許多優(yōu)秀的關(guān)系數(shù)據(jù)庫一樣，可以讓你很容易地連接相關(guān)的信息而且還對其他的數(shù)據(jù)庫系統(tǒng)有所補充。 整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)。 隨著科學(xué)技術(shù)的不斷提高 ,計算機科學(xué)日漸成熟 ,其強大的功能已為人們深刻認(rèn)識 ,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。 因此，開發(fā)這樣一套管理軟件成為很有必要的事情 ,在下面的各章中我們將以開發(fā)一套酒店人事工資管 理系統(tǒng)為例 ,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。 關(guān)鍵字 Visual Basic Access2021 控件 窗體 域 Abstract The system of managing census register file is a typical application of managing information system （ know as MIS） ,which mainly includes building up database of backend and developing the application interface of frontend. The former required consistency and integrality and security of data. The later should make the application powerful and easily used. By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX 3 酒店人事工資管理系統(tǒng) 第 3 頁 operating a database. It can give you a shortcut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it. Key Word Visual Basic 、 Access202 ActiveX、 Form、 Field 4 酒店人事工資管理系統(tǒng) 第 4 頁 目 錄 前言 ........................................................................................................................................................ 2 摘要 ........................................................................................................................................................ 2 第一章 導(dǎo)論 ..............................................................................................