【正文】 vate Sub Btn_chaxun_Click(ByVal sender As , ByVal e As )Handles Dim str As Stringstr = ”select * from Customer_Fang where Fang_no=39。“ amp。 amp。 ”39?！癉im ds As DataSetds = (str)dv = (”temp“).DefaultView = dvEnd SubPrivate Sub Btn_Tuifang_Click(ByVal sender As , ByVal e As )Handles Dim s As Strings = ”update Fang set Fang_state=39?？?39。 where Fang_num=39?！?amp。 (0).Item(”Fang_no“).ToString amp。 ”39?！癉im s2 As Strings2 = ”update Customer set yingjiao=39?！?amp。 (0).Item(”yingjiao“)(0).Item(”yajin“)amp。 ”39。 where Customer_no=39?！?amp。 (0).Item(”Customer_no“)amp。 ”39。“Try(s)(s2)MsgBox(”退房成功！“, + )Catch ex As ExceptionMsgBox(”退房失??！“ amp。 , + )End TryEnd SubPrivate Sub Panel2_Paint(ByVal sender As , ByVal e As )Handles End Sub查詢Private Sub Btn_Customer_Click(ByVal sender As , ByVal e As )Handles Show_all_coustomer()End SubPrivate Sub Btn_Chaxun_Click(ByVal sender As , ByVal e As )Handles Dim str As StringIf ”“ And ”“ Thenstr = ”Fang_no=39?！?amp。 amp。 ”39。 and Customer_name=39?！?amp。 amp。 ”39。“ElseIf ”“ And = ”“ Thenstr = ”Fang_no=39?！?amp。 amp。 ”39?！癊lseIf = ”“ And ”“ Thenstr = ” Customer_name=39?！?amp。 amp。 ”39。“End IfCall Show_all(str)End SubPrivate Sub Panel2_Paint(ByVal sender As , ByVal e As )Handles End Sub End Class管理Public Class cManagerSub show_Role_Auth()Dim s As Strings = ”select * from Role_Auth_V where Role_Name39。老板39?！癉im ds As DataSetds = (s) = (”temp“)End SubPrivate Sub cManager_Load(ByVal sender As , ByVal e As )Handles Dim s As Strings = ”select * from Role_Auth_V where Role_Name39。老板39?！癉im ds As DataSetds = (s) = (”temp“)Dim dr As s = ”select * from gg_Menu where MenuName39。權(quán)限T39。and MenuName39。權(quán)限管理39?！癲r = (s)While ((”MenuName“))End While()s = ”select * from Role where Role_Name39。老板39?！癲r = (s)While ((”Role_Name“))End While()End SubPrivate Sub DGView_Role_Auth_CellClick(ByVal sender As Object, ByVal e As )Handles = (0). = (1).End SubPrivate Sub Btn_add_Click(ByVal sender As , ByVal e As )Handles Dim s As StringDim RoleID As StringDim TypeID As Strings = ”select Role_id from Role where Role_name=39?！?amp。 amp。 ”39?！癉im dr As dr = (s)While RoleID = dr!Role_IDEnd While()s = ”select TypeId from gg_Menu where MenuName=39?！?amp。 amp。 ”39?！癲r = (s)While TypeID = dr!TypeIdEnd While()s = ”insert into Role_Auth values(39?！?amp。 RoleID amp。 ”39。,39?！?amp。 TypeID amp。 ”39。)“Try(s)MsgBox(”添加成功！“, + )Catch ex As ExceptionMsgBox(”添加失敗！“ amp。 , + )End TryCall show_Role_Auth()End SubPrivate Sub Btn_del_Click(ByVal sender As , ByVal e As )Handles Dim s As StringDim RoleID As StringDim TypeID As Strings = ”select Role_id from Role where Role_name=39?！?amp。 amp。 ”39。“Dim dr As dr = (s)While RoleID = dr!Role_idEnd While()s = ”select TypeId from gg_Menu where MenuName=39?！?amp。 amp。 ”39?！癲r = (s)While TypeID = dr!TypeIdEnd While()s = ”delete from Role_Auth where Role_ID=39?！?amp。 RoleID amp。 ”39。and Type_Id=39?！?amp。 TypeID amp。 ”39。 “Try(s)MsgBox(”刪除成功！“, + )Catch ex As ExceptionMsgBox(”刪除失??！“ amp。 , + )End TryCall show_Role_Auth()End SubPrivate Sub DGView_Role_Auth_CellContentClick(ByVal sender As , ByVal e As )Handles End Sub End Class 22員工管理Public Class Staff_ManagerPrivate Sub Btn_show_Click(ByVal sender As , ByVal e As )Handles Dim s As Strings = ”select * from Staff where Staff_job=39。職員“Dim ds As DataSetds = (s) = (0)End SubPrivate Sub Btn_add_Click(ByVal sender As , ByVal e As )Handles Dim s As Strings = ”insert into Staff values(39。“ amp。 amp。 ”39。,39?！?amp。 amp。 ”39。,39?！?amp。 amp。 ”39。,39?！?amp。 _amp。 ”39。,39。職員39。“ amp。 amp。 ”39。,39?！?amp。 amp。 ”39。)“Try(s)MsgBox(”添加成功！“)Catch ex As ExceptionMsgBox(”添加失敗“ amp。 )End TryEnd SubPrivate Sub Btn_del_Click(ByVal sender As , ByVal e As )Handles Dim s As Strings = ”delete from Staff where Staff_no=39。“ amp。 amp。 ”39?！癟ry(s)MsgBox(”刪除成功！“)Catch ex As ExceptionMsgBox(”刪除失敗“ amp。 )End TryEnd SubPrivate Sub Btn_chaxun_Click(ByVal sender As , ByVal e As )Handles 23Dim s As Strings = ”select * from Staff where Staff_no=39?！?amp。 amp。 ”39。 and Staff_job=39。職員39。Dim ds As DataSetds = (s) = (0)End SubPrivate Sub Staff_Manager_Load(ByVal sender As , ByVal e As )Handles Call Btn_show_Click(sender, e)End SubPrivate Sub DGView_staff_CellClick(ByVal sender As Object, ByVal e As )Handles = (0). = (1). = (2). = (5). = (6).End SubPrivate Sub Panel2_Paint(ByVal sender As , ByVal e As )Handles End Sub End Class第7章 總 結(jié)經(jīng)過這段時(shí)間的精心設(shè)計(jì)，系統(tǒng)的基本功能已經(jīng)實(shí)現(xiàn)，并能實(shí)踐于一些業(yè)務(wù)管理過程中，但酒店業(yè)務(wù)管理系統(tǒng)是一個(gè)龐大的工程，要使網(wǎng)絡(luò)交互功能的實(shí)現(xiàn)，腳本的設(shè)計(jì)，網(wǎng)頁的構(gòu)架，網(wǎng)頁的美工，文字的編輯，非一朝一夕可盡善盡美的，這需要一個(gè)長期的摸索與完善過程，同時(shí)還要在實(shí)踐中發(fā)現(xiàn)與操作者使用要求不相符合的 地方還要修改。子系統(tǒng)功能雖已基本實(shí)現(xiàn)，但仍有諸多地方需要修改。隨著酒店業(yè)務(wù)的擴(kuò)展，服務(wù)的增加，酒店業(yè)務(wù)管理系統(tǒng)也逐漸發(fā)展、完善。如果沒有一套可靠的酒店業(yè)務(wù)管理系統(tǒng),但憑手工操作,不僅效率低下,而且會(huì)極大地形象到酒店的服務(wù)質(zhì)量。要在酒店服務(wù)中選擇好適合自己酒店實(shí)際情況的業(yè)務(wù)管理系統(tǒng)不僅 要考慮該系統(tǒng)在酒店的實(shí)用性，還要考慮酒店對該系統(tǒng)所能夠承擔(dān)費(fèi)用的能力，以及這個(gè)系統(tǒng)對操作員來說的操作難易程度。通過本次課程設(shè)計(jì)中，SQL以及JDBC連接數(shù)據(jù)庫和動(dòng)態(tài)頁面的用法。比較全面的鞏固了下面向?qū)ο蟮木幊趟枷?。在本次課程設(shè)計(jì)中，我們懂得了謹(jǐn)慎和團(tuán)結(jié)的重要性，明確分工也使我們提高了實(shí)驗(yàn)的效率，這對我們以后的學(xué)習(xí)工作都有很大的幫助。第五篇：JAVA酒店管理系統(tǒng)JAVA酒店管理系統(tǒng)摘要該酒店客房管理系統(tǒng)是基于JAVA的Application模式，運(yùn)用JAVA語言開發(fā)技術(shù)和Mysql數(shù)據(jù)庫原理開發(fā)的。在該系統(tǒng)中，操作人員可通過房態(tài)查看或客房查詢來進(jìn)行住宿登記，也可通過追加押金使房客繼續(xù)入住，可方便有效的對客房信息及住宿信息進(jìn)行統(tǒng)計(jì)或設(shè)置，宿費(fèi)提醒及掛帳退房功能可使酒店損失降低至最低點(diǎn)，操作員管理功能可實(shí)時(shí)地對操作人員進(jìn)行有效地管理從而使酒店在客房管理上分工明確。該系統(tǒng)的合理運(yùn)用能使得酒店提高其客房管理效率并節(jié)約管理成本。該系統(tǒng)遵循軟件工程中的開發(fā)規(guī)則。本文介紹了酒店客房管理系統(tǒng)的開發(fā)過程,詳盡論述了需求分析、系統(tǒng)分析、概要設(shè)計(jì)、詳細(xì)設(shè)計(jì)、以及測試與調(diào)試的整個(gè)開發(fā)過程，總結(jié)了開發(fā)過程中的經(jīng)驗(yàn)及本系統(tǒng)今后的改進(jìn)方向。關(guān)鍵詞客房；JAVA；JDK；SQL參考文獻(xiàn)[1]:電子工業(yè)出版社,2005[2] ：Hibernate開發(fā)及整合應(yīng)用大全 北京：清華大學(xué)出版社 出版日期： 200621[3] :：電子工業(yè)出版社, 2006[4](美) 2003北京：機(jī)械工業(yè)出版社,2006[5] :朱敏 朱晴婷 Web應(yīng)用教程北京：清華大學(xué)出版社,北京交通大學(xué)出版社, 2004[6] Matt Raible Live北京：電子工業(yè)出版社, 2006[7] Rod Johnson / Juergen Hoeller（英） OneonOne J2EE Development without EJB北京：機(jī)械工業(yè)出版社原出版社：Wrox, 2003[8] Bruce Tate / Justin :清華大學(xué)出版社, 2006