【正文】 …… 41第一部分 設(shè)計任務(wù)一、課程設(shè)計目的VB設(shè)計是VB程序設(shè)計基礎(chǔ)的重要教學(xué)環(huán)節(jié)，其目的是鞏固和深化VB程序設(shè)計的基礎(chǔ)知識，是學(xué)生進(jìn)行程序設(shè)計的初步訓(xùn)練。并為今后從事應(yīng)用程序開發(fā)打下一定的基礎(chǔ)。四、 設(shè)計理念登錄頁面一、畫圖數(shù)據(jù)管理系統(tǒng)用戶點(diǎn)歌系統(tǒng)用戶管理數(shù)據(jù)庫提供數(shù)據(jù)管理拼音點(diǎn)歌酒水管理明星點(diǎn)歌歌曲管理酒水服務(wù)呼叫吧臺彈出提示二、文字說明 PS：系統(tǒng)預(yù)設(shè)一個賬戶為“管理員”，初始密碼為123456。其次，我們可以將用戶點(diǎn)歌系統(tǒng)看作前臺界面，而數(shù)據(jù)庫作為用戶點(diǎn)歌系統(tǒng)的后臺，數(shù)據(jù)庫主要提供數(shù)據(jù)給用戶點(diǎn)歌系統(tǒng)，主要提供的數(shù)據(jù)為：登錄頁面中的用戶帳號、用戶密碼、用戶等級。故，此系統(tǒng)被稱為半交互系統(tǒng)。（豎置↓）◆◆ 此為“傳說會員酒吧”的【登錄頁面】，此處VIP為系統(tǒng)預(yù)設(shè)管理員賬戶，密碼為123456?！?此為【登錄失敗】頁面，本頁面的出現(xiàn)說明您的VIP號未在數(shù)據(jù)庫中注冊，或者您的密碼被惡意修改、遺忘。最后是歌曲控制中的五個控制按鈕，分別為：快進(jìn)、快退、播放、暫停、停止。（豎置↓）例如12323243243243243243223234423234234423234234◆ 例如我現(xiàn)在單擊了【拼音點(diǎn)歌】按鈕?！?例如我現(xiàn)在單擊了【明星點(diǎn)歌】按鈕?！?此為【酒水服務(wù)】頁面，本頁面擁有三個選項卡，切換后可以看到對應(yīng)的酒水信息。接下來就讓我們來一一了解這些功能帶給我們的便捷！◆ 此為【管理系統(tǒng)】歡迎界面?！?歌曲管理：對數(shù)據(jù)庫中的歌曲信息進(jìn)行添加、刪除、更新、維護(hù)操作。◆ 此為【數(shù)據(jù)庫用戶表】，從此處可以看出，此系統(tǒng)在開發(fā)時預(yù)設(shè)了一個管理員的用戶，其密碼為123456，目的為第一次可以登錄進(jìn)管理員系統(tǒng)，而后在【用戶管理】頁面進(jìn)行刪除操作，并添加新的管理員、用戶。主要信息包括：酒名、酒精度、類型、數(shù)量、單價。在此頁面中我們將可以添加歌曲的名稱、演唱歌手、歌手的語種、歌曲的類型，方便在用戶系統(tǒng)中索引變得更加方便。DataBase=chuanshuohuiyuan。 39。 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 點(diǎn)歌系統(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◆此為點(diǎn)歌系統(tǒng)Public Class 點(diǎn)歌系統(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 點(diǎn)歌系統(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 明星點(diǎn)歌() () () End Sub Private Sub Button9_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 拼音點(diǎn)歌() () () End Sub Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 酒水頁面() () () End Sub Private Sub Button15_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button14_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button13_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button12_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button8_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button5_Click(ByVal sender As , ByVal e As ) End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) End SubEnd C