【正文】 on15_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。DataBase=chuanshuohuiyuan。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。 amp。 39。 and 密碼=39。 amp。 amp。 39。, ) Dim dr As New SqlDataAdapter(cmd) Dim ds As New DataSet (ds, kkk) 39。 If (0). = 0 Then If (kkk). = 0 Then () Else 39。 qx = (KKK).Rows(0,權限). 39。 = 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 E