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