【導讀】護，以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)。安全性好的數(shù)據(jù)庫，而對于后者則要求應用程序功能完備，操作簡單，使用方便等特點。過分析，本設計使用Microsoft公司的Access20xx作為后臺數(shù)據(jù)庫，前臺采用VisualBasic. 能擴展，不斷修正和改進，直到形成用戶滿意的可行系統(tǒng)。

　　

【正文】 者 = Trim(strUser) .Fields!信息錄入時間 = Trim(strTime) .Update End With 學生信息查詢主窗體 本子窗體模 塊實現(xiàn)了對之前所述的學生相關信息的查詢，以及對查詢結(jié)果的打印等功能。本窗體內(nèi)采用了動態(tài)模糊查詢技術(shù)，即用戶每輸入一個字符，系統(tǒng)都將會執(zhí)行一次模糊查詢操作，用戶輸入的字符數(shù)越多，查詢到的結(jié)果越少，但越精確；反之，用戶輸入的字符數(shù)越少，查詢到的結(jié)果越多，但越不精確。而且本窗體內(nèi)還提供了兩種查詢方式，分別是按學生學號查詢和按學生姓名查詢，使查詢過程更加靈活方便。 動態(tài)模糊查詢技術(shù)也是本系統(tǒng)的特色功能之一，后面將會詳加闡述。 本窗體界面運行效果如圖 所示。 27 圖 學生信息查詢子窗體 本窗體中實現(xiàn)按“學生 學號”動態(tài)模糊查詢的代碼如下： Private Sub TxtNo_Change() 39。按學生學號動態(tài)模糊查詢 If isPrint2 = True Then Unload FrmPrint2 End If If Trim(TxtNo) Then = select 學號 ,姓名 ,性別 ,年齡 ,民族 ,籍貫 ,通信地址 ,聯(lián)系電話 ,備注 ,信息錄入者 ,信息錄入時間 from 學生信息 where 所屬年級 =39。 amp。 Trim(strGrade) amp。 39。 and 所屬班級 =39。 amp。 Trim(strClass) amp。 39。 and 學號 like 39。* amp。 Trim(TxtNo) amp。 *39。 If 1 Then = 查詢結(jié)束，沒有相關記錄 TxtTiShi = 沒有相關記錄 AllClear 28 Else = 查詢結(jié)果全部顯示（單擊查看詳細） ShowData End If Else = select 學號 ,姓名 ,性別 ,年齡 ,民族 ,籍貫 ,通信地址 ,聯(lián)系電話 ,備注 ,信息錄入者 ,信息錄入時間 from 學生信息 where 所屬年級 =39。 amp。 Trim(strGrade) amp。 39。 and 所屬班級 =39。 amp。 Trim(strClass) amp。 39。 and 學號 =39。 amp。 Trim(TxtNo) amp。 39。 = 按學生學號查詢 TxtTiShi = 按學生學號查詢 End If End Sub 德育成績設置子窗體 本子窗體模塊實現(xiàn)了對學生的德育成績進行相關設置的功能，包括 德育成績的錄入、 修改和 查詢等功能。 在本窗體中，先使用動態(tài)模糊查詢技術(shù)查找到要進行設置的學生相關信息，然后對其相關的德育類型分數(shù)進行選擇和設置，設置完成后，系統(tǒng)會對該學生的德育成績分數(shù)進行自動計算，然后寫入數(shù)據(jù)庫并為后述的學生綜合素質(zhì)測評提供相關的分數(shù)計算依據(jù)。 本窗體的運行效果如圖 所示。 29 圖 學生德育成績設置子窗體 本窗體中實現(xiàn)德育成績錄入時所執(zhí)行的部分代碼如下： = select * from 德育成績 where 學號 =39。 amp。 Trim() amp。 39。 and 德育名稱 =39。 amp。 Trim(CmbName) amp。 39。 If 0 Then MsgBox 該同學的此類型德育成績已經(jīng)存在，錄入失??！請核對后再進行錄入！ , vbCritical, 系統(tǒng)提示 Exit Sub End If With .AddNew .Fields!學號 = Trim() .Fields!姓名 = Trim() 30 .Fields!德育名稱 = Trim(CmbName) .Fields!德育成績 = CCur(Trim(TxtDeFen)) .Fields!所屬年級 = Trim(strGrade) .Fields!所屬班級 = Trim(strClass) .Fields!信息錄入者 = Trim(strUser) .Fields!信息錄入時間 = Trim(Year(Date) amp。 年 amp。 Month(Date) amp。 月 amp。 Day(Date) amp。 日 amp。 Time) .Update End With MsgBox 數(shù)據(jù)錄入成功！ , vbInformation, 系統(tǒng)提示 If MsgBox(是否繼續(xù)對該同學的德育成績進行錄入？ , vbQuestion + vbYesNo, 系統(tǒng)提示 ) = vbYes Then = 0 TxtDeFen = Exit Sub Else 39。IsEnableDy (False) = False End If 智育成績設置子窗體 本子窗體模塊實現(xiàn)了對學生的智育成績進行相關設置的功能，包括對智育成績的錄入、修改、查詢和刪除等功能。 在本窗體中，先使用動態(tài)模糊查詢技術(shù)查找到要進行設置的學生相關信息，然后對其相關的智育成績分數(shù)進行選擇和設置，設置完成后，系統(tǒng)會對該學生的智育成績 分數(shù)進行自動計算，然后寫入數(shù)據(jù)庫并為后述的學生綜合素質(zhì)測評提供相關的分數(shù)計算依據(jù)。 本窗體的運行效果如圖 所示。 31 學生智育成績設置子窗體 本窗體中實現(xiàn)智育成績錄入時所執(zhí)行的部分代碼如下： = select * from 智育成績 where 學號 =39。 amp。 Trim() amp。 39。 and 課程名稱 =39。 amp。 Trim(CmbName) amp。 39。 If 0 Then MsgBox 該同學該課程的課程成績已經(jīng)存在，錄入失敗！請核對后再進行錄入！ , vbCritical, 系統(tǒng)提示 Exit Sub End If With .AddNew .Fields!學號 = Trim() .Fields!姓名 = Trim() 32 .Fields!課程名稱 = Trim(CmbName) .Fields!得分 = CCur(Trim(TxtDeFen)) .Fields!所屬年級 = Trim(strGrade) .Fields!所屬班級 = Trim(strClass) .Fields!信息錄入者 = Trim(strUser) .Fields!信息錄入時間 = Trim(Year(Date) amp。 年 amp。 Month(Date) amp。 月 amp。 Day(Date) amp。 日 amp。 Time) .Update End With MsgBox 數(shù)據(jù)錄入成功！ , vbInformation, 系統(tǒng)提示 If MsgBox(是否繼續(xù)對該同學的課程成績進行錄入？ , vbQuestion + vbYesNo, 系統(tǒng)提示 ) = vbYes Then = 0 TxtDeFen = Exit Sub Else = False End If 體育成績設置子窗體 本子窗體模塊實現(xiàn)了對學生的體育成績進行相關設置的功能，包括對體育成績的錄入、修改、查詢和刪除等功能。 在本窗體中，先使用動態(tài)模糊查詢技術(shù)查找到要進行設置的學生相關信息，然后對其相關的體育成績分數(shù)進行選擇和設置，設置完成后，系統(tǒng)會對該學生的體育成績分數(shù)進行自動計算，然后寫入數(shù)據(jù)庫并為后述的學生綜合素質(zhì)測評提供相關的分數(shù)計算依據(jù)。 本窗體的運行效果如圖 所示。 33 圖 學生體育成績設置子窗體 本窗體中實現(xiàn)學生體育成績“查詢”時的代碼如下： Private Sub CmdDYSch_Click() Dim strCh As String Dim strRut As String strCh = InputBox(請輸入要查詢的學生學號！ , 學生體育成績查詢 ) If Trim(strCh) = Then MsgBox 輸入無效，取消查詢操作！ , vbCritical, 系統(tǒng)提示 Exit Sub End If = select * from 體育成績 where 學號 =39。 amp。 Trim(strCh) amp。 39。 If 1 Then MsgBox 查詢結(jié)束，無學號為 amp。 Trim(strCh) amp。 的同學的任何體育成績記錄！ , vbInformation, 系統(tǒng)提示 34 Exit Sub End If With strRut = 查詢結(jié)果為： amp。 vbCr amp。 學號： amp。 Trim(.Fields!學號 ) amp。 vbCr amp。 姓名： amp。 Trim(.Fields!姓名 ) amp。 vbCr amp。 vbCr strRut = strRut amp。 基本分： amp。 Trim(.Fields!基 本得分 ) amp。 vbCr amp。 加分： amp。 Trim(.Fields!加分 ) amp。 vbCr amp。 減分： amp。 Trim(.Fields!減分 ) amp。 vbCr amp。 信息錄入者： amp。 Trim(.Fields!信息錄入者 ) amp。 vbCr amp。 信息錄入時間： amp。 Trim(.Fields!信息錄入時間 ) End With MsgBox strRut, vbInformation, 查詢結(jié)束 End Sub 能力成績設置子窗體 本子窗體模塊實現(xiàn)了對學生的能力成績進行相關設置的功能，包括對 能力成績的錄入、修改、查詢和刪除等功能。 在本窗體中，先使用動態(tài)模糊查詢技術(shù)查找到要進行設置的學生相關信息，然后對其 相關的能力成績分數(shù)進行選擇和設置，設置完成后，系統(tǒng)會對該學生的能力 成績分數(shù)進行自動計算，然后寫入數(shù)據(jù)庫并為后述的學生綜合素質(zhì)測評提供相關的分數(shù)計算依據(jù)。 本窗體的運行效果如圖 所示。 35 圖 學生能力成績設置子窗體 本窗體中實現(xiàn)學生能力成績“修改”時所執(zhí)行的代碼如下： Private Sub CmdDYCh_Click() Dim strFenShu As String If = 0 Then MsgBox 請先選擇該同學的能力名稱！ , vbCritical, 系統(tǒng)提示 Exit Sub End If = select * from 能力成績 where 學號 =39。 amp。 Trim() amp。 39。 and 能力名稱 =39。 amp。 Trim(CmbName) amp。 39。 If 1 Then MsgBox 該同學的此類型能力成績并沒有錄入，不能修改！ , vbCritical, 系統(tǒng)提示 36 Exit Sub End If If Trim(!信息錄入者 ) Trim(strUser) Then 39。修改信息身份驗證 MsgBox 很抱歉，您不是本條記錄的錄入者，您不能對此記錄進行修改！ , vbCritical, 修改信息 Exit Sub End If strFenShu = InputBox(該同學的該類型能力成績?yōu)? amp。 Trim(!能力成績 ) amp。 ,請輸入要修改的該同學該類型能力成績的新分數(shù)： , 修改能力成績 ) If Trim(strFenShu) = Then MsgBox 輸入無效，取消修改操作！ , vbCritical, 系統(tǒng)提示 Exit Sub End If If Not IsNumeric(Trim(strFenShu)) Or CInt(Trim(strFenShu)) 100 Then MsgBox 您所輸入的新能力成績無效，取消修改操作！ , vbCritical, 系統(tǒng)提示 Exit Sub End If !能力成績 = CCur(Trim(strFenShu)) !信息錄入時間 = Trim(Year(Date) amp。 年 amp。 Month(Date) amp。 月 amp。 Day(Date) amp。 日 amp。 Time amp。 （最新修改時間） ) TiShich End Sub 綜合成績設置子窗體 本子窗體模塊實現(xiàn)了對學生的綜合測評成績的設置功能，包括對綜合測評成績的錄入和 37 查詢等功能。 先通過輸入或者選擇學生的學號找到要進行設置的學生相關信息，然后輸入相應的德智體能成績，或者是可以選擇“自動計算”，此時如果數(shù)據(jù)庫當中已經(jīng)有了相關的數(shù) 據(jù)，系統(tǒng)將會根據(jù)相關的公式自動計算出相應的成績并自動填充到相關 位置上，然后可以使用“全班自動排名”功能對當前設置的班級所 有錄入的學生綜合測評成