酒店管理系統(tǒng)課程設(shè)計

1、軟件開發(fā)環(huán)境與工具課程設(shè)計實驗題目 ：酒店管理系統(tǒng)指導(dǎo)老師 ：南麗麗專業(yè)班級 ：計算機科學(xué)與技術(shù)系1105 班姓名：陳阿艷（ 2011100516）王媛（ 2011100529）閆麗穎（ 2011100503）樊建紅（ 2011100515）2013年12月13日目錄1.42.1. Visual Basic .NET2.2.SQL Server200. .. “ ” 2第1章前言1.1 選題背景酒店業(yè)是一個前景廣闊而又競爭激烈的行業(yè)。 改革開放以來， 我國的酒店業(yè)迅速發(fā)展，已經(jīng)成為一個具有相當規(guī)模的

2、產(chǎn)業(yè)。 由于我國的旅游業(yè)迅速發(fā)展， 通過調(diào)查，我國在 2020 年將成為世界上第四大旅游國家；同時我國加入世界貿(mào)易組織，酒店業(yè)將完全開放， 這個時候，我國的酒店業(yè)將面臨著前所未有的機遇和挑戰(zhàn)。但是，現(xiàn)在甚至還有一些酒店還停留在由人工操作和管理階段， 這樣已經(jīng)無法適應(yīng)當前的發(fā)展趨勢。 因此，要想使酒店的工作質(zhì)量和效率提高， 采用先進的計算機網(wǎng)絡(luò) 通信技術(shù)改變酒店業(yè)務(wù)模式，實現(xiàn)酒店業(yè)務(wù)管理的自動化已經(jīng)成為一種必然。酒店管理系統(tǒng)采用 B/S 結(jié)構(gòu)。按照按國家星級賓館標準化業(yè)務(wù)程序流式設(shè)計，會采用主流開發(fā)工具來開發(fā)， 搭建比較穩(wěn)定可靠安全的服務(wù)端來輔佐客戶管理，并且還采用數(shù)據(jù)庫 mysql，會通過測試

3、用例來達到測試效果，技術(shù)支持會采用輕量級框架 struts 和 hibernate 持久化來完成，服務(wù)器采用 tomcat ，通過powerdesigner 來設(shè)計數(shù)據(jù)模型為最初業(yè)務(wù)流程的概念設(shè)計階段和詳細設(shè)計階段打好基礎(chǔ) 1。1.2 課題研究的目的和意義對酒店整個來說， 對酒店經(jīng)營狀況起決定作用的是酒店的服務(wù)管理水平。如何利用先進的管理手段來提高酒店的管理水平成為酒店業(yè)務(wù)發(fā)展的當務(wù)之急。面對信息時代的機遇和挑戰(zhàn)， 利用科技手段提高酒店的管理無疑是一條行之有效的途徑。雖然計算機管理并不是酒店管理走向成功的關(guān)鍵元素，但它可以最大限度地發(fā)揮準確、快捷、高效等作用，對酒店的業(yè)務(wù)管理提供強有力的支持。

4、因此，采用全新的計算機網(wǎng)絡(luò)和酒店業(yè)務(wù)管理系統(tǒng)，已成為提高酒店的管理效率， 使作業(yè)人員與管理系統(tǒng)之間靈活互動，實現(xiàn)流暢的工作流銜接， 幫助酒店有效地進行業(yè)務(wù)管理，釋放最大價值。酒店業(yè)務(wù)管理系統(tǒng)在達到在節(jié)省人力資源成本的同時，可以提高業(yè)務(wù)效率，并能夠及時、準確、迅速地滿足顧客服務(wù)的需求2。31.3 本文的研究內(nèi)容課程設(shè)計選題酒店管理系統(tǒng)主要研究了：酒店業(yè)務(wù)的管理（劃分為，登陸界面部分，查詢界面部分，入住界面部分，退房界面部分）。1.4 國內(nèi)外現(xiàn)狀隨著我國經(jīng)濟體制改革的不斷深化和我國經(jīng)濟的快速發(fā)展， 我國人民的收入不斷提高，消費觀念也有提高，對服務(wù)質(zhì)量的要求也有很大 的 提高。各地把旅游業(yè)當作本 地

5、經(jīng)濟發(fā)展的 重要支柱之一。 酒店作為人們食宿、娛樂、休閑的場所而得到了快速的發(fā)展。 社會上也成立了各種類型， 不同規(guī)模的酒店服務(wù)企業(yè)。 如何為客戶提供更 加準確及時的服務(wù)，成為各個酒店競爭關(guān)鍵。所以酒店業(yè)務(wù)信息化建設(shè)就成為了客戶衡量酒店提供商服務(wù)標準的一個準則，信息系統(tǒng)成為了基礎(chǔ)。隨著 Internet技術(shù)的進一步發(fā)展和普及，不能很好的適應(yīng)世界經(jīng)濟發(fā)展的形式和我國國民經(jīng)濟建設(shè)的需要， 市場現(xiàn)有的產(chǎn)品化的酒店業(yè)務(wù)軟件系統(tǒng)在不斷發(fā) 展中的酒店的需求。 基于 WEB的酒店管理系統(tǒng)的總體設(shè)計目標能夠建立完善、高效、可靠的酒店業(yè)務(wù)信息系統(tǒng)，為酒店提供良好的信息環(huán)境3。第 2 章 開發(fā)環(huán)境及工具介紹21V

6、isual Basic .NET簡介Visual Basic .NET通?？s寫為 VB.NET,在某些特定情況下也直接簡稱VB，比如在 .NET 這個大話題下或者與其他.NET 語言一起討論的時候。Visual Basic .NET屬 Basic 系語言，其語法特點是以極具親和力的英文單詞為基礎(chǔ)標識，以及與自然語言極其相近的邏輯表達， 有時候你會覺得寫 VB.NET 代碼就好像在寫英文句子一樣，從這個角度來說， VB.NET似乎是最高級的一門編程語言，當然在 Basic 系語言中 VB.NET也確實是迄今為止最強大的一門編程語言。Visual Basic .NET 的應(yīng)用范圍包括 window

7、s 桌面、 web以及當下突然覺醒的正在奮力追趕的第三大移動平臺 Windows phone。2.2 SQL Server2005SQLServer是一個關(guān)系數(shù)據(jù)庫管理系統(tǒng)。 它最初是由 Microsoft、Sybase 和4Ashton-Tate三家公司共同開發(fā)的，于1988 年推出了第一個OS/2 版本。在Windows NT 推出后， Microsoft與 Sybase 在 SQL Server 的開發(fā)上就分道揚鑣了， Microsoft將 SQL Server 移植到 Windows NT系統(tǒng)上，專注于開發(fā)推廣SQLServer的 Windows NT 版本。 Sybase 則較專注于

8、 SQL Server 在 UN操作系統(tǒng)上的應(yīng)用。MicrosoftSQL Server 2005 是一個全面的數(shù)據(jù)庫平臺，使用集成的商業(yè)智能 (BI)工具提供了企業(yè)級的數(shù)據(jù)管理。Microsoft SQL Server 2005數(shù)據(jù)庫引擎為關(guān)系型數(shù)據(jù)和結(jié)構(gòu)化數(shù)據(jù)提供了更安全可靠的存儲功能，使您可以構(gòu)建和管理用于業(yè)務(wù)的高可用和高性能的數(shù)據(jù)應(yīng)用程序。第3章系統(tǒng)分析3.1 可行性分析隨著旅游業(yè)的發(fā)展， 酒店、餐飲娛樂行業(yè)日趨發(fā)達， 引入全方位的電腦服務(wù)和電腦管理日益流行。 同時，酒店和餐廳娛樂業(yè)引入電腦服務(wù)和管理也取得了優(yōu)良的經(jīng)濟 效益和社會效益。為此，國家建設(shè)部已于最近作出明確規(guī)定：凡星級酒店在

9、項目審批時，其設(shè)計方案必須包括電腦管理系統(tǒng)，否則不予立項。可見，酒店管理電腦化 勢在必行。酒店管理系統(tǒng)將先進的電腦技術(shù)與現(xiàn)代酒店服務(wù)管理完美地結(jié)合起來，實現(xiàn)了住宿、餐飲、娛樂全新概念的服務(wù)和管理方式。一個成熟的酒店管理系統(tǒng)不僅僅是記錄酒店客人的信息， 提供查詢，報表打印等一系列簡單的工作， 它能讓工作人員從煩瑣的手工操作中解脫， 并且酒店管理系統(tǒng)本 身就代表著一種管理方法。隨著它的深入，將帶動企業(yè)的運做，為管理和決策提供支持。 為了達到這個要求， 它必須依靠高起點的硬件環(huán)境和軟件開發(fā)工具來保證系 統(tǒng)的穩(wěn)定和正常運行。酒店電腦系統(tǒng)要求 24 小時連續(xù)運行，數(shù)據(jù)量大，可靠性要求高， 因此整個電腦系

10、統(tǒng)供電采用專線方式， 加配 UPS（不間斷供電系統(tǒng)），并合理接地，以便保障整套系統(tǒng)的正常運行7。3.2 需求分析系統(tǒng)需對用戶登錄進行管理。 使用各功能模塊時， 系統(tǒng)應(yīng)驗證用戶身份的有效性，否則要求用戶登錄。另外，允許用戶對自己的密碼進行修改。系統(tǒng)應(yīng)提供客房的分類管理功能， 可分類制訂客房面積、 價格、是否配備空調(diào)等客房類型，對不同標準的客房進行有效管理。 系統(tǒng)可實現(xiàn)對客房信息的添加、刪除以及修改。5在進行入住 / 退房管理時，系統(tǒng)可以根據(jù)客房當前的狀態(tài)自動提示可用服務(wù)( 入住 / 退房 ) 。如果客房沒有客人入住，則該客房的可用服務(wù)為“入住”；否則，可用服務(wù)為“退房”。系統(tǒng)的客戶端在 Wind

11、ows平臺下運行，服務(wù)器端可在 Windows平臺或 UNIX 平臺下運行。系統(tǒng)還需要有較好的安全性和可擴展性 8 。需求分析是從客戶的需求中提取出軟件系統(tǒng)能夠幫助用戶解決的業(yè)務(wù)問題，通過對用戶業(yè)務(wù)問題的分析，規(guī)劃出系統(tǒng)的功能模塊， 即定義用例。 這個步驟是對理解需求的升華，直接關(guān)系到該系統(tǒng)的質(zhì)量。整個系統(tǒng)可以分為 2 大部分。酒店網(wǎng)站部分 （客戶服務(wù)網(wǎng)站） 和酒店管理部分（管理員部分）。本系統(tǒng)只做了有關(guān)酒店管理的一部分。酒店管理部分1. 客房管理 : 預(yù)訂客房管理、客房查詢、退房管理。前臺服務(wù)員的主要職能是負責(zé)訂房和退房， 以及查詢?nèi)胱〉目蛻粜畔ⅰ?所有該角色只可以使用部分功能，包括預(yù)定管理

12、、客戶信息查詢，入住管理，退房管理功能。第四章數(shù)據(jù)庫設(shè)計4.1 數(shù)據(jù)庫設(shè)計截圖64.2 權(quán)限設(shè)置4.3 客戶信息表4.4 房態(tài)表74.5 結(jié)算表第 5章系統(tǒng)實現(xiàn)5.1 登陸分別用三種身份登陸，所得到的權(quán)限也就不同8老板經(jīng)理員工5.2 客戶入?。ㄍㄟ^添加客戶信息，自動計算應(yīng)付房費）5.3 客戶結(jié)算退房95.4 以“老板”為例，展示系統(tǒng)功能（1）查詢房態(tài)住著人的房間有：10通過房間號查某間房的房態(tài)（ 2）職工管理添加職工設(shè)置權(quán)限第 6章主要代碼11登陸Public Class LoginPrivate Sub Btn_Login_Click( ByVal sender As System.Obje

13、ct, ByVal e As System.EventArgs)Handles Btn_Login.ClickIf s = 1 ThenMsgBox(" 歡迎使用假日酒店管理系統(tǒng) ", MsgBoxStyle .Information + MsgBoxStyle .OkOnly)Main_Form.Show()Me.Close()ElseIf s = -1 ThenMsgBox(" 用戶名錯誤！ ", MsgBoxStyle .Information + MsgBoxStyle .OkOnly)ElseMsgBox(" 密碼錯誤！ "

14、 , MsgBoxStyle .Information + MsgBoxStyle .OkOnly)End IfEnd IfEnd SubPrivate Sub Btn_Cancel_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Cancel.ClickMe .Close()End SubPrivate Sub Login_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.L

15、oadEnd SubEnd Class主界面Public Class Main_FormPrivate Sub Main_Form_Load( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.LoadCall Init_Tree()End SubPublic Sub Init_Tree()12Dim s As Strings = "select * from gg_Menu where isStop='0'"Dim dr As SqlClient.SqlDat

16、aReaderdr = myCommon. getData.get_dr(s)Dim myNode As TreeNodeWhile dr.ReadmyNode = New TreeNodemyNode.Text = dr.Item( "MenuName")End IfmyNode.Name = dr.Item("Typeid" )If dr.Item("isGroup" ) = "0" ThenmyNode.Tag = dr.Item("Form" )ElsemyNode.Tag = &quo

17、t;"End IfIf dr.Item("Parid" ) = "0" ThenElseEnd IfEnd IfEnd Whiledr.Close()End SubDim formName As StringDim f As Form'f = CType(Activator .CreateInstance(Type.GetType(formName), Form)f.Show()f.MdiParent = Mef.WindowState = FormWindowState.MaximizedEnd SubPrivate Sub 退出 T

18、oolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As13System.EventArgs) Handles 注á?é銷¨2ToolStripMenuItem.ClickLogin .Show()Me .Close()End SubPrivate Sub Timer1_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickMe .Tool_lb_name.Text = &qu

19、ot; 登陸者日期 " & Format(Now, "yyyy-MM-dd" )Me .Tool_lb_time.Text = "時間 " & Format(Now, "long time" )End SubPrivate Sub 退出 ToolStripMenuItem1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出 ToolStripMenuItem1.ClickMe .Close()End Su

20、bEnd Class入住Public Class Ruzhu_loginPrivate Sub Ruzhu_login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.LoadMe .Txt_no.Text = myCommon. getNewCode.get_NewCodeCall Init_Cbox()End SubPrivate Sub Cbox_type_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As

21、 System.EventArgs) Handles Cbox_type.SelectedIndexChangedDim s As Strings = "select * from Fang where Fang_state='空Dim dr As SqlClient.SqlDataReaderdr = myCommon. getData.get_dr(s)While dr.ReadTxt_yajin.Text = dr!Fang_yajinTxt_danjia.Text = dr!Fang_priceEnd Whiledr.Close()End Sub14Private S

22、ub Btn_ok_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_ok.ClickDim s As StringDim ID_Card As StringID_Card = Me .Txt_ID.TextDim cAge As IntegercAge = myCommon. getAge.get_age(ID_Card)Dim stoptime As Stringstoptime = "0000/00/00 00:00:00"s = "insert in

23、to Customer values ('" & Txt_no.Text &"','" & Txt_name.Text & "','" &Cbox_sex.Text & "','" & cAge.ToString & "','" & Txt_ID.Text _& "','" & Cbox_type.Text &a

24、mp; "','" & Cbox_fang_no.Text & "','" & Now &"','" & stoptime &"','" & Txt_yajin.Text _& "','" & Txt_days.Text & "','" & Txt_yingjiao.Text &&quo

25、t;','" & Txt_yijiao.Text &"')"Dim s2 As Strings2 = "update Fang set Fang_state='滿 ' where Fang_num='" & Cbox_fang_no.Text & "'"TryMsgBox(" 添加成功！ ", MsgBoxStyle .Information + MsgBoxStyle .OkOnly)Catch ex As Exce

26、ptionMsgBox(" 添加失??！ " & ex.Message, MsgBoxStyle .Information + MsgBoxStyle .OkOnly)End TryEnd SubPrivate Sub Btn_jisuan_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_jisuan.ClickMe .Txt_yingjiao.Text = Txt_danjia.Text * Txt_days.Text + Txt_yajin.Text End

27、 SubPrivate Sub Btn_add_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_add.ClickMe .Txt_no.Text = myCommon. getNewCode.get_NewCodeTxt_name.Text = ""Txt_ID.Text = ""Txt_yajin.Text = ""Txt_days.Text = ""Txt_yingjiao.Text = "&

28、quot;Txt_yijiao.Text = ""15Txt_address.Text = ""Txt_danjia.Text = ""Call Init_Cbox()End SubSub Init_Cbox() '為性別和房間類型進行添加男 ")女 ")單人間 ")雙人間 ")End SubEnd Class結(jié)算Public Class JiesuanDim str As StringPrivate Sub Jiesuan_Load(ByVal sender As System.Obj

29、ect, ByVal e As System.EventArgs) Handles MyBase.LoadCall Btn_show_Click(sender, e)End SubPrivate Sub Btn_jiesuan_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_jiesuan.ClickDim s As StringDim yajin As StringDim yijiao As StringDim str As Stringstr = Nowstr = Mid(str,

30、1, 10)s = "select yajin,yijiao from Customer where Start_time like '" & str & "%' "Dim dr As SqlClient.SqlDataReaderdr = myCommon. getData.get_dr(s)While dr.Readyajin = dr!yajin + yajinyijiao = dr!yijiao + yijiaoEnd Whiledr.Close()s = "select count(*) from Ji

31、esuan where Riqi like '" & str & "%' "Dim conn As New SqlClient. SqlConnectionDim cmd As New SqlClient.SqlCommandcmd.Connection = conncmd.CommandType = CommandType.Textcmd.CommandText = sconn.Open()If CType(cmd.ExecuteScalar(), Integer) = 0 Then16Trys = "insert in

32、to Jiesuan values ('" & str & "','" & yijiao & "','" & yajin & "','" & yijiao - yajin & "', '待審核 ' , '待審核 ') where Riqi='" & str & "'"Catch ex As Exc

33、eptionMsgBox(" 結(jié)算時出現(xiàn)錯誤！ " & ex.Message)End TryElseIf CType(cmd.ExecuteScalar(), Integer) > 0 ThenTrys = "update Jiesuan set All_money='" & yijiao & "',All_yajin='" & yajin & "',Shouru='" & yijiao - yajin & &qu

34、ot;' where Riqi='" & str & "'"Catch ex As ExceptionMsgBox( "結(jié)算時出錯誤！ " )End TryEnd IfEnd Ifs = "select * from Jiesuan where Riqi='" & str & "'"Dim ds As DataSetDGView_jiesuan.DataSource = ds.Tables(0)End SubPrivate Sub B

35、tn_show_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_show.ClickDim s As Strings = "select * from Jiesuan"Dim ds As DataSetDGView_jiesuan.DataSource = ds.Tables(0)End SubPrivate Sub Btn_jingli_Click( ByVal sender As System.Object, ByVal e As System.EventArg

36、s) Handles Btn_jingli.ClickDim str As Stringstr = Nowstr = Mid(str, 1, 10)經(jīng)理 " Then Dim s As String& "' where Riqi='" & str & "'" Try17Call Btn_show_Click(sender, e)Catch ex As ExceptionMsgBox(" 審核失??！ " )End TryElseMsgBox(" 你沒有權(quán)限！ "

37、; )End IfEnd SubPrivate Sub Btn_laoban_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_laoban.ClickDim str As Stringstr = Nowstr = Mid(str, 1, 10)老板 " Then Dim s As Strings = "update Jiesuan set laobanshenhe='"&TryCall Btn_show_Click(sender, e)Cat

38、ch ex As ExceptionMsgBox(" 審|核失??！ " )End TryElseMsgBox(" 你沒有權(quán)限！ " )End IfEnd SubEnd Class退房Public Class Tuifang_loginDim dv As DataViewPrivate Sub Btn_chaxun_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_chaxun.ClickDim str As StringDim ds As DataS

39、etdv = ds.Tables("temp" ).DefaultViewDGView_tuifang.DataSource = dvEnd Sub18Private Sub Btn_Tuifang_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Tuifang.ClickDim s As Strings = "update Fang set Fang_state='空 ?' where Fang_num='" &

40、dv.Item(0).Item( "Fang_no" ).ToString & "'"Dim s2 As Strings2 = "update Customer setyingjiao='" & dv.Item(0).Item( "yingjiao" ) - dv.Item(0).Item( "yajin" )& "',stop_time='" & Now _& "',yajin=

41、9;0',yijiao='" & dv.Item(0).Item( "yijiao" ) - dv.Item(0).Item( "yajin" ) & "' whereCustomer_no='" & dv.Item(0).Item( "Customer_no") & "'"TryMsgBox(" 退房成功！ ", MsgBoxStyle .Information + MsgBoxStyle .

42、OkOnly)Catch ex As ExceptionMsgBox(" 退房失敗！ " & ex.Message, MsgBoxStyle .Information + MsgBoxStyle .OkOnly)End TryEnd SubEnd Sub查詢Private Sub Btn_Customer_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Customer.ClickShow_all_coustomer()End SubPrivate Sub

43、Btn_Chaxun_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Chaxun.ClickDim str As StringIf Chaxun_Fang.Text <> "" And Chaxun_name.Text <> "" Thenstr = "Fang_no='" & Chaxun_Fang.Text & "' and Customer_name=&#

44、39;" & Chaxun_name.Text& "'"ElseIf Chaxun_Fang.Text <> "" And Chaxun_name.Text = "" Then str = "Fang_no='" & Chaxun_Fang.Text & "'"ElseIf Chaxun_Fang.Text = "" And Chaxun_name.Text <> ""

45、; Then str = " Customer_name='" & Chaxun_name.Text & "'"End If19Call Show_all(str)End SubPrivate Sub Panel2_Paint(ByVal sender As System.Object, ByVal e AsEnd SubEnd Class管理Public Class cManagerSub show_Role_Auth()Dim s As Strings = "select * from Role_Auth_V

46、 where Role_Name<>' 老板 '"Dim ds As DataSetDGView_Role_Auth.DataSource = ds.Tables("temp" )End SubPrivate Sub cManager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim s As Strings = "select * from Role_Auth_V where Role_Name<

47、;>' 老板 '"Dim ds As DataSetDGView_Role_Auth.DataSource = ds.Tables("temp" )Dim dr As SqlClient.SqlDataReaders = "select * from gg_Menu where MenuName<>' 權(quán)限 T'and MenuName<>'權(quán)限管理 '"dr = myCommon. getData.get_dr(s)While dr.ReadEnd Whiledr.

48、Close()s = "select * from Role where Role_Name<>' 老板 '"dr = myCommon. getData.get_dr(s)While dr.ReadEnd Whiledr.Close()End Sub20End SubPrivate Sub Btn_add_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_add.ClickDim s As StringDim RoleID As Stri

49、ngDim TypeID As Strings = "select Role_id from Role where Role_name='" & Cbox_Role.Text & "'"Dim dr As SqlClient.SqlDataReaderdr = myCommon. getData.get_dr(s)While dr.ReadRoleID = dr!Role_IDEnd Whiledr.Close()s = "select TypeId from gg_Menu where MenuName=

50、9;" & Cbox_Auth.Text &"'"dr = myCommon. getData.get_dr(s)While dr.ReadTypeID = dr!TypeIdEnd Whiledr.Close()s = "insert into Role_Auth values ('" & RoleID &"','" & TypeID &"')"TryMsgBox(" 添加成功！ ", MsgBo

51、xStyle .Information + MsgBoxStyle .OkOnly)Catch ex As ExceptionMsgBox(" 添加失敗！ " & ex.Message, MsgBoxStyle .Information + MsgBoxStyle .OkOnly)End TryCall show_Role_Auth()End SubPrivate Sub Btn_del_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_del.ClickDi

52、m s As StringDim RoleID As StringDim TypeID As Strings = "select Role_id from Role where Role_name='" & Cbox_Role.Text & "'"Dim dr As SqlClient.SqlDataReaderdr = myCommon. getData.get_dr(s)While dr.ReadRoleID = dr!Role_idEnd While21dr.Close()s = "select TypeI

53、d from gg_Menu where MenuName='" & Cbox_Auth.Text &"'"dr = myCommon. getData.get_dr(s)While dr.ReadTypeID = dr!TypeIdEnd Whiledr.Close()s = "delete from Role_Auth where Role_ID='" & RoleID & "'and Type_Id='" & TypeID & &q

54、uot;' "TryMsgBox(" 刪除成功！ ", MsgBoxStyle .Information + MsgBoxStyle .OkOnly)Catch ex As ExceptionMsgBox(" 刪除失??！ " & ex.Message, MsgBoxStyle .Information + MsgBoxStyle .OkOnly)End TryCall show_Role_Auth()End SubEnd SubEnd Class員工管理Public Class Staff_ManagerPrivate Sub Btn_show_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_show.ClickDim s As Strings =