《研讨毕业论文学生管理系统》由会员分享，可在线阅读，更多相关《研讨毕业论文学生管理系统（18页珍藏版）》请在金锄头文库上搜索。
1、研讨毕业论文学生管理系统研讨毕业论文学生管理系统导读：详细设计说明书 学生管理系统 乐山师范学院计算机科学系Attract工作室2003/08/30编写说明标题：详细设计说明书类别：文档密级：内部编辑软件：Microsoft enu.IndexOf(MenuItem);j:=StartMenu.Itemsi.IndexOf(MenuItem);case StartMenu.Itemsi.Itemsj.Tag of1: alloe :=Trim(StartMenu.Itemsi.Itemsj.Name)+.exe FillChar(StartupInfo,Sizeof(StartupInfo),
2、#0); StartupInfo.cb := Sizeof(StartupInfo);StartupInfo.de), ,nil,nil,false,CREATE_NEAL_PRIORITY_CLASS,nil,.,StartupInfo,ProcessInfo);5详细设计说明书 5 6 7 8 9 10 研讨毕业论文学生管理系统(2)导读：ndexOf(arrstrFileName+.dbf);ifj=-1then/某个文件未找到，返回“假”beginblFound:=False;strRst:=strRst+arrstrFileName+.dbf;end;i:=i+1;end;strRs
3、t:=strRst+不存在!;ifblFoundthen/全部数据文件检查正确CheckDBFile:=True;end;学号预处理：将导入的数据从信息库表到在校生表，并根据考生的3.2. 新生管理子系统总体设计：新生管理子系统包含新生录取信息的导入，新生预分学号，新生班级分配，新生寝室安排，新生报到管理，新生报到信息统计，新生欠费统计，新生分布信息，新生高考成绩分布等。 设计：下面给出设计方案与实现方法。 6详细设计说明书 7详细设计说明书 8详细设计说明书 功能：完成对新录取学生数据的导入完成对新生数据的报到预处理（初始化）实现新生报到现场完成，并统计报到情况统计新生的各种分布比例和成绩分
4、布设计：总体设计：用Delphi的PageCtrl控件来实现各项菜单功能，整体界面如下：9详细设计说明书 招生数据导入：可以通过选择来指定全国X上录取系统的导出数据所在路径，并根据使用手册检查25个.dbf文件是否存在，来决定是否允许导入；在导入时采用记录的查重处理，所以，只能借助记录集的循环来完成；其中，对政治面貌与民族表要单独处理。界面如下： 主要实现文件检查的代码：10详细设计说明书function CheckDBFile(var strRst:String):boolean;vari,j:integer;blFound:boolean;beginarrstrFileName0:=t_t
5、dde1:=t_jhk; /?此处对表名赋值CheckDBFile:=False;blFound:=True;i:=0;strRst:=数据表;s.IndexOf(arrstrFileNamei+.dbf); if j=-1 then/某个文件未找到，返回“假”beginblFound:=False;strRst:=strRst+arrstrFileNamei+.dbf ;end;i:=i+1;end;strRst:=strRst+不存在!;if blFound then /全部数据文件检查正确CheckDBFile:=True;end;学号预处理：将导入的数据从信息库表到在校生表，并根据考生
6、的考号及其它信息填入其基本信息（如省份、入年年份等）；基本处理思想是：根据考生年份（报考号前两位）与当前系统数据库的绝对学期时间，筛选相应的考生信息，然后从这些信息中依次在学生基本信息表（JBXX2）中查询是否重复，来决定是否写入；如果写入，则根据报考号（第3、4位）的信息，写入考生所在省份代码。 代码相对简单，界面如下11详细设计说明书 新生班级编排：将分配学号的新生编排到指定班级中。用两个DBGrid（可多选）分别将未分班学生和班级信息列出来，通过手工选中一个或多个学生，即可分配班级或从班级中取消分班。 界面如下： 实现DBGrid多选并在数据库中完成添加的代码：?ark(pointer(
7、StuDBGrid.SelectedRosi); strStuNo:=Fields0.AsString;strSql:=Update jbxx2 set BJID=+strClasNo+; strSql:=strSql+ e(SFQD).AsString; if strState=1 then /是否签到Reg1Check.Checked:=trueelseReg1Check.Checked:=false;strState:=ADORegInfo.FieldByName(ZZGX).AsString; if strState=1 then /组织关系Reg2Check.Checked:=tru
8、eelseReg2Check.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 /就餐卡Reg4Check.Checked:=trueelseReg4Check.Checked:=false;strState:=ADORegInfo.F
9、ieldByName(TJ).AsString; if strState=1 then /体检Reg5Check.Checked:=trueelseReg5Check.Checked:=false;end;?写回数据库：?ADORegInfo.Edit;14详细设计说明书if Reg1Check.Checked thenADORegInfo.FieldByName(SFQD).AsString:=1elseADORegInfo.FieldByName(SFQD).AsString:=0;if Reg2Check.Checked thenADORegInfo.FieldByName(ZZGX).
10、AsString:=1elseADORegInfo.FieldByName(ZZGX).AsString:=0;if Reg3Check.Checked thenADORegInfo.FieldByName(HKQY).AsString:=1elseADORegInfo.FieldByName(HKQY).AsString:=0;if Reg4Check.Checked thenADORegInfo.FieldByName(JCK).AsString:=1elseADORegInfo.FieldByName(JCK).AsString:=0;if Reg5Check.Checked thenA
11、DORegInfo.FieldByName(TJ).AsString:=1elseADORegInfo.FieldByName(TJ).AsString:=0 5 6 7 8 9 10 研讨毕业论文学生管理系统(3)导读：FieldName+)asAvgScore;strSql:=strSql+Fromt_tdd,xs_base,xs_expendidStr(CurrentXQSJ,1,4);ADOQFCntQuery.SQL.Clear;ADOQFCntQuery.SQL.Add(strSql);ADOQFCntQuery.Open;ifADOQFCntQuery.EofthenbeginS
12、hoei);end;i:=0;RegSexTLbl.Lines.Clear; /清空统计显示e(ClassRegdCnt).AsInteger;CntBySexDBChar.Series0.Add(intCntToti,inttostr(i)+应16详细设计说明书到,clBlue);CntBySexDBChar.Series0.Add(intCntRegdi,到,clRed); strSql:=inttostr(i)+trim(strClassNamei)+报到比例:;strSql:=strSql+floattostr(trunc(intCntRegdi/intCnttoti*10000)/1
13、00)+%+#13;RegSexTLbl.Lines.Add(strSql);CntStrGrid.Roei);CntStrGrid.Roe+) asMaxScore,Min(+FieldName+) as MinScore,AVG(+FieldName+) as AvgScore;strSql:=strSql+ From t_tdd,xs_base,xs_expend idStr(CurrentXQSJ,1,4); ADOQFCntQuery.SQL.Clear;ADOQFCntQuery.SQL.Add(strSql);ADOQFCntQuery.Open;if ADOQFCntQuery
14、.Eof thenbeginShoei);19详细设计说明书end;CntScoreDBChart.Title.Text.Clear;CntScoreDBChart.Title.Text.Add(新生高考成绩统计+itemName+);CntScoreDBChart.Series0.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;isidStr(CurrentXQSJ,1,4); strSql:=strSql+ and+FieldName+>=+inttostr(intCrntScor
