【正文】 最后也是最重要的是要感謝我們的輔導老師 韓天成 導師，沒有韓老師的支持就沒有“傳說會員酒吧”系統(tǒng)。特別感謝：首先特別感謝機電學院可以提供這樣一個學習和交流的機會。最后愿老師身體健康，事業(yè)順利。由于史無前例，所以我們遇到的困難也是空前繁多，從代碼來說就是一個最大的困難，老師那里沒有現(xiàn)成的代碼作為后臺支持，就只能重新為我組的系統(tǒng)重新編程，這讓老師心力交瘁，每次看到老師下課時還加班加點，回家后還熬夜研究，我組成員就感覺虧欠了些什么，是的，我們虧欠了老師對我們的期望，此時此刻，我組、班同學想對您說：“韓老師，您辛苦了，我們將會在以后的學習和生活中更加的努力，決不辜負您對我們的厚愛，不辜負您的一片深情！”實訓的時光真是快如飛梭，轉(zhuǎn)眼間兩周就過去了，也許人生也是這般的匆匆吧。值得一提的是，我理解了什么叫宰相肚里能撐船，韓老師便是例子。點歌系統(tǒng)的所有數(shù)據(jù)不傳回到管理系統(tǒng)中，這樣一個半交互的程序設(shè)計（設(shè)計理念中詳細講述），讓人無奈的是，因為我的工作失誤，導致韓老師和其他團隊成員沒有聽明白我的理念，結(jié)果將點歌系統(tǒng)和管理系統(tǒng)給分離開了，此時的我不知為何居然還和韓老師起了沖突，而后又和付楠在進一步討論中再一次起了沖突，我突然感覺什么叫做曲高和寡，想要放棄這個程序的設(shè)計，但是付楠拒絕了，他告訴我，如果這樣一個小小的分歧和失誤就讓你放棄這個程序的研發(fā)，我相信以后也做不出什么東西。想要畫面漂亮就必須會PhotoShop，但是在我們這個團隊，沒有一個人會用，為了做出更好的窗體，我和付楠拿出了埋起來很久的一本PSCS3 經(jīng)典500例教程，耐心的看了起來，從最初的一知半解到最后的可以完成基本功能，我們付出了很多！當然不僅是時間。就這樣，我們艱難的湊成了一個團隊，所幸的是我們擁有一位學識淵博、學富五車的導師——韓天成老師，韓老師負責最艱難的代碼前期編寫和中期調(diào)試。當下不顧隊員們的反對，向老師申請了做《酒吧點歌/管理系統(tǒng)》。G) = True () Catch ex As Exception MsgBox(Write Error！, ) End Try End Sub Private Sub FqBut_Click(ByVal sender As , ByVal e As ) Handles (DataSet31, 用戶表).CancelCurrentEdit() = False = False = True End Sub Private Sub ScBut_Click(ByVal sender As , ByVal e As ) Handles Try If MsgBox(確要刪除嗎？, ) = Then ((DataSet31, 用戶表).Position).Delete() (DataSet31) End If Catch ex As Exception MsgBox() End Try End Sub Private Sub TcBut_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 管理員系統(tǒng)() () () End Sub Private Sub DataGrid1_Navigate(ByVal sender As , ByVal ne As ) Handles End Sub Private Sub SqlDataAdapter1_RowUpdated(ByVal sender As , ByVal e As ) End Sub Private Sub TextBox1_TextChanged(ByVal sender As , ByVal e As ) Handles End SubEnd Class以上為所有窗體的代碼本人再次聲明：聲明：此代碼僅供學習交流，下載后24小時內(nèi)請自覺刪除，若出現(xiàn)法律糾紛，本組不負任何法律責任或連帶責任。, ) Dim dr As SqlDataReader dr = While ((0)) End While () () Catch ex As Exception MsgBox() End Try End Select End Sub Private Sub 酒水頁面_Load(ByVal sender As , ByVal e As ) Handles End Sub Private Sub CheckedListBox1_SelectedIndexChanged(ByVal sender As , ByVal e As ) End SubEnd Class◆此為明星點歌Public Class 明星點歌 Private Sub Button11_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 點歌系統(tǒng)() () () End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button9_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 Button7_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button10_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 點歌系統(tǒng)() () () End Sub Private Sub PictureBox1_Click(ByVal sender As , ByVal e As ) Handles End SubEnd Class◆此為拼音點歌Public Class 拼音點歌 Private Sub GpxTest(ByVal tb As String) If = 10 Then amp。, ) 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。, ) 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 點歌系統(tǒng)() () () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handl