学生管理系统详细设计说明书

1、学生管理系统详细设计说明书乐山师范学院计算机科学系 Attract 工作室2003/08/30编与说明标题：详细设计说明书类别：文档密级：内部编辑软件：Microsoft Word 2000中文版版本历史:版本作者日期备注V1.012002/09/08详细设计说明书2003/08/30详细设计说明书编写目的：本文档详细描述组成系统的各个软件组成部分，包括每个软件模块（或类）的属性、方法、事件，各软件模块的外部接口说明，测试要点等内容 本文档由项目组维护，供项目组使用。目录第1章引言1.1. 项目说明项目名称：乐山师范学院学生管理系统。项目提出单位：乐山师范学院计算机科学系项目开发者：乐山师范学

2、院计算机科学系Attract 工作室项目使用部门：乐山师范学院各系科（学院）项目建设单位：乐山师范学院计算机科学系1.2. 项目定义系科综合管理信息系统是为了适应现代化学校管理的需要，加快 推进我校数字化校园建设、充分利用校园网，利用网络、多媒体等计 算机应用技术和手段，提高办公效率、改善质量的高效管理信息系统。学生管理系统是系科综合管理信息系统的重要组成部分。1.3. 编写目的本文档为“乐山师范学院系科综合管理信息系统（学生管理系统） 详细设计说明书”主要用于为实现系统的功能而进行的系统详细设 计说明，详细系统各软件组成模块的实现流程、功能、接口、编译、 测试要点等内容，便于对系统的编码进行

3、指导和约束。本文档供项目 组全体成员及项目组领导，单元测试人员阅读。1.4. 参考资料学生管理系统_系统软件需求说明书。学生管理系统_系统概要设计说明书。学生管理系统一数据库设计说明书（数据库字典）。第2章程序系统的结构整个学生管理系统的结构可由以下图示来表明：(B/S) 信 息发 布和 数据 查询 ，后 台 (C/S) 数 据管 理和 处理 ，学生 管 理功 能部分数据分为 5 类：新 生相关；在校生相关；组 织社团相关；毕 业 生相关；学 生成绩综合查询相关。从使用和操作的功能上分，有 三种 用户： 普通 客户 (浏 览 器浏 览、 查询 )；业 务数 据管 理人 员(学生 工 作辅导 员

4、、 教务 干事 )；系 统管 理员 。 为便 于整 个系 统组 织管理， 把 各个相 对独 立的 数据 或 功能 组织 到整 个大 系统 中来 ，我们 把各 个 相对 独立的功能完全独立设计，编译成独立的目标(功能)模块(single Executable )， 各功能模块最后被集成到一个称为虚拟桌面的 控制台 模块中。相 应地将系统结构分为一个控制台程序和五个 子系统，各 子 系统又分为若干各子模块。对应于每一个模块，几 乎都有录入、查询、 修改、删 除、查 看详细资料这几个功能。整 个业务流程就是由这几种 基本功能实现的。在这里每个模块都要用到的功能没必要在每个子模 块里重复阐述， 在每个

5、子模块里只列出区别于其它子模块的功能实 现。3.1. 系 统 控 制 台 模 块功能：各子功能模块的组织和调用； 统一的登陆界面实现到数据库服务器的登陆； 显示系科主页Web的首页(主要是系科重要通知、消息等)；学院 通知页面；系科每周工作安排。系 统图 标。设计：1. 登 陆数据 库:输入数据库服务器名(ServerIP)、用户账号()UserlD 、密码 (PassWord) ；以 账 号 DEP_Computer0 、密 码 DEP_Computer0 登陆数据 库服务器， 检索系统权限表， 根据权限设置相应功能模块： 无此用户 或禁止权限Enable := False; 浏览权限Ena

6、ble := True; 修 改 UserID := Dep_Computer1; 修改权限 Enable := True; 修 改 UserID := Dep_Computer2;2. 采 用 Win31 下程序 组、程序 项 的原 理组 织各 执行 模块 ： 登陆服务器新生录取数据、入学报道管理 学生信息(在校)管理学生社团管理 毕业生信息管理 学生成绩综合查询与统计 各程序组、程序项的显示分别可以是分层/树状/大图标/小图标 等方式 ；各程 序项 或 菜单 项的 名称 命名 为相 应功 能模 块的 目标 代 码文 件名。3可执行功能模块的调用执行：通过程序项或菜单项名称获取可执 行目标代

7、码文件名，应用 API 函 数 CreateProcess 开始执行。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)+'.exe' FillChar(St

8、artupInfo,Sizeof(StartupInfo),#0);StartupInfo.cb := Sizeof(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; CreateProcess(PChar(ExecutableFileName),nil,n il,false,CREATE_NEW_CONSOLE orNORMAL_PRIORITY_CLASS,n il,''Startup Info,Processl nfo);3.2. 新生管理子系统总体设计：新生管理子系统包含新生录取信息的导入，新生预分 学

9、号，新生班级分配，新生寝室安排，新生报到管理，新生报到信息 统计，新生欠费统计，新生分布信息，新生高考成绩分布等。设计：下面给出设计方案与实现方法输入：学生预分学号信息，寝室信息；严理：将新生按性别分入指定寝室输出：寝室名单数据表：JBXX2 :学生基本信息（简） yS_BASE :学生基本信息（详）QSZY :寝室资源表模块名称：现场报到处理输入：学生预分学号、编班、寝室安排等信息；厂毗理：根据新生到校情况，完成新生报到情况的记载以及 欠费记载输出：表格数据表：JBXX2 :学生基本信息7bjxx :班级信息XS_BASE :学生基本信息XS_BDQK :学生报到情况XS QFXX :学生欠

10、费信息模块名称：新生欠费查询统计输入：新生欠费信息；Y处理：统计欠费新生信息输出：欠费报表数据表："*JBXX2 :学生基本信息XS QFXX :学生欠费信息模块名称：新生报到情况统计输入：新生报到信息；严理：根据新生报到信息，进行各项分类统计输出：柱状图与表格信息数据表：JBXX2 :学生基本信息XS_BASE :学生基本信息XS_EXPEND :学生扩展信息BJXX :班级信息SFB :省份表MZB :民族表ZZMMB :政治面貌表模块名称：新生信息统计输入：新牛网上录取 数据库；p理：按各种分类标准，对新生的分布情况进行统计输出：饼状图与表格 信息数据表：JBXX2 :学生基本

11、信息XS_BASE :学生基本信息MZB :民族表ZZMMB :政治面貌表SFB :省份表模块名称：新生高考成绩统计输入：新生扩展信 息，新生成绩信息；厂处理：按各项成绩分别统计各分数段人数比例输出：柱状图与表格信息数据表：JBXX2 :学生基本信息 S_EXPEND :学生扩展信息T TDD :考生投档单功能：完成对新录取学生数据的导入 完成对新生数据的报到预处理(初始化) 实现新生报到现场完成，并统计报到情况 统计新生的各种分布比例和成绩分布设计： 总体设计：用 Delphi的PageCtrl控件来实现各项菜单功能，整体界面如下： 招生数据导入：可以通过选择来指定全国网上录取系统的导出数据

12、 所在路径，并根据使用手册检查25个.dbf文件是否存在，来决定是 否允许导入；在导入时采用记录的查重处理，所以，只能借助记录集 的循环来完成；其中，对政治面貌与民族表要单独处理。界面如下：主要实现文件检查的代码：function CheckDBFile(var strRst:String):boolean;vari,j:i nteger;blF oun d:boolea n;beg inarrstrFileName0:='t_tddw'arrstrFileName1:='t_jhk'/此处对表名赋值CheckDBFile:=False;blF oun d:=T

13、rue;i:=0;strRst:=' 数据表'；while (i<25)doif j=-1 then某个文件未找到，返回“假”beg inblF oun d:=False;strRst:=strRst+arrstrFileNamei+'.dbfend;i:=i+1;end;strRst:=strRst+' 不 存 在 !'if blFound then / 全 部 数 据 文 件 检 查 正 确CheckDBFile:=True;end;学 号预处理：将 导入的数据从信息库表到在校生表，并 根据考生的 考号及 其它 信息 填入 其 基本 信息 （如

14、 省份 、入 年年 份等 ）；基本处 理 思想是：根据考生年份（ 报考号前两位）与当前系统数据库的绝对学 期时间，筛 选相应的考生信息，然后从这些信息中依次在学生基本信 息表（JBXX2）中查询是否重复，来决定是否写入；如果写入，则根 据报考号（第 3、4位） 的信息， 写入考生所在省份代码。代码相对简单， 界面如下 新生 班级 编排 ：将 分 配学 号的 新生 编排 到指 定班 级中 。用 两个DBGrid （可多选）分别将未分班学生和班级信息列出来，通过手工选 中 一个 或多 个学 生， 即 可分 配班 级或 从班 级中 取消 分班 。界面如下：实现 DBGrid 多选并在数据库中 完成添

15、加的代码：beginfor i:=0 to intSelStuCnt-1 dobeginGotoBostrStuNo:=Fields0.AsString;strSql:='Update jbxx2 set BJID='+''''+strClasNo+'''' strSql:=strSql+' Where XH='+''''+strStuNo+'''' database.Execute(strSql);end;end;寝室分配与班级编排可

16、类似处理。 新生现场报到：对新生的报到程序进行计算机管理，自动检查该新 生是否已到校，是 否已完成所有报到手续，以及新生的欠费情况（ 只 记载欠费， 不记载缴费）；并根据各项手续的 完成， 来确认新 生的 报 到 状态， 为下一步查 询提供足够信息。界面如下：此处关键在于如何把数据表中“0”和“1”状 态标志以 CheckBox 的 状态输 出， 代码 如下 ：读出：if ADORegInfo.Active thenbeginstrState:=ADORegInfo.FieldByName('SFQD').AsString; if strState='1' th

17、en/ 是 否 签 到Reg1Check.Checked:=trueelseReg1Check.Checked:=false; strState:=ADORegInfo.FieldByName('ZZGX').AsString; if strState='1' then / 组 织 关 系Reg2Check.Checked:=trueelseReg2Check.Checked:=false; strState:=ADORegInfo.FieldByName('HKQY').AsString; if strState='1' the

18、n / 户 口 迁 移Reg3Check.Checked:=trueelseReg3Check.Checked:=false; strState:=ADORegInfo.FieldByName('JCK').AsString; if strState='1' then / 就 餐 卡Reg4Check.Checked:=trueelseReg4Check.Checked:=false; strState:=ADORegInfo.FieldByName('TJ').AsString;Reg5Check.Checked:=trueelseReg5Ch

19、eck.Checked:=false;end;写回数据库：ADORegInfo.Edit;if Reg1Check.Checked thenADORegInfo.FieldByName('SFQD').AsString:='1'elseADORegInfo.FieldByName('SFQD').AsString:='0'if Reg2Check.Checked thenADORegInfo.FieldByName('ZZGX').AsString:='1'elseADORegInfo.FieldB

20、yName('ZZGX').AsString:='0'if Reg3Check.Checked thenADORegInfo.FieldByName('HKQY').AsString:='1'elseADORegInfo.FieldByName('HKQY').AsString:='0'if Reg4Check.Checked thenADORegInfo.FieldByName('JCK').AsString:='1'elseADORegInfo.FieldByNa

21、me('JCK').AsString:='0'if Reg5Check.Checked thenADORegInfo.FieldByName('TJ').AsString:='1'elseADORegInfo.FieldByName('TJ').AsString:='0'ADORegInfo.Post;欠费查询可相应处理。 报 到情况统计：可 以按性别、专 业、班 级、省 份等统计学生的报到 情况，并 以柱状图和表格显示；提供自由控制条件查 询未报到 学生信丿3 0界面如下： 统计功能实现代码如下：

22、' 新 生报 到情 况( 按班 级 统计 )'); CntBySexDBChar.Series0.Clear;/清 除 图 形strSql:=''CntStrGrid.RowCount:=ADOQFCntQuery.RecordCount+1;for i:=0 to 4 do /设 置 StringGrid的 标 题beginCntStrGrid.Colsi.Clear;CntStrGrid.Colsi.Add(titleNamei);end;i:=0;RegSexTLbl.Lines.Clear; /清 空 统 计 显 示while not ADOQFCntQ

23、uery.Eof do begin intCntRegdi:=ADOQFCntQuery.FieldByName('ClassRegdCnt').As Integer;CntBySexDBChar.Series0.Add(intCntToti,inttostr(i)+'到 ',clBlue);CntBySexDBChar.Series0.Add(intCntRegdi,' 到 ',clRed); strSql:=inttostr(i)+''+trim(strClassNamei)+' 报到 比 例 :'strSql

24、:=strSql+floattostr(trunc(intCntRegdi/intCnttoti* 10000)/100)+'%'+#13;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

25、Cnttoti*10000)/100)+'%');i:=i+1;ADOQFCntQuery.Next; /下 一 个 班end; 新生分布情况统计：从学生的扩展信息与高考资料中提取信息，统 计新生的各种分布情况，以饼状图和表格信息显示出来。 界面如下：相应地， 高考成绩信息也可以按科目绘制出柱状图来反映分布情况， 对新生的整体情况有一个大概了解， 以便有针对性地开展工作。 界面如下：成绩统计的代码如下：strSql:='Select Max('+FieldName+') asMaxScore,Min('+FieldName+') as M

26、inScore,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.Open;if ADOQFCntQuery.Eof thenbeginShowMessage(' 对 不 起 , 未 找

27、到 相 关 学 生 的 成 绩 !');abort;end;for i:=0 to 2 dobeginCntScoreStrGrid.Colsi.Clear;CntScoreStrGrid.Colsi.Add(titleNamei);end;CntScoreDBChart.Series0.Clear; maxScore:=ADOQFCntQuery.FieldByName('MaxScore').AsInteger; minScore:=ADOQFCntQuery.FieldByName('MinScore').AsInteger; avgScore:=

28、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<30) do beginstrSql:='Select count(xs_base.xh) as CrntCnt from xs_base

29、,xs_expend,t_tdd'strSql:=strSql+' Where xs_base.xh=xs_expend.xh and xs_expend.bkh=t_tdd.ksh'strSql:=strSql+' and Nj='+MidStr(CurrentXQSJ,1,4); strSql:=strSql+' and'+FieldName+'>='+inttostr(intCrntScore); strSql:=strSql+' and'+FieldName+'<'+in

30、ttostr(intCrntScore+5); intCrntScore:=intCrntScore+5; ADOADOQFCntQuery.Open; intCrntCnti:=ADOQFCntQuery.FieldByName('CrntCnt').AsInteg er;strSql:=''if (isWrite) or (itemsCount<12) then strSql:=inttostr(intCrntScore-5)+'-'CntScoreDBChart.Series0.Add(intCrntCnti,strSql,intCo

31、lor i mod 11);-5)+'-'+CntScoreStrGrid.Rowsi+1.Add(inttostr(intCrntScore 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.Rowsi+1.Ad

32、d('最 高 分 ');CntScoreStrGrid.Rowsi+1.Add(inttostr( maxScore); CntScoreStrGrid.Rowsi+2.Add('最 低 分 ');Cn tScoreStrGrid.Rowsi+2.Add(i nttostr(mi nScore);CntScoreStrGrid.Rowsi+3.Add('平均分');Cn tScoreStrGrid.Rowsi+3.Add(i nttostr(avgScore);3.3. 学生在校管理子模块在校生信息管理输入：在校生基础编广Y处理：维护管理在校生管

33、理基础编码信息输出：在校生基础编码信息码模块名称：基础编码基本数数据表：基础编码奖惩信息日常管理JBXX2 :学生基本信息 BJXX :班级信息'XS YDLB :异动类型信息勤工助学信息基它信息Xs BZlB信块名称入:在校生学号替学生基本信息生基本2帶S_J；Dxlbx室b弩S.1Xs_Qs洁Y sfb省份信生处理型信息在校 生 异困难学生:根据学生简况,罚 信 息管言息管理系科学生基本信困 难 补 助 管 理学期注册学年鉴疋出:在校在 校 生 欠 费 管基本信在校生日数据表' JBXX2 :学生基本信息BJXX :班级信息XS_BASE :在校生基本信息XS EXPEND

34、 :在校生扩充信息模块名称：班级基本信息输入：班级基本信息厂Y处理：根据班级简况信息管理班级详细数据输出：班级详细数据数据表:JJXX :班级信息xs bjxx :班级基本信息模块名称：新生学号替换输入：新生正式学号 分配信息厂*处理：用新生正式学号替换相关数据表中新生临时学号输出：在校生正式学 号分配信息数据表:JJbXX2 :学生基本信息其它相关使用新生临时学号数据用于新生临时学号的导岀和正式学号的导入的数 据表（本地表）模块名称：在校生日常考勤管理输入：在校生日常考处理：维护和管理在校生日常考勤信息输出：在校生考勤信勤信息息及相关统计报表数据表：LBXX2 :学生基本信息BJXX :班级

35、信息XS KQXX :学生考勤信息模块名称：在校生寝室清洁卫生管理输入：在校生寝室清洁卫生信息一 理：维护管理在校生寝室清洁卫生信息输出：在校生寝室清洁卫生数据及相关统计报表数据表：JBXX2 :学生基本信息BJXX :班级信息XS QJWS :异动类型信息模块名称：在校生奖励信息管理输入：在校生奖励信息广Y处理：维护管理在校生奖励信息输出：在校生奖励信息数据表:JBXX2 :学生基本信息BJXX :班级信息XS HJXX :奖励信息模块名称：在校生处罚信息管理输入：在校生处罚信息厂处理：维护管理在校生处罚信息输出：在校生处罚信息数据表:JBXX2 :学生基本信息BJXX :班级信息XS CF

36、XX :处罚信息模块名称：在校生异动信息管理输入：在校生异动信 息厂处理：维护管理在校生异动信息输岀：在校生异动信 息数据表：J勺BXX2 :学生基本信息BJXX :班级信息XS YDXX :异动信息模块名称：困难学生基本信息输入：困难学生基本 信息广Y处理：维护管理困难学生收入来源及生活情况输出：困难学生基本 信息数据表：JjBXX2 :学生基本信息BJXX :班级信息XS KNXX :困难学生基本信息模块名称：困难补助信息管理输入：在校生接受困难补助信息厂处理：维护管理在校生困难补助情况输岀：在校生困难补 助信息数据表：JjBXX2 :学生基本信息BJXX :班级信息XS KNBZ :困难

37、补助信息模块名称：勤工俭学信息管理输入：在校生勤工俭厂处理：维护管理在校生勤工俭学情况输出：在校生勤工俭学信息学信息数据表：BXX2 :学生基本信息BJXX :班级信息XS QGZX :勤工俭学信息模块名称：在校生学期注册信息管理输入：在校生学期注册信息厂处理：管理在校生学期报到注册信息，并验证学生基本信 息以学生欠费信息输出：在校生学期注册信息数据表：J'FBXX2 :学生基本信息BJXX :班级信息XS_XQZC :困难补助信息 XS_BASE :学生基本信息信息 XS QFXX :学生欠费信息模块名称：在校生学年鉴定信息管理输入：在校生学年鉴 定信息厂处理：管理在校生学年鉴定信息

38、输出：在校牛学年鉴 定信息数据表：JJBXX2 :学生基本信息BJXX :班级信息XS XNJD :学生学年鉴定信息模块名称：在校生欠费信息管理输入：在校生欠费信 息厂e处理：管理在校生欠费信息输出：在校生欠费信息数据表：j BXX2 :学生基本信息BJXX :班级信息XS QFXX :学生欠费信息模块名称：在校生日志信息管理输入：在校生日志信息厂e处理：管理在校生日志信息输出：在校生日志信息数据表：乙测BXX2 :学生基本信息BJXX :班级信息XS RZXX :学生日志信息功能：在校生信息管理基础编码的维护和管理；在校生详细信息维护和管理；班级详细信息维护和管理；新生入校分配正式学号后对数

39、据表中相关使用临时学号的数据进行 替换；在校生日常缺勤信息的维护以及制作相关统计报表；在校生寝室清洁卫生的维护和相关报表制作；在校生奖惩信息的维护和管理；在校生异动信息（转系、留级、退学、休学、停学等）维护和管理； 困难学生基本信息管理以及困难补助和勤工俭学信息管理； 在校生学期注册信息管理；在校生学年鉴定信息管理；在校生欠费信息管理；在校生其它日志信息管理设计：本模块采用多文档窗体的形式，并提供子窗体排列的两种不同形式 （层叠和平铺）1. 基础编码管理采用分页结构，完成在校生管理中所需要的基础字典进行编码；2. 学生基本信息管理采用 分页 结构 ，在 学生 简况 信息 的基 础上 完成 其它

40、 详细 信息 的 编辑 和查询功能(需检验学生基本信息的唯一性) case pagecontrol1.ActivePageIndex of0: jbxxquery.Locate('xh',dbedit1.Text,loPartialKey);/ 定位指定学生记录1: beginxsjbxxtable.Filtered:=false; xsjbxxtable.Filter:='xh='+''''+dbedit4.Text+''''xsjbxxtable.Filtered:=true;if xsjbxx

41、table.recordcount=0 then dbnavigator1.VisibleButtons:=nbFirst,nbPrior,nbNext,nbLast ,nbInsert,nbDelete,nbEdit,nbPost,nbCancel/如 不 存 在 该 学 生基本信息则允许新建else dbnavigator1.VisibleButtons:=nbFirst,nbPrior,nbNext,nbLast ,nbDelete,nbEdit,nbPost,nbCancel;/ 如 存 在 学 生 基 本 信 息 则 不允许新建end;3. 班级基本信息管理 在班级简况信息的基础上完

42、成班级其它详细信息的维护和管理4. 新生学号替换在新生进校后，正 式学号可能会延时分配，因此，在新生的管理为方 便进行管理设置了临时学号，在正式学号分配完成后，应将数据表中 新生数据临时学号替换为正式学号先选取要进行学号替换的班级，生成新生学号输入表(本地数据库LOCALDB.MDB 并以班级编号为名建表； xsxm char(8),xb char(2),newxh char(11)'adocommand1.Execute;/ 创建本地新生学号输入表while not bj_query.Eof do beginldbyname('xh').asstring+'&

43、#39;''+','+''''+bj_query.Fieldbyname( 'xm').asstring+''''+','+''''+bj_query.Fieldbyname('xb').asstring+''''+',null)'adocommand1.Execute;/在 本 地 输 入 表 中 添 加 学 生 基 本 数 据bj_query.Next;end;再导出新

44、生输入表，并允许再进行编辑； localtable.Close;localtable.localtable.Active:=true;/ 导入新 生正式学 号输 入表localtable.FieldByName('oldxh').DisplayLabel:='旧 学 号 'localtable.FieldByName('xsxm').DisplayLabel:=' 姓 名 ' localtable.FieldByName('xb').DisplayLabel:=' 性 别 ' localtable.

45、FieldByName('newxh').DisplayLabel:='新 学 号 'button5.Enabled:=true;/允 许 进 行 学 号 替 换最后进行学号替换for i:=1 to 16 dobegin progressbar1.Position:=j;/round(100/(adotable2.RecordCount*15)label7.Caption:='学 号 替 换 正 在 进 行 当中 'th_query.Open;/ 选 取 要进 行替 换的 数据 表while not th_query.Eof dobeginif

46、 localtable.FieldValues'newxh'<>null thenbegin th_query.Edit;th_query.FieldValues'xh':=localtable.fie ldbyname('newxh') .asstring;/ 进行学 号 替换th_query.Post; end;th_query.Next;end;5. 学生日常考勤信息管理主要记载在校生日常缺勤信息，并提供分班分时间段的查询和统计，并进行班级出勤情况的比较编辑界面：j:=1; bjquery.First;while not bjq

47、uery.Eof dobeg infor i:=1 to comboboxl.ltem In dex+1 dobeg inrckqquery.Close; rckqquery.SQL.clear;生成统计字符串k='+”+edit2.Text+”+' and xs_kqxx.wday= CAST('+i nttostr(i)+' AS char )');/ rckqquery.Ope n;while not rckqquery.Eof dobeg instri nggrid1.Cellsi,j:=trim(rckqquery.fieldb yn ame(

48、'xm').AsStri ng)+''+trim(rckqquery.fieldb yn ame('qqjc').asstri ng)+','rckqquery.Next;/ 将统计结果写入数据网格 end;end;bjquery.Next; j:=j+1;end;6. 学生寝室清洁卫生信息管理完成学 生寝 室清 洁卫 生 信息 的管 理功 能，并 提供 近几 周内 清洁 卫 生的 对比情况(主要分为得分为A '和得分为C '两种情况) 编辑界面：统计界面( 分数据表和图表两种统计形式)for i:=1 to st

49、rtoint(edit2.Text) dobeginstringgrid1.cells0,i:=inttostr(i); qjwsquery.Close;.XQ = '+''''+edit1.Text+''''+' AND XS_QJWS.Week =CAST('+inttostr(i)+' AS char(2)'+' and xs_qszy.xkid='+''''+zxsglfrm.CurrentXKID+'''

50、9;+' and upper(xs_qjws.df)='+''''+'A'+'''');/生成 统计 字符 串( 统计 得分为A的寝室)qjwsquery.Open; stringgrid1.Cells1,i:=inttostr(qjwsquery.recordcount);chart1.Series0.Add(qjwsquery.recordcount,'第'+i nttostr(i)+'周',clred); 将统计结果写入图表while not qjwsquery

51、.Eof do beginstringgrid1.Cells2,i:=stringgrid1.Cells2,i+qjwsquery.fi eldbyname('zh').AsString+'-'+qjwsquery.fieldbyname('qsh').A sString+',' /将统计结果写入数据网格qjwsquery.Next;end;qjwsquery.Close;NER JOIN XS_QSZY ON XS_QJWS.ZH = XS_QSZY.QSZH AND XS_QJWS.QSH = XS_QSZY.FJH WHER

52、E 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'

53、+'''');/生成统计字符串( 统计得 分为C的寝室)qjwsquery.Open;stringgrid1.Cells3,i:=inttostr(qjwsquery.recordcount); chart1.Series1.Add(qjwsquery.recordcount,' 第'+inttostr(i)+' 周 ',clblue);/将 统 计 结 果 写 入 图 表while not qjwsquery.Eof dobeginstringgrid1.Cells4,i:=stringgrid1.Cells4,i+qjwsqu

54、ery.fi eldbyname('zh').AsString+'-'+qjwsquery.fieldbyname('qsh').A sString+',' / 将 统 计 结 果 写 入 数 据 网 格qjwsquery.Next;end;end;7完成在校生奖励信息管理在进行数据输入的过程中采用层层筛选的方式，避免输入过程中发生 输入错误先筛选班级curxq_edit.Text:=zxsglfrm.CurrentXQSJ; bjxs_query.Open;再筛选学生bjxs_query.Close; bjxs_query.Op

55、en;最后允许编辑8. 完成在校生处罚信息管理同在校生奖励信息类似9. 完成在校生异动信息的记载，处理部分在学生简况管理中完成 同在校生奖励信息类似10. 在校困难学生基本信息、困难补助信息、勤工俭学信息维护和管理在学生递交困难补助或勤工俭学申请书后， 将学生困难信息存入档 案， 进行困难补助和勤工俭学管理时依据困难学生档案来进行11在校生学期注册管理学生每期进行注册时，记 载注册时间，并同时提供学生基本信息的完 善和欠费信息的查询 由当前班级和注册时间来确定数据表中是否该班已经生成注册数据， 在注册过程中实时查看当前注册情况；允许多人同时注 册，也可在注 册时查看学生当前基本信息是否完善以及

56、是否存在欠费验证是否已生成班级学期注册表if (yzcrs=0)and (wzcrs=0) thenbeginwn thenbutton4.Enabled:=true/未 生 成 学 期 注 册 数 据 ，则 允 许 生 成elsebutton4.Enabled:=false;/已 生 成 学 期 注 册 数 据endelsebeginbutton4.Enabled:=false;多人注册：beginbeginxszctable.Locate('xh;xq;term',VarArrayOf(fields1.AsString,zcxq_edit.Text,inttostr(zct

57、erm_combo.ItemIndex+1),loPartialKey);xszctable.Edit;xszctable.FieldValues'zcsj':=zcsj_edit.Text;xszctable.Post;end;end;已注册人数未注册人数当前学生报到注册情况查看：yzc_edit.Text:=inttostr(yzcrs);/ wzc_edit.text:=inttostr(wzcrs);/chart1.Series0.Clear;chart1.Series0.Add(strtoint(wzc_edit.text),'未 注 册',clblu

58、e);chart1.Series0.Add(strtoint(yzc_edit.text),'已 注 册',clred);/ 图表 查看12. 在校生学年鉴定管理根据当 前选 定班 级及 鉴 定学 年生 成学 年鉴 定表 ，然后 填写 学生 学 年鉴 定数据判定当前数据表中是否已生成班级学年鉴定数据xsjd_query.close; xsjd_query.Open;if xsjd_query.RecordCount=0 thenbegin/ 生成班级学年鉴定数据xnjdtable.Active:=true;while not xsjd_query.eof dobegin xnjdtable.Append;xnjdtable.FieldValues'xh':=xsjd_query.FieldByName('x