学生管理系统设计说明.doc

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 图表查看 在校生学年鉴定管理 根据当前选定班级及鉴定学年生成学年鉴定表 然后填写学生学年鉴定 数据 判定当前数据表中是否已生成班级学年鉴