【正文】 If Trim(Text2) Then sql = sql + and 總節(jié)次 =39。 If Trim(Text3) Then sql = sql + and 缺課事由 =39。 If 忽略 Then If Len(Trim()) 3 Then sql = sql + and 第 n周 =39。 Else sql = sql + and 第 n周 =39。 End If End If If 忽略 Then sql = sql + and 節(jié)次 =39。 If 忽略 Then sql = sql + and 總節(jié)數(shù) = amp。 39。 39。 39。 39。 39。 39。 Exit Sub Else = 5040 End If n = MsgBox(顯示的為滿足條件的記錄，是否真的要全部刪除！ ， 36， 刪除嗎？ ) If n = vbYes Then Do While Not If Then Exit Do Loop MsgBox 成功刪除！ End If 考勤表的查詢 界面如圖 27所示： 圖 27 考勤表查詢 考勤表的查詢和個人情況表的查詢設計思想是一樣的。同樣，再輸入查詢條件的時候，在文本框中，要不輸入數(shù)據(jù)的規(guī)范格式，要不然就不輸入數(shù)據(jù)。 Trim(Text1) amp。 amp。 amp。 amp。 amp。 amp。 Trim(Text2) If Trim(Text3) Then sql = sql + or 缺課事由 =39。 If 忽略 Then sql = sql + or 第 n周 =39。 If 忽略 Then sql = sql + or 節(jié)次 =39。 If 忽略 Then sql = sql + or 星期幾 =39。 End If = select * from kaoqinbiao where amp。）在單擊了修改按鈕之后，還要看他是不是管理員，是管理員才能繼續(xù)使用，不是的話，出現(xiàn)提示， 你不是管理員，不能使用此項功能！ 在單擊了修改按鈕的同時，它的名字就變?yōu)楸４?。如下所示? Dim sql As String If Then sql = 1 If Trim(Text1) Then sql = sql + and 學號 =39。 If Trim(Text2) Then sql = sql + and 綜合評定 =39。 If Trim(Text3) Then sql = sql + and 成績評定 =39。 If Trim(Text4) Then sql = sql + and 獎學金 = amp。 39。 39。 39。 39。 39。 Trim() amp。 Trim() amp。在這個界面中，有一個學年項，此項是根據(jù)現(xiàn)在的時間，動態(tài)添加的。 Trim(str(Year(Date) 2)) Trim(str(Year(Date) 2)) amp。 Trim(str(Year(Date))) = Trim(str(Year(Date) 3)) amp。這個瀏覽按鈕的意思是可以查看原來添加或是剛才添加的數(shù)據(jù)。此處 不再詳細說明。 成績排名 界面如圖 214 所示： 圖 214 成 績排名表單 在這個表單中可以按學年查詢某個課程的成績排名情況。它的查詢代碼如下： 商丘師范學院 2021 屆本科畢業(yè)論文（設計） 19 Dim sql As String sql = 1 If Then = select distinct 學號 from xuexichengji where 學年 =39。 Trim(str(Year(Date))) amp。 xh amp。 Trim() amp。 Trim() amp。 order by 成績 desc = amp。 amp。它的代碼如下： Dim sql As String sql = 1 sql = sql + and 學年 =39。 sql = sql + and 考試科目 =39。 If Text1 = Then MsgBox 請輸入分數(shù)！ : Exit Sub sql = sql + and 成績 amp。 order by 成績 If Then MsgBox 沒有要找的分數(shù)段！ 等級考試模塊、個人成績模塊、選修成績刪除模塊 . 1 刪除模塊的界面 等級考試刪除界面如圖 216所示： 圖 216 等級考試記錄的刪除 個人學習成績刪除的界面如圖 217所示： 商丘師范學院 2021 屆本科畢業(yè)論文（設計） 21 圖 217 學習成績刪除 選修成績刪除的界面如圖 218所示： 圖 218 選修成績刪除 這三個表單的刪除模塊沒有什么特別之后，也是用 ADO 來實現(xiàn)的。第二步，查詢一下是不是已經添加過了，如果沒有添加過，就進行第三步添加，如果添加過了，就告訴查詢者此項數(shù)據(jù)已經添加過。 39。 39。 39。類似于 Win95的資源管理器的界面就可以用該控件來實現(xiàn)。接著看兩次輸入的密碼是不是一致，不一樣的話，同樣給出提示。點了確定之后，按現(xiàn)在登陸的管理員的名字和剛才輸入的舊密碼進行查詢（查詢時也要對密碼進行加密），如果找到了這個用戶，就可以進行修改密碼。 amp。 : Exit Sub i = 1 code = 商丘師范學院 2021 屆本科畢業(yè)論文（設計） 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 您已經修改成功！ 登陸模塊 登陸模塊的設計思想是先看登陸者的身份，是管理員還是學生。你輸入的用戶名不存在，就會 出現(xiàn)提示。密碼正確時，用戶就可以以管理員的身份進入，并且可以進行任何操作。 Trim(Text1) amp。 Trim(Text1) amp。 amp。 num + 1 amp。具體用下面的代碼來實現(xiàn)： = Provider=。Persist Security Info=False = select * from 表名 結束語 經過兩個多月的設計和開發(fā)，學生信息管理系 統(tǒng)基本開發(fā)完畢。 參考文獻 [1] 黃德才 .數(shù)據(jù)庫原理及其應用教程 [M].北京 :北京科學出版社 ,2021. [2] 宏才 .數(shù)據(jù)庫原理與應用設計 [M].成都 :西南交通大學出版社 ,2021. [3] 王道榮 ,林信成 .Visual Basic 6數(shù)據(jù)庫處理 [M].北京 :中國鐵道出版社 ,2021. [4] 李春葆 ,張植民 .Visual Basic 數(shù)據(jù)庫系統(tǒng)設計與開發(fā) [M].北京 :清華大學出版社 ,1999. [5] Craig Eddy,Timothy Access 2021 24學時教程 [M].北京 :機械工業(yè)出版 社 ,2021. [6] 羅朝盛 . Visual Basic 程 序設計實踐指導 [M].杭州 :浙江科學技術出版社 ,2021. [7] (美 )Microsoft公司 .Visual Basic [M].北京 :希望電子出版社 ,2021. [8] (美 )Hector CarciaMolina,Jeffrey ,Jennifer [M].北京 :機械工業(yè)出版社 ,2021. [9] Bob Reselman， Richard Peasley， Wayne Basic 使用指南 [M].北京 :電子工業(yè)出版社 ,1998. [10] (美 )Don Vilen,周立柱 ,建華 ,小峰 ,朝暉 .Server數(shù)據(jù)庫原理 —— 設計與實現(xiàn) [M].北京 :清華大學出版社 ,2021. [11] 汪洋 ,錢貴平 ,王一賓 .高校學生信息管理系統(tǒng)的設計與實現(xiàn) [J].電腦學習 ,2021,(01). [12] 賀鈞 ,鄭彥平 .學生成績管理系統(tǒng)的設計與實現(xiàn) [J].現(xiàn)代電子技術 ,2021,(17). 商丘師范學院 2021 屆本科畢業(yè)論文（設計） 30 致 謝 此次畢業(yè)論文的撰寫過程中 ， 非常感謝畢業(yè)論文指導老師馬玉潔對我的精心指導和大力幫助。 本文所介紹的基于 vb技術的學生管理系統(tǒng)已經全部完成，也進行了相當多的測試工作，各種要實現(xiàn)的功能已全部實現(xiàn)。 amp。用它和數(shù)據(jù)庫連接來 實現(xiàn)所有與數(shù)據(jù)庫有關的操作。 39。 and amp。 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。 界面如圖 225所示： 圖 225 歡迎進入系統(tǒng) 它的代碼如下： Dim str As String Static num As Integer If = True Then 商丘師范學院 2021 屆本科畢業(yè)論文（設計） 27 gly = False usename = 學生 Unload Me Else If Trim(Text1) = Or Trim(Text2) = Then MsgBox 您是管理員，請輸入用戶名與密碼！ : Exit Sub = select * from user1 where username=39。在和數(shù)據(jù)庫連接查詢時，也要對密碼進行加密。如果你選擇的是管理員的身份進入，那么就要輸入用戶名與密碼。 39。修改之后寫入數(shù)據(jù)庫時，還是要進行加密的。它的代碼如下： Dim str As String If Trim(Text1) = Or Trim(Text2) = Or Trim(Text3) = Then MsgBox 用戶名與密碼都不能缺少！ : Exit Sub If Text2 Text3 Then MsgBox 兩次輸入的密碼不一樣！請重新輸入。在 TreeView控件的屬性中，比較重要的有如下屬性： Add方法，該方法在 TreeView控件的 Nodes集合中添加一個 Node對象，語法如下： (relative， relationship， key， text， image， selectedimage) 用戶管理模塊 需要說明一點的就是，用戶管理這塊，只有是管 理員，才能進行這項操作。 個人交費情況