【正文】 責(zé)任或連帶責(zé)任。, ) Dim dr As SqlDataReader dr = While ((0)) End While () () Catch ex As Exception MsgBox() End Try Case 啤酒 () Try = New SqlConnection(Constr) () cmd = New SqlCommand(select 酒名 from 酒水表 where 類型=39。Integrated Security=SSPI Dim As SqlConnection Dim cmd1 As SqlCommand Dim cmd As SqlCommand Private Sub Button17_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 點(diǎn)歌系統(tǒng)() () () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 吧臺呼叫() () () End Sub Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As ) Handles Select Case Case 洋酒 () Try = New SqlConnection(Constr) () cmd = New SqlCommand(select 酒名 from 酒水表 where 類型=39。G) = True () Catch ex As Exception MsgBox(Write Error！, ) End Try End Sub Private Sub CancelCmd_Click(ByVal sender As , ByVal e As ) Handles (DataSet21, DepartmentTable).CancelCurrentEdit() = False = False = True End Sub Private Sub DeleteCmd_Click(ByVal sender As , ByVal e As ) Handles Try If MsgBox(確要刪除嗎？, ) = Then ((DataSet21, DepartmentTable).Position).Delete() (DataSet21) End If Catch ex As Exception MsgBox() End Try End Sub Private Sub ExitCmd_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub 歌曲管理_Load(ByVal sender As , ByVal e As ) Handles End SubEnd Class◆此為酒水管理Imports Imports Public Class 酒水管理 Inherits Private Sub TjBut_Click(ByVal sender As , ByVal e As ) Handles () = False = False = False Try (DataSet41, 酒水表).AddNew() = True = True = False Catch ex As Exception MsgBox() End Try End Sub Private Sub BcBut_Click(ByVal sender As , ByVal e As ) Handles Try (DataSet41, 酒水表).EndCurrentEdit() () MsgBox(添加成功 OK) = 繼續(xù)(amp。 If (0). = 0 Then If (kkk). = 0 Then () Else 39。 amp。 amp。◆此為歡迎界面Public Class 歡迎界面 Private Sub PictureBox1_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 登錄頁面() () () End SubEnd Class◆此為登錄頁面Imports Imports Public Class 登錄頁面 Inherits Private Sub GpxTest(ByVal tb As String) If = 6 Then amp。◆ 此為此為【歌曲管理】頁面。◆ 此為【酒水管理】頁面?！?例如我現(xiàn)在單擊了【用戶管理】按鈕?！?用戶管理：對數(shù)據(jù)庫中的用戶信息進(jìn)行添加、刪除、更新、維護(hù)操作。酒吧管理系統(tǒng)簡介： 【管理系統(tǒng)】是“會員酒吧系統(tǒng)”中另一大板塊，此板塊的主要作用是和SQL數(shù)據(jù)庫做一個數(shù)據(jù)交互，用這一套VB管理系統(tǒng)管理數(shù)據(jù)庫。我們可以單機(jī)任何一個明星的頭像或者上面的索引條件，即可跳轉(zhuǎn)到【拼音點(diǎn)歌】頁面完成點(diǎn)歌操作，并且本頁也設(shè)置主頁和返回兩個按鈕，不選擇明星的情況下也可以返回主菜單。本頁面中扔然包含明星點(diǎn)歌、呼叫吧臺、酒水服務(wù)三個核心跳板。 區(qū)域四個按鈕，分別對應(yīng)四個窗體。用戶點(diǎn)歌系統(tǒng)簡介： 用戶點(diǎn)歌系統(tǒng)是“傳說會員酒吧”中最重要的板塊之一，本板塊主要包括歌曲狀態(tài)控制中的：靜音、原唱、播放、重播、切歌、音量+、音量 等功能。為了您的個人賬戶密碼安全，本開發(fā)小組特編輯一個虛擬小鍵盤供各位用戶使用，小鍵盤的鍵位分別為1~0、A~C、小數(shù)點(diǎn)，完全符合一般錄入密碼要求，也可以使用虛擬鍵盤與實(shí)體鍵盤切換的方式輸入。◆ 此為“傳說會員酒吧”的【歡迎頁面】，也就是一般所謂的待機(jī)頁面。酒水服務(wù)頁面中的酒水信息。首先可以講數(shù)據(jù)庫和數(shù)據(jù)庫管理系統(tǒng)看為一個整體，即數(shù)據(jù)庫管理系統(tǒng)是為管理數(shù)據(jù)庫而存在的。學(xué)生自己單獨(dú)分組完成。正確建立的程序設(shè)計(jì)思想，能夠根據(jù)用戶提出的要求，設(shè)計(jì)出系統(tǒng)功能框架和數(shù)據(jù)庫，通過程序編碼來實(shí)現(xiàn)系統(tǒng)的各項(xiàng)功能。通過本課程設(shè)計(jì)，使學(xué)生進(jìn)一步掌握面向?qū)ο蟪绦蛟O(shè)計(jì)的基本思想；掌握常用對象的基本屬性、事件和方法；掌握基本語法和程序設(shè)計(jì)方法；掌握各種數(shù)據(jù)處理控件的使用方法，掌握數(shù)據(jù)庫應(yīng)用程序的開發(fā)技術(shù)；掌握程序的運(yùn)行、調(diào)試方法。二、課程設(shè)計(jì)任務(wù)與要求一）基本任務(wù)：開發(fā)一個面向?qū)ο蟮男⌒蛻?yīng)用系統(tǒng)。第一次運(yùn)行后通過登錄頁面成功跳轉(zhuǎn)到數(shù)據(jù)管理系統(tǒng)，再通過用戶管理頁面進(jìn)行第一次修改。拼音點(diǎn)歌、明星點(diǎn)歌頁面中的歌曲信息。窗體及其作用介紹本章我們將為您詳細(xì)介紹本系統(tǒng)中的每一個窗體及其作用。首次登錄成功后，可在管理系統(tǒng)下進(jìn)行修改。本頁提示您【密碼錯誤，請仔細(xì)核對后輸入】您最多有三次輸入錯誤的機(jī)會錯誤三次后我們將鎖定您的VIP卡單機(jī)重試將再次返回到【登錄頁面】單機(jī)退出將徹底退出【酒吧系統(tǒng)】，也就是進(jìn)入關(guān)機(jī)/待機(jī)狀態(tài)。接下來就讓我們來一一了解這些功能帶給我們的便捷！◆ 此為【用戶點(diǎn)歌系統(tǒng)】， 區(qū)域代表歌曲狀態(tài)控制。◆ 此為【拼音點(diǎn)歌】頁面，是點(diǎn)歌系統(tǒng)最為核心的一個頁面，在次頁面中我們將以輸入軟鍵盤上的字符為索引條件索引滿足條件的歌曲名稱?！?此為【明星點(diǎn)歌】頁面，本頁面中為我們提供了大量的明星信息。單擊前面的對鉤選定后再點(diǎn)擊確定將把您的點(diǎn)酒數(shù)據(jù)傳輸?shù)桨膳_！單擊確定后===》此數(shù)據(jù)的傳輸將被默認(rèn)為呼叫服務(wù)特別提示：若單擊【呼叫吧臺】按鈕，彈出的也是此溫馨提示。大家可以看到這里有四個按鈕可供選擇?！?返回登陸：單擊此按鈕時頁面將自動跳轉(zhuǎn)到【登錄頁面】，此按鈕可視為管理員、用戶切換的一個跳板?！?例如我現(xiàn)在單擊了【酒水管理】按鈕?！?例如我現(xiàn)在單擊了【歌曲管理】按鈕。代碼公布應(yīng)許多好朋友的要求本人在此貼出代碼，聲明：此代碼僅供學(xué)習(xí)交流，下載后24小時內(nèi)請自覺刪除，若出現(xiàn)法律糾紛，本組不負(fù)任何法律責(zé)任或連帶責(zé)任。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。 and 密碼=39。, ) Dim dr As New SqlDataAdapter(cmd) Dim ds As New DataSet (ds, kkk) 39。 系部信息錄入表 () (DataSet21) =