【正文】 ，文本框自動(dòng)清空，添加按鈕變?yōu)榇_定按鈕，光標(biāo)會(huì)停留在部門編號(hào)文本框上，此時(shí)系統(tǒng)已自動(dòng)生成一個(gè)新的部門編號(hào)，只需輸入部門名稱和備注信息即可完成部門信息編輯操作，在按窗體上的確定按鈕即可檢查該部門信息是否合法并存入數(shù)據(jù)庫(kù)，否則按取消按鈕。 rc(j 1) = 1 Next j i = i + 1 Loop Else = 1 End If Dim n As Integer 39。 Trim() amp。 and 備注 =39。由于修改記錄不可能在大量的數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)修改應(yīng)該與數(shù)據(jù)添加按鈕結(jié)合使用，先用查詢功能進(jìn)行對(duì)要修改記錄的搜索，再在數(shù)據(jù)表格中選中要修改的部門記錄，便把21 酒店人事工資管理系統(tǒng) 第 21 頁(yè) 此部門記錄讀入文本框中，只需在文本框中直接進(jìn)行數(shù)據(jù)修改便可，修改完后按修改按鈕進(jìn)行確定，系統(tǒng)并對(duì)修改后的數(shù)據(jù)進(jìn)行合法性檢測(cè)，合法則修改成功。清除表格控件最左邊的選定當(dāng)前行標(biāo)志 √ For n = 0 To 1 (n, 0) = Next n ChangeCheck = False = FBmbh 39。 39。 amp。 清空輸入信息代碼： Private Sub CmdClear_Click() ChangeCheck = False Call TxtKong Dim n As Integer For n = 0 To 1 (n, 0) = End Sub 2瀏覽部門信息 此窗體主要針對(duì)一般用戶，只有瀏覽功能，因?yàn)橐话阌脩糁挥袨g覽的權(quán)限。對(duì)職工進(jìn)行按月考勤，考核職工出勤、加班、遲到和早退等一些信息。用戶管理功能只對(duì)管理員開放，管理員能在用戶管理窗體中添加新的用戶，對(duì)已有的用戶進(jìn)行用戶名和密碼修改，或者將原有用戶刪除。 圖 4 數(shù)據(jù)恢復(fù) 數(shù)據(jù)恢復(fù)就是將數(shù)據(jù)庫(kù)備份文件復(fù)制到當(dāng)前數(shù)據(jù)庫(kù)上，一面在數(shù)據(jù)庫(kù)遇到意外破壞的時(shí)候能夠恢復(fù)數(shù)據(jù)庫(kù)，從而減少破壞造成的損失。由于有些急于求成，在對(duì)ADO 技術(shù)不是很了解的情況下就開始著手程序開發(fā)，所以當(dāng)有時(shí)間靜下來仔細(xì)理一下思路的時(shí)候發(fā)現(xiàn)走了很大的彎路，可以說是整個(gè)思路和設(shè)計(jì)要求有著非常大的差異。在原地徘徊了一段時(shí)間后，我通過查找參考資料，和同學(xué)交流，利用互聯(lián)網(wǎng)向有經(jīng)驗(yàn)的編程人員請(qǐng)教等各種方式試著克服在設(shè)計(jì)過程中遇到的困難。謝正又 咽了咽口水，暗自下決心，這個(gè)是絕對(duì)不能放過的，要不惜一切代價(jià)拿下。 右手手腕， 紫金色的手環(huán)，刻著褐色的豹紋――足夠了。 第一回 從一張照片說起 下 所有的人，原本都聆聽著卓教授的演講，他這一停下，近萬人的大廳內(nèi)突然就安靜了下來，只有些許照相機(jī)的閃光聲，零星地響在大廳的各個(gè)角落。卓木強(qiáng)只是一名客座教授，而方新，卻是真正的犬類動(dòng)物學(xué)教授，今年六十五了，曾是卓木強(qiáng)在犬類生物研究方面的導(dǎo)師，后來兩人成為專研藏獒的合作者，由于方新教授的研究只停留在學(xué)鑠，雙目炯炯有神，他習(xí)慣性地點(diǎn)燃一支中華香煙，深吸一口，隨后道： “我下周便去德國(guó)參加馬修利亞生物論壇了，聽說你帶來一件特別的東西 ?是什么能讓你放棄在美國(guó)種獒大賽展示自己的機(jī)會(huì)，而飛回上海 ?” 卓木強(qiáng)說道：“導(dǎo)師 (他一直保持著這種稱謂 )，請(qǐng)看看這個(gè) —— ”說著，他將手里的箱子放到了桌上。第一張，背景是茫茫的草原，一些低矮的灌木零星潛伏在草 叢之中，藍(lán)天白云，在草原的正中，卻有一道黑色的颶風(fēng)。而深圳的奔馳寶馬那么多，就算被奔馳 600 或者寶馬760 撞死也虧大了?。∧憔退阏嫦氡蛔菜?，至少也得瞅個(gè)機(jī)會(huì)逮著一輛倒霉的勞斯萊斯或者加長(zhǎng)林肯。我期待著你用睿智 ；另一種是右手握住刀柄，左手按住刀背前端，左右兩手交替用力搖動(dòng)。 滾刀切法多用于圓形或橢圓形脆性蔬菜類原料，如：蘿卜、青筍、黃瓜、茭白等。 金洋轉(zhuǎn)頭望了一眼如鏡般平靜的湖面，輕聲道：“他的槍手隊(duì)無論再厲害，敵得過國(guó)家軍隊(duì)嗎？” 柳云目光迷離起來，漸漸陷入了沉思。 每當(dāng)父母，如果能成這時(shí)候就該成了，到 35 歲還沒升，有點(diǎn)急人了。 中國(guó)人 喜歡說，某某站對(duì)了隊(duì)，跟對(duì)了人；又喜歡說某某錯(cuò)誤地估計(jì)了形勢(shì)，這下?lián)p失重了 —— 這都是對(duì)判斷力的一種評(píng)價(jià)。 另一個(gè)角度的歸納顯得復(fù)雜一些 —— 優(yōu)秀的人才有一些共性： 敏銳的判斷力；卓越的影響力；高效驅(qū)動(dòng)業(yè)績(jī)的能力?！? 說著，金洋似乎想起了什么，眉頭皺了一下?！? 他用手擦了擦嘴，放下筷子，淡淡的道：“徐輝不敢派出他的槍手隊(duì)。這種滾切法可切出多樣的塊、片，如：滾刀塊 、菱角塊、梳子塊等。 商機(jī)無限，而機(jī)遇只垂青有準(zhǔn)備的頭腦?？墒?，他或許是典型的不具有商業(yè)天賦的人，大半年下來不但毫無工作成績(jī)，而且為了工作倒貼了一大把錢進(jìn)去，欠了一屁股債。 卓木強(qiáng)卻偏偏吊他胃口，遲遲不肯打開金盒，看見方新盯著盒子，眼珠都快掉出來了，才將箱子推到他面前，尊敬地道：“導(dǎo)師，請(qǐng)打開吧。更讓人們沒有想到的是，此后幾天，在這場(chǎng)世界最高級(jí)別的獒犬大賽中，竟然完全不見了卓教授，這場(chǎng)大賽的發(fā)起者和主持者的身影，有人說那是 勒索信，里面有卓木強(qiáng)和他情人通奸的照片，因?yàn)樽芭诺娜艘呀?jīng)看見，那信封里是照片，所以很多人對(duì)此深信不疑，而記者們更是無風(fēng)不起浪，將事件推波助瀾，大書特寫，一時(shí)間，卓木強(qiáng)教授的名聲比他前二十年大了二十倍。自己多年來一直在公司苦心維護(hù)著自己的單身形象，和所有女孩子都保持私下聯(lián)系，公開場(chǎng)合盡量縮短和美女的說話 時(shí)間，就是為防止出現(xiàn)這種情況?！敝x正一邊稱贊著，一邊用眼睛飛快地掃著俞可可的小飾物。 謝正狠狠地咽了一大口口水，馬上拿著學(xué)員的資料掃一眼，不禁暗吃一驚。系統(tǒng)的開發(fā)過程也就成為我對(duì)這兩種開發(fā)工具的深入透徹學(xué)習(xí)的過程。在需求分析結(jié)束以后，我們對(duì)一個(gè)系統(tǒng)需要具有哪些功能已經(jīng)有了一定的認(rèn)識(shí)，而如何以一個(gè)簡(jiǎn)潔、合理的系統(tǒng)結(jié)構(gòu)去實(shí)現(xiàn)用戶要求的功能就成為系統(tǒng)開發(fā)的關(guān)鍵 環(huán)節(jié)。 3 數(shù)據(jù)備份 數(shù)據(jù)備 份就是復(fù)制數(shù)據(jù)庫(kù)的數(shù)據(jù)文件到其他地方，一面在數(shù)據(jù)庫(kù)遇到意外破壞的時(shí)候能夠恢復(fù)數(shù)據(jù)庫(kù)，從而減少破壞造成的損失。并能根據(jù)部門名稱、 工資計(jì)發(fā) 日期進(jìn)行職工 工資 信息查詢。并能根據(jù)部門名稱、出生日期、來到公司工作的時(shí)間進(jìn)行職工信息查詢。 DelSQL (DelSQL) Call DataFresh( select * from 部門基本情況 ) Call TxtKong End If Else Call DataFresh( select * from 部門基本情況 ) End If End If 24 酒店人事工資管理系統(tǒng) 第 24 頁(yè) End Sub (5)清空 清空按鈕的作用可使所有文本框清空，方便用戶進(jìn)行其它操作。 If Then DelSQL = DelSQL amp。 amp。向表格控件輸入數(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。 amp。 39。 and 部門編號(hào) =39。 order by 部門編號(hào) asc 39。部門編號(hào)與部門名稱都具有唯一性，不能重復(fù)。只有用戶名和密碼相對(duì)應(yīng)才能進(jìn)入系統(tǒng)。 在程序模塊中定義記錄集，并在各個(gè)窗體中定義記錄集變量，使輸入數(shù)據(jù)能與數(shù)據(jù)庫(kù)連接，并都用程序進(jìn)行控制，這樣不用數(shù)據(jù)控件都用代碼控制大大提高了程序運(yùn)行效率。 *可添加新的用戶，修改用戶原有的用戶名、密碼，刪除原有用戶。本系統(tǒng) 一次錄入信息后，就可以反復(fù)多次在不同的信息庫(kù)中使用 。 *可添加新的用戶，修改用戶原有的用戶名、密碼，刪除原有用戶。本系統(tǒng) 一次錄入信息后，就可以反復(fù)多次在不同的 信息庫(kù)中使用。本系統(tǒng)使用 Access 2021 作為后臺(tái)數(shù)據(jù)庫(kù)，利用 Visual Basic 提供的數(shù)據(jù)庫(kù)開發(fā)平臺(tái)開發(fā)前臺(tái)部分。數(shù)據(jù)庫(kù)技術(shù)是計(jì)算機(jī)應(yīng)用技術(shù)中的一個(gè)重要組成部分，對(duì)于大量的數(shù)據(jù)，使用數(shù)據(jù)庫(kù)來存儲(chǔ)管理將比通過文件來存儲(chǔ)管理更高效。 摘要 酒店人事工資管理系統(tǒng)是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。但一直以來人們使用傳統(tǒng)人工的方式管理文件信息，這種管理方式存在著許多缺點(diǎn) ,如 :效率低、保密性差 ,另外時(shí)間一長(zhǎng) ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這 對(duì)于查找、更新和維護(hù)都帶來了不少的困難。 經(jīng)過分析 ,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象 ,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型 ,然后 ,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代 ,不斷修正和改進(jìn) ,直到形成用戶滿意的可行系統(tǒng)。 作為 Microsoft 的 office 套件產(chǎn)品之一 ,Access 已經(jīng)賣出了近 700 萬份 ,成為世界上最流行的桌面數(shù)據(jù)庫(kù)系統(tǒng)。通過這樣的管理方式，酒店的管理人員、技術(shù)人員、統(tǒng)計(jì)人員等各部門職 工就能從大量煩瑣的資料和數(shù)據(jù)中解脫出來，只需對(duì)自己需要的數(shù)據(jù)和內(nèi)容進(jìn)行必須的處理，而不用對(duì)每個(gè)環(huán)節(jié)都了如指掌。 7 酒店人事工資管理系統(tǒng) 第 7 頁(yè) 、系統(tǒng)功能分析 熱網(wǎng)管理系統(tǒng)主要有以下幾項(xiàng)功能要求： *按不同權(quán)限登錄系統(tǒng)。通過這樣的管理方式，酒店的管理人員、技術(shù)人員、統(tǒng)計(jì)人員等各部門職工就能從大量 煩瑣的資料和數(shù)據(jù)中解脫出來，只需對(duì)自己需要的數(shù)據(jù)和內(nèi)容進(jìn)行必須的處理，而不用對(duì)每個(gè)環(huán)節(jié)都了如指掌。 9 酒店人事工資管理系統(tǒng) 第 9 頁(yè) 系統(tǒng)設(shè)計(jì) 系統(tǒng)功能分析 *按不同權(quán)限登錄系統(tǒng)。登陸系統(tǒng)時(shí)對(duì)用戶的請(qǐng)求進(jìn)行身份驗(yàn)證，經(jīng)驗(yàn)證合法后允許用戶登陸系統(tǒng)，進(jìn)行相應(yīng)權(quán)限 對(duì)數(shù)據(jù)的處理，本系統(tǒng)能對(duì)用戶進(jìn)行管理，能進(jìn)行數(shù)據(jù)庫(kù)備份和恢復(fù)，確保數(shù)據(jù)的安全。data source = amp。登錄者是操作員可 以使用所有對(duì)數(shù)據(jù)的編輯功能，而如果登錄者是一般用戶時(shí)只能利用系統(tǒng)進(jìn)行資料查詢功能。再 點(diǎn)擊添加按鈕，用戶可再次添部門信息記錄。清除表格控件最左邊的選定當(dāng)前行標(biāo)志 √ For n = 0 To 1 (n, 0) = Next n ChangeCheck = False = FBmbh 39。 39。 amp。 修改信息代碼： Private Sub DataFresh(SQL As String) 39?；謴?fù)當(dāng)前各個(gè)輸入框的值 = FBmmc = FBz End Sub (4)數(shù)據(jù)刪 除 當(dāng)操作員需要對(duì)某個(gè)或多個(gè)部門進(jìn)行刪除時(shí)，可以在編輯部門信息窗體下部中找到刪除按鈕。 If Then DelSQL = DelSQL amp。 Trim() amp。并能從此窗體中了解各部門現(xiàn)有人數(shù)，這是在編輯部門信息中無法獲得的信息。 26 酒店人事工資管理系統(tǒng) 第 26 頁(yè) 2瀏覽 考勤 信息 此窗體主要針對(duì)一般用戶，只有瀏覽功能，因?yàn)橐话?