【正文】 務(wù)與要求一）基本任務(wù)：開發(fā)一個面向?qū)ο蟮男⌒蛻?yīng)用系統(tǒng)。二）開發(fā)工具：Visual Studio 2005和SQL Server 2000三）提交設(shè)計成果主要包括：（一）課程設(shè)計報告書1）封面2）目錄3) 正文（二）提交程序設(shè)計源代碼三、課程設(shè)計題目及主要功能要求一）設(shè)計題目：傳說會員酒吧管理（點歌）系統(tǒng)二）主要功能：1）用戶點歌系統(tǒng)明星點歌拼音點歌呼叫吧臺酒水服務(wù)2）數(shù)據(jù)管理系統(tǒng)用戶管理系統(tǒng)酒水管理系統(tǒng)歌曲管理系統(tǒng)所有數(shù)據(jù)維護、更新。第一次運行后通過登錄頁面成功跳轉(zhuǎn)到數(shù)據(jù)管理系統(tǒng)，再通過用戶管理頁面進行第一次修改。數(shù)據(jù)庫管理系統(tǒng)主要作用是對數(shù)據(jù)庫中用戶表、酒水表、歌曲表做數(shù)據(jù)的添加、刪除、更新、維護。拼音點歌、明星點歌頁面中的歌曲信息。最后點完酒水或者呼叫吧臺時，直接將用戶點歌系統(tǒng)和酒吧管理系統(tǒng)做一個數(shù)據(jù)交互，而這里條件有限只能中斷，然后彈出溫馨提示界面，其實酒吧管理系統(tǒng)，也就是吧臺是得不到呼叫信息和酒水信息的。窗體及其作用介紹本章我們將為您詳細介紹本系統(tǒng)中的每一個窗體及其作用。單擊此頁面任何地方講進入【登錄頁面】。首次登錄成功后，可在管理系統(tǒng)下進行修改?！舸藶椤镜卿洺晒Α宽撁?，此頁面中有兩個按鈕，指向分別為：【酒吧管理系統(tǒng)】和【用戶點歌系統(tǒng)】。本頁提示您【密碼錯誤，請仔細核對后輸入】您最多有三次輸入錯誤的機會錯誤三次后我們將鎖定您的VIP卡單機重試將再次返回到【登錄頁面】單機退出將徹底退出【酒吧系統(tǒng)】，也就是進入關(guān)機/待機狀態(tài)。同時還兼有：拼音點歌板塊、明星點歌板塊、呼叫吧臺板塊、酒水服務(wù)板塊眾多板塊跳板的功能。接下來就讓我們來一一了解這些功能帶給我們的便捷！◆ 此為【用戶點歌系統(tǒng)】， 區(qū)域代表歌曲狀態(tài)控制。 區(qū)域為歌曲控制器?！?此為【拼音點歌】頁面，是點歌系統(tǒng)最為核心的一個頁面，在次頁面中我們將以輸入軟鍵盤上的字符為索引條件索引滿足條件的歌曲名稱。去除了歌曲控制的按鈕，仍然保留切歌等常用點歌功能。◆ 此為【明星點歌】頁面，本頁面中為我們提供了大量的明星信息?！?例如我現(xiàn)在單擊了【酒水服務(wù)】按鈕。單擊前面的對鉤選定后再點擊確定將把您的點酒數(shù)據(jù)傳輸?shù)桨膳_！單擊確定后===》此數(shù)據(jù)的傳輸將被默認(rèn)為呼叫服務(wù)特別提示：若單擊【呼叫吧臺】按鈕，彈出的也是此溫馨提示。用來添加、刪除、維護數(shù)據(jù)。大家可以看到這里有四個按鈕可供選擇?！?酒水管理：對數(shù)據(jù)庫中的酒水信息進行添加、刪除、更新、維護操作?！?返回登陸：單擊此按鈕時頁面將自動跳轉(zhuǎn)到【登錄頁面】，此按鈕可視為管理員、用戶切換的一個跳板?！舸藶椤居脩艄芾怼宽撁妫卷撁嬷饕墓δ転樘砑?、刪除用戶?！?例如我現(xiàn)在單擊了【酒水管理】按鈕。本頁面主要的功能為添加、刪除酒水信息?！?例如我現(xiàn)在單擊了【歌曲管理】按鈕。本頁面主要的功能為添加、刪除歌曲信息。代碼公布應(yīng)許多好朋友的要求本人在此貼出代碼，聲明：此代碼僅供學(xué)習(xí)交流，下載后24小時內(nèi)請自覺刪除，若出現(xiàn)法律糾紛，本組不負(fù)任何法律責(zé)任或連帶責(zé)任。= tb Else Beep() End If End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles GpxTest(1) End Sub Private Sub NumericUpDown1_ValueChanged(ByVal sender As , ByVal e As ) End Sub Private Sub Button15_Click(ByVal sender As , ByVal e As ) Handles = End Sub Private Sub Button17_Click(ByVal sender As , ByVal e As ) Handles End End Sub Private Sub Button2_Click_1(ByVal sender As , ByVal e As ) Handles GpxTest(2) End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles GpxTest(3) End Sub Private Sub PictureBox1_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles GpxTest(A) End Sub Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles GpxTest(4) End Sub Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles GpxTest(5) End Sub Private Sub Button7_Click(ByVal sender As , ByVal e As ) Handles GpxTest(6) End Sub Private Sub Button8_Click(ByVal sender As , ByVal e As ) Handles GpxTest(B) End Sub Private Sub Button9_Click(ByVal sender As , ByVal e As ) Handles GpxTest(7) End Sub Private Sub Button10_Click(ByVal sender As , ByVal e As ) Handles GpxTest(8) End Sub Private Sub Button11_Click(ByVal sender As , ByVal e As ) Handles GpxTest(9) End Sub Private Sub Button12_Click(ByVal sender As , ByVal e As ) Handles GpxTest(C) End Sub Private Sub Button13_Click(ByVal sender As , ByVal e As ) Handles GpxTest(0) End Sub Private Sub Button14_Click(ByVal sender As , ByVal e As ) Handles GpxTest(.) End Sub Private Sub Button16_Click(ByVal sender As , ByVal e As ) Handles If = 1 Then = Mid(, 1, 1) End If End Sub Dim Constr As String = Server=Localhost。Integrated Security=SSPI Dim As SqlConnection Dim cmd As SqlCommand Dim cmd1 As SqlCommand Private Sub Button18_Click(ByVal sender As , ByVal e As ) Handles Try = New SqlConnection(Constr) () cmd = New SqlCommand(select * from 用戶表 where 用戶名=39。 amp。 and 密碼=39。 amp。, ) Dim dr As New SqlDataAdapter(cmd) Dim ds As New DataSet (ds, kkk) 39。 qx = (KKK).Rows(0,權(quán)限). 39。 系部信息錄入表 () (DataSet21) = False = False = True = True End Sub Private Sub UpdataCmd_Click(ByVal sender As , ByVal e As ) Handles Try (DataSet21, stuinftable).EndCurrentEdit() () MsgBox(添加成功 OK) = 繼續(xù)(amp。G) = True () Catch ex As Exception MsgBox(Write Error！, ) End Try End Sub Private Sub FqBut_Click(ByVal sender As , ByVal e As ) Handles (DataSet41, 酒水表).CancelCurrentEdit() = False = False = True End Sub Private Sub ScBut_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 管理員系統(tǒng)() () () End Sub Private Sub 酒水管理_Load(ByVal sender As , ByVal e As ) Handles 39。DataBase=chuanshuohuiyuan。洋酒39。紅酒39。啤酒39。= tb Else Beep() End If End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles GpxTest