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

　　

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