【文章內(nèi)容簡介】 數(shù)字 單精度型 是 獎金 數(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ù)類型 長度 主鍵 允許空 用戶名 文本 20 是 密碼 文本 10 是 權(quán)限 文本 6 是 14 酒店人事工資管理系統(tǒng) 第 14 頁 第四章 詳細(xì)設(shè)計(jì)工作 數(shù)據(jù)模塊的創(chuàng)建 將數(shù)據(jù)庫連接、數(shù)據(jù)表和數(shù)據(jù)源等運(yùn)行期不可見的組件都放在窗體設(shè)計(jì)界面上，雖然在調(diào)用時(shí)比較直觀，但卻為界面布局設(shè)計(jì)帶來的麻煩，而且也不利于數(shù)據(jù)的統(tǒng)一管理。因此，在設(shè)計(jì)時(shí)，我選擇使用ADO 來控制管理數(shù)據(jù)庫。 在程序模塊中定義記錄集，并在各個(gè)窗體中定義記錄集變量，使輸入數(shù)據(jù)能與數(shù)據(jù)庫連接，并都用程序進(jìn)行控制，這樣不用數(shù)據(jù)控件都用代碼控制大大提高了程序運(yùn)行效率。 部分有關(guān)代碼如下： Dim rc As New 39。定義記錄集變量 provider=。data source = amp。 amp。 \酒店人事工資管理系統(tǒng) .mdb 39。確定數(shù)據(jù)庫位置 Dim rc As New 39。定義記錄集變量 If = 1 Then ‘判斷當(dāng)前表的狀態(tài)是否打開，是則關(guān)閉 SQL, Cnndb, 3, 2 ‘打開當(dāng)前表 用戶登錄模塊設(shè)計(jì) 設(shè)計(jì)思路 每個(gè)用戶登錄系統(tǒng)都須經(jīng)過身份驗(yàn)證。只有用戶名和密碼相對應(yīng)才能進(jìn)入系統(tǒng)。因?yàn)樵谙到y(tǒng)設(shè)置中已經(jīng)對系統(tǒng)使用權(quán)限進(jìn)行了規(guī)定，所以，在用戶登錄的同時(shí)也決定了用戶對系統(tǒng)使用的權(quán)限。當(dāng)?shù)卿浾呤枪芾韱T身份時(shí)，他可以使用系統(tǒng)提供的所有功能，并能對所有用戶15 酒店人事工資管理系統(tǒng) 第 15 頁 進(jìn)行管理。登錄者是操作員可 以使用所有對數(shù)據(jù)的編輯功能，而如果登錄者是一般用戶時(shí)只能利用系統(tǒng)進(jìn)行資料查詢功能。 根據(jù)系統(tǒng)模塊結(jié)構(gòu)，建立系統(tǒng)主界面。用戶登錄到系統(tǒng)后進(jìn)入的就是該界面，所有功能一目了然。當(dāng)不同權(quán)限的用戶登錄到該界面時(shí)功能有所不同，其控制由“用戶登錄”界面控制。 在此界面中對用戶的權(quán)限進(jìn)行了設(shè)置，若是以一般用戶登錄時(shí)只能修改自己的密碼且只能瀏覽所有的人事管理信息，以管理員身份進(jìn)入時(shí)可以對所有一般用戶的密碼進(jìn)行設(shè)置，還可刪除一般用戶！能對人事信息進(jìn)行編輯刪除，修改等操作 具體精彩代碼如下： 16 酒店人事工資管理系統(tǒng) 第 16 頁 Private Sub Command4_Click() Cmdsize = 4 = False = False = False = False = False = False = False = False = False = False = False = False If QuanXian = (一般用戶 ) Then = True = False = True = True = False = True Else 17 酒店人事工資管理系統(tǒng) 第 17 頁 = True = True = True = True End If = 0 = = * 2 = * 3 End Sub 1編輯部門信息 作為編輯部門信息這一項(xiàng)，所實(shí)現(xiàn)的功能是對公司各部門資料信息的存儲與編輯，部門信息包 括：部門編號（兩位）、部門名稱、備注。部門編號與部門名稱都具有唯一性，不能重復(fù)。作為部門信息與職工信息有著密切的關(guān)系，每一名職工都從屬一個(gè)部門。 18 酒店人事工資管理系統(tǒng) 第 18 頁 (1)數(shù)據(jù)添加 當(dāng)操作員進(jìn)入系統(tǒng)，根據(jù)設(shè)計(jì)要求，需要添加新的 部門信息 時(shí)，在編輯部門信息窗體上按添加按鈕，便進(jìn)入添加狀態(tài)，文本框自動清空，添加按鈕變?yōu)榇_定按鈕，光標(biāo)會停留在部門編號文本框上，此時(shí)系統(tǒng)已自動生成一個(gè)新的部門編號，只需輸入部門名稱和備注信息即可完成部門信息編輯操作，在按窗體上的確定按鈕即可檢查該部門信息是否合法并存入數(shù)據(jù)庫，否則按取消按鈕。再 點(diǎn)擊添加按鈕，用戶可再次添部門信息記錄。 添加代碼設(shè)置如下： Private Sub DataFresh(SQL As String) 39。進(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。保存當(dāng)前各個(gè)輸入框的值 FBmmc = Trim() FBz = Trim() = 0 39。寫入表頭標(biāo)題 = 1: = 部門編號 = 2: = 部 門 名 稱 = 3: = 備 注 SQL = SQL amp。 order by 部門編號 asc 39。向表格控件輸入數(shù)據(jù) PrintSQL = SQL If = 1 Then 19 酒店人事工資管理系統(tǒng) 第 19 頁 SQL, Cnndb, 3, 2 If 0 Then = + 1 i = 1 Do Until = i For j = 1 To 3 = j = amp。 rc(j 1) = 1 Next j i = i + 1 Loop Else = 1 End If Dim n As Integer 39。清除表格控件最左邊的選定當(dāng)前行標(biāo)志 √ For n = 0 To 1 (n, 0) = Next n ChangeCheck = False = FBmbh 39。恢復(fù)當(dāng)前各個(gè)輸入框的值 = FBmmc = FBz 20 酒店人事工資管理系統(tǒng) 第 20 頁 (2)數(shù)據(jù)查詢 當(dāng)操作員需要對某個(gè)部門進(jìn)行查詢時(shí)，可以在編輯部門信息窗體下部中找到查詢按鈕。先在對應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)查詢的條件，輸入完查詢條件后，點(diǎn)擊查詢按鈕進(jìn)行確定，系統(tǒng)便會查詢出滿足條件的部門記錄，并列到數(shù)據(jù)表格中，無滿足條件的部門記錄時(shí)，則彈出對話框提示“查無此記錄！”。 查詢代碼： Private Sub DataFind() 39。數(shù)據(jù)查找 Dim M As Integer Dim SQL As String SQL = If Then SQL = SQL amp。 and 部門編號 =39。 amp。 Trim() amp。 39。 If Then SQL = SQL amp。 and 部門名稱 =39。 amp。 Trim() amp。 39。 If Then SQL = SQL amp。 and 備注 =39。 amp。 Trim() amp。 39。 If SQL Then SQL = select * from 部門基本情況 where 部門編號 39。39。 amp。 SQL If = 1 Then SQL, Cnndb, 3, 2 If Then M = MsgBox(查無此記錄 , vbInformation) Exit Sub End If Call DataFresh(SQL) End If End Sub (3)數(shù)據(jù)修改 當(dāng)操作員需要對某個(gè)部門進(jìn)行修改時(shí)，可以在編輯部門信息窗體下部中找到修改按鈕。由于修改記錄不可能在大量的數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)修改應(yīng)該與數(shù)據(jù)添加按鈕結(jié)合使用，先用查詢功能進(jìn)行對要修改記錄的搜索，再在數(shù)據(jù)表格中選中要修改的部門記錄，便把21 酒店人事工資管理系統(tǒng) 第 21 頁 此部門記錄讀入文本框中，只需在文本框中直接進(jìn)行數(shù)據(jù)修改便可，修改完后按修改按鈕進(jìn)行確定，系統(tǒng)并對修改后的數(shù)據(jù)進(jìn)行合法性檢測，合法則修改成功。 修改信息代碼： Private Sub DataFresh(SQL As String) 39。進(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。保存當(dāng)前各個(gè)輸入框的值 FBmmc = Trim() FBz = Trim() = 0 39。寫入表頭標(biāo)題 = 1: = 部門編號 = 2: = 部 門 名 稱 = 3: = 備 注 SQL = SQL amp。 order by 部門編號 asc 39。向表格控件輸入數(shù)據(jù) PrintSQL = SQL If = 1 Then SQL, Cnndb, 3, 2 If 0 Then = + 1 i = 1 Do Until = i For j = 1 To 3 22 酒店人事工資管理系統(tǒng) 第 22 頁 = j = amp。 rc(j 1) = 1 Next j i = i + 1 Loop Else