【正文】 yVal e As ) Handles GpxTest(O) End Sub Private Sub Button27_Click(ByVal sender As , ByVal e As ) Handles GpxTest(P) End Sub Private Sub Button28_Click(ByVal sender As , ByVal e As ) Handles GpxTest(Q) End Sub Private Sub Button29_Click(ByVal sender As , ByVal e As ) Handles GpxTest(R) End Sub Private Sub Button30_Click(ByVal sender As , ByVal e As ) Handles GpxTest(S) End Sub Private Sub Button31_Click(ByVal sender As , ByVal e As ) Handles GpxTest(T) End Sub Private Sub Button32_Click(ByVal sender As , ByVal e As ) Handles GpxTest(U) End Sub Private Sub Button33_Click(ByVal sender As , ByVal e As ) Handles GpxTest(V) End Sub Private Sub Button34_Click(ByVal sender As , ByVal e As ) Handles GpxTest(W) End Sub Private Sub Button35_Click(ByVal sender As , ByVal e As ) Handles GpxTest(X) End Sub Private Sub Button36_Click(ByVal sender As , ByVal e As ) Handles GpxTest(Y) End Sub Private Sub Button37_Click(ByVal sender As , ByVal e As ) Handles GpxTest(Z) End Sub Private Sub Button38_Click(ByVal sender As , ByVal e As ) Handles = End Sub Private Sub Button40_Click(ByVal sender As , ByVal e As ) Handles If = 1 Then = Mid(, 1, 1) End If End Sub Private Sub Button11_Click(ByVal sender As , ByVal e As ) Handles Dim frm As New 吧臺呼叫() () () 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 (DataSet31, 用戶表).AddNew() = True = True = False Catch ex As Exception MsgBox() End Try End Sub Private Sub 系部數(shù)據(jù)錄入_Load(ByVal sender As , ByVal e As ) Handles () (DataSet31) = False = False = True = True End Sub Private Sub BcBut_Click(ByVal sender As , ByVal e As ) Handles Try (DataSet31, 用戶表).EndCurrentEdit() () MsgBox(添加成功 OK) = 繼續(xù)(amp。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小時內請自覺刪除，若出現(xiàn)法律糾紛，本組不負任何法律責任或連帶責任。實訓總結千等萬盼終于盼來了我們計信1001班實訓的機會，記得第一天實訓的時候我們小組就已經(jīng)把學生管理系統(tǒng)做了個差不多，雖然沒有代碼，但是窗體已經(jīng)健全，當老師說可以申請做自己想做的系統(tǒng)時，我一沖動便選擇了自己做一個與眾不同的管理系統(tǒng)。當下不顧隊員們的反對，向老師申請了做《酒吧點歌/管理系統(tǒng)》。而后我得到的并不是隊友們的指責，而是信任的眼神，我們下定決心，既然我們選擇了遠方，便只顧風雨兼程！在這個團隊中我主要負責窗體的設計和美工，付楠負責SQL數(shù)據(jù)庫的創(chuàng)建和記錄的錄入，曹春濤主要負責代碼的后期處理和實訓報告打印，屬于贊助商。就這樣，我們艱難的湊成了一個團隊，所幸的是我們擁有一位學識淵博、學富五車的導師——韓天成老師，韓老師負責最艱難的代碼前期編寫和中期調試?？雌饋砣菀鬃銎饋黼y，我們覺得很容易搞的一個程序，居然差點到最后一刻都沒有完成，從起初決定的6個窗體，到現(xiàn)在變成了13個窗體，從起初通過的6個功能到現(xiàn)在的27項基本功能仍然覺得有欠缺，不知道我們修改了多少次，付出了多少的汗水。想要畫面漂亮就必須會PhotoShop，但是在我們這個團隊，沒有一個人會用，為了做出更好的窗體，我和付楠拿出了埋起來很久的一本PSCS3 經(jīng)典500例教程，耐心的看了起來，從最初的一知半解到最后的可以完成基本功能，我們付出了很多！當然不僅是時間。還有一次決策性的失誤，我對于這個設計的理念是用管理系統(tǒng)管理數(shù)據(jù)庫中的數(shù)據(jù)，用點歌系統(tǒng)調用數(shù)據(jù)庫中的數(shù)據(jù)。點歌系統(tǒng)的所有數(shù)據(jù)不傳回到管理系統(tǒng)中，這樣一個半交互的程序設計（設計理念中詳細講述），讓人無奈的是，因為我的工作失誤，導致韓老師和其他團隊成員沒有聽明白我的理念，結果將點歌系統(tǒng)和管理系統(tǒng)給分離開了，此時的我不知為何居然還和韓老師起了沖突，而后又和付楠在進一步討論中再一次起了沖突，我突然感覺什么叫做曲高和寡，想要放棄這個程序的設計，但是付楠拒絕了，他告訴我，如果這樣一個小小的分歧和失誤就讓你放棄這個程序的研發(fā)，我相信以后也做不出什么東西。這句話刺激，不，是激勵了我繼續(xù)做下去的信心，當天中午我便好好理清楚自己的設計理念，把所有環(huán)節(jié)細化，下午在韓老師的幫助下，終于系統(tǒng)的完成了一次重大的規(guī)劃，為本次計劃定向，為設計的成功鋪路。值得一提的是，我理解了什么叫宰相肚里能撐船，韓老師便是例子。用韓老師的話來說，我組的這次系統(tǒng)設計是史無前例的。由于史無前例，所以我們遇到的困難也是空前繁多，從代碼來說就是一個最大的困難，老師那里沒有現(xiàn)成的代碼作為后臺支持，就只能重新為我組的系統(tǒng)重新編程，這讓老師心力交瘁，每次看到老師下課時還加班加點，回家后還熬夜研究，我組成員就感覺虧欠了些什么，是的，我們虧欠了老師對我們的期望，此時此刻，我組、班同學想對您說：“韓老師，您辛苦了，我們將會在以后的學習和生活中更加的努力，決不辜負您對我們的厚愛，不辜負您的一片深情！”實訓的時光真是快如飛梭，轉眼間兩周就過去了，也許人生也是這般的匆匆吧。雖然這次的系統(tǒng)還有許多的漏洞和不盡人意的地方，但是我們捫心自問也是無怨無悔，我們奮斗過就不存在失敗，只是暫時的不成功，下次實訓我們定比這次還要努力，拿出讓自己、讓團體、讓老師、讓用戶看得上、用得好的系統(tǒng)。最后愿老師身體健康，事業(yè)順利。愿同學們學習進步，學業(yè)有成。特別感謝：首先特別感謝機電學院可以提供這樣一個學習和交流的機會。其次要感謝我的團隊，付楠、曹春濤。最后也是最重要的是要感謝我們的輔導老師 韓天成 導師，沒有韓老師的支持就沒有“傳說會員酒吧”系統(tǒng)。您幸苦了！— 44