【正文】 en 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。 在本窗體中，先使用動(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ì)算，然后寫入數(shù)據(jù)庫(kù)并為后述的學(xué)生綜合素質(zhì)測(cè)評(píng)提供相關(guān)的分?jǐn)?shù)計(jì)算依據(jù)。 Trim(CmbName) 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ī)的錄入、修改、查詢和刪除等功能。 Trim(strCh) amp。 vbCr amp。 減分： amp。 在本窗體中，先使用動(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ì)算，然后寫入數(shù)據(jù)庫(kù)并為后述的學(xué)生綜合素質(zhì)測(cè)評(píng)提供相關(guān)的分?jǐn)?shù)計(jì)算依據(jù)。 Trim(CmbName) amp。 月 amp。 日 amp。 If 1 Then MsgBox 該同學(xué)的此類型能力成績(jī)并沒(méi)有錄入，不能修改！ , vbCritical, 系統(tǒng)提示 36 Exit Sub End If If Trim(!信息錄入者 ) Trim(strUser) Then 39。 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。 vbCr amp。 基本分： amp。 vbCr amp。 本窗體的運(yùn)行效果如圖 所示。 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。 31 學(xué)生智育成績(jī)?cè)O(shè)置子窗體 本窗體中實(shí)現(xiàn)智育成績(jī)錄入時(shí)所執(zhí)行的部分代碼如下： = select * from 智育成績(jī) where 學(xué)號(hào) =39。 Month(Date) amp。 Trim() amp。 amp。 amp。 amp。 動(dòng)態(tài)模糊查詢技術(shù)也是本系統(tǒng)的特色功能之一，后面將會(huì)詳加闡述。本系統(tǒng)主界面效果圖分別如圖 、圖 所示。 本系統(tǒng)記錄界 面如下圖 所示： 圖 系統(tǒng)登錄窗體 本窗體點(diǎn)擊“登錄”按鈕時(shí)所執(zhí)行的代碼如下： Private Sub CmdOk_Click() If Trim(TxtName) = Then MsgBox 請(qǐng)先輸入用戶名！ , vbCritical, 用戶登錄 TxtName = 22 Exit Sub End If If Trim(TxtPwd) = Then MsgBox 請(qǐng)先輸入用戶密碼！ , vbCritical, 用戶登 錄 TxtPwd = Exit Sub End If = select * from 用戶信息 where 用戶名 =39。是連接到數(shù)據(jù)庫(kù)的 Web 頁(yè)，在數(shù)據(jù)訪問(wèn) 頁(yè)中，可以查看、添加、編輯和操作存儲(chǔ)在數(shù)據(jù)庫(kù)中的數(shù)據(jù)。 表 (Table) ——表是數(shù)據(jù)庫(kù)的基本對(duì)象，是 創(chuàng)建其他 6 種對(duì)象的基礎(chǔ)。 ⑧ 代碼編輯區(qū)域 “ 代碼編輯區(qū)域 ” ，當(dāng)我們?cè)?“ 窗體設(shè)計(jì)區(qū)域 ” 雙擊鼠標(biāo)，就能彈出這個(gè)區(qū)域，可以看到一行行的 VB 程序顯示在其中，我們可以修改，寫入程序代碼，來(lái)讓程序?qū)崿F(xiàn)一定的功能，它是整個(gè)程序設(shè)計(jì)的關(guān)鍵 。他對(duì)應(yīng)于應(yīng)用程序的運(yùn)行結(jié)果，各種圖形、圖像、數(shù)據(jù)等都是通過(guò)窗體或窗體中的控件顯示出來(lái)的。 Visual Basic 窗口環(huán)境 啟動(dòng) Visual Basic 集成開(kāi)發(fā)環(huán)境 后， 即可以看到 主窗口 的頂部，該窗 口 的頂部 由標(biāo)題欄、菜單欄和工具欄 等 組成。 面向?qū)ο蟮某绦蛟O(shè)計(jì)： 版以后的 Visual Basic 支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言 (C++)不完全相同。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與 Windows 的專業(yè)開(kāi)發(fā)工具 SDK 相媲美，而且程序開(kāi)發(fā)人員不必具有 C/C++編程基礎(chǔ)。 數(shù)據(jù)庫(kù) 數(shù)據(jù) 由 DBMS（數(shù)據(jù)庫(kù)管理系統(tǒng)）處理， DBMS 則由開(kāi)發(fā)人員和用戶通過(guò)應(yīng)用程序直接或間接地使用。 本模塊 所實(shí)現(xiàn)的功能為： ① 用戶身份驗(yàn)證 ② 登錄提示對(duì)話 ③ 登錄成功時(shí)的連接 登錄 成功 綜合成績(jī)查詢 能力成績(jī)?cè)O(shè)置 智育成績(jī)?cè)O(shè)置 學(xué)生信息設(shè)置 德育類型設(shè)置 能力類型設(shè)置 系統(tǒng)用戶管 理 年級(jí)，班級(jí)設(shè)定 學(xué)生信息查詢 學(xué)生用戶管理 德育成績(jī)?cè)O(shè)置 體育成績(jī)?cè)O(shè)置 綜合成績(jī)?cè)O(shè)置 課程信息設(shè)置 系統(tǒng)登錄 (身份識(shí)別 ) 開(kāi)始 系統(tǒng)主窗體 (MDI)窗體 9 用戶管理模塊 。 ⑥ 打印學(xué)生的綜合素質(zhì)成績(jī)單和智育成績(jī)單 實(shí)現(xiàn)學(xué)生綜合素質(zhì)測(cè)評(píng)管理功能，就 是根據(jù) 本校 學(xué)生手冊(cè) 的評(píng)定方法，對(duì)學(xué)生的德育、智育、體育以及能力四個(gè)方面進(jìn)行綜合評(píng)定。 6 ⑤ 如果 查詢 不到相應(yīng)的信息應(yīng)提示用戶。使用菜單和工具條上的命令按鈕圖標(biāo)調(diào)用各子系統(tǒng)的功能模塊。這樣既是對(duì)自己所學(xué)專業(yè)知識(shí)的一次檢驗(yàn) ， 也是希望為本系的信息化建設(shè)貢獻(xiàn) 了 自己的一份綿薄之力。 4 系統(tǒng) 開(kāi)發(fā)的 需求分析 當(dāng)代是一個(gè)信息化的時(shí)代， 本校 已經(jīng)將信息化建設(shè)融入到 了 校園建設(shè)當(dāng)中 ，擁有 了 多種信 息管理系統(tǒng)，例如公眾應(yīng)用系統(tǒng)、本科生應(yīng)用系統(tǒng)、教師應(yīng)用系統(tǒng)等 。隨著現(xiàn)代計(jì)算機(jī)科學(xué)技術(shù)的不斷進(jìn)步，電腦品質(zhì)上升且價(jià)格降至較低價(jià)位，硬件上的優(yōu)勢(shì)有利于本系統(tǒng)的開(kāi)發(fā)與投入運(yùn)行。 經(jīng)過(guò) 30 年的改革開(kāi)放，越來(lái)越多的 學(xué)校 加大 在管理系統(tǒng)上投資的舉動(dòng)，足以說(shuō)明這一趨勢(shì) 。如今，高校信息化管理已成為必然趨勢(shì)。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的數(shù)據(jù)庫(kù)，而對(duì)于后者則要求應(yīng)用程序功能完備，操作簡(jiǎn)單，使用方便等特點(diǎn)。使用計(jì)算機(jī)對(duì)信息進(jìn)行管理 ,具有手工管理所無(wú)法比擬的優(yōu) 點(diǎn)， 例如檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。 3 社會(huì) 上的 可行性 由于我國(guó) 的計(jì)算機(jī)起步較晚，用計(jì)算機(jī)來(lái)實(shí)現(xiàn)對(duì)大量數(shù)據(jù)的管理相對(duì)不夠完善，雖然目前已 經(jīng)出現(xiàn)了很多 管理學(xué)生信息的 系統(tǒng)，但是往往存在著用戶界面不友好，后臺(tái)數(shù)據(jù)混亂，不便于開(kāi)發(fā)新功能等問(wèn)題。軟件要求易學(xué)，界面友好，容易掌握。目前本 系還沒(méi)有一個(gè) 能夠 管理本系學(xué)生基本信息的系統(tǒng)。 系統(tǒng)目標(biāo)設(shè)計(jì) 通過(guò)設(shè)計(jì)并實(shí)施 本 學(xué)生 信息管理系統(tǒng)，使 本 系的學(xué)生綜合信息管理工作系統(tǒng)化、規(guī)范化、自動(dòng)化，從而達(dá)到提高教學(xué)管理效率的目的。通過(guò) ADO 對(duì)象的數(shù)據(jù)環(huán)境控件連接 Access數(shù)據(jù)庫(kù)， 具有一般數(shù)據(jù)庫(kù)管理系統(tǒng)的 添加 、刪除、修改 和查詢 等基本功能，界面友好，操作簡(jiǎn)單。 實(shí)現(xiàn)學(xué)生綜合素質(zhì)測(cè)評(píng) 成績(jī) 管理 ① 根據(jù)教務(wù)處提供的上學(xué)期各門課程成績(jī)和體育成績(jī)進(jìn)行學(xué)生的智育和體育成績(jī)登記。該系統(tǒng)功能的實(shí)現(xiàn)可以有效的幫助教務(wù)處管理學(xué)生成績(jī)，方便學(xué)生查詢自己的成績(jī)，計(jì)算自己的綜合素質(zhì)測(cè)評(píng)成績(jī)。 本系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)技術(shù)在計(jì)算機(jī)軟件鄰域研究中一直是非常重要的主題，從 20 世紀(jì) 60 年代 到現(xiàn)今 ，50 多年來(lái)數(shù)據(jù)庫(kù)技術(shù)得到了迅速發(fā)展，并已形成較 為完整的理論體系和實(shí)用系統(tǒng)。 10 一個(gè)成功的信息管理系統(tǒng)，是建立在許多條件之上的，而數(shù)據(jù)庫(kù) 技術(shù)就 是其中 的 一個(gè)非常重要的條件和關(guān)鍵技術(shù)。如果對(duì)界面的效果不滿意，還要回到程序中修改。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。 菜單欄位于標(biāo)題欄的下面，菜單欄中的菜單命令提供了開(kāi)發(fā)、調(diào)試、保存應(yīng)用程序所需要的工具。當(dāng)我們點(diǎn)擊 “ 添加窗體 ” 便捷工具按鈕后，左圖的 “ VB 工程管理器 ” 中就會(huì)顯示出新添加的窗體，這也就是 “VB 工程管理器 ”的功能，它使我們從總體上把握程序開(kāi)發(fā)的各個(gè)部分。 與其他關(guān)系型數(shù)據(jù)庫(kù)一樣 ， MS Access 充當(dāng) “ 后端 ”， 不但能存儲(chǔ)和管理數(shù)據(jù)，還能編寫數(shù)據(jù)庫(kù)管理軟件，用戶可以通過(guò) Access 提供的開(kāi)發(fā)環(huán)境及工具方便地構(gòu)建數(shù)據(jù)庫(kù)應(yīng)用程序，大部分是直觀的可視化的操作，無(wú)需編寫程序代碼，是一種使用方便、功能較強(qiáng)的數(shù)據(jù)庫(kù)開(kāi)發(fā)工具。 窗體 (Form)——窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。 Access 列出了一些常用的操作供用戶選擇，使用起來(lái)十分方便。 39。水平平鋪?zhàn)哟绑w End Sub 25 Private Sub mmuTileV_Click() IsCD = False IsSP = False IsCZ = True vbTileHorizontal 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。 and 學(xué)號(hào) like 39。 and 所屬班級(jí) =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ī)的錄入、 修改和 查詢等功能。 amp。 日 amp。 39。 月 amp。 Trim(strCh) amp。 vbCr amp。 加分： amp。 vbCr amp。 39。 ,請(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。 先通過(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) 位置上，然后可以使用“全班自動(dòng)排名”功能對(duì)當(dāng)前設(shè)置的班級(jí)所 有錄入的學(xué)生綜合測(cè)評(píng)成