《VB實(shí)訓(xùn)報(bào)告》word版

1、.學(xué) 期： 2010/2011 專 業(yè)： 計(jì)算機(jī)信息管理 班 級(jí)： 計(jì)信1001 姓 名：高培翔、付楠、曹春濤 指導(dǎo)教師： 韓天成 內(nèi)蒙古機(jī)電職業(yè)技術(shù)學(xué)院信息與管理工程系VB課 程 設(shè) 計(jì) 報(bào) 告 評(píng) 語專 業(yè)班 級(jí)學(xué)號(hào)姓 名成績(jī)計(jì)算機(jī)信息管理計(jì)信10011040110107高培翔題目傳說會(huì)員酒吧管理（點(diǎn)歌）系統(tǒng)總體評(píng)價(jià)評(píng)閱人（簽字） 年 月 日VB課 程 設(shè) 計(jì) 報(bào) 告 評(píng) 語專 業(yè)班 級(jí)學(xué)號(hào)姓 名成績(jī)計(jì)算機(jī)信息管理計(jì)信10011040110140付楠題目傳說會(huì)員酒吧管理（點(diǎn)歌）系統(tǒng)總體評(píng)價(jià)評(píng)閱人（簽字） 年 月 日VB課 程 設(shè) 計(jì) 報(bào) 告 評(píng) 語專 業(yè)班 級(jí)學(xué)號(hào)姓 名成績(jī)計(jì)算機(jī)信息管理計(jì)

2、信10011040110111曹春濤題目傳說會(huì)員酒吧管理（點(diǎn)歌）系統(tǒng)總體評(píng)價(jià)評(píng)閱人（簽字） 年 月 日目 錄第一部分 設(shè)計(jì)任務(wù) 6一、 課程設(shè)計(jì)目的 6二、 課程設(shè)計(jì)任務(wù)與要求 6一）基本任務(wù) 6二）開發(fā)工具 6三）設(shè)計(jì)成果6三、 課程設(shè)計(jì)題目及主要功能要求 6一）設(shè)計(jì)題目 7二）主要功能 7四、 設(shè)計(jì)理念 7一）畫圖 7二）文字 7第二部分 窗體及其作用介紹 7一、用戶點(diǎn)歌系統(tǒng) 11二、酒吧管理系統(tǒng) 16第三部分 代碼公示 18第四部分 實(shí)訓(xùn)總結(jié) 41一、 實(shí)訓(xùn)總結(jié) 41二、 特別感謝 41第一部分 設(shè)計(jì)任務(wù)一、課程設(shè)計(jì)目的VB設(shè)計(jì)是VB程序設(shè)計(jì)基礎(chǔ)的重要教學(xué)環(huán)節(jié)，其目的是鞏固和深化VB程序

3、設(shè)計(jì)的基礎(chǔ)知識(shí)，是學(xué)生進(jìn)行程序設(shè)計(jì)的初步訓(xùn)練。通過本課程設(shè)計(jì)，使學(xué)生進(jìn)一步掌握面向?qū)ο蟪绦蛟O(shè)計(jì)的基本思想；掌握常用對(duì)象的基本屬性、事件和方法；掌握基本語法和程序設(shè)計(jì)方法；掌握各種數(shù)據(jù)處理控件的使用方法，掌握數(shù)據(jù)庫應(yīng)用程序的開發(fā)技術(shù)；掌握程序的運(yùn)行、調(diào)試方法。正確建立的程序設(shè)計(jì)思想，能夠根據(jù)用戶提出的要求，設(shè)計(jì)出系統(tǒng)功能框架和數(shù)據(jù)庫，通過程序編碼來實(shí)現(xiàn)系統(tǒng)的各項(xiàng)功能。提高學(xué)生綜合應(yīng)用知識(shí)能力；提高學(xué)生分析問題和解決問題能力；提高撰寫書面報(bào)告能力；訓(xùn)練學(xué)生自主學(xué)習(xí)能力、創(chuàng)新能力和協(xié)作能力；學(xué)生通過查閱資料或參考書，增加對(duì)VB知識(shí)應(yīng)用領(lǐng)域的了解。并為今后從事應(yīng)用程序開發(fā)打下一定的基礎(chǔ)。二、課程設(shè)計(jì)任

4、務(wù)與要求一）基本任務(wù)：開發(fā)一個(gè)面向?qū)ο蟮男⌒蛻?yīng)用系統(tǒng)。學(xué)生自己?jiǎn)为?dú)分組完成。二）開發(fā)工具：Visual Studio 2005和SQL Server 2000三）提交設(shè)計(jì)成果主要包括：（一）課程設(shè)計(jì)報(bào)告書1）封面2）目錄3) 正文（二）提交程序設(shè)計(jì)源代碼三、課程設(shè)計(jì)題目及主要功能要求一）設(shè)計(jì)題目：傳說會(huì)員酒吧管理（點(diǎn)歌）系統(tǒng)二）主要功能：1）用戶點(diǎn)歌系統(tǒng)1、明星點(diǎn)歌2、拼音點(diǎn)歌3、呼叫吧臺(tái)4、酒水服務(wù)2）數(shù)據(jù)管理系統(tǒng)1、用戶管理系統(tǒng)2、酒水管理系統(tǒng)3、歌曲管理系統(tǒng)4、所有數(shù)據(jù)維護(hù)、更新。四、 設(shè)計(jì)理念登錄頁面一、畫圖數(shù)據(jù)管理系統(tǒng)用戶點(diǎn)歌系統(tǒng)用戶管理數(shù)據(jù)庫提供數(shù)據(jù)管理拼音點(diǎn)歌酒水管理明星點(diǎn)歌歌曲

5、管理酒水服務(wù)呼叫吧臺(tái)彈出提示二、文字說明 PS：系統(tǒng)預(yù)設(shè)一個(gè)賬戶為“管理員”，初始密碼為123456。第一次運(yùn)行后通過登錄頁面成功跳轉(zhuǎn)到數(shù)據(jù)管理系統(tǒng)，再通過用戶管理頁面進(jìn)行第一次修改。首先可以講數(shù)據(jù)庫和數(shù)據(jù)庫管理系統(tǒng)看為一個(gè)整體，即數(shù)據(jù)庫管理系統(tǒng)是為管理數(shù)據(jù)庫而存在的，而數(shù)據(jù)庫則是VB.net下數(shù)據(jù)庫管理系統(tǒng)的后臺(tái)程序。數(shù)據(jù)庫管理系統(tǒng)主要作用是對(duì)數(shù)據(jù)庫中用戶表、酒水表、歌曲表做數(shù)據(jù)的添加、刪除、更新、維護(hù)。其次，我們可以將用戶點(diǎn)歌系統(tǒng)看作前臺(tái)界面，而數(shù)據(jù)庫作為用戶點(diǎn)歌系統(tǒng)的后臺(tái)，數(shù)據(jù)庫主要提供數(shù)據(jù)給用戶點(diǎn)歌系統(tǒng)，主要提供的數(shù)據(jù)為：1、登錄頁面中的用戶帳號(hào)、用戶密碼、用戶等級(jí)。2、拼音點(diǎn)歌、明星

6、點(diǎn)歌頁面中的歌曲信息。3、酒水服務(wù)頁面中的酒水信息。最后點(diǎn)完酒水或者呼叫吧臺(tái)時(shí)，直接將用戶點(diǎn)歌系統(tǒng)和酒吧管理系統(tǒng)做一個(gè)數(shù)據(jù)交互，而這里條件有限只能中斷，然后彈出溫馨提示界面，其實(shí)酒吧管理系統(tǒng)，也就是吧臺(tái)是得不到呼叫信息和酒水信息的。故，此系統(tǒng)被稱為半交互系統(tǒng)。窗體及其作用介紹本章我們將為您詳細(xì)介紹本系統(tǒng)中的每一個(gè)窗體及其作用。 此為“傳說會(huì)員酒吧”的【歡迎頁面】，也就是一般所謂的待機(jī)頁面。單擊此頁面任何地方講進(jìn)入【登錄頁面】。（豎置） 此為“傳說會(huì)員酒吧”的【登錄頁面】，此處VIP為系統(tǒng)預(yù)設(shè)管理員賬戶，密碼為123456。首次登錄成功后，可在管理系統(tǒng)下進(jìn)行修改。為了您的個(gè)人賬戶密碼安全，本開發(fā)

7、小組特編輯一個(gè)虛擬小鍵盤供各位用戶使用，小鍵盤的鍵位分別為10、AC、小數(shù)點(diǎn)，完全符合一般錄入密碼要求，也可以使用虛擬鍵盤與實(shí)體鍵盤切換的方式輸入。此為【登錄成功】頁面，此頁面中有兩個(gè)按鈕，指向分別為：【酒吧管理系統(tǒng)】和【用戶點(diǎn)歌系統(tǒng)】。 此為【登錄失敗】頁面，本頁面的出現(xiàn)說明您的VIP號(hào)未在數(shù)據(jù)庫中注冊(cè)，或者您的密碼被惡意修改、遺忘。本頁提示您【密碼錯(cuò)誤，請(qǐng)仔細(xì)核對(duì)后輸入】您最多有三次輸入錯(cuò)誤的機(jī)會(huì)錯(cuò)誤三次后我們將鎖定您的VIP卡單機(jī)重試將再次返回到【登錄頁面】單機(jī)退出將徹底退出【酒吧系統(tǒng)】，也就是進(jìn)入關(guān)機(jī)/待機(jī)狀態(tài)。用戶點(diǎn)歌系統(tǒng)簡(jiǎn)介： 用戶點(diǎn)歌系統(tǒng)是“傳說會(huì)員酒吧”中最重要的板塊之一，本板

8、塊主要包括歌曲狀態(tài)控制中的：靜音、原唱、播放、重播、切歌、音量+、音量- 等功能。同時(shí)還兼有：拼音點(diǎn)歌板塊、明星點(diǎn)歌板塊、呼叫吧臺(tái)板塊、酒水服務(wù)板塊眾多板塊跳板的功能。最后是歌曲控制中的五個(gè)控制按鈕，分別為：快進(jìn)、快退、播放、暫停、停止。接下來就讓我們來一一了解這些功能帶給我們的便捷！ 此為【用戶點(diǎn)歌系統(tǒng)】， 區(qū)域代表歌曲狀態(tài)控制。 區(qū)域四個(gè)按鈕，分別對(duì)應(yīng)四個(gè)窗體。 區(qū)域?yàn)楦枨刂破?。（豎置）例如12323243243243243243223234423234234423234234 例如我現(xiàn)在單擊了【拼音點(diǎn)歌】按鈕。 此為【拼音點(diǎn)歌】頁面，是點(diǎn)歌系統(tǒng)最為核心的一個(gè)頁面，在次頁面中我們將以輸入

9、軟鍵盤上的字符為索引條件索引滿足條件的歌曲名稱。本頁面中扔然包含明星點(diǎn)歌、呼叫吧臺(tái)、酒水服務(wù)三個(gè)核心跳板。去除了歌曲控制的按鈕，仍然保留切歌等常用點(diǎn)歌功能。 例如我現(xiàn)在單擊了【明星點(diǎn)歌】按鈕。 此為【明星點(diǎn)歌】頁面，本頁面中為我們提供了大量的明星信息。我們可以單機(jī)任何一個(gè)明星的頭像或者上面的索引條件，即可跳轉(zhuǎn)到【拼音點(diǎn)歌】頁面完成點(diǎn)歌操作，并且本頁也設(shè)置主頁和返回兩個(gè)按鈕，不選擇明星的情況下也可以返回主菜單。 例如我現(xiàn)在單擊了【酒水服務(wù)】按鈕。 此為【酒水服務(wù)】頁面，本頁面擁有三個(gè)選項(xiàng)卡，切換后可以看到對(duì)應(yīng)的酒水信息。單擊前面的對(duì)鉤選定后再點(diǎn)擊確定將把您的點(diǎn)酒數(shù)據(jù)傳輸?shù)桨膳_(tái)！單擊確定后=此數(shù)據(jù)

10、的傳輸將被默認(rèn)為呼叫服務(wù)特別提示：若單擊【呼叫吧臺(tái)】按鈕，彈出的也是此溫馨提示。酒吧管理系統(tǒng)簡(jiǎn)介： 【管理系統(tǒng)】是“會(huì)員酒吧系統(tǒng)”中另一大板塊，此板塊的主要作用是和SQL數(shù)據(jù)庫做一個(gè)數(shù)據(jù)交互，用這一套VB管理系統(tǒng)管理數(shù)據(jù)庫。用來添加、刪除、維護(hù)數(shù)據(jù)。接下來就讓我們來一一了解這些功能帶給我們的便捷！ 此為【管理系統(tǒng)】歡迎界面。大家可以看到這里有四個(gè)按鈕可供選擇。 用戶管理：對(duì)數(shù)據(jù)庫中的用戶信息進(jìn)行添加、刪除、更新、維護(hù)操作。 酒水管理：對(duì)數(shù)據(jù)庫中的酒水信息進(jìn)行添加、刪除、更新、維護(hù)操作。 歌曲管理：對(duì)數(shù)據(jù)庫中的歌曲信息進(jìn)行添加、刪除、更新、維護(hù)操作。 返回登陸：?jiǎn)螕舸税粹o時(shí)頁面將自動(dòng)跳轉(zhuǎn)到【登錄

11、頁面】，此按鈕可視為管理員、用戶切換的一個(gè)跳板。 例如我現(xiàn)在單擊了【用戶管理】按鈕。此為【用戶管理】頁面，本頁面主要的功能為添加、刪除用戶。 此為【數(shù)據(jù)庫用戶表】，從此處可以看出，此系統(tǒng)在開發(fā)時(shí)預(yù)設(shè)了一個(gè)管理員的用戶，其密碼為123456，目的為第一次可以登錄進(jìn)管理員系統(tǒng)，而后在【用戶管理】頁面進(jìn)行刪除操作，并添加新的管理員、用戶。 例如我現(xiàn)在單擊了【酒水管理】按鈕。 此為【酒水管理】頁面。本頁面主要的功能為添加、刪除酒水信息。主要信息包括：酒名、酒精度、類型、數(shù)量、單價(jià)。 例如我現(xiàn)在單擊了【歌曲管理】按鈕。 此為此為【歌曲管理】頁面。本頁面主要的功能為添加、刪除歌曲信息。在此頁面中我們將可以

12、添加歌曲的名稱、演唱歌手、歌手的語種、歌曲的類型，方便在用戶系統(tǒng)中索引變得更加方便。代碼公布應(yīng)許多好朋友的要求本人在此貼出代碼，聲明：此代碼僅供學(xué)習(xí)交流，下載后24小時(shí)內(nèi)請(qǐng)自覺刪除，若出現(xiàn)法律糾紛，本組不負(fù)任何法律責(zé)任或連帶責(zé)任。此為歡迎界面Public Class 歡迎界面 Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click Dim frm As New 登錄頁面() frm.show() Me.Hide() En

13、d SubEnd Class此為登錄頁面Imports System.DataImports System.Data.SqlClientPublic Class 登錄頁面 Inherits System.Windows.Forms.Form Private Sub GpxTest(ByVal tb As String) If TextBox2.Text.Length <= 6 Then TextBox2.Text &= tb Else Beep() End If End Sub Private Sub Button1_Click(ByVal sender As System.Ob

14、ject, ByVal e As System.EventArgs) Handles Button1.Click GpxTest("1") End Sub Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.

15、Click TextBox1.Text = "" End Sub Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click End End Sub Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click GpxTest("2") En

16、d Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click GpxTest("3") End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End Sub Private Sub Button4_Click(ByVal

17、 sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click GpxTest("A") End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click GpxTest("4") End Sub Private Sub Button6_Click(ByVal sender As System.Obje

18、ct, ByVal e As System.EventArgs) Handles Button6.Click GpxTest("5") End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click GpxTest("6") End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.

19、EventArgs) Handles Button8.Click GpxTest("B") End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click GpxTest("7") End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bu

20、tton10.Click GpxTest("8") End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click GpxTest("9") End Sub Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click GpxTe

21、st("C") End Sub Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click GpxTest("0") End Sub Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click GpxTest(".")

22、End Sub Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click If TextBox1.Text.Length >= 1 Then TextBox1.Text = Mid(TextBox1.Text, 1, TextBox1.Text.Length - 1) End If End Sub Dim Constr As String = "Server=Localhost;DataBase=chuanshuohu

23、iyuan;Integrated Security=SSPI" Dim cn As SqlConnection Dim cmd As SqlCommand Dim cmd1 As SqlCommand Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click Try cn = New SqlConnection(Constr) cn.Open() cmd = New SqlCommand("select * fro

24、m 用戶表 where 用戶名='" & TextBox1.Text & "' and 密碼='" & TextBox2.Text & "'", cn) Dim dr As New SqlDataAdapter(cmd) Dim ds As New DataSet dr.Fill(ds, "kkk") ' If ds.Tables(0).Rows.Count = 0 Then If ds.Tables("kkk").Rows.Coun

25、t = 0 Then 登陸失敗.Show() Else ' qx = ds.Tables(KKK).Rows(0,"權(quán)限"). ' TextBox3.Text = qx 登陸成功.Show() End If cn.Close() Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2

26、.Click End SubEnd Class此為登陸成功Imports System.Windows.FormsPublic Class 登陸成功 Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2

27、.Click Dim frm As New 點(diǎn)歌系統(tǒng)() frm.Show() Me.Hide() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim frm As New 管理員系統(tǒng)() frm.Show() Me.Hide() End Sub Private Sub 登陸成功_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

28、Handles MyBase.Load If qx = "管理員" Then Button1.Enabled = True End If End SubEnd Class此為登錄失敗Imports System.Windows.FormsPublic Class 登陸失敗 Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click Dim frm As New 登錄頁面() frm.Show() Me.Hide(

29、) End Sub Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click End End Sub Private Sub 登陸失敗_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class此為管理員系統(tǒng)Public Class 管理員系統(tǒng) Private Sub Bu

30、tton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim frm As New 歌曲管理() frm.Show() Me.Hide() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim frm As New 用戶管理() frm.Show() Me.Hide() End

31、Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim frm As New 酒水管理() frm.Show() Me.Hide() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim frm As New 登錄頁面() frm.Sho

32、w() Me.Hide() End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End SubEnd Class此為點(diǎn)歌系統(tǒng)Public Class 點(diǎn)歌系統(tǒng) Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click End Sub Priv

33、ate Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click End Sub Private Sub 點(diǎn)歌系統(tǒng)_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Eve

34、ntArgs) End Sub Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click Dim frm As New 登錄頁面() frm.Show() Me.Hide() End Sub Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click End Sub Private S

35、ub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click End Sub Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventAr

36、gs) Handles Label1.Click End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click Dim frm As New 吧臺(tái)呼叫() frm.Show() Me.Hide() End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Cl

37、ick Dim frm As New 明星點(diǎn)歌() frm.Show() Me.Hide() End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Dim frm As New 拼音點(diǎn)歌() frm.Show() Me.Hide() End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

38、Handles Button6.Click Dim frm As New 酒水頁面() frm.Show() Me.Hide() End Sub Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click End Sub Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

39、 End Sub Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click End Sub Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click End Sub Private Sub Button8_Click(ByVal sender As System.Object

40、, ByVal e As System.EventArgs) Handles Button8.Click End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button3_Click(ByVal sender As System.Ob

41、ject, ByVal e As System.EventArgs) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End SubEnd Class 此為歌曲管理Public Class 歌曲管理 Private Sub DataGrid1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles DataGrid

42、1.Navigate End Sub Private Sub Inherits System.Windows.Forms.Form Private Sub AddCmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddCmd.Click Me.DataGrid1.ReadOnly = False Me.DepeID.ReadOnly = False Me.DepeNameTxt.ReadOnly = False Try Me.BindingContext(DataSet21, "

43、DepartmentTable").AddNew() Me.CancelCmd.Enabled = True Me.UpdataCmd.Enabled = True Me.AddCmd.Enabled = False Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub 系部數(shù)據(jù)錄入_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.DataGrid1.CaptionText

44、= Space(13) & "系部信息錄入表" Me.DataSet21.Clear() Me.SqlDataAdapter1.Fill(DataSet21) Me.UpdataCmd.Enabled = False Me.CancelCmd.Enabled = False Me.DepeID.ReadOnly = True Me.DepeNameTxt.ReadOnly = True End Sub Private Sub UpdataCmd_Click(ByVal sender As System.Object, ByVal e As System.EventA

45、rgs) Handles UpdataCmd.Click Try Me.BindingContext(DataSet21, "stuinftable").EndCurrentEdit() Me.SqlDataAdapter1.Update(DataSet21.DepartmentTable) MsgBox("添加成功 OK") AddCmd.Text = "繼續(xù)(&G)" Me.AddCmd.Enabled = True Me.DataGrid1.Select(DataGrid1.CurrentRowIndex) Catch

46、ex As Exception MsgBox("Write Error！", MsgBoxStyle.OkOnly) End Try End Sub Private Sub CancelCmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelCmd.Click Me.BindingContext(DataSet21, "DepartmentTable").CancelCurrentEdit() Me.UpdataCmd.Enabled = Fa

47、lse Me.CancelCmd.Enabled = False Me.AddCmd.Enabled = True End Sub Private Sub DeleteCmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteCmd.Click Try If MsgBox("確要?jiǎng)h除嗎？", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then DataSet21.DepartmentTable.Rows(Me.BindingCont

48、ext(DataSet21, "DepartmentTable").Position).Delete() Me.SqlDataAdapter1.Update(DataSet21) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub ExitCmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitCmd.Click Application.Exit() End Sub P

49、rivate Sub 歌曲管理_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class此為酒水管理Imports System.DataImports System.Data.SqlClientPublic Class 酒水管理 Inherits System.Windows.Forms.Form Private Sub TjBut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TjBut.Click Me.TextBox1.Focus() Me.DataGrid1.ReadOnly = False Me.TextBox1.ReadOnly = False Me.TextBox2.ReadOnly = False Try Me.BindingContext(DataSet41, "酒水表").AddNew() Me.FqBut.Enabled = True Me.BcBut.Ena