【正文】 es 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。 (DataSet41) End Sub Private Sub DataGrid1_Navigate(ByVal sender As , ByVal ne As ) Handles End SubEnd Class◆此為酒水頁面Imports Imports Public Class 酒水頁面 Inherits Dim Constr As String = Server=Localhost。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。 = qx () End If () Catch ex As Exception MsgBox() End Try End Sub Private Sub PictureBox2_Click(ByVal sender As , ByVal e As ) Handles End SubEnd Class◆此為登陸成功Imports Public Class 登陸成功 Private Sub PictureBox1_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 點歌系統(tǒng)() () () End Sub Private Sub Button1_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 If qx = 管理員 Then = True End If End SubEnd Class◆此為登錄失敗Imports Public Class 登陸失敗 Private Sub OK_Button_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 登錄頁面() () () End Sub Private Sub Cancel_Button_Click(ByVal sender As , ByVal e As ) Handles End End Sub Private Sub 登陸失敗_Load(ByVal sender As , ByVal e As ) Handles End SubEnd Class◆此為管理員系統(tǒng)Public Class 管理員系統(tǒng) Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 歌曲管理() () () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 用戶管理() () () End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 酒水管理() () () End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 登錄頁面() () () End Sub Private Sub PictureBox1_Click(ByVal sender As , ByVal e As ) Handles End SubEnd Class◆此為點歌系統(tǒng)Public Class 點歌系統(tǒng) Private Sub Button16_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button7_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub 點歌系統(tǒng)_Load(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) End Sub Private Sub Button17_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 登錄頁面() () () End Sub Private Sub Label4_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Label3_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Label2_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Label1_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button11_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 吧臺呼叫() () () End Sub Private Sub Button10_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 明星點歌() () () End Sub Private Sub Button9_Click(ByVal sender As , ByVal