【正文】 = False Call TxtKong Dim n As Integer For n = 0 To 1 (n, 0) = End Sub 2瀏覽部門(mén)信息 此窗體主要針對(duì)一般用戶，只有瀏覽功能，因?yàn)橐话阌脩糁挥袨g覽的權(quán)限。 DelSQL (DelSQL) Call DataFresh( select * from 部門(mén)基本情況 ) Call TxtKong End If Else Call DataFresh( select * from 部門(mén)基本情況 ) End If End If 24 酒店人事工資管理系統(tǒng) 第 24 頁(yè) End Sub (5)清空 清空按鈕的作用可使所有文本框清空，方便用戶進(jìn)行其它操作。39。 39。 amp。 If Then DelSQL = DelSQL amp。 Trim() amp。 and 部門(mén)名稱(chēng) =39。 39。 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。由于刪除記錄不可能在大量的數(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ù)。清除表格控件最左邊的選定當(dāng)前行標(biāo)志 √ For n = 0 To 1 (n, 0) = Next n ChangeCheck = False = FBmbh 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 頁(yè) = j = amp。寫(xiě)入表頭標(biāo)題 = 1: = 部門(mén)編號(hào) = 2: = 部 門(mén) 名 稱(chēng) = 3: = 備 注 SQL = SQL amp。進(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。由于修改記錄不可能在大量的數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)修改應(yīng)該與數(shù)據(jù)添加按鈕結(jié)合使用，先用查詢(xún)功能進(jìn)行對(duì)要修改記錄的搜索，再在數(shù)據(jù)表格中選中要修改的部門(mén)記錄，便把21 酒店人事工資管理系統(tǒng) 第 21 頁(yè) 此部門(mén)記錄讀入文本框中，只需在文本框中直接進(jìn)行數(shù)據(jù)修改便可，修改完后按修改按鈕進(jìn)行確定，系統(tǒng)并對(duì)修改后的數(shù)據(jù)進(jìn)行合法性檢測(cè)，合法則修改成功。 amp。 If SQL Then SQL = select * from 部門(mén)基本情況 where 部門(mén)編號(hào) 39。 Trim() amp。 and 備注 =39。 39。 amp。 If Then SQL = SQL amp。 Trim() amp。 and 部門(mén)編號(hào) =39。 查詢(xún)代碼： Private Sub DataFind() 39。恢復(fù)當(dāng)前各個(gè)輸入框的值 = FBmmc = FBz 20 酒店人事工資管理系統(tǒng) 第 20 頁(yè) (2)數(shù)據(jù)查詢(xún) 當(dāng)操作員需要對(duì)某個(gè)部門(mén)進(jìn)行查詢(xún)時(shí)，可以在編輯部門(mén)信息窗體下部中找到查詢(xún)按鈕。 rc(j 1) = 1 Next j i = i + 1 Loop Else = 1 End If Dim n As Integer 39。 order by 部門(mén)編號(hào) asc 39。保存當(dāng)前各個(gè)輸入框的值 FBmmc = Trim() FBz = Trim() = 0 39。 添加代碼設(shè)置如下： Private Sub DataFresh(SQL As String) 39。 18 酒店人事工資管理系統(tǒng) 第 18 頁(yè) (1)數(shù)據(jù)添加 當(dāng)操作員進(jìn)入系統(tǒng)，根據(jù)設(shè)計(jì)要求，需要添加新的 部門(mén)信息 時(shí)，在編輯部門(mén)信息窗體上按添加按鈕，便進(jìn)入添加狀態(tài)，文本框自動(dòng)清空，添加按鈕變?yōu)榇_定按鈕，光標(biāo)會(huì)停留在部門(mén)編號(hào)文本框上，此時(shí)系統(tǒng)已自動(dòng)生成一個(gè)新的部門(mén)編號(hào)，只需輸入部門(mén)名稱(chēng)和備注信息即可完成部門(mén)信息編輯操作，在按窗體上的確定按鈕即可檢查該部門(mén)信息是否合法并存入數(shù)據(jù)庫(kù)，否則按取消按鈕。部門(mén)編號(hào)與部門(mén)名稱(chēng)都具有唯一性，不能重復(fù)。當(dāng)不同權(quán)限的用戶登錄到該界面時(shí)功能有所不同，其控制由“用戶登錄”界面控制。 根據(jù)系統(tǒng)模塊結(jié)構(gòu)，建立系統(tǒng)主界面。當(dāng)?shù)卿浾呤枪芾韱T身份時(shí)，他可以使用系統(tǒng)提供的所有功能，并能對(duì)所有用戶15 酒店人事工資管理系統(tǒng) 第 15 頁(yè) 進(jìn)行管理。只有用戶名和密碼相對(duì)應(yīng)才能進(jìn)入系統(tǒng)。確定數(shù)據(jù)庫(kù)位置 Dim rc As New 39。 amp。定義記錄集變量 provider=。 在程序模塊中定義記錄集，并在各個(gè)窗體中定義記錄集變量，使輸入數(shù)據(jù)能與數(shù)據(jù)庫(kù)連接，并都用程序進(jìn)行控制，這樣不用數(shù)據(jù)控件都用代碼控制大大提高了程序運(yùn)行效率。這 5 個(gè)數(shù)據(jù)表的結(jié)構(gòu)如下各表： (1)部門(mén)基本情況表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 長(zhǎng)度 主鍵 允許空 部門(mén)編號(hào) 文本 6 True 否 部門(mén) 名稱(chēng) 文本 30 是 備注 文本 255 是 (2)職工基本信息表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 長(zhǎng)度 主鍵 允許空 職工編號(hào) 文本 6 否 職工姓名 文本 10 否 性別 文本 2 是 出生日期 日期 /時(shí)間 短日期 否 民族 文本 10 是 政治面貌 文本 10 是 最后學(xué)歷 文本 10 是 所學(xué)專(zhuān)業(yè) 文本 20 是 聯(lián)系電話 文本 20 是 畢業(yè)學(xué)校 文本 30 是 籍貫 文本 50 是 家庭住址 文本 50 是 進(jìn)入公司時(shí)間 日期 /時(shí)間 短日期 否 部門(mén)名稱(chēng) 文本 30 是 職務(wù)名稱(chēng) 文本 30 是 備注 文本 255 是 (3)職工考勤信息表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 長(zhǎng)度 主鍵 允許空 職工編號(hào) 文本 6 是 職工姓名 文本 10 是 考勤日期 文本 6 否 部門(mén)名稱(chēng) 文本 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)職工工資信息表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 長(zhǎng)度 主鍵 允許空 職工編號(hào) 文本 6 是 職工姓名 文本 10 是 計(jì)發(fā)日期 文本 6 否 部門(mén)名稱(chēng) 文本 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)口令信息表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 長(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ì)選擇了 Access 2021 作為后臺(tái)數(shù)據(jù)庫(kù)，利用 Visual Basic 6 提供的數(shù)據(jù)庫(kù)開(kāi)發(fā)平臺(tái)開(kāi)發(fā)前臺(tái)部分。能自動(dòng)生產(chǎn)編號(hào)，根據(jù)用戶輸入的數(shù)據(jù)檢查其合法性，確保數(shù)據(jù)正確輸入。 *可添加新的用戶，修改用戶原有的用戶名、密碼，刪除原有用戶。 *對(duì)其提供的人員考勤資料情況進(jìn)行添加、查詢(xún)、修改和刪除操作，并可按考勤月份進(jìn)行分類(lèi) 。 *對(duì)其提供的部門(mén)資料情況進(jìn)行添加、查詢(xún)、修改和刪除操作。 因此，該管理系統(tǒng)的目的就是利用計(jì)算機(jī)對(duì)復(fù)雜煩瑣的數(shù)據(jù)進(jìn)行存儲(chǔ)和處理，并利用計(jì)算機(jī)與現(xiàn)代化辦公設(shè)備的連接實(shí)時(shí)刷新數(shù)據(jù)，從而提高酒店的工作效率。本系統(tǒng) 一次錄入信息后，就可以反復(fù)多次在不同的信息庫(kù)中使用 。開(kāi)發(fā)本系統(tǒng)希望使人事管理人員可以從年復(fù)一年的輸入、計(jì)算、統(tǒng)計(jì)等工作中解脫出來(lái)，由于人事方面的數(shù)據(jù)眾多，輸入、統(tǒng)計(jì)極為不便，輸入量大，計(jì)算量大。這在一定程度上能夠節(jié)省人力物力，同時(shí)也大大加強(qiáng)了對(duì)數(shù)據(jù)處理的及時(shí)性和準(zhǔn)確性。而將信息管理系統(tǒng)與酒店自動(dòng)化設(shè)備想結(jié)合，則是當(dāng)今社會(huì)現(xiàn)代酒店的發(fā)展趨勢(shì)。 *可添加新的用戶，修改用戶原有的用戶名、密碼，刪除原有用戶。 *對(duì)其提供的人員考勤資料情況進(jìn)行添加、查詢(xún)、修改和刪除 操作，并可按考勤月份進(jìn)行分類(lèi)。 *對(duì)其提供的部門(mén)資料情況進(jìn)行添加、查詢(xún)、修改和刪除操作。 因此，該管理系統(tǒng)的目的就是利用計(jì)算機(jī)對(duì)復(fù)雜煩瑣的數(shù)據(jù)進(jìn)行存儲(chǔ)和處理，并利用計(jì)算機(jī)與現(xiàn)代化辦公設(shè)備的連接實(shí)時(shí)刷新數(shù)據(jù)，從而提高酒店的工作效率