1 70 學生管理系統學生管理系統 詳細設計說明書 樂山師范學院計算機科學系樂山師范學院計算機科學系 Attract 工作室工作室 2003 08 30 2 70 編編寫寫說說明明 標題 詳細設計說明書 類別 文檔 密級 內部 編輯軟件 Microsoft Word 2000 中文版 版本歷史 版本作者日期備注 V1 012002 09 08詳細設計說明書 V1 0 22003 08 30 詳細設計說明書 編寫目的 本文檔詳細描述組成系統的各個軟件組成部分 包括每個軟件模塊 或類 的屬性 方法 事件 各軟件模塊的外部接口說明 測試要點 等內容 本文檔由項目組維護 供項目組使用 目目錄錄 第第 1 章章引言引言 1 1 1 項目說明 1 1 2 項目定義 1 1 3 編寫目的 1 1 4 參考資料 1 第第 2 章章程序系統的結構程序系統的結構 2 第第 3 章章系統功能實現系統功能實現 3 3 1 系統控制臺模塊 3 3 2 新生管理子系統 6 3 3 學生在校管理子模塊 21 3 4 社團組織管理子模塊 41 3 5 畢業生管理子模塊 49 3 6 教學評價打分 63 3 7 學生成績網上查詢 65 第第1 1章章 引引言言 1 1 項項目目說說明明 項目名稱 樂山師范學院學生管理系統 項目提出單位 樂山師范學院計算機科學系 項目開發者 樂山師范學院計算機科學系Attract 工作室 項目使用部門 樂山師范學院各系科 學院 項目建設單位 樂山師范學院計算機科學系 1 2 項項目目定定義義 系科綜合管理信息系統是為了適應現代化學校管理的需要 加快推進 我校數字化校園建設 充分利用校園網 利用網絡 多媒體等計算機應 用技術和手段 提高辦公效率 改善質量的高效管理信息系統 學生管理系統是系科綜合管理信息系統的重要組成部分 1 3 編編寫寫目目的的 本文檔為 樂山師范學院系科綜合管理信息系統 學生管理系統 詳細設計說明書 主要用于為實現系統的功能而進行的系統詳細設計 說明 詳細系統各軟件組成模塊的實現流程 功能 接口 編譯 測試 要點等內容 便于對系統的編碼進行指導和約束 本文檔供項目組全體 成員及項目組領導 單元測試人員閱讀 1 4 參參考考資資料料 學生管理系統 系統軟件需求說明書 學生管理系統 系統概要設計說明書 學生管理系統 數據庫設計說明書 數據庫字典 2 70 第第2 2章章 程程序序系系統統的的結結構構 整個學生管理系統的結構可由以下圖示來表明 學 生 管 理 系 統 系 科 綜 合 信 息 管 理 系 統 新生報到管理模塊 在校生日常管理模塊 組織社團管理模塊 畢業生信息管理模塊 學生成績查詢模塊 其它管理功能 3 70 第第3 3章章 系系統統功功能能實實現現 從前面需求分析可以看出 系統功能龐雜 主要分為前臺瀏覽器 B S 信息發布和數據查詢 后臺 C S 數據管理和處理 學生管理功 能部分數據分為5 類 新生相關 在校生相關 組織社團相關 畢業生 相關 學生成績綜合查詢相關 從使用和操作的功能上分 有三種用戶 普通客戶 瀏覽器瀏覽 查詢 業務數據管理人員 學生工作輔導員 教務干事 系統管理員 為便于整個系統組織管理 把各個相對獨立的 數據或功能組織到整個大系統中來 我們把各個相對獨立的功能完全獨 立設計 編譯成獨立的目標 功能 模塊 single Executable 各 功能模塊最后被集成到一個稱為虛擬桌面的控制臺模塊中 相應地將系 統結構分為一個控制臺程序和五個子系統 各子系統又分為若干各子模 塊 對應于每一個模塊 幾乎都有錄入 查詢 修改 刪除 查看詳細 資料這幾個功能 整個業務流程就是由這幾種基本功能實現的 在這里 每個模塊都要用到的功能沒必要在每個子模塊里重復闡述 在每個子模 塊里只列出區別于其它子模塊的功能實現 3 1 系系統統控控制制臺臺模模塊塊 功功能能 各子功能模塊的組織和調用 統一的登陸界面實現到數據庫服務器的登陸 顯示系科主頁Web 的首頁 主要是系科重要通知 消息等 學院 通知頁面 系科每周工作安排 系統圖標 設設計計 1 登陸數據庫 輸入數據庫服務器名 ServerIP 用戶賬號 UserID 密碼 PassWord 以賬號 DEP Computer0 密碼 DEP Computer0 登陸數據 庫服務器 檢索系統權限表 根據權限設置相應功能模塊 4 70 無此用戶或禁止權限 Enable False 瀏覽權限 Enable True 修改 UserID Dep Computer1 修改 PassWord 1111111111111 修改權限 Enable True 修改 UserID Dep Computer2 修改 PassWord 222222222222 2 采用 Win31 下程序組 程序項的原理組織各執行模塊 登陸服務器 新生錄取數據 入學報道管理 學生信息 在校 管理 學生社團管理 畢業生信息管理 學生成績綜合查詢與統計 各程序組 程序項的顯示分別可以是分層 樹狀 大圖標 小圖標 等方式 各程序項或菜單項的名稱命名為相應功能模塊的目標代碼文件 名 3 可執行功能模塊的調用執行 通過程序項或菜單項名稱獲取可執行目 標代碼文件名 應用API 函數 CreateProcess 開始執行 i StartMenu IndexOf MenuItem j StartMenu Items i IndexOf MenuItem case StartMenu Items i Items j Tag of 1 allow 禁止 2 allow 瀏覽 3 allow 修改 end ExecutableFileName Trim StartMenu Items i Items j Name exe 5 70 FillChar StartupInfo Sizeof StartupInfo 0 StartupInfo cb Sizeof StartupInfo StartupInfo dwFlags STARTF USESHOWWINDOW CreateProcess PChar ExecutableFileName nil nil false CREATE NEW CONSOLE or NORMAL PRIORITY CLASS nil StartupInfo ProcessInfo 6 70 3 2 新新生生管管理理子子系系統統 總總體體設設計計 新生管理子系統包含新生錄取信息的導入 新生預分學號 新生班級分配 新生寢室安排 新生報到管理 新生報到信息統計 新 生欠費統計 新生分布信息 新生高考成績分布等 設設計計 下面給出設計方案與實現方法 模塊名稱模塊名稱 招生數據導入 輸入輸入 新生網上 錄取數據庫 處理處理 將招生數據按相同格式導入系統數據庫輸出輸出 提示信息 數據表數據表 T tdd T jhk T tddw 等 25 個招生數據 表 在數據庫中 T mzdm 導入 MZB 中 T zzmmdm 導入 ZZMMB 中 模塊名稱模塊名稱 預分學號 新生基本信息管理 招生數據導入報到預處理新生報到新生信息查詢與統計 預 分 學 號 班 級 編 排 寢 室 安 排 預 處 理 查 詢 現 場 報 到 處 理 欠 費 查 詢 統 計 報 到 情 況 統 計 新 生 比 例 分 布 高 考 成 績 統 計 7 70 輸入輸入 招生數據 導入的表 處理處理 根據當前年份 為當前新生預分臨時學 號 并將新生信息導入在校生表 導入 基本信息 輸出輸出 提示信息 數據表數據表 JBXX2 學生基本信息表 簡 XS BASE 學生基本信息 詳 XS EXPEND 學生擴展信息 模塊名稱模塊名稱 班級編排 輸入輸入 學生預分 學號信息 班級 信息 處理處理 將新生編入指定班級輸出輸出 班級名單 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 模塊名稱模塊名稱 寢室安排 輸入輸入 學生預分 學號信息 寢室 信息 處理處理 將新生按性別分入指定寢室輸出輸出 寢室名單 數據表數據表 JBXX2 學生基本信息 簡 XS BASE 學生基本信息 詳 QSZY 寢室資源表 8 70 模塊名稱模塊名稱 現場報到處理 輸入輸入 學生預分 學號 編班 寢 室安排等信息 處理處理 根據新生到校情況 完成新生報到情況 的記載以及欠費記載 輸出輸出 表格 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS BASE 學生基本信息 XS BDQK 學生報到情況 XS QFXX 學生欠費信息 模塊名稱模塊名稱 新生欠費查詢統計 輸入輸入 新生欠費 信息 處理處理 統計欠費新生信息輸出輸出 欠費報表 數據表數據表 JBXX2 學生基本信息 XS QFXX 學生欠費信息 模塊名稱模塊名稱 新生報到情況統計 輸入輸入 新生報到 信息 處理處理 根據新生報到信息 進行各項分類統計輸出輸出 柱狀圖與 表格信息 數據表數據表 JBXX2 學生基本信息 XS BASE 學生基本信息 XS EXPEND 學生擴展信息 BJXX 班級信息 SFB 省份表 MZB 民族表 ZZMMB 政治面貌表 9 70 模塊名稱模塊名稱 新生信息統計 輸入輸入 新生網上 錄取數據庫 處理處理 按各種分類標準 對新生的分布情況進 行統計 輸出輸出 餅狀圖與 表格信息 數據表數據表 JBXX2 學生基本信息 XS BASE 學生基本信息 MZB 民族表 ZZMMB 政治面貌表 SFB 省份表 模塊名稱模塊名稱 新生高考成績統計 輸入輸入 新生擴展 信息 新生成績 信息 處理處理 按各項成績分別統計各分數段人數比例輸出輸出 柱狀圖與 表格信息 數據表數據表 JBXX2 學生基本信息 XS EXPEND 學生擴展信息 T TDD 考生投檔單 功能功能 完成對新錄取學生數據的導入 完成對新生數據的報到預處理 初始化 實現新生報到現場完成 并統計報到情況 統計新生的各種分布比例和成績分布 設計 設計 總體設計 用 Delphi 的 PageCtrl 控件來實現各項菜單功能 整體界面如下 10 70 招生數據導入 可以通過選擇來指定全國網上錄取系統的導出數據所 在路徑 并根據使用手冊檢查25 個 dbf 文件是否存在 來決定是否 允許導入 在導入時采用記錄的查重處理 所以 只能借助記錄集的循 環來完成 其中 對政治面貌與民族表要單獨處理 界面如下 主要實現文件檢查的代碼 11 70 function CheckDBFile var strRst String boolean var i j integer blFound boolean begin arrstrFileName 0 t tddw arrstrFileName 1 t jhk 此處對表名賦值 CheckDBFile False blFound True i 0 strRst 數據表 while i 25 do begin j DBFileListBox Items IndexOf arrstrFileName i dbf if j 1 then 某個文件未找到 返回 假 begin blFound False strRst strRst arrstrFileName i dbf end i i 1 end strRst strRst 不存在 if blFound then 全部數據文件檢查正確 CheckDBFile True end 學號預處理 將導入的數據從信息庫表到在校生表 并根據考生的考 號及其它信息填入其基本信息 如省份 入年年份等 基本處理思 想是 根據考生年份 報考號前兩位 與當前系統數據庫的絕對學期時 間 篩選相應的考生信息 然后從這些信息中依次在學生基本信息表 JBXX2 中查詢是否重復 來決定是否寫入 如果寫入 則根據報考號 第 3 4 位 的信息 寫入考生所在省份代碼 代碼相對簡單 界面如下 12 70 新生班級編排 將分配學號的新生編排到指定班級中 用兩個 DBGrid 可多選 分別將未分班學生和班級信息列出來 通過手工選中 一個或多個學生 即可分配班級或從班級中取消分班 界面如下 實現 DBGrid 多選并在數據庫中完成添加的代碼 with StuDBGrid DataSource DataSet do begin for i 0 to intSelStuCnt 1 do 13 70 begin GotoBookmark pointer StuDBGrid SelectedRows Items i strStuNo Fields 0 AsString strSql Update jbxx2 set BJID strClasNo strSql strSql Where XH strStuNo database Execute strSql end end 寢室分配與班級編排可類似處理 新生現場報到 對新生的報到程序進行計算機管理 自動檢查該新生 是否已到校 是否已完成所有報到手續 以及新生的欠費情況 只記載 欠費 不記載繳費 并根據各項手續的完成 來確認新生的報到狀態 為下一步查詢提供足夠信息 界面如下 此處關鍵在于如何把數據表中 0 和 1 狀態標志以 CheckBox 的 狀態輸出 代碼如下 14 70 讀出 if ADORegInfo Active then begin strState ADORegInfo FieldByName SFQD AsString if strState 1 then 是否簽到 Reg1Check Checked true else Reg1Check Checked false strState ADORegInfo FieldByName ZZGX AsString if strState 1 then 組織關系 Reg2Check Checked true else Reg2Check Checked false strState ADORegInfo FieldByName HKQY AsString if strState 1 then 戶口遷移 Reg3Check Checked true else Reg3Check Checked false strState ADORegInfo FieldByName JCK AsString if strState 1 then 就餐卡 Reg4Check Checked true else Reg4Check Checked false strState ADORegInfo FieldByName TJ AsString if strState 1 then 體檢 Reg5Check Checked true else Reg5Check Checked false end 寫回數據庫 ADORegInfo Edit 15 70 if Reg1Check Checked then ADORegInfo FieldByName SFQD AsString 1 else ADORegInfo FieldByName SFQD AsString 0 if Reg2Check Checked then ADORegInfo FieldByName ZZGX AsString 1 else ADORegInfo FieldByName ZZGX AsString 0 if Reg3Check Checked then ADORegInfo FieldByName HKQY AsString 1 else ADORegInfo FieldByName HKQY AsString 0 if Reg4Check Checked then ADORegInfo FieldByName JCK AsString 1 else ADORegInfo FieldByName JCK AsString 0 if Reg5Check Checked then ADORegInfo FieldByName TJ AsString 1 else ADORegInfo FieldByName TJ AsString 0 ADORegInfo Post 欠費查詢可相應處理 報到情況統計 可以按性別 專業 班級 省份等統計學生的報到情 況 并以柱狀圖和表格顯示 提供自由控制條件查詢未報到學生信息 界面如下 16 70 統計功能實現代碼如下 CntBySexDBChar Title Text Clear 清除標題 CntBySexDBChar Title Text Add 新生報到情況 按班級統計 CntBySexDBChar Series 0 Clear 清除圖形 strSql CntStrGrid RowCount ADOQFCntQuery RecordCount 1 for i 0 to 4 do 設置 StringGrid 的標題 begin CntStrGrid Cols i Clear CntStrGrid Cols i Add titleName i end i 0 RegSexTLbl Lines Clear 清空統計顯示 while not ADOQFCntQuery Eof do begin intCntRegd i ADOQFCntQuery FieldByName ClassRegdCnt As Integer CntBySexDBChar Series 0 Add intCntTot i inttostr i 應 17 70 到 clBlue CntBySexDBChar Series 0 Add intCntRegd i 到 clRed strSql inttostr i trim strClassName i 報到比例 strSql strSql floattostr trunc intCntRegd i intCnttot i 10000 100 13 RegSexTLbl Lines Add strSql CntStrGrid Rows i 1 Add inttostr i 1 CntStrGrid Rows i 1 Add strClassName i CntStrGrid Rows i 1 Add inttostr intCntTot i CntStrGrid Rows i 1 Add inttostr intCntRegd i CntStrGrid Rows i 1 Add floattostr trunc intCntRegd i int Cnttot i 10000 100 i i 1 ADOQFCntQuery Next 下一個班 end 新生分布情況統計 從學生的擴展信息與高考資料中提取信息 統計 新生的各種分布情況 以餅狀圖和表格信息顯示出來 界面如下 18 70 相應地 高考成績信息也可以按科目繪制出柱狀圖來反映分布情況 對 新生的整體情況有一個大概了解 以便有針對性地開展工作 界面如下 19 70 成績統計的代碼如下 strSql Select Max FieldName as MaxScore Min FieldName as MinScore AVG FieldName as AvgScore 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 begin ShowMessage 對不起 未找到相關學生的成績 abort end for i 0 to 2 do begin CntScoreStrGrid Cols i Clear CntScoreStrGrid Cols i Add titleName i 20 70 end CntScoreDBChart Title Text Clear CntScoreDBChart Title Text Add 新生高考成績統計 itemName CntScoreDBChart Series 0 Clear maxScore ADOQFCntQuery FieldByName MaxScore AsInteger minScore ADOQFCntQuery 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 i itemsCount and i inttostr intCrntScore strSql strSql and FieldName inttostr intCrntScore 5 intCrntScore intCrntScore 5 ADOQFCntQuery SQL Clear ADOQFCntQuery SQL Add strSql ADOQFCntQuery Open intCrntCnt i ADOQFCntQuery FieldByName CrntCnt AsInteg er strSql if isWrite or itemsCount 12 then strSql inttostr intCrntScore 5 CntScoreDBChart Series 0 Add intCrntCnt i strSql intColor 21 70 i mod 11 CntScoreStrGrid Rows i 1 Add inttostr intCrntScore 5 inttostr intCrntScore CntScoreStrGrid Rows i 1 Add inttostr intCrntCnt i CntScoreStrGrid Rows i 1 Add floattostr trunc intCrntCnt i 59 10000 100 isWrite not isWrite i i 1 end CntScoreStrGrid Rows i 1 Add 最高分 CntScoreStrGrid Rows i 1 Add inttostr maxScore CntScoreStrGrid Rows i 2 Add 最低分 CntScoreStrGrid Rows i 2 Add inttostr minScore CntScoreStrGrid Rows i 3 Add 平均分 CntScoreStrGrid Rows i 3 Add inttostr avgScore 3 3 學學生生在在校校管管理理子子模模塊塊 在校生信息管理 基礎編碼基本數據日常管理獎懲信息勤工助學信息基它信息 班 級 基 本 信 息 新 生 學 號 替 換 日 常 考 勤 管 理 寢 室 清 潔 衛 生 在 校 生 獎 勵 信 息 在 校 生 處 罰 信 息 在 校 生 異 動 信 息 困 難 學 生 信 息 困 難 補 助 管 理 勤 工 儉 學 管 理 學 期 注 冊 管 理 學 年 鑒 定 管 理 學 生 基 本 信 息 在 校 生 欠 費 管 理 在 校 生 日 志 信 息 22 70 模塊名稱模塊名稱 基礎編碼 輸入輸入 在校生基礎 編碼信息 處理處理 維護管理在校生管理基礎編碼信息輸出輸出 在校生基 礎編碼 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS YDLB 異動類型信息 XS BZLB 補助類型信息 XS ZXLB 助學金類型信息 XS JXJLB 獎學金類型信息 XS DKLB 貸款類型信息 XS QSZY 寢室資源信息 SFB 省份信息 模塊名稱模塊名稱 學生基本信息 輸入輸入 在校生基本 信息 處理處理 根據學生簡況信息管理系科學生基本信 息 輸出輸出 在校生基 本信息 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS BASE 在校生基本信息 XS EXPEND 在校生擴充信息 模塊名稱模塊名稱 班級基本信息 輸入輸入 班級基本信 息 處理處理 根據班級簡況信息管理班級詳細數據輸出輸出 班級詳細 數據 數據表數據表 BJXX 班級信息 XS BJXX 班級基本信息 23 70 模塊名稱模塊名稱 新生學號替換 輸入輸入 新生正式學 號分配信息 處理處理 用新生正式學號替換相關數據表中新生 臨時學號 輸出輸出 在校生正 式學號分配信息 數據表數據表 JBXX2 學生基本信息 其它相關使用新生臨時學號數據 用于新生臨時學號的導出和正式學號 的導入的數據表 本地表 模塊名稱模塊名稱 在校生日常考勤管理 輸入輸入 在校生日常 考勤信息 處理處理 維護和管理在校生日常考勤信息輸出輸出 在校生考 勤信息及相關統 計報表 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS KQXX 學生考勤信息 模塊名稱模塊名稱 在校生寢室清潔衛生管理 輸入輸入 在校生寢室 清潔衛生信息 處理處理 維護管理在校生寢室清潔衛生信息輸出輸出 在校生寢 室清潔衛生數據 及相關統計報表 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS QJWS 異動類型信息 24 70 模塊名稱模塊名稱 在校生獎勵信息管理 輸入輸入 在校生獎勵 信息 處理處理 維護管理在校生獎勵信息輸出輸出 在校生獎 勵信息 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS HJXX 獎勵信息 模塊名稱模塊名稱 在校生處罰信息管理 輸入輸入 在校生處罰 信息 處理處理 維護管理在校生處罰信息輸出輸出 在校生處 罰信息 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS CFXX 處罰信息 模塊名稱模塊名稱 在校生異動信息管理 輸入輸入 在校生異動 信息 處理處理 維護管理在校生異動信息輸出輸出 在校生異 動信息 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS YDXX 異動信息 模塊名稱模塊名稱 困難學生基本信息 輸入輸入 困難學生基 本信息 處理處理 維護管理困難學生收入來源及生活情況輸出輸出 困難學生 基本信息 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS KNXX 困難學生基本信息 25 70 模塊名稱模塊名稱 困難補助信息管理 輸入輸入 在校生接受 困難補助信息 處理處理 維護管理在校生困難補助情況輸出輸出 在校生困 難補助信息 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS KNBZ 困難補助信息 模塊名稱模塊名稱 勤工儉學信息管理 輸入輸入 在校生勤工 儉學信息 處理處理 維護管理在校生勤工儉學情況輸出輸出 在校生勤 工儉學信息 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS QGZX 勤工儉學信息 模塊名稱模塊名稱 在校生學期注冊信息管理 輸入輸入 在校生學期 注冊信息 處理處理 管理在校生學期報到注冊信息 并驗證 學生基本信息以學生欠費信息 輸出輸出 在校生學 期注冊信息 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS XQZC 困難補助信息 XS BASE 學生基本信息信息 XS QFXX 學生欠費信息 模塊名稱模塊名稱 在校生學年鑒定信息管理 輸入輸入 在校生學年 鑒定信息 處理處理 管理在校生學年鑒定信息輸出輸出 在校生學 年鑒定信息 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS XNJD 學生學年鑒定信息 26 70 模塊名稱模塊名稱 在校生欠費信息管理 輸入輸入 在校生欠費 信息 處理處理 管理在校生欠費信息輸出輸出 在校生欠 費信息 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS QFXX 學生欠費信息 模塊名稱模塊名稱 在校生日志信息管理 輸入輸入 在校生日志 信息 處理處理 管理在校生日志信息輸出輸出 在校生日 志信息 數據表數據表 JBXX2 學生基本信息 BJXX 班級信息 XS RZXX 學生日志信息 功功能能 在校生信息管理基礎編碼的維護和管理 在校生詳細信息維護和管理 班級詳細信息維護和管理 新生入校分配正式學號后對數據表中相關使用臨時學號的數據進行替換 在校生日常缺勤信息的維護以及制作相關統計報表 在校生寢室清潔衛生的維護和相關報表制作 在校生獎懲信息的維護和管理 在校生異動信息 轉系 留級 退學 休學 停學等 維護和管理 困難學生基本信息管理以及困難補助和勤工儉學信息管理 在校生學期注冊信息管理 在校生學年鑒定信息管理 在校生欠費信息管理 在校生其它日志信息管理 設計 27 70 本模塊采用多文檔窗體的形式 并提供子窗體排列的兩種不同形式 層 疊和平鋪 基礎編碼管理 采用分頁結構 完成在校生管理中所需要的基礎字典進行編碼 學生基本信息管理 采用分頁結構 在學生簡況信息的基礎上完成其它詳細信息的編輯和 查詢功能 需檢驗學生基本信息的唯一性 28 70 case pagecontrol1 ActivePageIndex of 0 jbxxquery Locate xh dbedit1 Text loPartialKey 定位指定學生記錄 1 begin xsjbxxtable Filtered false xsjbxxtable Filter xh dbedit4 Text xsjbxxtable Filtered true if xsjbxxtable recordcount 0 then dbnavigator1 VisibleButtons nbFirst nbPrior nbNext nbLast n bInsert nbDelete nbEdit nbPost nbCancel 如不存在該學生基本 信息則允許新建 else dbnavigator1 VisibleButtons nbFirst nbPrior nbNext nbLast n bDelete nbEdit nbPost nbCancel 如存在學生基本信息則不允許 新建 if zxsglfrm BrowseTB Down then dbnavigator1 VisibleButtons nbFirst nbPrior nbNext nbLast end 班級基本信息管理 在班級簡況信息的基礎上完成班級其它詳細信息的維護和管理 29 70 新生學號替換 在新生進校后 正式學號可能會延時分配 因此 在新生的管理為方便 進行管理設置了臨時學號 在正式學號分配完成后 應將數據表中新生 數據臨時學號替換為正式學號 先選取要進行學號替換的班級 生成新生學號輸入表 本地數據庫 LOCALDB MDB 并以班級編號為名建表 adocommand1 CommandText create table 30 70 bjid combo Items Strings bjmc combo itemindex oldxh char 11 xsxm char 8 xb char 2 newxh char 11 adocommand1 Execute 創建本地新生學號輸入表 while not bj query Eof do begin adocommand1 CommandText insert into bjid combo Items Strings bjmc combo itemindex oldxh xs xm xb newxh values bj query Fieldbyname xh asstring b j query Fieldbyname xm asstring bj query F ieldbyname xb asstring null adocommand1 Execute 在本地輸入表中添加學生基本數據 bj query Next end 再導出新生輸入表 并允許再進行編輯 localtable Close localtable TableName bjid combo Items Strings bjmc combo i temindex localtable Active true 導入新生正式學號輸入表 localtable FieldByName oldxh DisplayLabel 舊學號 localtable FieldByName xsxm DisplayLabel 姓名 localtable FieldByName xb DisplayLabel 性別 localtable FieldByName newxh DisplayLabel 新學號 button5 Enabled true 允許進行學號替換 最后進行學號替換 for i 1 to 16 do begin progressbar1 Position j round 100 adotable2 RecordCount 15 label7 Caption 學號替換正在進行當中 th query SQL Clear th query SQL add select from tablename i where 31 70 xh localtable Fieldbyname oldxh asstring th query Open 選取要進行替換的數據表 while not th query Eof do begin if localtable FieldValues newxh null then begin th query Edit th query FieldValues xh localtable fieldbyname newxh a sstring 進行學號替換 th query Post end th query Next end 學生日常考勤信息管理 主要記載在校生日常缺勤信息 并提供分班分時間段的查詢和統計 并 進行班級出勤情況的比較 編輯界面 統計界面 j 1 bjquery First while not bjquery Eof do begin 32 70 for i 1 to combobox1 ItemIndex 1 do begin rckqquery Close rckqquery SQL clear rckqquery sql add select xs kqxx qqjc jbxx2 xm from xs kqxx join jbxx2 on jbxx2 xh xs kqxx xh join bjxx on bjxx bjid jbxx2 bjid where jbxx2 bjid bjquery FieldValues bjid and xs kqxx xq edit1 Text and xs kqxx week edit2 Text and xs kqxx wday CAST inttostr i AS char 2 生成統計字符串 rckqquery Open while not rckqquery Eof do begin stringgrid1 Cells i j trim rckqquery fieldbyname xm As String trim rckqquery fieldbyname qqjc asstring rckqquery Next 將統計結果寫入數據網格 end end bjquery Next j j 1 end 學生寢室清潔衛生信息管理 完成學生寢室清潔衛生信息的管理功能 并提供近幾周內清潔衛生的對 比情況 主要分為得分為 和得分為 兩種情況 編輯界面 33 70 統計界面 分數據表和圖表兩種統計形式 for i 1 to strtoint edit2 Text do begin stringgrid1 cells 0 i inttostr i qjwsquery Close 34 70 qjwsquery SQL Clear qjwsquery SQL add SELECT FROM XS QJWS INNER JOIN XS QSZY ON XS QJWS ZH XS QSZY QSZH AND XS QJWS QSH XS QSZY FJH WHERE XS QJWS XQ edit1 Text AND XS QJWS Week CAST inttostr i AS char 2 and xs qszy xkid zxsglfrm CurrentXKID and upper xs qjws df A 生成統計字符串 統計得分 為 A 的寢室 qjwsquery Open stringgrid1 Cells 1 i inttostr qjwsquery recordcount chart1 Series 0 Add qjwsquery recordcount 第 inttostr i 周 clred 將統計結果寫入圖表 while not qjwsquery Eof do begin stringgrid1 Cells 2 i stringgrid1 Cells 2 i qjwsquery fi eldbyname zh AsString qjwsquery fieldbyname qsh AsString 將統計結果寫 入數據網格 qjwsquery Next end qjwsquery Close qjwsquery SQL Clear qjwsquery SQL add SELECT FROM XS QJWS INNER JOIN XS QSZY ON XS QJWS ZH XS QSZY QSZH AND XS QJWS QSH XS QSZY FJH WHERE XS QJWS XQ edit1 Text AND XS QJWS WEEK CAST inttostr i AS char 2 and xs qszy xkid zxsglfrm CurrentXKID and upper xs qjws df C 生成統計字符串 統計得分 為 C 的寢室 qjwsquery Open stringgrid1 Cells 3 i inttostr qjwsquery recordcount chart1 Series 1 Add qjwsquery recordcount 第 inttostr i 周 clblue 將統計結果寫入圖表 35 70 while not qjwsquery Eof do begin stringgrid1 Cells 4 i stringgrid1 Cells 4 i qjwsquery fi eldbyname zh AsString qjwsquery fieldbyname qsh AsString 將統計結果寫 入數據網格 qjwsquery Next end end 完成在校生獎勵信息管理 在進行數據輸入的過程中采用層層篩選的方式 避免輸入過程中發生輸 入錯誤 先篩選班級 curxq edit Text zxsglfrm CurrentXQSJ bjxs query SQL Clear bjxs query SQL add SELECT bjmc bjid FROM bjxx where xkid zxsglfrm CurrentXKID bjxs query Open 再篩選學生 bjxs query Close bjxs query SQL clear 36 70 bjxs query SQL add select xh xb from jbxx2 where xm xsxm combo Text and bjid bjid combo Items Strings bjmc combo itemindex bjxs query Open 最后允許編輯 完成在校生處罰信息管理 同在校生獎勵信息類似 完成在校生異動信息的記載 處理部分在學生簡況管理中完成 同在校生獎勵信息類似 在校困難學生基本信息 困難補助信息 勤工儉學信息維護和管理 在學生遞交困難補助或勤工儉學申請書后 將學生困難信息存入檔案 進行困難補助和勤工儉學管理時依據困難學生檔案來進行 在校生學期注冊管理 學生每期進行注冊時 記載注冊時間 并同時提供學生基本信息的完善 和欠費信息的查詢 由當前班級和注冊時間來確定數據表中是否該班已經生成注冊數據 在 注冊過程中實時查看當前注冊情況 允許多人同時注冊 也可在注冊時 查看學生當前基本信息是否完善以及是否存在欠費 37 70 驗證是否已生成班級學期注冊表 if yzcrs 0 and wzcrs 0 then begin if zxsglfrm EditTB Down then button4 Enabled true 未生成學期注冊數據 則允許生成 else button4 Enabled false 已生成學期注冊數據 end else begin button4 Enabled false 多人注冊 if DBGrid1 SelectedRows Count 0 then begin with DBGrid1 DataSource DataSet do for i 0 to DBGrid1 SelectedRows Count 1 do begin GotoBookmark pointer DBGrid1 SelectedRows Items i xszctable Locate xh xq term VarArrayOf fields 1 AsStrin g zcxq edit Text inttostr zcterm combo ItemIndex 1 loPartialKey 38 70 xszctable Edit xszctable FieldValues zcsj zcsj edit Text xszctable Post end end 當前學生報到注冊情況查看 yzc edit Text inttostr yzcrs 已注冊人數 wzc edit text inttostr wzcrs 未注冊人數 chart1 Series 0 Clear chart1 Series 0 Add strtoint wzc edit text 未注冊 clblue chart1 Series 0 Add strtoint yzc edit text 已注冊 clred 圖表查看 在校生學年鑒定管理 根據當前選定班級及鑒定學年生成學年鑒定表 然后填寫學生學年鑒定 數據 判定當前數據表中是否已生成班級學年鑒