【正文】 ： Add方法，該方法在 TreeView控件的 Nodes集合中添加一個 Node對象，語法如下： (relative， relationship， key， text， image， selectedimage) 用戶管理模塊 需要說明一點的就是，用戶管理這塊，只有是管 理員，才能進(jìn)行這項操作。 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計） 24 添加模塊 界面如圖 223所示： 圖 223 新用戶添加 用戶管理模塊添加的設(shè)計思想是，先看看它輸入的數(shù)據(jù)是不是完整，如果不完整，給出提示。接著看兩次輸入的密碼是不是一致，不一樣的話，同樣給出提示。如果這些都滿足，才向數(shù)據(jù)庫中寫入，并且寫入的時候?qū)γ艽a進(jìn)行加密。它的代碼如下： Dim str As String If Trim(Text1) = Or Trim(Text2) = Or Trim(Text3) = Then MsgBox 用戶名與密碼都不能缺少！ : Exit Sub If Text2 Text3 Then MsgBox 兩次輸入的密碼不一樣！請重新輸入。 : Exit Sub i = 1 code = length = Len(Text2) Do While (i = length) str = Mid$(Text2， i， 1) If (str = A And str = Z) Then iasc = Asc(str) + 5 If iasc Asc(Z) Then iasc = iasc 26 code = Left$(code， i 1) + Chr$(iasc) ElseIf (str = a And str = z) Then iasc = Asc(str) + 5 If iasc Asc(z) Then iasc = iasc 26 code = Left$(code， i 1) + Chr$(iasc) Else code = Left(code， i 1) + str End If i = i + 1 Loop = select * from user1 (UserName) = Trim(Text1) (Password) = Trim(code) MsgBox 已經(jīng)添加成功！ 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計） 25 修改模塊 界面如圖 224 所示： 圖 224 修改密碼 修改模塊的設(shè)計思想是：首 先輸入舊密碼，與兩次新的密碼。點了確定之后，按現(xiàn)在登陸的管理員的名字和剛才輸入的舊密碼進(jìn)行查詢（查詢時也要對密碼進(jìn)行加密），如果找到了這個用戶，就可以進(jìn)行修改密碼。沒有找到的話，就視為非法用戶，是不能進(jìn)行修改的。修改之后寫入數(shù)據(jù)庫時，還是要進(jìn)行加密的。它的代碼如下： Dim str As String If Trim(Text1) = Or Trim(Text2) = Or Trim(Text3) = Then MsgBox 密碼都不能缺少！ Exit Sub End if i = 1 code = length = Len(Text1) Do While (i = length) str = Mid$(Text1， i， 1) If (str = A And str = Z) Then iasc = Asc(str) + 5 If iasc Asc(Z) Then iasc = iasc 26 code = Left$(code， i 1) + Chr$(iasc) ElseIf (str = a And str = z) Then iasc = Asc(str) + 5 If iasc Asc(z) Then iasc = iasc 26 code = Left$(code， i 1) + Chr$(iasc) Else code = Left(code， i 1) + str End If i = i + 1 Loop = select * from user1 where username=39。 amp。 usename amp。 39。 If Then MsgBox 你的舊密碼不對！ : Exit Sub If Text2 Text3 Then MsgBox 兩次輸入的密碼不一樣！請重新輸入。 : Exit Sub i = 1 code = 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計） 26 length = Len(Text2) Do While (i = length) str = Mid$(Text2， i， 1) If (str = A And str = Z) Then iasc = Asc(str) + 5 If iasc Asc(Z) Then iasc = iasc 26 code = Left$(code， i 1) + Chr$(iasc) ElseIf (str = a And str = z) Then iasc = Asc(str) + 5 If iasc Asc(z) Then iasc = iasc 26 code = Left$(code， i 1) + Chr$(iasc) Else code = Left(code， i 1) + str End If i = i + 1 Loop (Password) = Trim(code) MsgBox 您已經(jīng)修改成功！ 登陸模塊 登陸模塊的設(shè)計思想是先看登陸者的身份，是管理員還是學(xué)生。如果是學(xué)生的話，不用輸入任何信息就可以進(jìn)行，不過就是操作受限制。如果你選擇的是管理員的身份進(jìn)入，那么就要輸入用戶名與密碼。兩項都輸入了之后，就可以進(jìn)行登陸了，這時就要和數(shù)據(jù)庫連接看輸入的是不是正確。你輸入的用戶名不存在，就會 出現(xiàn)提示。如果輸入密碼錯誤的次數(shù)過了三次，也是不能進(jìn)入的。在和數(shù)據(jù)庫連接查詢時，也要對密碼進(jìn)行加密。這樣才能和數(shù)據(jù)庫中的數(shù)據(jù)一致，密碼才會正確。密碼正確時，用戶就可以以管理員的身份進(jìn)入，并且可以進(jìn)行任何操作。用變量 gly 與 usename來記錄用戶的身份與姓名。 界面如圖 225所示： 圖 225 歡迎進(jìn)入系統(tǒng) 它的代碼如下： Dim str As String Static num As Integer If = True Then 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計） 27 gly = False usename = 學(xué)生 Unload Me Else If Trim(Text1) = Or Trim(Text2) = Then MsgBox 您是管理員，請輸入用戶名與密碼！ : Exit Sub = select * from user1 where username=39。 amp。 Trim(Text1) amp。 39。 If Then MsgBox 對不起，用戶名不存在呀！ Text1 = Text2 = Exit Sub End If i = 1 code = length = Len(Text2) Do While (i = length) str = Mid$(Text2， i， 1) If (str = A And str = Z) Then iasc = Asc(str) + 5 If iasc Asc(Z) Then iasc = iasc 26 code = Left$(code， i 1) + Chr$(iasc) ElseIf (str = a And str = z) Then iasc = Asc(str) + 5 If iasc Asc(z) Then iasc = iasc 26 code = Left$(code， i 1) + Chr$(iasc) Else code = Left(code， i 1) + str End If i = i + 1 Loop = select * from user1 where username=39。 amp。 Trim(Text1) amp。 39。 and amp。 password=39。 amp。 Trim(code) amp。 39。 If Then If num 2 Then MsgBox 密碼不對，請重新輸入！這是您的第 amp。 num + 1 amp。 次 Text2 = num = num + 1 Exit Sub Else 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計） 28 MsgBox 您的記性好像不是太好！請檢查你的密碼！ End End If End If gly = True usename = Trim(Text1) Unload Me End If ADO 控件 這個學(xué)生管理系統(tǒng)最主要的組成部分就是 ADO 控件。用它和數(shù)據(jù)庫連接來 實現(xiàn)所有與數(shù)據(jù)庫有關(guān)的操作。并且不管這個學(xué)生管理系統(tǒng)拷貝到什么目錄下，都能運(yùn)行。具體用下面的代碼來實現(xiàn)： = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from 表名 結(jié)束語 經(jīng)過兩個多月的設(shè)計和開發(fā)，學(xué)生信息管理系 統(tǒng)基本開發(fā)完畢。其功能符合學(xué)校信息管理的基本需求及各類相關(guān)報表的打印，并提供系統(tǒng)維護(hù)功能，使用戶能方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除，對于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。 本文所介紹的基于 vb技術(shù)的學(xué)生管理系統(tǒng)已經(jīng)全部完成，也進(jìn)行了相當(dāng)多的測試工作，各種要實現(xiàn)的功能已全部實現(xiàn)。 本學(xué)生管理系統(tǒng)，隨著科學(xué)的發(fā)展以及應(yīng)用領(lǐng)域的不斷深化和擴(kuò)大，必將對它提出新的要求和挑戰(zhàn)，我們將利用一切新技術(shù)新方法使學(xué)生管理系統(tǒng)更完善。 參考文獻(xiàn) [1] 黃德才 .數(shù)據(jù)庫原理及其應(yīng)用教程 [M].北京 :北京科學(xué)出版社 ,2021. [2] 宏才 .數(shù)據(jù)庫原理與應(yīng)用設(shè)計 [M].成都 :西南交通大學(xué)出版社 ,2021. [3] 王道榮 ,林信成 .Visual Basic 6數(shù)據(jù)庫處理 [M].北京 :中國鐵道出版社 ,2021. [4] 李春葆 ,張植民 .Visual Basic 數(shù)據(jù)庫系統(tǒng)設(shè)計與開發(fā) [M].北京 :清華大學(xué)出版社 ,1999. [5] Craig Eddy,Timothy Access 2021 24學(xué)時教程 [M].北京 :機(jī)械工業(yè)出版 社 ,2021. [6] 羅朝盛 . Visual Basic 程 序設(shè)計實踐指導(dǎo) [M].杭州 :浙江科學(xué)技術(shù)出版社 ,2021. [7] (美 )Microsoft公司 .Visual Basic [M].北京 :希望電子出版社 ,2021. [8] (美 )Hector CarciaMolina,Jeffrey ,Jennifer [M].北京 :機(jī)械工業(yè)出版社 ,2021. [9] Bob Reselman， Richard Peasley， Wayne Basic 使用指南 [M].北京 :電子工業(yè)出版社 ,1998. [10] (美 )Don Vilen,周立柱 ,建華 ,小峰 ,朝暉 .Server數(shù)據(jù)庫原理 —— 設(shè)計與實現(xiàn) [M].北京 :清華大學(xué)出版社 ,2021. [11] 汪洋 ,錢貴平 ,王一賓 .高校學(xué)生信息管理系統(tǒng)的設(shè)計與實現(xiàn) [J].電腦學(xué)習(xí) ,2021,(01). [12] 賀鈞 ,鄭彥平 .學(xué)生成績管理系統(tǒng)的設(shè)計與實現(xiàn) [J].現(xiàn)代電子技術(shù) ,2021,(17). 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計） 30 致 謝 此次畢業(yè)論文的撰寫過程中 ， 非常感謝畢業(yè)論文指導(dǎo)老師馬玉潔對我的精心指導(dǎo)和大力幫助。從課題的選擇到論文的最終完成，馬老師給我提供了 許多寶貴的建議，也給予我極大的啟示，在此謹(jǐn)向馬老師致以誠摯的謝意和崇高的敬意，再次感謝馬老師﹗