【正文】 tcount As Integer If Trim((, 1)) = Then sssss = MsgBox(你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub End If If MsgBox(確定要刪除班級為 amp。 Trim((, 2)) amp。 的記錄嗎？ amp。 Chr(13) amp。 Chr(10) amp。 繼續(xù)會導(dǎo)致該班級在成績和學(xué)費(fèi)記錄的數(shù)據(jù)丟失，繼續(xù)嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then txtsql = delete * from xj where 班級=39。 amp。 Trim((, 2)) amp。 39。 Set mrc = ExecuteSQL(txtsql) txtsql = delete * from jf where 學(xué)號 in (select from xj where 班級=39。 amp。 Trim((, 2)) amp。 39。) Set mrc = ExecuteSQL(txtsql) 39。刪除在交費(fèi)表中的所有該班級的記錄 txtsql = delete * from cj where 學(xué)號 in (select from xj where 班級=39。 amp。 Trim((, 2)) amp。 39。) Set mrc = ExecuteSQL(txtsql) 39。刪除在成績表中的所有該班級的記錄 txtsql = delete * from class where 班級=39。 amp。 Trim((, 2)) amp。 39。 Set mrc = ExecuteSQL(txtsql) 39。刪除該班級的記錄 End If zxh = MsgBox(記錄成功刪除！, vbOKOnly, 查詢) txtsql = select* from class classshowtitle classshowdata Call Form_ActivateEnd SubPrivate Sub cmdfind_Click()End SubPrivate Sub cmdmodi_Click()If Trim((, 1)) = Then sssss = MsgBox(你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub Else qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能修改記錄，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If classmodi = True 0 Call Form_Activate End IfEnd SubPrivate Sub cmdprint_Click() If Trim(printstr) = Then sssss = MsgBox(沒有當(dāng)前記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub End If If = adStateOpen Then End If printstr If = True Then sssss = MsgBox(沒有當(dāng)前記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub End If 1End SubPrivate Sub cmdprintall_Click()If = adStateOpen Then End If (select * from class) If = True Then sssss = MsgBox(沒有當(dāng)前記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub End If 1End SubPrivate Sub Form_Activate()If classfind = True Then 0End IfIf classfind = True Then Exit SubElseIf classmodi = True Then classshowdata 39。 TreeView1_DblClick39。 classmodi = FalseElse classtreeEnd If39。If classfind = True Then39。 Exit Sub39。Else39。 39。End IfEnd SubPublic Sub classtree()Dim nodex As NodeDim mrc As Dim mrc1 As Dim str As StringDim a As Stringa = 年級 = tvwRootLinesstr = select distinct 年級 from class order by 年級Set mrc = ExecuteSQL(str)str = select distinct 年級,班級 from class order by 年級,班級Set mrc1 = ExecuteSQL(str)39。Do Until Set nodex = (, , a, (0), 1, 1) Do While Not If (0) = (0) Then Set nodex = (a, tvwChild, , (1), 2, 2) End If Loop a = a amp。 1 Loop Set mrc = Nothing Set mrc1 = NothingEnd SubPrivate Sub TreeView1_DblClick()On Error GoTo ssIf = 0 ThenExit SubEnd Iftxtsql = () txtsql = select * from class where 年級=39。 amp。 Trim(txtsql) amp。 39。 or 班級=39。 amp。 Trim(txtsql) amp。 39。 order by 年級 ,班級 printstr = txtsql = 瀏覽班級Exit Subss:End Sub在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)驗方面都存在著不足。另外，在整個開發(fā)的過程中，時間也比較倉促。因此，該系統(tǒng)必然會存在一些缺陷和不足。因為對學(xué)生管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。雖然網(wǎng)絡(luò)在學(xué)生管理系統(tǒng)中的應(yīng)用不是很多，但是未來的發(fā)展方向，在本次開發(fā)過程由于硬件的限制，未能實(shí)現(xiàn)網(wǎng)絡(luò)功能，因此在以后的系統(tǒng)更新過程中可能會造成一些不必要的數(shù)據(jù)損失。盡管本管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點(diǎn)是本管理系統(tǒng)所必需的。相信本學(xué)生管理系統(tǒng)是一套學(xué)校在日常管理中必不可少的管理軟件，通過開發(fā)這個系統(tǒng)，我掌握了的項本過程，了解了的基本知識鞏固了我對Visual Basic ，但在這次畢業(yè)設(shè)計中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會了設(shè)計系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。 致 謝 在論文即將完成之際，回顧緊張但又充實(shí)的學(xué)習(xí)班和開發(fā)過程，本人在此向所有關(guān)心我的及幫助我的老師和同學(xué)們致以最真誠的感謝。在本次畢業(yè)設(shè)計中，我從指導(dǎo)老師劉老師，身上學(xué)到了很多東西。他認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到很大的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，在此感謝他耐心的輔導(dǎo)。在撰寫論文階段，劉老師幾次審閱我們的論文，提出了許多寶貴意見，沒有她的指導(dǎo)，我們就不能較好的完成課題設(shè)計的任務(wù)。另外，我還要感謝在這幾年來對我有所教導(dǎo)的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識，而且讓我掌握了學(xué)習(xí)的方法，更教會了我做人處事的道理，在此表示感謝。同時，在系統(tǒng)開發(fā)過程中還有同組的同學(xué)也給了我不少幫助，這里一并表示感謝。參考文獻(xiàn)[1] 周佩德.《數(shù)據(jù)庫原理及應(yīng)用》.電子工業(yè)出版社[2] 劉炳文等，VISUAL BASIC程序設(shè)計——數(shù)據(jù)庫篇，1999[3] 李光明.《Visual Basic 》.冶金工業(yè)出版社[4] 劉炳文，精通VISUAL BASIC ，人民郵電出版社[5] 黃淼云.《》.國防工業(yè)出版社[6] 王要武，管理系統(tǒng)，電子工業(yè)出版社，2003[7] 李紅等編著，管理信息系統(tǒng)開發(fā)與應(yīng)用，電子工業(yè)出版社，2003[8] 周之英縞著，現(xiàn)代軟件工程，科學(xué)出版社，2003[9] 康博工作室，張紅軍，王紅等縞著《Visual Basic 》，人民郵電出版社，2001年4月第一版[10] 林立軍，程斌，翁迪恩縞著《Visual Basic 》，西安電子科技大學(xué)出版社，2000年2月第一版[11] 張宏林，孔艷，王哲等編著。《按實(shí)例學(xué)Visual Basic 北京，人民郵電出版社，2000[12] 宋偉，吳建國等編著《中文Visual Basic 》，北京，清華大學(xué)出版社[13] [美]Jeffrey ，龔波，李志，曹天偉等譯《Visual Basic 》，2000年3月第一版