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