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

　　

【正文】 ue Next i 江西藍(lán)天學(xué)院畢業(yè)論文 32 = 添加班級(jí)設(shè)置 For i = 0 To 3 (i).Text = Next i = 0 End Sub Public Sub xfbrowse() txtsql = select * from xuefei order by 學(xué)期 desc, 年級(jí) desc,專(zhuān)業(yè) desc (0) = 瀏覽學(xué)費(fèi)設(shè) 置 End Sub Private Sub xuefeibrowse_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If 江西藍(lán)天學(xué)院畢業(yè)論文 33 End Sub Private Sub xuefeifind_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) i = SetWindowPos(, 1, 0, 0, 0, 0, 3) End Sub 本模塊是本系統(tǒng)的安全性設(shè)置模塊，根據(jù)學(xué)校不同部門(mén)以及不同使用人員對(duì)本系統(tǒng)的要求和需要，從而實(shí)行了分級(jí)管理，對(duì)用戶的權(quán)限和類(lèi)別進(jìn)行了分類(lèi)管理。 江西藍(lán)天學(xué)院畢業(yè)論文 34 圖 新曾用戶界面 Private Sub Command1_Click() If Trim(Text1(0).Text) = Then MsgBox 用戶名不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If If Trim(Text1(1).Text) = Then MsgBox 密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit Sub End If If Trim(Text1(2).Text) = Then MsgBox 確認(rèn)密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If 江西藍(lán)天學(xué)院畢業(yè)論文 35 If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 確認(rèn)密碼不正確！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If Dim aa As Integer aa = 0 If Option1(2).Value = True Then For i = 0 To 3 If Check1(i).Value = 1 Then aa = 1 Exit For End If Next i If aa = 0 Then MsgBox 普通用戶至少要有一項(xiàng)權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If End If Dim mrc As txtsql = select * from use where username=39。 amp。 Trim(Text1(0).Text) amp。 39。 Set mrc = ExecuteSQL(txtsql) 江西藍(lán)天學(xué)院畢業(yè)論文 36 If = False Then MsgBox 已存在該用戶！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit Sub End If txtsql = select * from use Set mrc = ExecuteSQL(txtsql) (0) = Trim(Text1(0).Text) (1) = Trim(Text1(1).Text) For i = 0 To 2 If Option1(i).Value = True Then Select Case i Case 0 (admin) = y Case 1 (readonly) = y Case 2 For j = 0 To 3 If Check1(j).Value = 1 Then Select Case j Case 0 (qx1) = y 江西藍(lán)天學(xué)院畢業(yè)論文 37 Case 1 (qx2) = y Case 2 (qx3) = y Case 3 (qx4) = y End Select End If Next j End Select End If Next i MsgBox 用戶添加成功！ , vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End Sub Private Sub Command2_Click() Unload Me End Sub 江西藍(lán)天學(xué)院畢業(yè)論文 38 Private Sub Form_Load() Option1(2).Value = True End Sub Private Sub Form_Resize() Text1(0).SetFocus End Sub Private Sub Option1_Click(Index As Integer) If Index 2 Then For i = 0 To 3 Check1(i).Enabled = False Next i Else For i = 0 To 3 Check1(i).Enabled = True Next i End If End Sub 江西藍(lán)天學(xué)院畢業(yè)論文 39 第 5 章 總結(jié) 與展望 在本系統(tǒng)的開(kāi)發(fā)過(guò)程中，由于本人是初次開(kāi)發(fā)軟件，在知識(shí)、經(jīng)驗(yàn)方面都存在著不足。另外，在整個(gè)開(kāi)發(fā)的過(guò)程中，時(shí)間也比較倉(cāng)促。因此，該系統(tǒng)必然會(huì)存在一些缺陷和不足。因?yàn)閷?duì)學(xué)生管理的整個(gè)流程不夠熟悉，在需求分析時(shí)未能做到完全滿足用戶的需求。雖然網(wǎng)絡(luò)在學(xué)生管理系統(tǒng)中的應(yīng)用不是很多，但是未來(lái)的發(fā) 展方向，在本次開(kāi)發(fā)過(guò)程由于硬件的限制，未能實(shí)現(xiàn)網(wǎng)絡(luò)功能，因此在以后的系統(tǒng)更新過(guò)程中可能會(huì)造成一些不必要的數(shù)據(jù)損失。 盡管本管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫(kù)管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點(diǎn)是本管理系統(tǒng)所必需的。相信本學(xué)生管理系統(tǒng)是一套學(xué)校在日常管理中必不可少的管理軟件，通過(guò)開(kāi)發(fā)這個(gè)系統(tǒng)，我掌握了的項(xiàng)本過(guò)程，了解了的基本知識(shí)鞏固了我對(duì) Visual Basic 的學(xué)習(xí)，但在這次畢業(yè)設(shè)計(jì)中的最大收獲并不是掌握這幾門(mén)開(kāi)發(fā)工具的應(yīng)用，而是學(xué)會(huì)了設(shè)計(jì)系統(tǒng)的思維方 法，以及與同學(xué)們之間相互幫助的精神。 江西藍(lán)天學(xué)院畢業(yè)論文 40 致 謝 在論文即將完成之際，回顧緊張但又充實(shí)的學(xué)習(xí)班和開(kāi)發(fā)過(guò)程，本人在此向所有關(guān)心我的及幫助我的老師和同學(xué)們致以最真誠(chéng)的感謝。 在本次畢業(yè)設(shè)計(jì)中，我從 羅老師， 身上學(xué)到了很多東西。 她 認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到 很大 的提高 ， 這對(duì)于我以 后 的工作和學(xué)習(xí)都有一種巨大的幫助， 在此 感謝他耐心的輔導(dǎo)。在撰寫(xiě)論文階段，羅老師幾 次審閱我們的論文，提出了許多寶貴意見(jiàn)，沒(méi)有她的指導(dǎo)，我們就不能較好的完成課題設(shè)計(jì)的任務(wù)。 另外， 我還要感謝在這 三 年來(lái)對(duì)我有所教導(dǎo)的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識(shí)，而且讓我掌握了學(xué)習(xí)的方法，更教會(huì)了我做人處事的道理，在此表示感謝。同時(shí)，在 系統(tǒng)開(kāi)發(fā)過(guò)程中還有同組的同學(xué) 也 給 了 我不少幫助，這里一并表示感謝。 江西藍(lán)天學(xué)院畢業(yè)論文 41 參考文獻(xiàn) [1] 周佩德 .《數(shù)據(jù)庫(kù)原理及應(yīng)用》 .電子工業(yè)出版社 [2] 劉炳文等， VISUAL BASIC 程序設(shè)計(jì) —— 數(shù)據(jù)庫(kù)篇， 1999 [3] 李光明 .《 Visual Basic 編程實(shí)例大制作》 .冶金工業(yè)出版社 [4] 劉炳文，精通 VISUAL BASIC 入門(mén)與提高，人民郵電出版社 [5] 黃淼云 .《 辦公自動(dòng)化編程》 .國(guó)防工業(yè)出版社 [6] 王要武，管理系統(tǒng)，電子工業(yè)出版社， 20xx [7] 李紅等編著，管理信息系統(tǒng)開(kāi)發(fā)與應(yīng)用，電子工業(yè)出版社， 20xx [8] 周之英縞著，現(xiàn)代軟件工程，科學(xué)出版社， 20xx [9] 康博工作室，張紅軍，王紅等縞著《 Visual Basic 中文版高級(jí)應(yīng)用與開(kāi)發(fā)指南》，人民郵電出版社， 20xx 年 4 月第一版 [10] 林立軍，程斌，翁迪恩縞著《 Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)指南》，西安電子科技大學(xué)出版社， 20xx 年 2 月第一版 [11] 張宏林，孔艷，王 哲等編著。《按實(shí)例學(xué) Visual Basic 北京，人民郵電 出版社， 20xx [12] 宋偉，吳建國(guó)等編著《中文 Visual Basic 編程基礎(chǔ)》，北京，清華大學(xué)出版社 [13] [美 ]Jeffrey ，龔波，李志，曹天偉等譯《 Visual Basic 數(shù)據(jù)庫(kù)存訪問(wèn)技術(shù)》， 20xx 年 3 月第一版