【文章內(nèi)容簡(jiǎn)介】 管理，每學(xué)期對(duì)各個(gè)學(xué)院專(zhuān)業(yè)的課程進(jìn)行編排課表的編排涉及到課程，上課班級(jí)，教師，周次，教室等要素 （ 4）學(xué)生成績(jī)管理：記分冊(cè)打印、 Excel 導(dǎo)出；成績(jī)的自動(dòng) Excel 導(dǎo)入；補(bǔ)考及分冊(cè)的打印、 Excel 導(dǎo)出；補(bǔ)考成績(jī)的自動(dòng) Excel 導(dǎo)入；成績(jī)的手工錄入；補(bǔ)考成績(jī)的手工錄入；等級(jí)考試成績(jī)錄入；期末考試通知單打印；成績(jī)查詢(xún)；成績(jī)相關(guān)字典維護(hù) （ 5）畢業(yè)生管理系統(tǒng)：對(duì)畢業(yè)生進(jìn)行統(tǒng)計(jì)，進(jìn)行畢業(yè)審核，學(xué)位審核，畢業(yè) 證書(shū)打印，畢業(yè)生檔案生成，畢業(yè)生離校處理 （ 6） .用戶(hù)管理：設(shè)置用戶(hù)賬號(hào)名稱(chēng)、 ID、密碼及設(shè)定用戶(hù)管理系統(tǒng)的權(quán)限級(jí)別 11 系統(tǒng) 模型 “教學(xué)管理系統(tǒng)”主要包含新生入學(xué)管理模塊、學(xué)生信息管理模塊、教學(xué)任務(wù)管理模塊、成績(jī)管理模塊、畢業(yè)管理模塊、用戶(hù)管理模塊六個(gè)主要功能模塊。如圖 — 1 所示，這是本系統(tǒng) 的主要模塊功能樹(shù) 結(jié)構(gòu)： 學(xué) 生 基 本 信 息 管 理 模 塊課 程 管 理 模 塊教 學(xué) 管 理 系 統(tǒng)用 戶(hù) 管 理 模 塊畢 業(yè) 生 管 理 模 塊新 生 入 學(xué) 管 理 模 塊成 績(jī) 管 理 模 塊 圖 － 1 系統(tǒng)功能目錄 樹(shù) 12 本系統(tǒng)的數(shù)據(jù)庫(kù)為關(guān)系數(shù)據(jù)庫(kù)，圖 － 2 為數(shù)據(jù)庫(kù)關(guān)系圖： 圖 － 2 數(shù)據(jù)庫(kù)關(guān)系圖 13 第三章 成績(jī) 管理系統(tǒng) 實(shí)現(xiàn) 成績(jī) 管理 系統(tǒng) 功能設(shè)計(jì) 成績(jī)管理 系統(tǒng) 功能 成績(jī)管理是教學(xué)管理事務(wù)中的一個(gè)重要環(huán)節(jié)，它涉及到學(xué)生在校期間的各個(gè)方面的內(nèi)容，如升學(xué)、獎(jiǎng)懲、留級(jí)、畢業(yè)等各個(gè)方面。 而 成績(jī)作為學(xué)生在校學(xué)習(xí)期間的主要考核辦法和憑證， 即使一個(gè)小小的失誤 也會(huì)造成極大的影響，因此 必須對(duì) 學(xué)生 成 績(jī)進(jìn)行詳盡、準(zhǔn)確的 記錄管理。 本系統(tǒng) 主要包含以下功 能： 1． 記分冊(cè)打印及 Excel 導(dǎo)出 2． 成績(jī)的自動(dòng) Excel 導(dǎo)入 3． 補(bǔ)考計(jì)分冊(cè)打印及 Excel 導(dǎo)出 4． 補(bǔ)考成績(jī)的自動(dòng) Excel 導(dǎo)入 5． 成績(jī)手工錄入 6． 補(bǔ)考成績(jī)手工錄入 7． 等級(jí)考試成績(jī)錄入 8． 期末成績(jī)通知單打印 9． 成績(jī)查詢(xún) 10. 成績(jī)相關(guān)字典維護(hù) 14 成績(jī) 管理 系統(tǒng)層次模 型 成績(jī)管理模塊的主要完成學(xué)生成績(jī)導(dǎo)入、導(dǎo)出、學(xué)生成績(jī)編輯等主要功能，詳細(xì)的功能設(shè)計(jì)如圖 － 1 所示： 期 末成 績(jī)通 知單 打印成 績(jī)的 自動(dòng)E x c e l導(dǎo) 入成 績(jī)手 工錄 入補(bǔ) 考 成績(jī) 手 工錄 入成 績(jī) 管理 子 模塊等 級(jí)考 試成 績(jī)錄 入成 績(jī)查 詢(xún)成 績(jī)相 關(guān)字 典維 護(hù)補(bǔ) 考 成績(jī) 的 自動(dòng)E x c e l 導(dǎo)入補(bǔ) 考計(jì) 分冊(cè) 打印 及E x c e l導(dǎo) 出記 分冊(cè) 打印 及E x c e l導(dǎo) 出 圖 － 1 成績(jī)管理系統(tǒng)功能目錄樹(shù) 數(shù)據(jù)庫(kù)設(shè)計(jì) 1．各信息表詳細(xì)設(shè)計(jì) 1） .學(xué)生基本信息 表 表名稱(chēng)標(biāo)示： student 數(shù)據(jù)來(lái)源： 數(shù)據(jù)文件導(dǎo)入（ .dbf）或?qū)W生基本信息維護(hù)手工錄入 表如下表 － 1 所示： 15 表 3. － 1 2） . 校區(qū)信息 表 16 表名稱(chēng)標(biāo)示： campus 數(shù)據(jù)來(lái)源： 通過(guò)學(xué)生基本信息維護(hù)模塊錄入 表如下表 3. － 2 所示： 表 3. － 2 3） . 院系信息 表 表名稱(chēng)標(biāo)示： dept 數(shù)據(jù)來(lái)源： 通過(guò)學(xué)生基本信息維護(hù)模塊錄入 表如下表 3. － 3 所示： 表 3. － 3 4） . 專(zhuān)業(yè)信息 表 表名稱(chēng)標(biāo)示： major 數(shù)據(jù)來(lái)源： 通過(guò)學(xué)生基本信息維護(hù)模塊錄入 表如下表 3. － 4 所示： 17 表 3. － 4 5） . 班級(jí)信息 表 表名稱(chēng)標(biāo)示： class 數(shù)據(jù)來(lái)源： 通過(guò)學(xué)生基本信息維護(hù)模塊錄入 表如下表 3. － 5 所示： 表 3. － 5 6） . 學(xué)生成績(jī) 表 表名稱(chēng)標(biāo)示： score 數(shù)據(jù)來(lái)源： 通過(guò)導(dǎo)入成績(jī)數(shù)據(jù)文件或成績(jī)管理模塊錄入 18 表如下表 － 6 所示： 表 3. － 6 7） . 課程信息 表 表名稱(chēng)標(biāo)示： lecture 數(shù)據(jù)來(lái)源： 通過(guò)教學(xué)任務(wù)管理模塊錄入 表如下表 3. － 7 所示： 表 3. － 7 19 8） . 教學(xué)任務(wù)信息 表 表名稱(chēng)標(biāo)示： teachingmask 數(shù)據(jù)來(lái)源： 通過(guò)教學(xué)任務(wù)管理模塊錄入 表如下表 3. － 8 所示： 表 3. － 8 9） . 字典 表 表名稱(chēng)標(biāo)示： t_zddm 數(shù)據(jù)來(lái)源： 字典維護(hù)模塊錄入 表如下表 3. － 13 所示： 表 3. － 9 20 成績(jī)管理系統(tǒng)各 子模塊設(shè)計(jì) 記分冊(cè) 、補(bǔ)考記分冊(cè) Excel 導(dǎo)入 、 導(dǎo)出 ， 打印 在 記分冊(cè)打印及 Excel 導(dǎo)出 、 成績(jī)的自動(dòng) Excel 導(dǎo)入 、 補(bǔ)考計(jì)分冊(cè)打印及 Excel 導(dǎo)出 、補(bǔ)考成績(jī)的自動(dòng) Excel 導(dǎo)入 等四個(gè)模塊各章節(jié)的設(shè)計(jì)中，所涉及到的都是對(duì) Excel 的讀 寫(xiě)操 作。 從模塊的功能上 分析 ，這四個(gè)模塊編程的核心便是對(duì) Excel 的讀寫(xiě)操作，因此， 對(duì)于這個(gè)四個(gè)模塊的設(shè)計(jì)，同時(shí)也是為了論文描述的方便，本文將他們的設(shè)計(jì)放在這一節(jié)中論述。 在本節(jié)的開(kāi)始 ， 我們先對(duì) 使用 CreateOleObject 方式進(jìn)行 Excel 調(diào)用的具體方法 進(jìn)行一個(gè)介紹，并在“記分冊(cè)打印、 Excel 導(dǎo)出”模塊中給出了一段關(guān)于 “ Excel 導(dǎo)出”的具體實(shí)現(xiàn)的程序代碼 。 1. 關(guān)于“在 Delphi 中操控 Excel” 在以上的 記分冊(cè)打印及 Excel 導(dǎo)出 、 成績(jī)的自動(dòng) Excel 導(dǎo)入 、 補(bǔ)考計(jì)分冊(cè)打印及 Excel導(dǎo)出 、 補(bǔ)考成績(jī)的自動(dòng) Excel 導(dǎo)入 等四個(gè)模塊各章節(jié)的設(shè)計(jì)中，所涉及到的都是對(duì) Excel的操作。從整個(gè)成績(jī)管理系統(tǒng)的角度上看，除了對(duì)成績(jī)進(jìn)行手工錄入修改外，對(duì) Excel 的操作讀寫(xiě)成為本系統(tǒng)的一大難點(diǎn)和亮點(diǎn)。 在 Delphi 中調(diào)用 Excel 可以通過(guò) Delphi 提供的控件完成，也可以使用CreateOleObject 方式調(diào)用。在本系統(tǒng)中使 用的是 后一種方法 ， 因?yàn)檫@種方式能夠真正做到完全控制 Excel 文件，能夠使用 Excel 的所有屬性，可以使用 VBA 宏代碼。 1） . 創(chuàng)建一個(gè)新的 Excel文件 首先要?jiǎng)?chuàng)建一個(gè) OLE對(duì)象， 這 就需要在 Uses區(qū)中加入 ComObj類(lèi) ，這是操作 OLE對(duì)象的函數(shù)集。 建立方法為： v: = createoleobject (‘ Excel. Application39。)； 在此之 后必須在 Excel 中添加工作簿： ，然后把所有的控制變成不可見(jiàn) := False， 接下來(lái)就是對(duì) Excel 的具體操作了。 21 2） . 基本格式的控制 對(duì) Excel的控制 一般是 可以通過(guò)錄制宏， 查看生成的 VBA代碼，然后把生成的代碼改寫(xiě)成符合 Delphi語(yǔ)法的形式 后 便可以使用了?？刂?Excel主要是 對(duì) Excel的每列的數(shù)據(jù)類(lèi)型進(jìn)行合理的設(shè)置，以確保 數(shù)據(jù)完整準(zhǔn)確的導(dǎo)入到數(shù)據(jù)庫(kù)中；其次要 完成 對(duì)行、列 、 單元格合并等 操作 的 合理 設(shè)置，來(lái) 確保 數(shù)據(jù)表的美觀； 在此基礎(chǔ)上，在操作許多 數(shù)據(jù)紀(jì)錄 時(shí)， 需要采用凍結(jié) 窗口，以便操作方便。 下面 就 將 VBA代碼和 Delphi代碼相對(duì)照 ，以便于將 VBA代碼轉(zhuǎn)換為 Delphi代碼，并 詳細(xì)闡述對(duì) Excel基本格式的控制。 說(shuō) 明 VBA代碼 Delphi代碼 選中 A、 B列 Columns(A:B).Select [39。 A:B39。].Select 選中 第 3行 Rows(3:3).Select [39。3:339。].Select 設(shè)定某已選中列數(shù)據(jù)類(lèi)型（文本為 @） = @ := 39。@39。 設(shè)定行高 = 40 := 40 設(shè)定可以自動(dòng)折行 Selection .Wrap Text = True := True 設(shè)定字體 = 宋體 = 39。宋體 39。 設(shè)定字號(hào) = 20 := 20。 合并單元格 = True (True)。 水平居中 = xlCenter := 3 凍結(jié)窗口（前兩列和前三行不隨滾動(dòng)條移動(dòng)） Range(C4).Select = True [39。C439。].Select := True 向單元格中輸入字段名 = 字段名 1 [3, 1].value := 39。字段名 139。 3） . 指定內(nèi)容輸入控制 在 一些特殊的 情況下，要求 對(duì) 數(shù)據(jù)表中某列數(shù)據(jù) 進(jìn)行指定數(shù)值的操作， 比如 在輸入學(xué)生 成績(jī) 評(píng)定 列 時(shí)， 只能輸入“ A、 B、 C、 D、 E”特定的內(nèi)容，來(lái)保證數(shù)據(jù)庫(kù)中數(shù)據(jù)的一致性。 下面給與分別的敘述： 22 VBA代碼 Delphi代碼 Columns(E:E ).Select type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=A， B， C， D， E = True = = 輸入錯(cuò)誤 = = 必須輸入指定的內(nèi)容 = xlIMEModeNoControl = True = True [‘E:E’].Select。 (type := 3, Alert Style := 1, Operator := 1, Formula1 := ‘ A， B， C，D， E’)。 := true。 := 39。39。 := 39。輸入錯(cuò)誤 39。 := 39。39。 := 39。必須輸入指定的內(nèi)容 39。 := 1。 := True。 := True。 4） . 導(dǎo)出數(shù)據(jù)庫(kù)中的基礎(chǔ)數(shù)據(jù)到指定的位置 對(duì) Excel模板 的 控制， 不可避免的會(huì)有 一些基礎(chǔ)數(shù)據(jù) 的 控制，比如學(xué)生或 者 教師 的名單等 需要預(yù)先存放在需要導(dǎo)入的 Excel模板 中。 在 Delphi中可以通過(guò) ADO進(jìn)行 數(shù)據(jù)庫(kù) 的連接 ，那么導(dǎo)出到 Excel的時(shí)候就需要向?qū)?yīng)的每個(gè)單元格中填入 數(shù)據(jù) 庫(kù)中某個(gè)字段的數(shù)據(jù) 。具體實(shí)現(xiàn)如下：本例完成從 Excel表的第四行開(kāi)始填入兩個(gè)字段的內(nèi)容。 With Ado query do Begin for j := 3 to + 2 do //行 Begin for k := 0 to 1 do //列 Begin [j + 1, k + 1].value:= fields[k].As String。 End。 Next。 End。 End。 5） . 鎖定某些指定的單元格 在 Excel中默認(rèn)的情況 下 所有的單元格都是允許 被 鎖定的，因此只需對(duì)不 需要 鎖定的單 23 元格進(jìn)行設(shè)置 即可 。 VBA代碼 Delphi代碼 Range(C4:E1000).Select Selection. Locked = False = False Drawing Objects:=True, Contents:=True, Scenarios:=True [39。C4:E100039。].select。 := false。 := False。 (true,true,true) 若要設(shè)置可以解鎖的密碼就需要下面的設(shè)置 (Password:=39。mima39。,DrawingObjects:=True,Contents:=True,Scenarios:=True)。 6） . 保存工作表 并釋放 OLE對(duì)象 (39。C: \)。 。 。 在 Delphi 中采用 OLE 技術(shù)來(lái)控制 Excel，只需在 Excel 中錄制宏，然后進(jìn)行相應(yīng)的修改就可以在 Delphi 中使用了。 2. 模塊功能 1） . 記分冊(cè)打印、 Excel 導(dǎo)出模塊功能 此模塊的主要功能： 從學(xué)院、專(zhuān)業(yè)、年級(jí)、班級(jí)列表選擇在讀班級(jí)，并顯示其班級(jí)的學(xué)生列表，進(jìn)行記分冊(cè)打印 或?qū)⒂浄謨?cè)導(dǎo)出到 Excel 文 檔 。 2） . 成績(jī)的自動(dòng) Excel 導(dǎo)入模 塊功能 此模塊的功能是將上一模塊中導(dǎo)出的 Excel 文檔（已填寫(xiě)成績(jī)信息的表格）導(dǎo)入數(shù)據(jù)庫(kù)中。在打開(kāi) Excel 文檔后，成績(jī)信息將在窗體中的“成績(jī)預(yù)覽”窗口中顯示出來(lái)，點(diǎn)擊“檢查成績(jī)”按鈕后，用戶(hù)可以對(duì)照其他文件（電子或