【正文】 ” 巴桑道：“不可以，會暴露教官的。那琉璃似的瓦片 讓整個宮殿頂端閃現(xiàn)著黃金的色澤，斗檐上翹立的瑞獸全部發(fā)出白銀一樣的光芒，紅幃宮墻上裝飾著寶石般閃耀的磷碧石，無數飛天夜叉和祥云瑞獸浮刻在墻上，而宮墻正中巨大的浮雕呈現(xiàn)三目十八臂坐像怒佛，宮門在坐像胸腹位置?！? “中午我們一起吃飯喲，”瑞貝卡道：“我蔡廷和黃毛本是可可西里盜獵團的下等角色，這次他們也不明白為何如此好運，留下來守這處險要，幾乎不用冒生命危險。” “你怎么會一早就上網？” “我有個同學在新浪上班，他，并表示對她的支持與欣賞，做總裁秘書，雖然干的都是瑣事，但是她理解程軼群。 “武力強悍是一回事，在政治旋渦中弄潮又是另外一回事；根深蒂固，門生故舊遍天下的老牌上位貴族把一個新貴搞的身敗名裂或者是徹底消失可說是輕而易舉，請注意我的措辭，是搞34 酒店人事工資管理系統(tǒng) 第 34 頁 臭，不一定要戰(zhàn)勝！”格雷克 .薩爾陛下湊近了身子，沒有回答問題，只是凝視著老劉：“讓別人退出游戲圈的辦法有很多種，李察你是擁有超階魔寵的祭祀，可這并不能給你在政治上帶來任何優(yōu)勢，你似乎很擅長用暴力，如果你想裹挾著暴力和粗俗涉及 政治。用武力和智慧共同競爭王位，這和治國有什么關系？武技好，頭腦聰明，治理國家就一定能行？就算是行，僅僅十年時間能留給一位君王什么作為？” “我同意你的看法。他雖然心里有怨恨，但是絕對不會因為這個原因而和國家鬧翻，在比蒙遇到危難時，我堅信，他絕對會是第一個站出來的比蒙！而你的情況就不大一樣了，聽說你和我兒子打架時，你的追隨者甚至穿著的是皇冠荊棘戰(zhàn)甲，這就不得不讓我警覺了。 “就算你是一個真正的白癡，只要接受過祭祀的智慧啟蒙，如果還有把你當白癡看，那他才是不折不扣的白癡。通過這次系統(tǒng)開發(fā)，我不但初步掌握了兩種數據庫系統(tǒng)開發(fā)工具，也讓我看到了自己知識結構、知識儲備、學習和應用能力上的不足。只 有走好了這一步，整個系統(tǒng)的開發(fā)才能事半功倍，否則就會是“棋差一著，滿盤皆輸”。選擇 了 Access 2021 作為后端開發(fā)工具，開發(fā)數據庫功能，并選擇了 Visual Basic 作為界面前臺開發(fā)工具。一進入此窗體便會顯示此用戶名，在舊密碼框中輸入原始密碼，在新密碼框中輸入想更改的新密碼，再在密碼確定中進行新密碼確認，按更改按鈕便可修改用戶密碼。 1編輯工資信息 作為編輯工資信息這一項，所實現(xiàn)的功能是對公司職工工資信息的存儲、計算與編輯，方便對職工工資的管理。職工編號具有唯一性，不能重復。 If DelSQL Then DelSQL = delete from 部門基本情況 where 部門編號 39。 amp。 23 酒店人事工資管理系統(tǒng) 第 23 頁 刪除數據代碼： Private Sub DataDel() 39。保存當前各個輸入框的值 FBmmc = Trim() FBz = Trim() = 0 39。 39。 and 部門名稱 =39。先在對應的文本框中輸入要進行數據查詢的條件，輸入完查詢條件后，點擊查詢按鈕進行確定，系統(tǒng)便會查詢出滿足條件的部門記錄，并列到數據表格中，無滿足條件的部門記錄時，則彈出對話框提示“查無此記錄！”。進行數據表格控件的更新 Dim i As Integer Dim j As Integer Dim FBmbh As String Dim FBmmc As String Dim FBz As String FBmbh = Trim() 39。用戶登錄到系統(tǒng)后進入的就是該界面，所有功能一目了然。 \酒店人事工資管理系統(tǒng) .mdb 39。 用戶登陸 是否管理員 是否錄入數據 是否修改數據 錄入數據 修改數據 是否進行 查詢 輸入查詢條 件 是否刪除數據 刪除數據 退出系統(tǒng) 12 酒店人事工資管理系統(tǒng) 第 12 頁 、數據庫設計 在 Access 2021 數據庫中創(chuàng)建表 ： 根據設計要求，需要 5 個數據表：部門基本情況表 、 職工基本信息表 、 職工考勤信息表 、 職工工資信息表 、 口令信息表。 *對其提供的人員資料情況進行添加、查詢、修改和刪除操作。 本次的開發(fā)內容 —— 酒店人事工資管理系統(tǒng)就是信息管理與現(xiàn)代化辦公設備相結合的例子。 *對其提供的人員資料情況進行添加、查詢、修改和刪除操作。 本次的開發(fā)內容 —— 酒店人事工資管理系統(tǒng)就是信息管理與現(xiàn)代化辦公設備相結合的例子。 Visual Basic作為應用程序的開發(fā) “ 利器 ” 也表現(xiàn)在數據庫應用程序的開發(fā)上，它良好的界面和強大的控件功能使數據庫編程變得簡單多了。 論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。 作為計算機應用的一部分 ,使用計算機對人事信息進行管理 ,具有著手工管理所無法比擬的優(yōu)點 .例如 :檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高人事管理的效率 ,也是酒店的科學化、正規(guī)化管理 ,與世界接軌的重要條件。重點的說明了系統(tǒng)設計的重點、設計思想、難點技術和解決方案。 Visual Basic 提供了強有力的數據庫存取能力，將 Windows 的各種先進特性與強大的數據庫管理功能有機地結合在一起。開發(fā)本系統(tǒng)希望使人事管理人員可以從年復一年的輸入、計算、統(tǒng)計等工作中解脫出來，由于人事方面的數據眾多，輸入、統(tǒng)計極為不便，輸入量大，計算量大。 *對其提供的人員考勤資料情況進行添加、查詢、修改和刪除 操作，并可按考勤月份進行分類。開發(fā)本系統(tǒng)希望使人事管理人員可以從年復一年的輸入、計算、統(tǒng)計等工作中解脫出來，由于人事方面的數據眾多，輸入、統(tǒng)計極為不便，輸入量大，計算量大。 *對其提供的人員考勤資料情況進行添加、查詢、修改和刪除操作，并可按考勤月份進行分類 。這 5 個數據表的結構如下各表： (1)部門基本情況表 字段名稱 數據類型 長度 主鍵 允許空 部門編號 文本 6 True 否 部門 名稱 文本 30 是 備注 文本 255 是 (2)職工基本信息表 字段名稱 數據類型 長度 主鍵 允許空 職工編號 文本 6 否 職工姓名 文本 10 否 性別 文本 2 是 出生日期 日期 /時間 短日期 否 民族 文本 10 是 政治面貌 文本 10 是 最后學歷 文本 10 是 所學專業(yè) 文本 20 是 聯(lián)系電話 文本 20 是 畢業(yè)學校 文本 30 是 籍貫 文本 50 是 家庭住址 文本 50 是 進入公司時間 日期 /時間 短日期 否 部門名稱 文本 30 是 職務名稱 文本 30 是 備注 文本 255 是 (3)職工考勤信息表 字段名稱 數據類型 長度 主鍵 允許空 職工編號 文本 6 是 職工姓名 文本 10 是 考勤日期 文本 6 否 部門名稱 文本 50 是 出勤天數 數字 整型 是 假日加班 數字 整型 是 其它加班 數字 整型 是 13 酒店人事工資管理系統(tǒng) 第 13 頁 出差天數 數字 整型 是 補休天數 數字 整型 是 請假次數 數字 整型 是 曠工天數 數字 整型 是 遲到次數 數字 整型 是 早退 次數 數字 整型 是 備注 文本 255 是 (4)職工工資信息表 字段名稱 數據類型 長度 主鍵 允許空 職工編號 文本 6 是 職工姓名 文本 10 是 計發(fā)日期 文本 6 否 部門名稱 文本 50 是 底薪 數字 單精度型 是 獎金 數字 單精度型 是 補貼 數字 單精度型 是 加班費 數字 單精度型 是 房帖費 數字 單精度型 是 扣考核 數字 單精度型 是 養(yǎng)老金 數字 單精度型 是 醫(yī)療保險 數字 單精度型 是 住房公積金 數字 單精度 型 是 稅前小計 數字 單精度型 是 所得稅 數字 單精度型 是 實發(fā)工資 數字 單精度型 是 (5)口令信息表 字段名稱 數據類型 長度 主鍵 允許空 用戶名 文本 20 是 密碼 文本 10 是 權限 文本 6 是 14 酒店人事工資管理系統(tǒng) 第 14 頁 第四章 詳細設計工作 數據模塊的創(chuàng)建 將數據庫連接、數據表和數據源等運行期不可見的組件都放在窗體設計界面上，雖然在調用時比較直觀，但卻為界面布局設計帶來的麻煩，而且也不利于數據的統(tǒng)一管理。確定數據庫位置 Dim rc As New 39。當不同權限的用戶登錄到該界面時功能有所不同，其控制由“用戶登錄”界面控制。保存當前各個輸入框的值 FBmmc = Trim() FBz = Trim() = 0 39。 查詢代碼： Private Sub DataFind() 39。 amp。 If SQL Then SQL = select * from 部門基本情況 where 部門編號 39。寫入表頭標題 = 1: = 部門編號 = 2: = 部 門 名 稱 = 3: = 備 注 SQL = SQL amp。數據刪除 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)重復，位數是否為 6 位（前兩位為部門編號，后四位為職工自25 酒店人事工資管理系統(tǒng) 第 25 頁 身編號）等。對職工 工資進行按月分組，計算職工各種工資項目和個人所得稅款等一些信息。 2 用戶管理 28 酒店人事工資管理系統(tǒng) 第 28 頁 該功能只針對管理員有效，用于對所有權限用戶口令的管理。在該系統(tǒng)開發(fā)中我通過建立數據庫，以及對各種信息庫的開發(fā)（如：添加、查詢、修改、刪除資料）及設計系統(tǒng)維護安全部分，完成了此次對酒店人事工資管理系統(tǒng)的設計。 同時，在這次的系統(tǒng)開發(fā)中我也看到了自己在新知識的學習，新工具的應用方面的不足。我想，在今后的學習和工作中，我將針對這些發(fā)現(xiàn)的問題，不斷努力和提高自身各方面的素質，為社會作出自己應有的貢獻