【正文】 sql = sql + or 第 n周 =39。 Mid(Trim()， 2， 1) amp。 End If End If If 忽略 Then sql = sql + or 節(jié)次 =39。 Trim() amp。 If 忽略 Then sql = sql + or 總節(jié)數(shù) = amp。 sql If Then MsgBox 沒有滿足條件的記錄！請(qǐng)重輸入。有一點(diǎn)不同的是，它也可以進(jìn)行模糊的查詢與精確的查詢。條件之間的關(guān)系是同時(shí)，還是或商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 14 者的關(guān)系。不輸入數(shù)據(jù)的話，就不按此項(xiàng)查詢，只有輸入了，才按輸入的數(shù)據(jù)進(jìn)行查找。 amp。 39。 Trim(Text2) If Trim(Text3) Then sql = sql + and 缺課事由 =39。 Trim(Text3) amp。 If 忽略 Then sql = sql + and 第 n周 =39。 Trim(Mid(， 2， 2)) amp。 If 忽略 Then sql = sql + and 節(jié)次 =39。 Trim() amp。 If 忽略 Then sql = sql + and 星期幾 =39。 Trim() amp。 Else sql = 0 If Trim(Text1) Then sql = sql + or 學(xué)號(hào) =39。 Trim(Text1) amp。 If Trim(Text2) Then sql = sql + or 總節(jié)次 = amp。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 sql If Then MsgBox 沒有滿足條件的記錄！請(qǐng)重輸入。（必須單擊修改按鈕之后，才可以進(jìn)行修改 。修改完之后，再次單擊，就可以把數(shù)據(jù)存入數(shù)據(jù)庫，并且按鈕的名字變?yōu)樾薷摹＿@里就不加詳細(xì)說明了，只把它的代碼給出。 amp。 39。 amp。 39。 amp。 39。 Trim(Text4) If Trim() 忽略 Then sql = sql + and 學(xué)年 =39。 Trim() amp。 If Trim() 忽略 Then sql = sql + and 學(xué) 期 =39。 Trim() amp。 Else sql = 0 If Trim(Text1) Then sql = sql + or 學(xué)號(hào) =39。 Trim(Text1) amp。 If Trim(Text2) Then sql = sql + or 綜合評(píng)定 =39。 Trim(Text2) amp。 If Trim(Text3) Then sql = sql + or 成績(jī)?cè)u(píng)定 =39。 Trim(Text3) amp。 If Trim(Text4) Then sql = sql + or 獎(jiǎng)學(xué)金 = amp。 amp。 39。 amp。 39。 sql 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 16 If Then MsgBox 沒有符合條件的記錄 !請(qǐng)重新輸入 ! Exit Sub Else = True End if 下面要說的是獎(jiǎng)學(xué)金查詢模塊加載時(shí)的特別之處。當(dāng)前年份減去三，或二，或一來得到在校生的學(xué)年情況。 amp。 amp。 amp。 amp。 大家在界面中一定看到了瀏覽按鈕。它可以把表單放大來實(shí)現(xiàn)。實(shí)際上，它的代碼很簡(jiǎn)單，只有一句如下： = 2760 這個(gè)模塊的學(xué)年項(xiàng)，也是用動(dòng)態(tài)代碼來實(shí)現(xiàn)的。 等級(jí)考試模塊 個(gè)人成績(jī)模塊 選修成績(jī)模塊 等級(jí)考試的界面如圖 211所示： 圖 211 等級(jí)考試查詢 個(gè)人成績(jī)的界面如圖 212所示： 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 18 圖 212 學(xué)習(xí)成績(jī)查詢 選修成績(jī)的界面如圖 213所示： 圖 213 選修成績(jī)查詢 這三個(gè)模塊在查詢界面中都可以修改數(shù)據(jù)，并且設(shè)計(jì)思想是一樣的。在看界面 212時(shí)一定發(fā)現(xiàn)個(gè)人成績(jī)查詢表單上的成績(jī)排名與分?jǐn)?shù)段兩個(gè)按鈕。并且還可以對(duì)三年級(jí)要畢業(yè)的同學(xué)的成績(jī)來一個(gè)總的排名（只要選擇第二個(gè)按鈕就可以），點(diǎn)擊查詢按鈕，就可以把結(jié)果顯示在右邊的DATAGRID框中。用的是 ADODB來實(shí)現(xiàn)的。 amp。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 sql amp。 成績(jī)排名 If Then MsgBox 沒有符合條件的記錄！請(qǐng)重新輸入。Data Source= amp。 \。如果沒有找到滿足條件的記錄，就出現(xiàn)提示 沒有要找的分?jǐn)?shù)段！ 。 amp。 39。 amp。 39。 amp。 sql amp。設(shè)計(jì)思想?yún)⒄湛记诒淼膭h除模塊。 等級(jí)考試模塊、個(gè)人成績(jī)模塊、選修成績(jī)添加模塊 等級(jí)考試添加界面如圖 219所示： 圖 219 等級(jí)考試記錄的添加 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 22 個(gè)人學(xué)習(xí)成績(jī)添加和選修成績(jī)添加的界面如圖 220 所示： 圖 220 a) 學(xué)習(xí)成績(jī)添加 圖 220 b) 選修成績(jī)添加 設(shè)計(jì)思想是：在添加時(shí)，第一步，先看看是不是輸入了完整無缺的數(shù)據(jù)，如果不是的話，就出現(xiàn)提示，然后退出程序。下面以個(gè)人學(xué)習(xí)成績(jī)?yōu)槔齺碚f明，它的代碼如下： If Trim(Text1) = Or Trim(Text2) = Or Trim(Text3) = Then MsgBox 學(xué)號(hào)，考試課程，成績(jī)都不能為空！ Exit Sub End If = select * from jibenqingkuang where 學(xué)號(hào) =39。 Trim(Text1) amp。 If Then MsgBox 基本情況表中不存在此學(xué)號(hào)，請(qǐng)重輸入！ Exit Sub End If = select * from xuexichengji where 學(xué)號(hào) =39。 Trim(Text1) amp。 and 考試科目 =39。 Trim(Text2) amp。 If Not Then MsgBox 學(xué)習(xí)成績(jī)表中存在此學(xué)號(hào)的考試科目成績(jī)，請(qǐng)重輸入或在查詢中修改！ Exit Sub End If = select * from xuexichengji (0) = Trim(Text1) (1) = Trim(Combo1) (2) = Trim(Combo2) (3) = Trim(Text2) (4) = Trim(Text3) MsgBox 記錄添加成功！ Text1 = 000110 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 23 Text2 = Text3 = 在添加完一項(xiàng)之后，我們把文本框 3清空，方便下次的輸入。TreeView一般用于顯示文檔標(biāo)題、索引入口、磁盤上的文件 和目錄或能被有效地分層顯示的其它各種信息。 在設(shè)計(jì)時(shí)可以通過 TreeView控件的屬性頁來指定控件的部分屬性。 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 24 添加模塊 界面如圖 223所示： 圖 223 新用戶添加 用戶管理模塊添加的設(shè)計(jì)思想是，先看看它輸入的數(shù)據(jù)是不是完整，如果不完整，給出提示。如果這些都滿足，才向數(shù)據(jù)庫中寫入，并且寫入的時(shí)候?qū)γ艽a進(jìn)行加密。 : 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è)計(jì)） 25 修改模塊 界面如圖 224 所示： 圖 224 修改密碼 修改模塊的設(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。 usename amp。 If Then MsgBox 你的舊密碼不對(duì)！ : Exit Sub If Text2 Text3 Then MsgBox 兩次輸入的密碼不一樣！請(qǐng)重新輸入。如果是學(xué)生的話，不用輸入任何信息就可以進(jìn)行，不過就是操作受限制。兩項(xiàng)都輸入了之后，就可以進(jìn)行登陸了，這時(shí)就要和數(shù)據(jù)庫連接看輸入的是不是正確。如果輸入密碼錯(cuò)誤的次數(shù)過了三次，也是不能進(jìn)入的。這樣才能和數(shù)據(jù)庫中的數(shù)據(jù)一致，密碼才會(huì)正確。用變量 gly 與 usename來記錄用戶的身份與姓名。 amp。 39。 amp。 39。 password=39。 Trim(code) amp。 If Then If num 2 Then MsgBox 密碼不對(duì)，請(qǐng)重新輸入！這是您的第 amp。 次 Text2 = num = num + 1 Exit Sub Else 商丘師范學(xué)院 2021 屆本科畢業(yè)論文（設(shè)計(jì)） 28 MsgBox 您的記性好像不是太好！請(qǐng)檢查你的密碼！ End End If End If gly = True usename = Trim(Text1) Unload Me End If ADO 控件 這個(gè)學(xué)生管理系統(tǒng)最主要的組成部分就是 ADO 控件。并且不管這個(gè)學(xué)生管理系統(tǒng)拷貝到什么目錄下，都能運(yùn)行。Data Source= amp。 \。其功能符合學(xué)校信息管理的基本需求及各類相關(guān)報(bào)表的打印，并提供系統(tǒng)維護(hù)功能，使用戶能方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除，對(duì)于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。 本學(xué)生管理系統(tǒng)，隨著科學(xué)的發(fā)展以及應(yīng)用領(lǐng)域的不斷深化和擴(kuò)大，必將對(duì)它提出新的要求和挑戰(zhàn)，我們將利用一切新技術(shù)新方法使學(xué)生管理系統(tǒng)更完善。從課題的選擇到論文的最終完成，馬老師給我提供了 許多寶貴的建議，也給予我極大的啟示，在此謹(jǐn)向馬老師致以誠(chéng)摯的謝意和崇高的敬意，再次感謝馬老師﹗