【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 網(wǎng)絡(luò)交互功能的實現(xiàn)，腳本的設(shè)計，網(wǎng)頁的構(gòu)架，網(wǎng)頁的美工，文字的編輯，非一朝一夕可盡善盡美的，這需要一個長期的摸索與完善過程同時還要在實踐中發(fā)現(xiàn)與操作者使用要求不相符合的地方還要修改。子系統(tǒng)功能雖已基本實現(xiàn)，但仍有諸多地方需要修改。在勞動密集型的服務(wù)企業(yè)中，酒店是較早應(yīng)用了計算機管理系統(tǒng)的行業(yè)。隨著酒店業(yè)務(wù)的擴展，服務(wù)的增加，酒店業(yè)務(wù)管理系統(tǒng)也逐漸發(fā)展、完善。如果沒有一套可靠的酒店業(yè)務(wù)管理系統(tǒng)，但憑手工操作，不僅效率底下，而且會極大地影響到酒店的服務(wù)質(zhì)量。要在酒店服務(wù)中選好適 合自己的 酒店實際情況的業(yè)務(wù)管理系統(tǒng)不僅要考慮該系統(tǒng)在酒店的實用性，還要考慮酒店對系統(tǒng)所能夠承擔(dān)費用的能力，以及這個系統(tǒng)對操作員來說的操作難易程度。 由于水平有限，對于數(shù)據(jù)庫的操作還不是相當(dāng)?shù)氖炀?，有時會出現(xiàn)信息不能及時更新到數(shù)據(jù)庫的問題，導(dǎo)致錯誤。由于實地考察不夠加上時間緊迫，導(dǎo)致功能不夠完善。另外在做需求分析的時候，由于考慮欠佳，等到做軟件的時候又出現(xiàn)了問題，在返工為時太晚，盡管已經(jīng)想辦法補救，但難免出現(xiàn)漏洞。比如說角色管理，開始的時候沒有考慮到，后來在網(wǎng)站的功能差不多完成后才想到，管理員和普通用戶只好用 一個字段來識別（管理員權(quán)限為 0，普通用戶的為 1），超級管理員才可以設(shè)置管理員權(quán)限，默認情況下為普通用戶。另外有些想法還沒有及時的添加到頁面中 .但是本系統(tǒng)還有不少閃光點，例如系統(tǒng)布局合理色調(diào)清新，功能雖然多但給人一目了然的感覺，不會太繁雜。在自我創(chuàng)新的同時，我沒有丟掉老師交給我的一些好的方法和捷徑。正確處理數(shù)據(jù)結(jié)構(gòu)之間的關(guān)系是我面臨的一個問題和挑戰(zhàn)。處理數(shù)據(jù)庫的有關(guān)連接是這次系統(tǒng)設(shè)計的一大收獲。 由于自身水平有限， 系統(tǒng)難免還有一些不足的地方，還望各位讀者和教師們多多批評指正，不勝感激。 本文來自： 26 致 謝 經(jīng)過這么長的時間來對系統(tǒng)的分析、設(shè)計，使我對酒店管理系統(tǒng)有了全面的了解與認識，在郭紅霞老師的指導(dǎo)下完成此次畢業(yè)設(shè)計。 從開始接到 畢業(yè)設(shè)計 題目到系統(tǒng)的實現(xiàn)，再到論文文章的完成，每走一步對我來說都是新的嘗試與挑戰(zhàn)，這也是我在大學(xué)期間獨立完成的最大的項目。 這個酒店管理系統(tǒng)成功的實現(xiàn)了登錄、房間類型的管理、房間的管理、開房、退房、數(shù)據(jù)操作、預(yù)訂房、換房間等主要功能。系統(tǒng)的最大的特點是操作簡單，部署方便，并且較好的防止錯誤操作發(fā)生，盡可能多的給用戶提示信息。這樣面對非計算機專業(yè)的酒店管理人員能很快上手，極大的 提高酒店工作的效率和服務(wù)的質(zhì)量。 但系統(tǒng)也存在設(shè)計上的不足，首先因為初次設(shè)計制作完整的系統(tǒng)，在初期階段需求分析和考慮數(shù)據(jù)庫設(shè)計的時候都做的 并 不全面，以至不能很好的保證數(shù)據(jù)的完整性，在長時間使用刪除一些數(shù)據(jù)后，會有一些臟數(shù)據(jù)留存，也可能有其他一些問題發(fā)生。其次，仍然有一些地方?jīng)]有及時的給用戶反饋，沒有做操作可逆的處理。另外，對酒店工作的了解不夠深入，會有些功能和操作方式還沒有考慮到。 由于本人的知識水平有限，系統(tǒng)存在著一些需要改進和不足的問題，還望各位讀者和教師們多多批評指正，不勝感激。 本文來自： 27 參考文獻 【 1】《數(shù)據(jù)庫系統(tǒng)原理教程》 清華大學(xué)出版社 作者王珊陳紅 【 2】《 Visual Basic 程序設(shè)計與數(shù)據(jù)庫應(yīng)用》 電子工業(yè)出版社作者 王民 張彥玲 【 3】《 Visual Basic 實用培訓(xùn)教材》 人民郵電出版社 作者 金英姿 鄧少鹍 【 4】《數(shù)據(jù)庫原理及應(yīng)用》 周佩德 電子工業(yè)出版社 【 5】《軟件開發(fā)技術(shù)》 潘錦平 西安電子科技大學(xué)出版社 1999 年出版 【 6】《 Visual Basic 編程實例大制作》李光明 . 【 7】《數(shù)據(jù)庫系統(tǒng)概論》 [M].薩師煊，王 珊高等教育出版社 .. 【 8】《 辦公自動化編程》黃淼云 .國防工業(yè)出版社 書寫格式有問題 本文來自： 28 附 錄 登錄窗口 代碼 ： Private Sub Command1_Click() If = xiazhi And txtkouling = 123 Then Else MsgBox 輸入 ID 或密碼錯誤 End If Unload frmtupian Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub 管理菜單界面代碼 ： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 登記 Call mnukehudengji_Click Case 退房 Call mnutuifangjiesuan_Click Case 精細查詢 Call mnukehuzhuzhi_Click Case 姓名查詢 Call mnukehuname_Click Case 年齡查詢 Call mnukehunianling_Click Case 增加房間 Call mnutianjia_Click Case 房間狀態(tài) Call mnuzhuangtai_Click Case 增加管理員 Call mnuzengjia_Click Case 刪除管理員 Call mnushanchu_Click Case 退出系統(tǒng) Call mnutuichu_Click End Select End Sub 本文來自： 29 客戶登記界面代碼 ： Private Sub cmdbaocun_Click() Dim str As String If = Empty Then MsgBox 你的輸入無效請重新輸入 Else str = select * from kehudengji If querydata(str) = True Then (kehuID).Value = Val() (kehuname).Value = (kehudanwei).Value = (kehunianling).Value = Val() (kehuxingbie).Value = (kehuzhuzhi).Value = (shenfenzhenghao).Value = Val() (beizhu).Value = (ruzhuriqi).Value = (fangjianbianhao).Value = Val() Else MsgBox 提出數(shù)據(jù)失敗 ! End If str = select * from fangjianbiao where fangjianbianhao= amp。 If querydata(str) = True Then (fangjianzhuangtai).Value = 1 Else MsgBox 沒有此房間 ! End If End If = = = = = = = = = = 備注說明： End Sub 本文來自： 30 Private Sub cmdquxiao_Click() Unload Me End Sub 客房添加界面代碼 ： Private Sub Command1_Click() Dim str As String If = Empty Then MsgBox 你的輸入無效 Else str = select * from fangjianbiao If querydata(str) = True Then (fangjianbianhao).Value = Val() (fangjianzhuangtai).Value = Val() (fangjianzhonglei).Value = Val() (fangjianjiage).Value = Val() Else MsgBox 提出數(shù)據(jù)失敗 ! End If End If = = = = End Sub Private Sub Command2_Click() = = = = End Sub Private Sub Command3_Click() Unload Me End Sub 客戶查詢界面代碼 ： Private Sub cmdchaxun_Click() Dim chaxun As String chaxun = Empty If Trim() Empty Then 本文來自： 31 chaxun = (fangjianbianhao like 39。% amp。 Trim() amp。 %39。) End If If Trim() Empty Then If chaxun Empty Then chaxun = chaxun amp。 and (kehuzhuzhi like 39。% amp。 Trim() amp。 %39。) Else chaxun = (kehuzhuzhi like 39。% amp。 Trim() amp。 %39。) End If End If If Trim() Empty Then If chaxun Empty Then chaxun = chaxun amp。 and (kehuID = amp。 Trim() amp。 ) Else chaxun = (kehuID like amp。 Trim() amp。 ) End If End If If Trim() Empty Then If chaxun Empty Then chaxun = chaxun amp。 and (shenfenzhenghao = amp。 Trim() amp。 ) Else chaxun = (shenfenzhenghao = amp。 Trim() amp。 ) End If End If If chaxun Empty Then chaxun = select * from kehudengji where amp。 chaxun Else chaxun = select * from kehudengji End If If querydata(chaxun) = True Then If And Then