学生成绩管理系统开发设计报告.doc

目录需求分析11.1数据录入11.2数据修改21.3数据查询21.4关于系统3概要设计32.1开发与设计的总体思想32.2 系统模块结构图32.3 模块设计4详细设计94.1.1数据录入中系部、班级、专业、课程资源的录入通过该过程实现94.1.2学生基本信息的录入通过如下过程实现：104.2.1学生基本信息的修改功能实现的过程如下：114.2.2用户管理中的用户信息的修改，过程如下：124.3.1精确成绩查询的过程如下：134.3.2模糊成绩查询的过程如下：14总结15数据库开发与设计分析报告学生成绩管理系统需求分析该系统的使用者应该是学校授权的部门的工作人员，通过登录界面进行登录。登录界面中包括用户登录，新用户注册，超级管理员登录，退出系统四个功能，使用者可根据任务的具体分配来进行登录，登录后即可对该系统进行使用。该系统主要有三大模块：数据录入；数据修改；数据查询；关于系统，每个模块又可划分为如下子模块：1.1数据录入1.1.1系部录入 管理员可以就学校的系部设置，对该系统的初始状态进行修改，直至与学校的系部情况相吻合。1.1.2专业录入 管理员结合各个系部中专业的设置，对该系统的初始状态进行修改，使系统所显示的内容如实际情况一致。1.1.3班级录入 根据各专业中各个班级的实际情况，对该系统的初始状态进行修改，使系统所显示的内容如实际情况一致。1.1.4课程资源录入 录入数据包括所在系别、所在班级、所在专业、课程代号、课程名称。1.1.5学生基本信息录入 录入数据包括必填信息和选填信息，必填信息有学号、姓名、性别、出生年月、籍贯、所在院系、所在班级、家庭住址、邮政编码、政治面貌、联系电话；选填信息包括：身份证号码、现在学历、个人特长、学制、外语、电子邮箱、个人备注。1.1.6成绩录入 录入数据包括必填信息和选填信息，必填信息有学号、姓名、性别、所在院系、所在班级、课程代号、课程名称、学期、成绩；选填信息包括：备注内容。1.2数据修改1.2.1学生基本信息修改 对学生的基本信息可以有管理员进行修改，可修改的内容如录入的学生基本信息相同，修改后进行核对，无误按修改按钮进行修改。1.2.2学生成绩修改 学生的成绩可有管理员进行修改，可修改内容如成绩录入的信息相同，修改后进行核对，无误按修改按钮进行修改。1.2.3课程资源修改 课程资源的修改由管理员操作，修改的信息如录入的课程资源相同，修改后进行核对，无误按修改按钮进行修改。1.3数据查询1.3.1学生基本信息查询 查找的方式有以下几种：系别、班级、姓名、专业、学号，通过一个或者几个条件对查询进行限定，可缩小或扩大查询范围。1.3.2学生成绩查询 分为精确查询与模糊查询，精确查询应通过学号进行；模糊查询学号、姓名、学期、所在系别、所在专业、所在班级、课程名称、课程代号。1.3.3学生课程资源查询 所在系别、所在班级、所在专业、课程代号、课程名称通过这些条件对查询范围进行缩小或者扩大。1.4关于系统该系统的名称及系统开发人员的信息，既对系统的介绍，及开发团队的介绍。概要设计根据需求分析的结果，成绩管理系统应设计成一个适合于成绩管理与录入的，易于操作的管理信息系统软件，下面从软件的整体结构设计、接口设计来阐述系统的概要设计。2.1开发与设计的总体思想成绩管理系统为了方便负责该工作的部门进行自动化的管理，因此将该系统设计为一个相对封闭的单机运行系统。同时，也处于安全性考虑该系统不提供与该部门其他系统的数据交互。系统应该界面美观、简单易用，以实现成绩管理的基本业务处理的计算机才处理。系统采用结构化方法进行设计，采用快速开发平台Delphi7.0进行开发。2.2 系统模块结构图依据需求分析结构，成绩管理系统分为四个模块：数据录入模块，数据修改模块，数据查询模块，关于系统模块。系统模块结构如图1.1所示成绩管理系统数据录入数据修改数据查询关于系统图1.1 系统模块结构图 2.3 模块设计2.3.1数据录入模块系统管理员通过此模块进行数据的录入，包括学生基本信息的录入，学生成绩的录入，课程资源的录入，专业录入，班级录入，系部录入。此模块为数据修改模块及数据查询模块提供了信息，既数据修改模块与数据查询模块依赖于数据录入模块输出的数据来实现其功能。数据录入模块的模块功能树如图1.2所示数据录入系部录入专业录入班级录入学生信息录入入成绩录入课程资源录入图1.2 数据录入模块功能树图2.3.2数据修改模块对录入模块输出的信息进行修改。包括学生基本信息的修改，学生成绩的修改，课程资源的修改。数据修改模块功能树如图1.3所示。数据修改学生信息修改课程资源修改学生成绩修改图1.3 数据修改模块功能树图2.3.3 数据查询模块通过数据录入模块输出的信息，可以对如下的信息进行查询，学生基本信息查询，学生成绩查询，课程资源查询。数据查询模块功能树如图1.4所示。数据查询学生信息查询课程资源查询学生成绩查询图1.4 查询模块功能树图2.4界面设计界面设计应遵守简洁美观、方便易用的基本原则。2.4.1登陆界面的设计登陆界面应本着简洁易于理解的设计原则进行设计，包括登陆、新用户注册、超级管理员登陆、退出。具体设计效果图如图1.5所示。图1.5 登陆界面设计效果图2.4.2 数据录入界面的设计具体设计效果如图1.6所示。图1.6 数据录入界面2.4.3 超级管理员登陆界面设计图1.7 超级管理员邓丽界面2.4.4 学生成绩管理系统总界面具体设计效果如图1.7所示。图1.8学生成绩管理界面2.3.1 数据修改界面的设计图1.9学生成绩修改界面2.3.2 数据查询界面的设计图2.0学生成绩修改界面2.3.3 学生基本信息录入图2.1 学生成绩修改界面详细设计4.1.1数据录入中系部、班级、专业、课程资源的录入通过该过程实现procedure TForm10.N2Click(Sender: TObject);var strName:string; myNode:TTreeNode;begin strName:=inputbox(新增系部,请输入系部名称： ,);/* 新增系部处可以对应为新增专业、新增班级、课程资源数据*/ strName:=trim(strName); if strName= then exit; myNode:=treeview1.Items.Add(treeview1.Selected,strName); if assigned(treeview1.Selected) then AddDataToDB(myNode,treeview1.Selected.Parent) else AddDataToDB(myNode,nil); myNode.selected:=true;end;4.1.2学生基本信息的录入通过如下过程实现：rocedure TForm9.SpeedButton1Click(Sender: TObject);beginbeginwith ADOQuery1 do begin close; SQL.Clear; SQL.Add(select * from 成绩信息表 where 成绩信息表.学号=:a); parameters.ParamByName(a).Value:=Trim(Edit1.Text); Open; end; if (edit1.Text=)or(edit2.Text=)or(edit3.Text=) or (edit4.Text=)or (edit5.Text=)or (edit6.Text=)or (edit7.Text=)or (edit8.Text=)or(combobox1.Text=)or(combobox2.Text=) thenbeginapplication.MessageBox(信息不完整！,错误操作,mb_ok);exit;endelse if ADOQuery1.Eof=false then begin ShowMessage(该学生已经存在，请重新填写); Edit1.Clear endelsebeginadoquery1.close;adoquery1.sql.clear;Adoquery1.sql.add(insert into 成绩信息表(学号,姓名,性别,所在系别,所在专业,所在班级,课程名称,课程代号,学期,成绩,备注内容)+values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11);Adoquery1.parameters.parambyname(1).value:=+Edit1.Text+;Adoquery1.parameters.parambyname(2).value:=+Edit2.Text+;Adoquery1.parameters.parambyname(3).value:=+combobox1.Text+;Adoquery1.parameters.parambyname(4).value:=+combobox2.Text+;Adoquery1.parameters.parambyname(5).value:=+Edit3.Text+;Adoquery1.parameters.parambyname(6).value:=+Edit4.Text+;Adoquery1.parameters.parambyname(7).value:=+Edit5.Text+;Adoquery1.parameters.parambyname(8).value:=+Edit6.Text+;Adoquery1.parameters.parambyname(9).value:=+Edit7.Text+;Adoquery1.parameters.parambyname(10).value:=+Edit8.Text+;Adoquery1.parameters.parambyname(11).value:=+memo1.Text+;Adoquery1.execsql;application.MessageBox(数据已录入，请查看！,完成提示,mb_ok);edit1.Text:=;edit2.Text:=;end;end;end;end.4.2.1学生基本信息的修改功能实现的过程如下：procedure TForm10.BitBtn8Click(Sender: TObject);beginif dbgrid1.SelectedIndex=0 thenif (DBedit1.Text=)or(DBedit1.Text=)or(DBedit3.Text=) or (DBedit4.Text=)or (DBedit5.Text=)or (DBedit6.Text=)or (DBedit7.Text=)or (DBedit8.Text=)or (DBedit9.Text=)or (DBedit10.Text=)or (DBedit11.Text=)or (DBedit12.Text=)or (DBedit13.Text=)or (DBedit14.Text=)thenbeginapplication.MessageBox(信息不完整！,错误操作,mb_ok);exit;endelsebeginadoquery2.Edit;adoquery2.Post;application.MessageBox(你已修改该记录的信息,修改提示,mb_ok);endelseapplication.MessageBox(没有记录可修改或没有选定要修改记录！,修改提示,mb_ok);end;4.2.2用户管理中的用户信息的修改，过程如下：procedure TForm7.SpeedButton2Click(Sender: TObject);varh,k,t,r:string;beginif pagecontrol1.ActivePage=tabsheet1 then if dbgrid1.SelectedIndex=0 then beginh:=DBedit2.Text;k:=DBedit3.Text; if (DBedit1.Text=)or(DBedit2.Text=)or(DBedit3.Text=) or (DBedit4.Text=)or (DBedit5.Text=)or (DBedit6.Text=)or (DBedit7.Text=)or (DBedit8.Text=)or (DBedit9.Text=)or (DBedit10.Text=)thenbeginapplication.MessageBox(信息不完整！,错误操作,mb_ok);exit;endelseif hk thenbeginapplication.MessageBox(密码不匹配！,错误操作,mb_ok);exit;endelseif not (IsVaildEmailAddr(DBEdit8.Text) then begin ShowMessage(您输入的电子邮件地址格式不合法!); exit; endelse adodataset1.Edit; adodataset1.Post; application.MessageBox(你已修改该用户的信息,修改提示,mb_ok);endelseapplication.MessageBox(没有用户可修改或没有选定要修改用户！,修改提示,mb_ok);if pagecontrol1.ActivePage=tabsheet2 then if dbgrid2.SelectedIndex=0 then begint:=DBedit12.Text;r:=DBedit13.Text; if (DBedit11.Text=)or(DBedit12.Text=)or(DBedit13.Text=) or (DBedit14.Text=)or (DBedit15.Text=)or (DBedit16.Text=)or (DBedit17.Text=)or (DBedit18.Text=)or (DBedit19.Text=)or (DBedit20.Text=)thenbeginapplication.MessageBox(信息不完整！,错误操作,mb_ok);exit;endelseif tr thenbeginapplication.MessageBox(密码不匹配！,错误操作,mb_ok);exit;endelseif not (IsVaildEmailAddr(DBEdit18.Text) then begin ShowMessage(您输入的电子邮件地址格式不合法!); exit; endelse adoquery1.Edit; adoquery1.Post; application.MessageBox(你已修改该用户的信息,修改提示,mb_ok);endelseapplication.MessageBox(没有用户可修改或没有选定要修改用户！,修改提示,mb_ok);end;4.3.1精确成绩查询的过程如下：procedure TForm10.BitBtn4Click(Sender: TObject);beginDBgrid2.Visible:=true;DBgrid1.Visible:=false;if edit12.Text= then begin MessageBox(handle,请输入姓名,不能为空！,提示,MB_OK or MB_ICONINFORMATION); exit; endelse begin adoquery1.SQL.Clear; adoquery1.Close; adoquery1.sql.add(select *from 成绩信息表 where 学号=+Edit12.Text+); MessageBox(handle,查询完毕！,提示,MB_OK or MB_ICONINFORMATION); adoquery1.Open; statusbar1.Panels1.Text:=总共找到 +inttostr(ADOQuery1.RecordCount)+ 条记录; edit12.Text:=; end;end;4.3.2模糊成绩查询的过程如下： procedure TForm10.BitBtn3Click(Sender: TObject);varsql:string;beginDBgrid1.Visible:=true;DBgrid2.Visible:=false;DBgrid1.Font.Color:=clteal;if (edit6.Text)or (edit7.Text)or (edit8.Text)or (edit9.Text)or (edit10.Text)or (edit11.Text)or (combobox2.Text)then sql:=where (学号 like+%+edit6.Text+%) or (姓名 like+%+edit7.Text+%) or (所在系别 like+%+combobox2.Text+%) or (所在专业 like+%+edit8.Text+%) or (所在班级 like+%+edit9.Text+%) or (贯籍 like+%+edit10.Text+%)or (政治面目 like+%+edit11.Text+%) else begin application.messagebox(没有查询条件！,提示,mb_ok); exit; end; ADOQuery2.Close ; ADOQuery2.