【導(dǎo)讀】息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷。通過分析某一學(xué)校學(xué)生管理的不足，創(chuàng)建了一套行。之有效的計(jì)算機(jī)管理學(xué)生的方案。設(shè)計(jì)部分主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫設(shè)計(jì)及代碼設(shè)計(jì)；好，操作簡單，比較實(shí)用。管理信息系統(tǒng)、學(xué)生管理、VisualBasic應(yīng)用。

　　

【正文】 zzz = MsgBox(對不起，沒有此班級的檔案記錄！ , vbOKOnly, 查詢 ) (0) (0).SetFocus End If 44 End If End Sub Private Sub cmddel_Click() qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能刪除記錄，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If Dim mrc As Dim msgtext As String Dim intcount 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ù)嗎？ 45 , 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_Activate End Sub 46 Private Sub cmdfind_Click() End Sub Private 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 If End Sub 47 Private 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 1 End Sub Private Sub cmdprintall_Click() If = adStateOpen Then End If (select * from class) If = True Then sssss = MsgBox( 沒有當(dāng)前記錄！ , vbOKOnly + 48 vbExclamation, 警告 ) Exit Sub End If 1 End Sub Private Sub Form_Activate() If classfind = True Then 0 End If If classfind = True Then Exit Sub ElseIf classmodi = True Then classshowdata 39。 TreeView1_DblClick 39。 classmodi = False Else classtree End If 39。If classfind = True Then 39。 Exit Sub 39。Else 39。 49 39。End If End Sub Public Sub classtree() Dim nodex As Node Dim mrc As Dim mrc1 As Dim str As String Dim a As String a = 年級 = tvwRootLines str = 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), 50 2, 2) End If Loop a = a amp。 1 Loop Set mrc = Nothing Set mrc1 = Nothing End Sub Private Sub TreeView1_DblClick() On Error GoTo ss If = 0 Then Exit Sub End If txtsql = () txtsql = select * from class where 年級 =39。 amp。 Trim(txtsql) amp。 39。 or 班級 =39。 amp。 Trim(txtsql) amp。 39。 order by 年級 ,班級 printstr = txtsql = 瀏覽班級 51 Exit Sub ss: End Sub 52 在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)驗(yàn)方面都存在著不足。另外，在整 個(gè)開發(fā)的過程中，時(shí)間也比較倉促。因此，該系統(tǒng)必然會存在一些缺陷和不足。因?yàn)閷W(xué)生管理的整個(gè)流程不夠熟悉，在需求分析時(shí)未能做到完全滿足用戶的需求。雖然網(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ā)這個(gè)系統(tǒng)，我掌握了的項(xiàng)本過程，了解了的基本知識鞏固了我對 Visual Basic 的學(xué)習(xí)，但在這次畢業(yè)設(shè)計(jì)中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會了設(shè)計(jì)系統(tǒng)的思維方法， 53 以及與同學(xué)們之間相互幫助的精神。 致 謝 在論文即將完成之際，回顧緊張但又充實(shí)的學(xué)習(xí)班和開發(fā)過程，本人在此向所有關(guān)心我的及幫助我的老師和同學(xué)們致以最真誠的感謝。 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老 師 劉老師， 身上學(xué)到了很多東西。 他 認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到很大 的提高 ， 這對于我以 后 的工作和學(xué)習(xí)都有一種巨大的幫助， 在此 感謝他耐心的輔導(dǎo)。 在撰寫論文階段，劉老師幾次審閱我們的論文，提 出 了許多寶貴意見，沒有她的指導(dǎo)，我們就不能較好的完成課題設(shè)計(jì)的任務(wù)。 另外， 我還要感謝在這幾年來對我有 所 教導(dǎo)的老師，他們 孜孜不倦的教誨不但讓我學(xué)到了很多知識，而且讓我掌握了學(xué)習(xí)的方法， 54 更教會了我做人處事的道理，在此表示感謝。同時(shí)，在 系統(tǒng)開發(fā)過程中還有同組的同學(xué) 也 給 了 我不少幫助，這里一并表示感謝。 參考文獻(xiàn) [1] 周佩德 .《數(shù)據(jù)庫原理及應(yīng)用》 .電子工業(yè)出版社 [2] 劉炳文等， VISUAL BASIC 程序設(shè)計(jì) —— 數(shù)據(jù)庫篇， 1999 [3] 李光明 .《 Visual Basic 編程實(shí)例大制作》 .冶金工業(yè)出版社 [4] 劉炳文，精通 VISUAL BASIC 入門與提高，人民郵電出版社 [5] 黃淼云 .《 辦公自動化編程》 .國防工業(yè)出版社 [6] 王要武，管理系統(tǒng)，電子工業(yè)出版社， 2020 [7] 李紅等編著，管理信息系統(tǒng)開發(fā)與應(yīng)用，電子工業(yè) 出版社， 2020 [8] 周之英縞著，現(xiàn)代軟件工程，科學(xué)出版社， 2020 [9] 康博工作室，張紅軍，王紅等縞著《 Visual Basic 中文版高級應(yīng)用與開發(fā)指南》，人民郵電出版社， 2020 年 4 月第一版 [10] 林立軍，程斌，翁迪恩縞著《 Visual Basic 數(shù)據(jù)庫開發(fā)指南》，西安電子科技大學(xué)出版社， 2020 年 2 月第一版 [11] 張宏林，孔艷，王 哲等編著?！栋磳?shí)例學(xué) Visual Basic 北京，人民郵電 出版社， 2020 55 [12] 宋偉，吳建國等編著《中文 Visual Basic 編程基礎(chǔ)》，北京，清華大學(xué)出版社 [13] [美 ]Jeffrey 著趙學(xué)鎖，龔波，李志，曹天偉等譯《 Visual Basic 數(shù)據(jù)庫存訪問技術(shù)》， 2020 年 3 月第一版