【正文】 職務(wù)名稱 文本 30 是 備注 文本 255 是 (3)職工考勤信息表 字段名稱 數(shù)據(jù)類型 長(zhǎng)度 主鍵 允許空 職工編號(hào) 文本 6 是 職工姓名 文本 10 是 考勤日期 文本 6 否 部門(mén)名稱 文本 50 是 出勤天數(shù) 數(shù)字 整型 是 假日加班 數(shù)字 整型 是 其它加班 數(shù)字 整型 是 13 酒店人事工資管理系統(tǒng) 第 13 頁(yè) 出差天數(shù) 數(shù)字 整型 是 補(bǔ)休天數(shù) 數(shù)字 整型 是 請(qǐng)假次數(shù) 數(shù)字 整型 是 曠工天數(shù) 數(shù)字 整型 是 遲到次數(shù) 數(shù)字 整型 是 早退 次數(shù) 數(shù)字 整型 是 備注 文本 255 是 (4)職工工資信息表 字段名稱 數(shù)據(jù)類型 長(zhǎng)度 主鍵 允許空 職工編號(hào) 文本 6 是 職工姓名 文本 10 是 計(jì)發(fā)日期 文本 6 否 部門(mén)名稱 文本 50 是 底薪 數(shù)字 單精度型 是 獎(jiǎng)金 數(shù)字 單精度型 是 補(bǔ)貼 數(shù)字 單精度型 是 加班費(fèi) 數(shù)字 單精度型 是 房帖費(fèi) 數(shù)字 單精度型 是 扣考核 數(shù)字 單精度型 是 養(yǎng)老金 數(shù)字 單精度型 是 醫(yī)療保險(xiǎn) 數(shù)字 單精度型 是 住房公積金 數(shù)字 單精度 型 是 稅前小計(jì) 數(shù)字 單精度型 是 所得稅 數(shù)字 單精度型 是 實(shí)發(fā)工資 數(shù)字 單精度型 是 (5)口令信息表 字段名稱 數(shù)據(jù)類型 長(zhǎng)度 主鍵 允許空 用戶名 文本 20 是 密碼 文本 10 是 權(quán)限 文本 6 是 14 酒店人事工資管理系統(tǒng) 第 14 頁(yè) 第四章 詳細(xì)設(shè)計(jì)工作 數(shù)據(jù)模塊的創(chuàng)建 將數(shù)據(jù)庫(kù)連接、數(shù)據(jù)表和數(shù)據(jù)源等運(yùn)行期不可見(jiàn)的組件都放在窗體設(shè)計(jì)界面上，雖然在調(diào)用時(shí)比較直觀，但卻為界面布局設(shè)計(jì)帶來(lái)的麻煩，而且也不利于數(shù)據(jù)的統(tǒng)一管理。確定數(shù)據(jù)庫(kù)位置 Dim rc As New 39。當(dāng)不同權(quán)限的用戶登錄到該界面時(shí)功能有所不同，其控制由“用戶登錄”界面控制。保存當(dāng)前各個(gè)輸入框的值 FBmmc = Trim() FBz = Trim() = 0 39。 查詢代碼： Private Sub DataFind() 39。 amp。 If SQL Then SQL = select * from 部門(mén)基本情況 where 部門(mén)編號(hào) 39。寫(xiě)入表頭標(biāo)題 = 1: = 部門(mén)編號(hào) = 2: = 部 門(mén) 名 稱 = 3: = 備 注 SQL = SQL amp。數(shù)據(jù)刪除 Dim DelSQL As String Dim YesNo As Integer Dim SQL As String SQL = select * from 部門(mén)基本情況 If = 1 Then SQL, Cnndb, 3, 2 If 0 Then YesNo = MsgBox(真的要?jiǎng)h除表格里滿足條件的所有記錄嗎？ , vbYesNo + vbQuestion) If YesNo = vbYes Then DelSQL = If Then DelSQL = DelSQL amp。 Trim() amp。39。在此窗體中輸入的信息都進(jìn)過(guò)合法性檢測(cè)，判斷職工編號(hào)是否出現(xiàn)重復(fù)，位數(shù)是否為 6 位（前兩位為部門(mén)編號(hào)，后四位為職工自25 酒店人事工資管理系統(tǒng) 第 25 頁(yè) 身編號(hào)）等。對(duì)職工 工資進(jìn)行按月分組，計(jì)算職工各種工資項(xiàng)目和個(gè)人所得稅款等一些信息。 2 用戶管理 28 酒店人事工資管理系統(tǒng) 第 28 頁(yè) 該功能只針對(duì)管理員有效，用于對(duì)所有權(quán)限用戶口令的管理。檢測(cè)輸入口令的次數(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 頁(yè) 源代碼： 1 用戶登陸 Dim rc As New 39。 1 密碼設(shè)置 該界面比較簡(jiǎn)單，能讓登陸的用戶修改自己的密碼，但不能更改用戶名，此項(xiàng)對(duì)所有權(quán)限的用戶都適用。并能根據(jù)部門(mén)名稱、考勤日期進(jìn)行職工考勤信息查詢。 1編輯職工信息 作為編輯職工信息這一項(xiàng)，所實(shí)現(xiàn)的功能是對(duì) 公司職工資料信息的存儲(chǔ)與編輯，方便對(duì)職工的分類與管理。 39。 and 部門(mén)名稱 =39。由于刪除記錄不可能在大量的數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)刪除也有數(shù)據(jù)查找功能，先在對(duì)應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)刪除的條件，再按刪除按鈕，系統(tǒng)便會(huì)列出滿足刪除條件的部門(mén)記錄，并提示是否刪除滿足條件的全部部門(mén)記錄，也可以一條一條刪除部門(mén)記錄，只要在數(shù)據(jù)表格中選中要?jiǎng)h除的部門(mén)記錄，在按一下刪除按鈕即可刪除數(shù)據(jù)。進(jìn)行數(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)前各個(gè)輸入框的值 = FBmmc = FBz 20 酒店人事工資管理系統(tǒng) 第 20 頁(yè) (2)數(shù)據(jù)查詢 當(dāng)操作員需要對(duì)某個(gè)部門(mén)進(jìn)行查詢時(shí)，可以在編輯部門(mén)信息窗體下部中找到查詢按鈕。 添加代碼設(shè)置如下： Private Sub DataFresh(SQL As String) 39。 根據(jù)系統(tǒng)模塊結(jié)構(gòu)，建立系統(tǒng)主界面。 amp。本次設(shè)計(jì)選擇了 Access 2021 作為后臺(tái)數(shù)據(jù)庫(kù)，利用 Visual Basic 6 提供的數(shù)據(jù)庫(kù)開(kāi)發(fā)平臺(tái)開(kāi)發(fā)前臺(tái)部分。 *對(duì)其提供的部門(mén)資料情況進(jìn)行添加、查詢、修改和刪除操作。這在一定程度上能夠節(jié)省人力物力，同時(shí)也大大加強(qiáng)了對(duì)數(shù)據(jù)處理的及時(shí)性和準(zhǔn)確性。 *對(duì)其提供的部門(mén)資料情況進(jìn)行添加、查詢、修改和刪除操作。這在一定程度上能夠節(jié)省人力物力，同時(shí)也大大加強(qiáng)了對(duì)數(shù)據(jù)處理的及時(shí)性和準(zhǔn)確性。 Access 與許多優(yōu)秀的關(guān)系數(shù)據(jù)庫(kù)一樣，可以讓你很容易地連接相關(guān)的信息而且還對(duì)其他的數(shù)據(jù)庫(kù)系統(tǒng)有所補(bǔ)充。 整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)。 隨著科學(xué)技術(shù)的不斷提高 ,計(jì)算機(jī)科學(xué)日漸成熟 ,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí) ,它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。 因此，開(kāi)發(fā)這樣一套管理軟件成為很有必要的事情 ,在下面的各章中我們將以開(kāi)發(fā)一套酒店人事工資管 理系統(tǒng)為例 ,談?wù)勂溟_(kāi)發(fā)過(guò)程和所涉及到的問(wèn)題及解決方法。 關(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 頁(yè) 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 頁(yè) 目 錄 前言 ........................................................................................................................................................ 2 摘要 ........................................................................................................................................................ 2 第一章 導(dǎo)論 ..............................................................................................