學(xué)生管理系統(tǒng)詳細(xì)設(shè)計(jì)說(shuō)明書

1、學(xué)生管理系統(tǒng)詳細(xì)設(shè)計(jì)說(shuō)明書樂(lè)山師范學(xué)院計(jì)算機(jī)科學(xué)系 Attract 工作室2003/08/30編寫說(shuō)明標(biāo)題：詳細(xì)設(shè)計(jì)說(shuō)明書類別：文檔密級(jí)：內(nèi)部編輯軟 件： Microsoft Word 2000中文版版本歷史：版本作者日期備注V1.012002/09/08詳細(xì)設(shè)計(jì)說(shuō)明書V1.0.22003/08/30詳細(xì)設(shè)計(jì)說(shuō)明書編寫目的： 本文檔詳細(xì)描述組成系統(tǒng)的各個(gè)軟件組成部分，包括每個(gè)軟件 模 塊（ 或 類 ）的 屬 性 、方 法 、事 件 ，各 軟 件 模 塊 的 外 部 接 口 說(shuō) 明 ，測(cè) 試要點(diǎn)等內(nèi)容。本文檔由項(xiàng)目組維護(hù)，供項(xiàng)目組使用目錄第 1 章 引言 1.1.1. 項(xiàng)目說(shuō)明 11.2. 項(xiàng)目

2、定義 11.3. 編寫目的 11.4. 參考資料 1第 2 章 程序系統(tǒng)的結(jié)構(gòu) 2.第 3 章 系統(tǒng)功能實(shí)現(xiàn) 3.3.1. 系統(tǒng)控制臺(tái)模塊 33.2. 新生管理子系統(tǒng) 63.3. 學(xué)生在校管理子模塊 213.4. 社團(tuán)組織管理子模塊 413.5. 畢業(yè)生管理子模塊 493.6. 教學(xué)評(píng)價(jià)打分 633.7. 學(xué)生成績(jī)網(wǎng)上查詢 65第 1章 引言1.1. 項(xiàng) 目 說(shuō) 明 項(xiàng)目名稱：樂(lè)山師范學(xué)院學(xué)生管理系統(tǒng)。 項(xiàng)目提出單位：樂(lè)山師范學(xué)院計(jì)算機(jī)科學(xué)系 項(xiàng)目開(kāi)發(fā)者：樂(lè)山師范學(xué)院計(jì)算 機(jī)科學(xué)系 Attract 工作室 項(xiàng)目使用部門：樂(lè)山師范學(xué)院各系科（學(xué)院） 項(xiàng)目建設(shè)單位：樂(lè)山師范學(xué)院計(jì)算機(jī)科學(xué)系1.2.

3、 項(xiàng) 目 定 義系 科 綜 合 管 理 信 息 系 統(tǒng) 是 為 了 適 應(yīng) 現(xiàn) 代 化 學(xué) 校 管 理 的 需 要 ，加 快 推進(jìn)我校數(shù)字化校園建設(shè)、充 分利用校園網(wǎng)，利用網(wǎng)絡(luò)、多媒體等計(jì) 算機(jī)應(yīng)用技術(shù)和手段，提高 辦公效率、改善質(zhì)量的高效管理信息系統(tǒng)。學(xué)生管理系統(tǒng)是系科綜合管理信息系統(tǒng)的重要組成部分。1.3. 編 寫 目 的本 文 檔 為“ 樂(lè) 山 師 范 學(xué) 院 系 科 綜 合 管 理 信 息 系 統(tǒng)（ 學(xué) 生 管 理 系 統(tǒng) ） 詳細(xì)設(shè) 計(jì)說(shuō) 明書 ”，主 要用 于為 實(shí)現(xiàn) 系 統(tǒng)的 功能 而進(jìn) 行的 系統(tǒng)詳細(xì) 設(shè) 計(jì)說(shuō)明，詳細(xì)系統(tǒng)各軟件組成模塊的實(shí)現(xiàn)流程、功能、接口、編譯、 測(cè)試要點(diǎn)等

4、內(nèi)容，便 于對(duì)系統(tǒng)的編碼進(jìn)行指導(dǎo)和約束。本文檔供項(xiàng)目 組全體成員及項(xiàng)目組領(lǐng)導(dǎo)，單元測(cè)試人員閱讀。1.4. 參 考 資 料 學(xué)生 管理 系統(tǒng) _系統(tǒng) 軟件需求 說(shuō)明書。 學(xué)生 管理 系統(tǒng) _系統(tǒng) 概要設(shè)計(jì) 說(shuō)明書。 學(xué)生 管理 系統(tǒng) _數(shù)據(jù) 庫(kù)設(shè)計(jì)說(shuō) 明書（數(shù) 據(jù)庫(kù)字 典）。第2章 程序系統(tǒng)的結(jié)構(gòu)整個(gè)學(xué)生管理系統(tǒng)的結(jié)構(gòu)可由以下圖示來(lái)表明：系 科 綜 合 信 息 管 理 系新生報(bào)到管理模塊新生報(bào)到管理模塊在校生日常管理模塊學(xué)生管組織社團(tuán)管理模塊理系統(tǒng)畢業(yè)生信息管理模塊其它管理功能學(xué)生成績(jī)查詢模塊第3章 系統(tǒng)功能實(shí)現(xiàn)從 前 面 需 求 分 析 可 以 看 出 ，系 統(tǒng) 功 能 龐 雜 ，主 要 分

5、為 前 臺(tái) 瀏 覽 器 (B/S) 信 息發(fā) 布和 數(shù)據(jù) 查詢 ，后 臺(tái) (C/S) 數(shù) 據(jù)管 理和 處理 ，學(xué)生 管 理功 能部分?jǐn)?shù)據(jù)分為 5 類：新生相關(guān)；在校生相關(guān)；組織社團(tuán)相關(guān)；畢業(yè) 生相關(guān)；學(xué) 生成績(jī)綜合查詢相關(guān)。從使用和操作的功能上分，有 三種 用戶： 普通 客戶 (瀏 覽 器瀏 覽、 查詢 )；業(yè) 務(wù)數(shù) 據(jù)管 理人 員(學(xué)生 工 作輔導(dǎo) 員、 教務(wù) 干事 )；系 統(tǒng)管 理員 。 為便 于整 個(gè)系 統(tǒng)組 織管理， 把 各個(gè)相 對(duì)獨(dú) 立的 數(shù)據(jù) 或 功能 組織 到整 個(gè)大 系統(tǒng) 中來(lái) ，我們 把各 個(gè) 相對(duì) 獨(dú)立的功能完全獨(dú)立設(shè)計(jì)，編譯成獨(dú)立的目標(biāo)( 功能)模塊(single Exe

6、cutable )，各功能模塊最后被集成到一個(gè)稱為虛擬桌面的 控制臺(tái) 模塊中。相 應(yīng)地將系統(tǒng)結(jié)構(gòu)分為一個(gè)控制臺(tái)程序和五個(gè) 子系統(tǒng)，各子 系統(tǒng)又分為若干各子模塊。對(duì)應(yīng)于每一個(gè)模塊，幾 乎都有錄入、查詢、 修改、刪 除、查 看詳細(xì)資料這幾個(gè)功能。整 個(gè)業(yè)務(wù)流程就是由這幾種 基本功 能實(shí) 現(xiàn)的 。在 這里 每個(gè) 模塊 都要 用到 的功 能沒(méi) 必要 在每 個(gè) 子模 塊里重復(fù)闡述，在每個(gè)子模塊里只列出區(qū)別于其它子模塊的功能實(shí) 現(xiàn)。3.1. 系 統(tǒng) 控 制 臺(tái) 模 塊功能：各子功能模塊的組織和調(diào)用； 統(tǒng)一的登陸界面實(shí)現(xiàn)到數(shù)據(jù)庫(kù)服務(wù)器的登陸；顯示系科主頁(yè) Web的首頁(yè)( 主要是系科重要通知、消息等)；學(xué)院

7、通知頁(yè)面；系科每周工作安排。系統(tǒng)圖標(biāo)。 設(shè)計(jì)：1. 登 陸數(shù)據(jù) 庫(kù):輸 入 數(shù) 據(jù) 庫(kù) 服 務(wù) 器 名 (ServerIP) 、 用 戶 賬 號(hào) ()UserID 、 密 碼 (PassWord) ；以 賬 號(hào) DEP_Computer0 、密 碼 DEP_Computer0 登 陸 數(shù) 據(jù) 庫(kù)服務(wù)器，檢索系統(tǒng)權(quán)限表，根據(jù)權(quán)限設(shè)置相應(yīng)功能模塊： 無(wú)此用戶或禁止權(quán)限Enable := False; 瀏覽權(quán)限 Enable := True;修 改 UserID := Dep_Computer1;修 改 PassWord := 1111111111111; 修改權(quán)限 Enable := True;修

8、 改 UserID := Dep_Computer2;修 改 PassWord := 222222222222;2. 采 用 Win31 下 程序 組、 程序 項(xiàng) 的原 理組 織各 執(zhí)行 模塊 ： 登陸服務(wù)器新生錄取數(shù)據(jù)、入學(xué)報(bào)道管理 學(xué)生信息(在校)管理學(xué)生社團(tuán)管理 畢業(yè)生信息管理 學(xué)生成績(jī)綜合查詢與統(tǒng)計(jì) 各程序組、程序項(xiàng)的顯示分別可以是分層/樹(shù)狀/大圖標(biāo)/小圖標(biāo) 等方式 ；各程 序項(xiàng) 或 菜單 項(xiàng)的 名稱 命名 為相 應(yīng)功 能模 塊的 目標(biāo) 代 碼文 件名。3可執(zhí)行功能模塊的調(diào)用執(zhí)行：通過(guò)程序項(xiàng)或菜單項(xiàng)名稱獲取可執(zhí) 行目標(biāo) 代碼 文件 名， 應(yīng) 用 API 函 數(shù) CreateProces

9、s 開(kāi) 始 執(zhí) 行。i:= StartMenu.IndexOf(MenuItem); j:=StartMenu.Itemsi.IndexOf(MenuItem); case StartMenu.Itemsi.Itemsj.Tag of1: allow:=禁 止 ;2: allow:=瀏 覽 ;3: allow:=修 改 ;end;ExecutableFileName :=Trim(StartMenu.Itemsi.Itemsj.Name)+.ex e FillChar(StartupInfo,Sizeof(StartupInfo),#0);StartupInfo.cb := Sizeof(St

10、artupInfo);StartupInfo.dwFlags := STARTF_USESHOWWINDOW; CreateProcess(PChar(ExecutableFileName),nil,nil,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,.,StartupInfo, ProcessInfo);3.2. 新 生 管 理 子 系 統(tǒng)總體設(shè)計(jì)：新生管理子系統(tǒng)包含新生錄取信息的導(dǎo)入，新生預(yù)分 學(xué) 號(hào) ，新 生 班 級(jí) 分 配 ，新 生 寢 室 安 排 ，新 生 報(bào) 到 管 理 ，新 生 報(bào) 到 信 息 統(tǒng)計(jì)，新生欠費(fèi)統(tǒng)計(jì)，

11、新生分布信息，新生高考成績(jī)分布等。設(shè)計(jì)：下面給出設(shè)計(jì)方案與實(shí)現(xiàn)方法輸入 : 招生數(shù)據(jù) 導(dǎo)入的表；處理 : 根據(jù)當(dāng)前年份，為當(dāng)前新生預(yù)分臨時(shí)學(xué) 號(hào)，并將新生信息導(dǎo)入在校生表，導(dǎo)入 基本信息輸出 : 提示信息數(shù)據(jù)表:JBXX2 ：學(xué)生基本信息表（簡(jiǎn)） XS_BASE：學(xué)生基本信息（詳） XS EXPEND：學(xué)生擴(kuò)展信息模塊名稱 ：班級(jí)編排輸入 : 學(xué)生預(yù)分 學(xué)號(hào)信息，班級(jí) 信息；處理 : 將新生編入指定班級(jí)輸出 : 班級(jí)名單數(shù)據(jù)表 :JBXX2：學(xué)生基本信息BJXX ：班級(jí)信息模塊名稱 ：寢室安排輸入 : 學(xué)生預(yù)分 學(xué)號(hào)信息，寢室 信息；處理 : 將新生按性別分入指定寢室輸出 : 寢室名單數(shù)據(jù)表:

12、JBXX2：學(xué)生基本信息（簡(jiǎn)） XS_BASE：學(xué)生基本信息（詳） QSZY：寢室資源表模塊名稱 ：現(xiàn)場(chǎng)報(bào)到處理輸入 : 學(xué)生預(yù)分 學(xué)號(hào)、編班、寢 室安排等信息；處理 : 根據(jù)新生到校情況，完成新生報(bào)到情況 的記載以及欠費(fèi)記載輸出 : 表格數(shù)據(jù)表:JBXX2：學(xué)生基本信息BJXX ：班級(jí)信息模塊名稱 ：新生報(bào)到情況統(tǒng)計(jì)輸入 : 新生報(bào)到信息；處理 : 根據(jù)新生報(bào)到信息，進(jìn)行各項(xiàng)分類統(tǒng)計(jì)輸出 : 柱狀 圖與 表格信息XS_BASE：學(xué)生基本信息 XS_BDQK ：學(xué)生報(bào)到情況 XS QFXX ：學(xué)生欠費(fèi)信息模塊名稱 ：新生欠費(fèi)查詢統(tǒng)計(jì)輸入 : 新生欠費(fèi)信息；處理 : 統(tǒng)計(jì)欠費(fèi)新生信息輸出 : 欠

13、費(fèi)報(bào)表數(shù)據(jù)表:JBXX2：學(xué)生基本信息XS QFXX ：學(xué)生欠費(fèi)信息數(shù)據(jù)表:JBXX2：學(xué)生基本信息 XS_BASE：學(xué)生基本信息 XS_EXPEND：學(xué)生擴(kuò)展信息 BJXX ：班級(jí)信息SFB：省份表MZB ：民族表ZZMMB ：政治面貌表模塊名稱 ：新生信息統(tǒng)計(jì)輸入 : 新生網(wǎng)上 錄取數(shù)據(jù)庫(kù)；處理 : 按各種分類標(biāo)準(zhǔn)，對(duì)新生的分布情況進(jìn) 行統(tǒng)計(jì)輸出 : 餅狀 圖與 表格信息數(shù)據(jù)表:JBXX2：學(xué)生基本信息 XS_BASE：學(xué)生基本信息 MZB ：民族表ZZMMB ：政治面貌表SFB：省份表模塊名稱 ：新生高考成績(jī)統(tǒng)計(jì)輸入 : 新生擴(kuò)展 信息，新生成績(jī) 信息；處理 : 按各項(xiàng)成績(jī)分別統(tǒng)計(jì)各分?jǐn)?shù)

14、段人數(shù)比例輸出 : 柱狀 圖與 表格信息數(shù)據(jù)表:JBXX2：學(xué)生基本信息XS_EXPEND：學(xué)生擴(kuò)展信息T TDD ：考生投檔單功能：完成對(duì)新錄取學(xué)生數(shù)據(jù)的導(dǎo)入 完成對(duì)新生數(shù)據(jù)的報(bào)到預(yù)處理（初始化） 實(shí)現(xiàn)新生報(bào)到現(xiàn)場(chǎng)完成，并統(tǒng)計(jì)報(bào)到情況 統(tǒng)計(jì)新生的各種分布比例和成績(jī)分布設(shè)計(jì)： 總體設(shè)計(jì)：用 Delphi 的 PageCtrl 控件來(lái)實(shí)現(xiàn)各項(xiàng)菜單功能，整體界面如下： 招 生 數(shù)據(jù) 導(dǎo)入 ：可 以通 過(guò)選 擇來(lái) 指定 全國(guó) 網(wǎng)上 錄取 系統(tǒng) 的導(dǎo) 出 數(shù)據(jù) 所在路徑，并 根據(jù)使用手冊(cè)檢查 25 個(gè).dbf 文件是否存在，來(lái) 決定是 否允許導(dǎo)入；在 導(dǎo)入時(shí)采用記錄的查重處理，所 以，只 能借助記錄集

15、 的循環(huán)來(lái)完成；其中，對(duì)政治面貌與民族表要單獨(dú)處理。 界面如下：主要實(shí)現(xiàn)文件檢查的代碼：function CheckDBFile(var strRst:String):boolean;vari,j:integer;blFound:boolean;beginarrstrFileName0:=t_tddw;arrstrFileName1:=t_jhk;/ 此處 對(duì)表 名賦 值CheckDBFile:=False;blFound:=True;i:=0;strRst:= 數(shù) 據(jù) 表 ;while （i25）dobeginj:=DBFileListBox.Items.IndexOf（arrstrFile

16、Namei+.dbf）;if j=-1 then/某個(gè) 文 件未找 到， 返回 “ 假”beginblFound:=False;strRst:=strRst+arrstrFileNamei+.dbf ;end;i:=i+1;end;strRst:=strRst+不 存 在 !;if blFound then / 全 部 數(shù) 據(jù) 文 件 檢 查 正 確CheckDBFile:=True;end; 學(xué) 號(hào)預(yù)處理：將 導(dǎo)入的數(shù)據(jù)從信息庫(kù)表到在校生表，并 根據(jù)考生的 考號(hào)及 其它 信息 填入 其 基本 信息 （如 省份 、入 年年 份等 ）；基本處 理 思想是：根 據(jù)考生年份（ 報(bào)考號(hào)前兩位）與 當(dāng)前

17、系統(tǒng)數(shù)據(jù)庫(kù)的絕對(duì)學(xué) 期時(shí)間，篩 選相應(yīng)的考生信息，然后從這些信息中依次在學(xué)生基本信 息表（JBXX2）中查詢是否重復(fù)，來(lái)決定是否寫入；如果寫入 ，則根 據(jù)報(bào)考號(hào)（第 3、4 位）的信息，寫入考生所在省份代碼。代碼相對(duì)簡(jiǎn)單，界面如下 新生班級(jí)編排：將分配學(xué)號(hào)的新生編排到指定班級(jí)中。用兩個(gè)DBGrid （可多選）分 別將未分班學(xué)生和班級(jí)信息列出來(lái)，通過(guò)手工選 中一個(gè)或多個(gè)學(xué)生，即可分配班級(jí)或從班級(jí)中取消分班。界面如下：實(shí) 現(xiàn) DBGrid 多 選 并 在 數(shù) 據(jù) 庫(kù) 中 完 成 添 加 的 代 碼 ：with StuDBGrid.DataSource.DataSet do beginfor i:=

18、0 to intSelStuCnt-1 dobeginGotoBookmark(pointer(StuDBGrid.SelectedRows.Itemsi); strStuNo:=Fields0.AsString;strSql:=Update jbxx2 set BJID=+strClasNo+;strSql:=strSql+ Where XH=+strStuNo+; database.Execute(strSql);end;end;寢室分配與班級(jí)編排可類似處理。 新生現(xiàn)場(chǎng)報(bào)到：對(duì) 新生的報(bào)到程序進(jìn)行計(jì)算機(jī)管理，自動(dòng)檢查該新 生是否已到校，是 否已完成所有報(bào)到手續(xù)，以及新生的欠費(fèi)情況（ 只 記

19、載欠費(fèi)，不記載繳費(fèi)）；并根據(jù)各項(xiàng)手續(xù)的完成，來(lái)確認(rèn)新生的 報(bào) 到狀態(tài)，為下一步查詢提供足夠信息。界面如下：此處關(guān)鍵在于如何把數(shù)據(jù)表中“0”和“1”狀 態(tài)標(biāo)志以 CheckBox 的 狀態(tài)輸出，代碼如下：讀出：if ADORegInfo.Active then beginstrState:=ADORegInfo.FieldByName(SFQD).AsString;if strState=1 then / 是 否 簽 到 Reg1Check.Checked:=trueelseReg1Check.Checked:=false; strState:=ADORegInfo.FieldByName(ZZ

20、GX).AsString; if strState=1 then /組 織 關(guān) 系Reg2Check.Checked:=trueelseReg2Check.Checked:=false; strState:=ADORegInfo.FieldByName(HKQY).AsString;if strState=1 then /戶 口 遷 移Reg3Check.Checked:=trueelseReg3Check.Checked:=false; strState:=ADORegInfo.FieldByName(JCK).AsString; if strState=1 then /就 餐 卡Reg4C

21、heck.Checked:=trueelseReg4Check.Checked:=false; strState:=ADORegInfo.FieldByName(TJ). AsString; if strState=1 then / 體 檢Reg5Check.Checked:=trueelseReg5Check.Checked:=false;end;寫回?cái)?shù)據(jù)庫(kù)：ADORegInfo.Edit;if Reg1Check.Checked then ADORegInfo.FieldByName(SFQD).AsString:=1else ADORegInfo.FieldByName(SFQD).As

22、String:=0;if Reg2Check.Checked then ADORegInfo.FieldByName(ZZGX).AsString:=1elseADORegInfo.FieldByName(ZZGX).AsString:=0;if Reg3Check.Checked thenADORegInfo.FieldByName(HKQY).AsString:=1else ADORegInfo.FieldByName(HKQY).AsString:=0;if Reg4Check.Checked then ADORegInfo.FieldByName(JCK).AsString:=1els

23、eADORegInfo.FieldByName(JCK).AsString:=0;if Reg5Check.Checked thenADORegInfo.FieldByName(TJ).AsString:=1else ADORegInfo.FieldByName(TJ).AsString:=0;ADORegInfo.Post;欠費(fèi)查詢可相應(yīng)處理。 報(bào) 到 情況 統(tǒng)計(jì) ：可 以按 性別 、專 業(yè)、班 級(jí) 、省 份等 統(tǒng)計(jì) 學(xué)生 的 報(bào)到 情 況 ，并 以 柱 狀 圖 和 表 格 顯 示 ；提 供 自 由 控 制 條 件 查 詢 未 報(bào) 到 學(xué) 生 信 息。界面如下：統(tǒng)計(jì)功能實(shí)現(xiàn)代碼如下：CntB

24、ySexDBChar.Title.Text.Clear;/CntBySexDBChar.Title.Text.Add(CntBySexDBChar.Series0.Clear;/ strSql:=;清除標(biāo)題 新生報(bào)到情況（按班級(jí)統(tǒng)計(jì) ）;清除圖形CntStrGrid.RowCount:=ADOQFCntQuery.RecordCount+1;for i:=0 to 4 do /設(shè) 置 StringGrid 的 標(biāo) 題beginCntStrGrid.Colsi.Clear;CntStrGrid.Colsi.Add(titleNamei);end;i:=0;RegSexTLbl.Lines.Cle

25、ar; /清 空 統(tǒng) 計(jì) 顯 示while not ADOQFCntQuery.Eof do begin intCntRegdi:=ADOQFCntQuery.FieldByName(ClassRegdCnt).As Integer;CntBySexDBChar.Series0.Add(intCntToti,inttostr(i)+ 應(yīng)到 ,clBlue);到,clRed);報(bào)到比CntBySexDBChar.Series0.Add(intCntRegdi,strSql:=inttostr(i)+trim(strClassNamei)+例 :;strSql:=strSql+floattostr

26、(trunc(intCntRegdi/intCnttoti*10000)/100)+%+#13;RegSexTLbl.Lines.Add(strSql);CntStrGrid.Rowsi+1.Add(inttostr(i+1);CntStrGrid.Rowsi+1.Add(strClassNamei);CntStrGrid.Rowsi+1.Add(inttostr(intCntToti);CntStrGrid.Rowsi+1.Add(inttostr(intCntRegdi);CntStrGrid.Rowsi+1.Add(floattostr(trunc(intCntRegdi/int Cnt

27、toti*10000)/100)+%);i:=i+1;ADOQFCntQuery.Next; /下 一 個(gè) 班end; 新生分布情況統(tǒng)計(jì)：從 學(xué)生的擴(kuò)展信息與高考資料中 提取信息 ，統(tǒng) 計(jì)新生的各種分布情況，以餅狀圖和表格信息顯示出來(lái)。 界面如下：相應(yīng)地，高考成績(jī)信息也可以按科目繪制出柱狀圖來(lái)反映分布情況， 對(duì)新生的整體情況有一個(gè)大概了解，以便有針對(duì)性地開(kāi)展工作。 界面如下：成績(jī)統(tǒng)計(jì)的代碼如下：strSql:=Select Max(+FieldName+) as MaxScore,Min(+FieldName+) as MinScore,AVG(+FieldName+) as AvgScore

28、;strSql:=strSql+ From t_tdd,xs_base,xs_expend Where t_tdd.ksh=xs_expend.bkh and xs_expend.xh=xs_base.xh; strSql:=strSql+ and Nj=+MidStr(CurrentXQSJ,1,4); ADOQFCntQuery.SQL.Clear;ADOQFCntQuery.SQL.Add(strSql); ADOQFCntQuery.Open;if ADOQFCntQuery.Eof then beginShowMessage( 對(duì) 不 起 , 未 找 到 相 關(guān) 學(xué) 生 的 成 績(jī)

29、!); abort;end;for i:=0 to 2 do beginCntScoreStrGrid.Colsi.Clear;CntScoreStrGrid.Colsi.Add(titleNamei);end;CntScoreDBChart.Title.Text.Clear;CntScoreDBChart.Title.Text.Add(新 生 高 考 成績(jī) 統(tǒng) 計(jì)+itemName+);CntScoreDBChart.Series0.Clear;maxScore:=ADOQFCntQuery.FieldByName(MaxScore).AsInteger; minScore:=ADOQFCn

30、tQuery.FieldByName(MinScore).AsInteger; avgScore:=ADOQFCntQuery.FieldByName(AvgScore).AsInteger; itemsCount:=trunc(maxScore-minScore)/5)+1;intCrntScore:=trunc(minScore/5)*5;i:=0;isWrite:=true;CntScoreStrGrid.RowCount:=itemsCount+4;while (iitemsCount) and (i=+inttostr(intCrntScore);strSql:=strSql+ an

31、d+FieldName+inttostr(intCrntScore+5);intCrntScore:=intCrntScore+5;ADOQFCntQuery.SQL.Clear;ADOQFCntQuery.SQL.Add(strSql);ADOQFCntQuery.Open;intCrntCnti:=ADOQFCntQuery.FieldByName(CrntCnt).AsInteger;strSql:=;if (isWrite) or (itemsCount12) then strSql:=inttostr(intCrntScore-5)+-;CntScoreDBChart.Series0

32、.Add(intCrntCnti,strSql,intColori mod 11);CntScoreStrGrid.Rowsi+1.Add(inttostr(intCrntScore -5)+-+ inttostr(intCrntScore);CntScoreStrGrid.Rowsi+1.Add(inttostr(intCrntCnti);CntScoreStrGrid.Rowsi+1.Add(floattostr(trunc(intCrntCnti /59*10000)/100)+%);isWrite:=not isWrite;i:=i+1;end;CntScoreStrGrid.Rows

33、i+1.Add(最 高 分 );CntScoreStrGrid.Rowsi+1.Add(inttostr(maxScore);CntScoreStrGrid.Rowsi+2.Add(最 低 分 );CntScoreStrGrid.Rowsi+2.Add(inttostr(minScore);CntScoreStrGrid.Rowsi+3.Add(平 均 分 );CntScoreStrGrid.Rowsi+3.Add(inttostr(avgScore);3.3. 學(xué) 生 在 校 管 理 子 模 塊模塊名稱 ：基礎(chǔ)編碼輸入 :在校生基礎(chǔ) 編碼信息處理 : 維護(hù)管理在校生管理基礎(chǔ)編碼信息輸出 :

34、在校 生基 礎(chǔ)編碼數(shù)據(jù)表:JBXX2 ：學(xué)生基本信息 BJXX ：班級(jí)信息 XS_YDLB ：異動(dòng)類型信息 XS_BZLB ：補(bǔ)助類型信息 XS_ZXLB ：助學(xué)金類型信息 XS_JXJLB：獎(jiǎng)學(xué)金類型信息 XS_DKLB ：貸款類型信息 XS_QSZY：寢室資源信息 SFB：省份信息模塊名稱 ：學(xué)生基本信息輸入 :在校生基本信息處理 : 根據(jù)學(xué)生簡(jiǎn)況信息管理系科學(xué)生基本信 息輸出 : 在校 生基 本信息數(shù)據(jù)表:JBXX2 ：學(xué)生基本信息BJXX ：班級(jí)信息 XS_BASE：在校生基本信息XS EXPEND ：在校生擴(kuò)充信息模塊名稱 ：班級(jí)基本信息輸入 :班級(jí)基本信 息處理 : 根據(jù)班級(jí)簡(jiǎn)況信

35、息管理班級(jí)詳細(xì)數(shù)據(jù)輸出 : 班級(jí) 詳細(xì) 數(shù)據(jù)數(shù)據(jù)表 :BJXX ：班級(jí)信息XS BJXX ：班級(jí)基本信息模塊名稱 ：新生學(xué)號(hào)替換輸入 : 新生正式學(xué) 號(hào)分配信息處理 : 用新生正式學(xué)號(hào)替換相關(guān)數(shù)據(jù)表中新生 臨時(shí)學(xué)號(hào)輸出 : 在校 生正式學(xué)號(hào)分配信息的導(dǎo)數(shù)據(jù)表:JBXX2 ：學(xué)生基本信息 其它相關(guān)使用新生臨時(shí)學(xué)號(hào)數(shù)據(jù) 用于新生臨時(shí)學(xué)號(hào)的導(dǎo)出和正式學(xué)號(hào) 入的數(shù)據(jù)表（本地表）模塊名稱 ：在校生日?？记诠芾磔斎?:在校生日常 考勤信息處理 : 維護(hù)和管理在校生日?？记谛畔⑤敵?: 在校 生考 勤信息及相關(guān)統(tǒng) 計(jì)報(bào)表數(shù)據(jù)表 :JBXX2 ：學(xué)生基本信息BJXX ：班級(jí)信息XS KQXX ：學(xué)生考勤信息模

36、塊名稱 ：在校生寢室清潔衛(wèi)生管理輸入 :在校生寢室 清潔衛(wèi)生信息處理 : 維護(hù)管理在校生寢室清潔衛(wèi)生信息輸出 : 在校 生寢室清潔衛(wèi)生數(shù)據(jù) 及相關(guān)統(tǒng)計(jì)報(bào)表數(shù)據(jù)表 :JBXX2 ：學(xué)生基本信息BJXX ：班級(jí)信息XS QJWS：異動(dòng)類型信息模塊名稱 ：在校生獎(jiǎng)勵(lì)信息管理輸入 :在校生獎(jiǎng)勵(lì)信息處理 : 維護(hù)管理在校生獎(jiǎng)勵(lì)信息輸出 : 在校 生獎(jiǎng) 勵(lì)信息數(shù)據(jù)表:JBXX2 ：學(xué)生基本信息BJXX ：班級(jí)信息XS HJXX ：獎(jiǎng)勵(lì)信息模塊名稱 ：在校生處罰信息管理輸入 :在校生處罰信息處理 : 維護(hù)管理在校生處罰信息輸出 : 在校 生處 罰信息數(shù)據(jù)表:JBXX2 ：學(xué)生基本信息BJXX ：班級(jí)信息XS

37、 CFXX ：處罰信息模塊名稱 ：在校生異動(dòng)信息管理輸入 :在校生異動(dòng)信息處理 : 維護(hù)管理在校生異動(dòng)信息輸出 : 在校 生異 動(dòng)信息數(shù)據(jù)表 :JBXX2 ：學(xué)生基本信息BJXX ：班級(jí)信息XS YDXX ：異動(dòng)信息模塊名稱 ：困難學(xué)生基本信息輸入 :困難學(xué)生基本信息處理 : 維護(hù)管理困難學(xué)生收入來(lái)源及生活情況輸出 : 困難 學(xué)生 基本信息數(shù)據(jù)表:JBXX2 ：學(xué)生基本信息BJXX ：班級(jí)信息XS KNXX ：困難學(xué)生基本信息模塊名稱 ：困難補(bǔ)助信息管理輸入 : 在校生接受 困難補(bǔ)助信息處理 : 維護(hù)管理在校生困難補(bǔ)助情況輸出 : 在校 生困 難補(bǔ)助信息數(shù)據(jù)表:JBXX2 ：學(xué)生基本信息BJX

38、X ：班級(jí)信息XS KNBZ ：困難補(bǔ)助信息模塊名稱 ：勤工儉學(xué)信息管理輸入 :在校生勤工 儉學(xué)信息處理 : 維護(hù)管理在校生勤工儉學(xué)情況輸出 : 在校 生勤 工儉學(xué)信息數(shù)據(jù)表:JBXX2 ：學(xué)生基本信息BJXX ：班級(jí)信息XS QGZX ：勤工儉學(xué)信息模塊名稱 ：在校生學(xué)期注冊(cè)信息管理輸入 :在校生學(xué)期 注冊(cè)信息處理 : 管理在校生學(xué)期報(bào)到注冊(cè)信息，并驗(yàn)證 學(xué)生基本信息以學(xué)生欠費(fèi)信息輸出 : 在校 生學(xué) 期注冊(cè)信息數(shù)據(jù)表 :JBXX2 ：學(xué)生基本信息BJXX ：班級(jí)信息XS_XQZC ：困難補(bǔ)助信息 XS_BASE：學(xué)生基本信息信息 XS QFXX ：學(xué)生欠費(fèi)信息模塊名稱 ：在校生學(xué)年鑒定信息

39、管理輸入 :在校生學(xué)年 鑒定信息處理 : 管理在校生學(xué)年鑒定信息輸出 : 在校 生學(xué) 年鑒定信息數(shù)據(jù)表:JBXX2 ：學(xué)生基本信息BJXX ：班級(jí)信息XS XNJD ：學(xué)生學(xué)年鑒定信息模塊名稱 ：在校生欠費(fèi)信息管理輸入 :在校生欠費(fèi)信息處理 : 管理在校生欠費(fèi)信息輸出 : 在校 生欠 費(fèi)信息數(shù)據(jù)表:JBXX2 ：學(xué)生基本信息BJXX ：班級(jí)信息XS QFXX ：學(xué)生欠費(fèi)信息模塊名稱 ：在校生日志信息管理輸入 :在校生日志信息處理 : 管理在校生日志信息輸出 : 在校 生日 志信息數(shù)據(jù)表:JBXX2 ：學(xué)生基本信息BJXX ：班級(jí)信息XS RZXX ：學(xué)生日志信息功能： 在校生信息管理基礎(chǔ)編碼的

40、維護(hù)和管理； 在校生詳細(xì)信息維護(hù)和管理； 班級(jí)詳細(xì)信息維護(hù)和管理； 新生入校分配正式學(xué)號(hào)后對(duì)數(shù)據(jù)表中相關(guān)使用臨時(shí)學(xué)號(hào)的數(shù)據(jù)進(jìn)行 替換；在校生日常缺勤信息的維護(hù)以及制作相關(guān)統(tǒng)計(jì)報(bào)表； 在校生寢室清潔衛(wèi)生的維護(hù)和相關(guān)報(bào)表制作； 在校生獎(jiǎng)懲信息的維護(hù)和管理； 在校生異動(dòng)信息（轉(zhuǎn)系、留級(jí)、退學(xué)、休學(xué)、停學(xué)等）維護(hù)和管理； 困難學(xué)生基本信息管理以及困難補(bǔ)助和勤工儉學(xué)信息管理； 在校生學(xué)期注冊(cè)信息管理；在校生學(xué)年鑒定信息管理； 在校生欠費(fèi)信息管理； 在校生其它日志信息管理 設(shè)計(jì)：本模塊采用多文檔窗體的形式，并提供子窗體排列的兩種不同形式層疊和平鋪）基礎(chǔ)編碼管理采用分頁(yè)結(jié)構(gòu)，完成在校生管理中所需要的基礎(chǔ)字典

41、進(jìn)行編碼；學(xué)生基本信息管理采用 分頁(yè) 結(jié)構(gòu) ，在 學(xué)生 簡(jiǎn)況 信息 的基 礎(chǔ)上 完成 其它 詳細(xì) 信息 的 編輯和查詢功能（需檢驗(yàn)學(xué)生基本信息的唯一性）case pagecontrol1.ActivePageIndex of0: jbxxquery.Locate(xh,dbedit1.Text,loPartialKey);/ 定位指定學(xué)生記錄1: beginxsjbxxtable.Filtered:=false; xsjbxxtable.Filter:=xh=+dbedit4.Text+; xsjbxxtable.Filtered:=true;if xsjbxxtable.recordcoun

42、t=0 then dbnavigator1.VisibleButtons:=nbFirst,nbPrior,nbNext,nbLast ,nbInsert,nbDelete,nbEdit,nbPost,nbCancel/ 如 不 存 在該 學(xué) 生 基本信息則允許新建else dbnavigator1.VisibleButtons:=nbFirst,nbPrior,nbNext,nbLast ,nbDelete,nbEdit,nbPost,nbCancel;/ 如存 在學(xué) 生基本 信息 則不 允許新建if zxsglfrm.BrowseTB.Down then dbnavigator1.Visi

43、bleButtons:=nbFirst,nbPrior,nbNext,nbLast ;end; 班級(jí)基本信息管理 在班級(jí)簡(jiǎn)況信息的基礎(chǔ)上完成班級(jí)其它詳細(xì)信息的維護(hù)和管理新生學(xué)號(hào)替換在新生進(jìn)校后，正 式學(xué)號(hào)可能會(huì)延時(shí)分配，因此，在 新生的管理為方 便進(jìn)行 管理 設(shè)置 了臨 時(shí) 學(xué)號(hào) ，在 正 式學(xué) 號(hào) 分配 完成 后，應(yīng) 將數(shù) 據(jù) 表中 新生數(shù)據(jù)臨時(shí)學(xué)號(hào)替換為正式學(xué)號(hào)先選取要進(jìn)行學(xué)號(hào)替換的班級(jí)，生成新生學(xué)號(hào)輸入表（本地?cái)?shù)據(jù)庫(kù)LOCALDB.MDB）并以班級(jí)編號(hào)為名建表；adocommand1.CommandText:=create table+bjid_combo.Items.Stringsbj

44、mc_combo.itemindex+ (oldxh char(11),xsxm char(8),xb char(2),newxh char(11);adocommand1.Execute;/創(chuàng) 建 本 地 新 生 學(xué) 號(hào) 輸 入 表while not bj_query.Eof dobegin adocommand1.CommandText:=insert into+bjid_combo.Items.Stringsbjmc_combo.itemindex+(oldxh,xs xm,xb,newxh) values(+bj_query.Fieldbyname(xh).asstring+,+b j

45、_query.Fieldbyname(xm).asstring+,+bj_query.F ieldbyname(xb).asstring+,null);adocommand1.Execute;/在 本 地 輸 入 表 中 添 加 學(xué) 生 基 本 數(shù) 據(jù)bj_query.Next;end;再導(dǎo)出新生輸入表，并允許再進(jìn)行編輯；localtable.Close;localtable.TableName:=bjid_combo.Items.Stringsbjmc_combo.i temindex;localtable.Active:=true;/導(dǎo) 入 新 生 正 式 學(xué) 號(hào)輸 入 表localtab

46、le.FieldByName(oldxh).DisplayLabel:=舊 學(xué) 號(hào) ;localtable.FieldByName(xsxm).DisplayLabel:= 姓 名 ; localtable.FieldByName(xb).DisplayLabel:= 性 別 ; localtable.FieldByName(newxh).DisplayLabel:=新 學(xué) 號(hào) ;button5.Enabled:=true;/允 許 進(jìn) 行 學(xué) 號(hào) 替 換最后進(jìn)行學(xué)號(hào)替換for i:=1 to 16 dobegin progressbar1.Position:=j;/round(100/(ad

47、otable2.RecordCount*15)label7.Caption:=學(xué) 號(hào) 替 換 正 在 進(jìn) 行 當(dāng)中 ;th_query.SQL.Clear;th_query.SQL.add(select * from +tablenamei+ wherexh=+localtable.Fieldbyname(oldxh).asstring+);th_query.Open;/選 取 要進(jìn) 行替 換的 數(shù)據(jù) 表while not th_query.Eof dobeginif localtable.FieldValuesnewxhnull thenbeginth_query.Edit;th_query

48、.FieldValuesxh:=localtable.fieldbyname(newxh).asstring;/ 進(jìn)行學(xué) 號(hào) 替換th_query.Post;end;th_query.Next;end;學(xué)生日?？记谛畔⒐芾?主要記載在校生日常缺勤信息，并提供分班分時(shí)間段的查詢和統(tǒng)計(jì)， 并進(jìn)行班級(jí)出勤情況的比較編輯界面：j:=1; bjquery.First;while not bjquery.Eof do beginfor i:=1 to combobox1.ItemIndex+1 dobeginrckqquery.Close;rckqquery.SQL.clear;rckqquery.sql

49、.add(select xs_kqxx.qqjc,jbxx2.xm from xs_kqxx join jbxx2 on jbxx2.xh=xs_kqxx.xh join bjxx onbjxx.bjid=jbxx2.bjid where jbxx2.bjid=+bjquery.FieldValuesbjid+ an d xs_kqxx.xq=+edit1.Text+ andxs_kqxx.week=+edit2.Text+ and xs_kqxx.wday=CAST(+inttostr(i)+ AS char(2);/生成 統(tǒng)計(jì) 字符 串rckqquery.Open;while not rc

50、kqquery.Eof dobeginstringgrid1.Cellsi,j:=trim(rckqquery.fieldbyname(xm).As String)+trim(rckqquery.fieldbyname(qqjc).asstring)+,; rckqquery.Next;/將 統(tǒng) 計(jì) 結(jié) 果 寫 入 數(shù) 據(jù) 網(wǎng) 格end;end;bjquery.Next; j:=j+1;end;學(xué)生寢室清潔衛(wèi)生信息管理完成學(xué) 生寢 室清 潔衛(wèi) 生 信息 的管 理功 能，并 提供 近幾 周內(nèi) 清潔 衛(wèi) 生的 對(duì)比情況（主要分為得分為和得分為兩 種情況） 編輯界面：統(tǒng)計(jì)界面（分?jǐn)?shù)據(jù)表和圖表兩種統(tǒng)計(jì)

51、形式）for i:=1 to strtoint(edit2.Text) do beginstringgrid1.cells0,i:=inttostr(i); qjwsquery.Close;qjwsquery.SQL.Clear;qjwsquery.SQL.add(SELECT * FROM XS_QJWS INNER JOIN XS_QSZY ON XS_QJWS.ZH = XS_QSZY.QSZH ANDXS_QJWS.QSH =XS_QSZY.FJH WHERE XS_QJWS.XQ = +edit1.Text+ AND XS_QJWS.Week = CAST(+inttostr(i)+ AS char(2)+ and xs_qszy.xk