【正文】 息設(shè)置、查詢 模塊 ④ 智育成績(jī)?cè)O(shè)置、查詢、打印 模塊 ⑤ 體育成績(jī)?cè)O(shè)置、查詢 模塊 ⑥ 能力類型設(shè)置、查詢 模塊 ⑦ 能力成績(jī)?cè)O(shè)置、查詢、打印 模塊 ⑧ 綜合測(cè)評(píng)成績(jī)?cè)O(shè)置、查詢、打印等 模塊 以上模塊所實(shí)現(xiàn)的 功能就是 本系統(tǒng)的主要功能，實(shí)現(xiàn)了對(duì)學(xué)生的基本信息管理和綜合素質(zhì)測(cè)評(píng)成績(jī)管理等相關(guān)的管理功能。本系統(tǒng)對(duì)學(xué)生的德育、智育、體育、能力等成績(jī)進(jìn)行智能化管理，以滿 足我系學(xué)生在計(jì)算機(jī)上進(jìn)行綜合素質(zhì)測(cè)評(píng)的需求。此功能的實(shí)現(xiàn)旨在 取代手工記錄 的 工作效率低，錯(cuò)誤多，不利于存儲(chǔ)和管理 等 的 劣勢(shì) 而 發(fā)揮 無紙化 管理 工作的 高 效率，減輕教師 以及 學(xué)生干部 的工作負(fù)擔(dān)，使學(xué)生 基本信息 管理簡(jiǎn)潔化、自動(dòng)化 和 計(jì)算機(jī)化 。主窗 口使用了類似于 Word 的多文檔窗口。 C/S結(jié)構(gòu)的優(yōu)點(diǎn) ： 應(yīng)用 系統(tǒng)獨(dú)立、系統(tǒng)維護(hù)簡(jiǎn)單，用戶界面一致； 對(duì)于 應(yīng)用程序的修改、功能增刪或者升級(jí) 等 非常方便；對(duì) 于 客戶端沒有特別的要求， 無須具備運(yùn)行平臺(tái)也可，本系統(tǒng)發(fā)布時(shí)，可將其所需組件一起打包發(fā)布 ， 安裝 后 即可使用，而且 使用方便。 每個(gè)在校大學(xué)生，不論其來自哪個(gè)系哪個(gè)專業(yè)都是使用這個(gè)系統(tǒng)來注冊(cè)自 己的基本信息、這樣方便學(xué)院管理層對(duì)全院學(xué)生進(jìn)行信息管理。 技術(shù) 上的 可 行性 當(dāng)前的軟、硬件技術(shù)都在不斷的發(fā)展進(jìn)步，這對(duì)本系統(tǒng)的開發(fā)來說是非常有利的。 系統(tǒng) 開發(fā) 的 可行性分析 管理上的可行性 本系統(tǒng) 的開發(fā)，將實(shí)現(xiàn)兩大功能目標(biāo)：一是實(shí)現(xiàn)學(xué)生的基本信息管理，以 取代手工記錄的紙質(zhì)管理模式，這將大大 減輕教師 、學(xué)生干部等相關(guān)工作人員 的工作負(fù)擔(dān) ，同時(shí)節(jié)省時(shí)間，提高工作效率；二是實(shí)現(xiàn)學(xué)生綜合素質(zhì)測(cè)評(píng)的管理，以取代傳統(tǒng)的查閱大量原始資料后手工填制綜合素質(zhì)測(cè)評(píng)表的費(fèi) 時(shí)費(fèi)勁的工作方法，使每學(xué)期的學(xué)生綜合素質(zhì)測(cè)評(píng)工作能夠高效地進(jìn)行， 所以 本系統(tǒng) 的設(shè)計(jì)開發(fā) 在管理上是可行的。 2 第 1 章 需求分析 系統(tǒng) 開發(fā) 的 背景分析 國(guó) 外 現(xiàn)狀 隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)技術(shù)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)。 XXXXXXX大 學(xué) 畢 業(yè) 設(shè) 計(jì) （ 論 文 ） 題目： _VB 學(xué)生信息管理系統(tǒng)設(shè)計(jì) I 學(xué)生信息管理系統(tǒng)設(shè)計(jì) 【摘要】 學(xué)生信息管理系統(tǒng) 是典型的管理信息系統(tǒng) (MIS)，其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù) ， 以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。 為 適應(yīng) 本校 學(xué)生綜合信息管理的需求 ， 實(shí)現(xiàn)應(yīng)用計(jì)算機(jī)對(duì)學(xué)生的基本信息以及綜合素質(zhì)測(cè)評(píng) 信息 進(jìn)行管理， 使學(xué)生 綜合信息 管理 實(shí)現(xiàn) 簡(jiǎn)潔化、自動(dòng)化、計(jì)算機(jī)化 ，開發(fā)一個(gè)相應(yīng)的學(xué)生 信息管理系統(tǒng)將會(huì)是一個(gè)具有理論和實(shí)際意義的 明智之舉 。學(xué)生 信息 管理 系統(tǒng)的應(yīng)用是一種趨勢(shì)，必將發(fā)揮出 越來越大 的作用！ 盡管 現(xiàn)在很多學(xué)校都有計(jì)算機(jī)，但是尚未用于信息管理，沒有發(fā)揮出計(jì)算機(jī)應(yīng)有 的效力，資源閑置比較突出， 這 些都可以成為本 信息 管理 系統(tǒng)的開發(fā)的基本環(huán)境。由本系統(tǒng)在處理學(xué)生信息管理上所帶來的人力的節(jié)省可以使人才資源得到更加合理的利用；財(cái)力的節(jié)省可加快資金周轉(zhuǎn)速度，從而降低成本；存儲(chǔ)空間的節(jié)省以及 數(shù)據(jù) 保管的便利進(jìn)一步降低了管理費(fèi)用 ， 所以 本系統(tǒng)的設(shè)計(jì)開發(fā)在 經(jīng)濟(jì)上是可行的。本人作為一名計(jì)算機(jī)專業(yè)的學(xué)生，開發(fā)一個(gè) 學(xué)生 信息 管理系統(tǒng)目的 是使 本 校 擁有一個(gè)兼學(xué)生基本信息管理與綜合素質(zhì)測(cè)評(píng) 管理 于一體的信息管理系統(tǒng)，原因是： ① 本校 的學(xué)生信息管理置于本科生應(yīng)用系統(tǒng)之下。 5 第 2 章 系統(tǒng)總體設(shè)計(jì) 本系統(tǒng)由前臺(tái)和后臺(tái)模塊構(gòu)成 ， 采用 C/S（ Client/Server,客戶端 /服務(wù)器 ）結(jié)構(gòu)設(shè)計(jì) 。 ③ 使用可視化 面向?qū)ο蟮某绦蛟O(shè)計(jì)語言 Visual Basic 和數(shù)據(jù)庫(kù)管理工具 Access 20xx開發(fā)。 實(shí)現(xiàn)學(xué)生的基本信息管理，這是根據(jù)管理學(xué)生信息的需要，將各個(gè)學(xué)生的基本信息分類，開發(fā)不同的子功能模塊，如有基本信息模塊、教育經(jīng)歷信息模塊等。在評(píng)定 中對(duì)學(xué)生的德育、智育、體育以及能力成績(jī)進(jìn)行相應(yīng)的考核，再根據(jù)該綜合素質(zhì)測(cè)評(píng)成績(jī)對(duì)學(xué)生頒發(fā)相應(yīng)的獎(jiǎng)助學(xué)金。 本模塊 所實(shí)現(xiàn)的功能為： ① 用戶基本信息設(shè)置 ② 用戶信息查詢 ③ 添加、修改、刪除、保存用戶信息 MDI 窗體（系統(tǒng)主窗體）模塊。在系統(tǒng)開發(fā)的過程中，最重要的環(huán)節(jié)就是數(shù)據(jù) 庫(kù)的結(jié)構(gòu)設(shè)計(jì)。在 Visual Basic 環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows 內(nèi)部的應(yīng)用程序接口 (API)函數(shù)，以及動(dòng)態(tài)鏈接庫(kù) (DLL)、動(dòng)態(tài)數(shù)據(jù)交換 (DDE)、對(duì)象的鏈接與嵌入 (OLE)、開放式數(shù)據(jù)訪問 (ODBC)等技術(shù)，可以高效、快速地開發(fā)出 Windows 環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng) 。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而 Visual Basic 則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法 (OOP)，把程序和數(shù)據(jù)封裝起來作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。 ① 標(biāo)題欄和菜單欄 標(biāo)題欄是屏幕 最 頂 端 的水平條，他顯示的是應(yīng)用程序的名字。當(dāng) 打開一個(gè)新的工程文件時(shí)， VB 建立一個(gè)空的窗體，并命名為 FormX（ X＝ 1， 2， 3...） ④ 工程管理器 用來管理開發(fā)一個(gè) VB 程序所需要的各種類型的窗體和模塊，含有建立一個(gè)應(yīng)用程序所需要的文件的清單。 Microsoft Access 20xx 簡(jiǎn)介 Microsoft Access 20xx 是一種關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng) (RDBMS)。表由記錄組成，記錄由字段組成，表用來存貯數(shù)據(jù)庫(kù)的數(shù)據(jù)，故又稱數(shù)據(jù)表。數(shù)據(jù)訪問頁(yè)還可以包括其他來源的數(shù)據(jù)，例如 Microsoft Excel。 amp。 圖 系統(tǒng)主窗體 24 圖 層疊排列子窗體 本窗體實(shí)現(xiàn)以上功能的部分特色代碼如下： Private Sub mmuCascade_Click() IsSP = False IsCZ = False IsCD = True vbCascade 39。 本窗體界面運(yùn)行效果如圖 所示。 Trim(strClass) amp。 Trim(strGrade) amp。 Trim(TxtNo) amp。 39。 月 amp。 amp。 年 amp。 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 輸入無效，取消查詢操作！ , vbCritical, 系統(tǒng)提示 Exit Sub End If = select * from 體育成績(jī) where 學(xué)號(hào) =39。 學(xué)號(hào)： amp。 Trim(.Fields!基 本得分 ) amp。 信息錄入者： amp。 amp。修改信息身份驗(yàn)證 MsgBox 很抱歉，您不是本條記錄的錄入者，您不能對(duì)此記錄進(jìn)行修改！ , vbCritical, 修改信息 Exit Sub End If strFenShu = InputBox(該同學(xué)的該類型能力成績(jī)?yōu)? amp。 Time amp。 Month(Date) amp。 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ī)的錄入、修改、查詢和刪除等功能。 vbCr amp。 Trim(.Fields!姓名 ) amp。 If 1 Then MsgBox 查詢結(jié)束，無學(xué)號(hào)為 amp。 日 amp。 amp。IsEnableDy (False) = False End If 智育成績(jī)?cè)O(shè)置子窗體 本子窗體模塊實(shí)現(xiàn)了對(duì)學(xué)生的智育成績(jī)進(jìn)行相關(guān)設(shè)置的功能，包括對(duì)智育成績(jī)的錄入、修改、查詢和刪除等功能。 39。 本窗體的運(yùn)行效果如圖 所示。 Trim(strClass) amp。 Trim(TxtNo) amp。 Trim(strGrade) amp。如下圖 所示： 圖 學(xué)生信息設(shè)置子窗體 本窗體實(shí)現(xiàn)“保存記錄”時(shí)所執(zhí)行的部分代碼如下： With .Fields!學(xué)號(hào) = Trim(TxtNo) .Fields!姓名 = Trim(TxtName) 26 If Opt(0).Value = True Then .Fields!性別 = 男 Else .Fields!性別 = 女 End If .Fields!年齡 = Trim(TxtAge) .Fields!民族 = Trim(TxtMZ) .Fields!籍貫 = Trim(TxtJG) .Fields!通信地址 = Trim(TxtAddress) .Fields!聯(lián)系電話 = Trim(TxtPhone) .Fields!備注 = Trim(TxtBZ) .Fields!所屬年級(jí) = Trim(strGrade) .Fields!所屬班級(jí) = Trim(strClass) .Fields!信息錄入者 = Trim(strUser) .Fields!信息錄入時(shí)間 = Trim(strTime) .Update End With 學(xué)生信息查詢主窗體 本子窗體模 塊實(shí)現(xiàn)了對(duì)之前所述的學(xué)生相關(guān)信息的查詢，以及對(duì)查詢結(jié)果的打印等功能。登錄成功 strUser = Trim(TxtName) strSF = Trim(CmbSF) MsgBox 歡迎使用本系統(tǒng)！ , vbInformation, 登錄成功 Unload Me 23 End Sub 系統(tǒng)主窗體 系統(tǒng) 主窗體是整個(gè)系統(tǒng)的核心，在這里，幾乎將系統(tǒng)所有的功能都囊括其中。 數(shù)據(jù)庫(kù)表設(shè)計(jì) 首先創(chuàng)建一個(gè)名為 “ ”的數(shù)據(jù)庫(kù) ，保存在 和系統(tǒng)工程源文件同一個(gè)目錄下的“數(shù)據(jù)庫(kù)”文件夾中，然后 根據(jù) 本 系 學(xué) 生綜合 信息 管理 系統(tǒng)的一般工作過程和用戶需求的研究分析， “學(xué)生信息 表 ” 中包括 編號(hào)、學(xué)號(hào)、姓名、性別、年齡、民族、籍貫、通信地址、聯(lián)系電話、備注等這些字段，則可使用設(shè)計(jì)器創(chuàng)建表，輸入上述字段名稱，并設(shè)好數(shù)據(jù)類型，即可得到“學(xué)生信息設(shè)計(jì)表”，由此表就可生成“學(xué)生信息 表 ”了。窗體也稱表單。 ② Access 數(shù)據(jù)庫(kù)一般 適合于 桌面應(yīng)用程序， 以及中小型企業(yè)的數(shù)據(jù)庫(kù)管理系統(tǒng) 應(yīng)用 。屬性是用戶界面中對(duì)象性質(zhì)的描述。 ② 工具欄 工具欄位于菜單欄的下面，它以圖標(biāo)的形式提供了部分常用菜單命令的功能，通過鼠標(biāo)點(diǎn)擊這些快捷按鈕可以加快程序開發(fā)的速度。 Visual Basic 語句簡(jiǎn)單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語法錯(cuò)誤 檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。 Visual Basic 提供了可視化設(shè)計(jì)工具，把 Windows 界面設(shè)計(jì)的復(fù)雜性 “ 封裝 ” 起來，開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。 本系統(tǒng) 數(shù)據(jù)庫(kù) 設(shè)計(jì)的 表 如圖 所示 ： 圖 本系統(tǒng)數(shù)據(jù)庫(kù)表 數(shù)據(jù)庫(kù)表結(jié)構(gòu) 本系統(tǒng)共涉及到 13 張數(shù)據(jù)表，分別是系統(tǒng)用戶信息表、學(xué)生用戶信息表、學(xué) 生信息表、德育類型設(shè)置表、德育成績(jī)?cè)O(shè)置表、缺勤扣分設(shè)置表、課程信息設(shè)置表、智育成績(jī)?cè)O(shè)置表、體育成績(jī)?cè)O(shè)置表、能力類型設(shè)置表、能力成績(jī)?cè)O(shè)置表、綜合素質(zhì)測(cè)評(píng)成績(jī)?cè)O(shè)置表 、訪前設(shè) 設(shè)置 表 等，其各種表的結(jié)構(gòu)分別如下所示： ? 系統(tǒng)用戶信息表 列名 數(shù)據(jù)類型 長(zhǎng)度 允許空 編號(hào) 自動(dòng)編號(hào) 長(zhǎng)整形 否 用戶名 文本 50 否 用戶密碼 文本 50 否 用戶性別 文本 10 否 用戶身份 文本 50 否 真實(shí)姓名 文本 50 否 11 聯(lián)系電話 文本 50 否 所屬部門 文本 50 否 記住用戶名 文本 10 否 記住密碼 文本 10 否 ? 學(xué)生用戶信息表 列名 數(shù)據(jù)類型 長(zhǎng)度 允許空 編號(hào) 自動(dòng)編號(hào) 長(zhǎng)整形 否 帳號(hào) 文本 50 否 密碼 文本 50 否 信息錄入者 文本 50 否 信息錄入時(shí)間 文本 50 否 ? 學(xué)生信息表 列名 數(shù)據(jù)類型 長(zhǎng)度 允許空 編號(hào) 自動(dòng)編號(hào) 長(zhǎng)整形 否 學(xué)號(hào) 文本 20 否 姓名 文本 20 否 性別 文本 10 否 年齡 數(shù)字 整形 否 民族 文本 50 否