学生成绩管理系统设计报告材料

《学生成绩管理系统设计报告材料》由会员分享，可在线阅读，更多相关《学生成绩管理系统设计报告材料（37页珍藏版）》请在装配图网上搜索。

1、word南 京 理 工 大 学数据库课程设计作 者:学 号：学院(系):计算机科学与工程学院专业:网络工程题 目:学生成绩管理系统指导教师:衷宜2013 年 9 月目录一、概述 3二、需求分析4三、系统设计9四、系统实施15五、系统测试29六、收获和体会 33七、附录34八、参考文献34一、概述1、项目背景当今时代是飞速开展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进展信息管理。使用计算机进展信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进展信息管理与信

2、息管理系统的开发密切相关，系统的开发是系统管理的前提。目前随着个大高校的扩招，在校学生数量庞大。拥有一款好的学习成绩管理系统软件，对于加强对在校生的成绩管理起到积极作用。并且，可以为在校生随时查阅自己的成绩信息、教师录入成绩、管理员进展信息维护等提供方便，为学校节省大量人力资源本系统就是为了管理好学生成绩信息而设计的。2、编写目的首先,学生成绩管理是一个学校不可缺少的局部，它的容对于学校的管理者和学生以与学生家长来说都至关重要，所以一个良好的学生成绩管理系统应该能够为用户提供充足的信息和快捷的查询手段。学生成绩管理系统对学校加强学生成绩管理有着极其重要的作用.作为计算机应用的一局部，使用计算机

3、对学生成绩信息进展管理，具有手工管理所无法比拟的优点。例：检索迅速、查找方便、可靠性高、存储量大、性好、寿命长、本钱低等。这些优点能够极提高管理者管理的效率,也是学校走向科学化、正规化管理,与世界接轨的重要条件。因此，开发设计这样一套学生成绩管理软件成为很有必要的事情。其次，初步掌握软件开发的流程，熟悉delphi与SQL的使用方法，达到能够较好的运用两者制成能实现初步功能的管理系统，锻炼自己的动手能力，同时，在合作中更好的与同学交流，这些都是必要的。最后，自己动手编程序，能更好的提升对本专业的爱好，初步了解本专业的开展方向，为将来的毕业与找工作奠定根底。3、软件定义该学生管理管理信息系统是基

4、于Internet/Intranet与C+技术，建立以以数据库为后台核心应用、以服务为目的信息平台，对资源进展科学的加工整序和管理维护，为教学和科学研究提供文献信息保障和提高管理学生成绩的效率而设计的系统。4、开发环境本系统采用windows7，XP作为操作平台，前台开发工具采用delphi7.0，数据库管理采用SQL SERVER 2008。二、需求分析1、问题的提出为了提高高校学生成绩信息的管理效率，方便学生和教师对学生成绩信息进展查询、方便学校里面管理员去管理和查询学生信息，建立一个学生成绩管理系统，使学生信息管理工作规化，系统化，程序化，防止学生成绩管理的随意性，提高信息处理的速度和准

5、确性，能够与时、准确、有效的查询和修改学生信息是必须而且十分迫切的工作。本次课程设计题目为学生成绩管理系统，涉与成绩管理系统的登录界面、教师对学生成绩的查询、学生对学生成绩的查询、教务员对学生成绩的增删改查统计等容。本功能实现对学生信息、教师信息情况信息的管理和统计、课程信息和成绩信息查看与维护。2、系统的业务功能分析学生成绩管理系统应当将学生与教务员区分开来，因为增、删、改、统计的权限应当只有教务员才拥有，学生只能查询与自己相关的记录，教师查询自己所授课程的记录，而教务员如此录入数据，进展增删改与统计。另外，在日常学习生活中，为了方便教师和同学了解情况，需要提供平均分、最高低分、排名等供教师

6、和学生查询。具体分析：按照教师，学生，管理员三种角色设计系统功能。学生要能够查询自己所学课程的成绩，查看自己不同课程的成绩、GPA以与排名，查看个人信息、修改个人登录密码等。教师要实现对自己所教授课程中所有学生成绩的查询、以与对自己所教班上同学的各分数段成绩单人数成绩的查询排序功能，个人资料的修改和修改个人登录密码等。管理员要能够实现对管理员、教师、学生根本信息的增加、删除、修改、查询以与实现对学生成绩的增加、删除按学号、按班级、按课程号、按院系、修改、查询按学号、按班级、按课程号、按院系和数据统计分析以与对结果提供打印功能等。个人信息3、系统业务流程分析修改密码菜 单退出管理员管理员信息教师

7、信息信 息 管 理登陆次数必须小于三学生信息成绩查询成 绩 管 理成绩管理成绩统计系统登录学生管理系统显示制作人和版本帮 助个人信息修改密码菜 单退出成 绩 管 理教师成绩查询显示制作人和版本帮 助个人信息修改密码菜 单退出学生成绩查询成 绩 管 理显示制作人和版本帮 助4、完成的功能系统的功能模块划分 学生成绩管理系统包括八个模块：系统登录、学生根本信息管理、教师根本信息管理、管理员根本信息管理、学生成绩信息查询、学生成绩信息管理，学生成绩信息统计，系统退出。 1、系统登录模块1用户人员在登录界面中输入用户名与密码。2通过用户名与数据库里的用户表相比配，将学生、教师与管里员区分开，三者各自进

8、入自己的页面,初始密码为：000000，登录成功后，可以修改密码。3三者拥有各自权限，分别拥有不同的功能。2、学生根本信息管理：管理员对所有学生信息进展增删改查，学生只能查询自己的根本信息。3、教师根本信息管理：管理员对所有教师信息进展增删改查，学生只能查询自己的根本信息。4、管理员根本信息管理：管理员对所有管理员信息进展增删改查。5、学生成绩信息查询：管理员查询功能：可以按学号、班级、院系、教师工号等对学生成绩分别进展查询、查某门课程的排名、最高分、最低分、绩点、不与格人数等、查某班级某科目分数段的人数。教师查询功能：查询所教课程的最高分、最低分、各分数段人数、不与格人数等。学生查询功能：查

9、某学生所学课程的排名、最高分、最低分、绩点、不与格人数等。6、学生成绩信息管理：管理员对学生成绩进展增删改查。7、学生成绩信息统计：按学号、班级、院系、教师工号等分别进展统计，并对结果提供打印能。8、退出程序：退出该程序。5、数据流程图数据流图信息管理操作员、教师、学生查询个人信息管 理 员学 生成绩管理增删改查学生成绩管理系统查询个人成绩、GPA成绩统计、打印查询课程成绩情况查询个人信息教 师6、数据字典(1).数据流学院信息，包括学院编号，学院名称等信息。班级信息，包括班级编号，学院编号等信息。学生信息，包括学生编号，学生，性别，班级，联系方式等信息。教师信息，包括教师工号，教师，性别，学

10、院编号，联系方式等信息。管理员信息，包括管理员编号，管理员，性别等信息。用户信息，包括用户名，登录密码等信息。课程信息，包括课程号，课程名称，学分，学时，教师工号等信息。 (2).数据存储成绩表信息，包括学生编号，课程编号，课程绩点，课程成绩等信息。课程安排信息，包括课程编号，课程名称，教师工号等信息。administrorE/R图:admininameadmininoownsclassnameownsdepartmentclassnoclassdepartidownsownsusernotnousernameownsdepartidsname snoteacherownstnameusero

11、wnssexstudentteach ofcreditStudy ofdepartidsexphonephonectimecoursegrade ofgradetnooameownsGPAscoresnoameo三、系统设计1、数据表：(1)、数据库的关系模式：student(sno, sname, sex, classno, departed, phone);teacher(tno, tname, departid, sex, phone);course(o, ame, credit, ctime, tno);score(sno, sname, o, ame, grade, GPA);adm

12、inistroradminino，adimniname，sex;department(departed, departname);class(departed, classno, classname);useruserno，password;属性名数据类型是否为主键是否为空说明缺省值snochar(10)YesNOT NULL学号snamechar20noNOT NULLNonamesexchar10noNOT NULL性别classnochar(10)noNOT NULL班级号(外键)departidchar(10)noNOT NULL院系号外键phonechar20noNULL联系方式 (

13、2)、表的物理设计：表一学生信息表studentCreate table student(sno char(10) primary key,sname char20 not null default Noname,sex char10 not null ,classno char(10) foreign key references class(classno) ,departid char(10) foreign key references department(departid),phone char20);表二教师信息表teacher属性名数据类型是否为主键是否为空说明缺省值tnoch

14、ar(10)YesNOT NULL教师工号tnamechar10noNOT NULL教师Nonamedepartidchar(10)noNOT NULL院系号外键sexchar(10)noNOT NULL性别phonechar11noNULL联系方式Create table student(tno char(10) primary key,tname char10 not null default Noname ,sex char10 not null ,departid char10 forgein key refrences department(departid),phone char2

15、0);表三课程信息表course属性名数据类型是否为主键是否为空说明缺省值ochar(10)YesNOT NULL课程号amechar(20)noNOT NULL课程名creditchar10noNOT NULL学分ctimechar10noNOT NULL学时数tnochar(10)YesNOT NULL教师工号Create table student(o char(10) ,ame char20 not null,credi char10 not null ,ctime char(10) not null,tno char(10) ,primary key(o, tno);表四学生成绩表s

16、core属性名数据类型是否为主键是否为空说明缺省值snochar(10)YesNOT NULL学号snamechar(20)noNOT NULLNonameochar(10)YesNOT NULL课程号amechar(20noNOT NULL课程名gradechar(10)noNOT NULL成绩GPAFloatnoNULLGPACreate table score (sno char(10) ,sname char20 not null,o char10,ame char(20 not null,Score char(10) not null,GPA float,primary key(sn

17、o,o);表五管理员信息表administror属性名数据类型是否为主键是否为空说明缺省值admininochar(10)YesNOT NULL工号admininameChar(20noNOT NULLNonamesexchar(10)noNOT NULL性别Create table student(adminino char(10) primary key,admininame char20 not null default Noname,sex char(10) not null);Admininoadmininamesex200000娜女200001王强男表六院系表department属

18、性名数据类型是否为主键是否为空说明缺省值departidchar(10)yesNOT NULL院系号departnamechar20noNOT NULL院系名Create table student(departid char(10) primary key,departname char20 not null);表七班级表class属性名数据类型是否为主键是否为空说明缺省值departidchar(10)noNOT NULL院系号外键classnochar10yesNOT NULL班级号classnamechar10noNOT NULL班级名称Create table class (depa

19、rtid char(10) foreign key references department(departid),classno char10primary key ,classname char10 not null);表八用户表user属性名数据类型是否为主键是否为空说明缺省值usernoChar(10)yesNOT NULL用户名passwordChar6noNOT NULL密码000000Create table user(userno char(10) primary key,password char6not null );2、视图，索引，数据库权限：这些在这个学生成绩管理系统中

20、没有用到。3、软件功能设计(1)、系统的结构图修改密码退出成绩查询显示制作人和版本退出修改密码成绩查询个人信息显示制作人和版本个人信息帮 助成 绩 管 理菜 单帮 助菜 单成 绩 管 理成绩统计显示制作人和版本成绩管理学生信息成绩查询管理员信息教师信息退出修改密码个人信息帮 助成 绩 管 理信 息 管 理菜 单学生教师管理员系统登录学生管理系统登陆次数必须小于三(2)、功能表：学 生 成 绩 管 理 系 统身份功能模块细分模块功能具体描述管 理 员菜单个人信息显示登录管理员的个人信息工号、性别修改密码管理员修改自己的登录密码退出管理员退出整个系统信息管理管理员信息对所有管理员的信息进展增删改查

21、教师信息对所有教师的信息进展增删改查学生信息对所有学生的信息进展增删改查成绩管理成绩查询可以按学号、班级、院系、教师工号等分别进展查询查某学生所学课程的排名、最高分、最低分、绩点、不与格人数等查某班级某科目分数段的人数成绩管理对学生成绩进展增删改查成绩统计按学号、班级、院系、教师工号等分别进展统计对结果提供打印能帮助显示该系统的制作人和版本教 师菜单个人信息显示登录教师个人信息工号、性别、院系号、联系方式修改密码教师修改自己的登录密码退出教师退出整个系统成绩管理成绩查询查询所教课程的最高分、最低分、各分数段人数、不与格人数等成绩统计按学号、班级、院系、教师工号等分别进展统计帮助显示该系统的制作

22、人和版本学 生菜单个人信息显示登录学生个人信息学号、性别、班级号、院系号、联系方式修改密码学生修改自己的登录密码退出学生退出整个系统成绩管理成绩查询查某学生所学课程的排名、最高分、最低分、绩点、不与格人数等帮助显示该系统的制作人和版本(3)、功能描述：同功能表。四、系统实施(1)、系统的界面设计：1、登陆界面2、密码修改3、个人信息4、操作页面5、信息管理6、成绩查询7、成绩管理8、成绩统计(2)、事件的设计过程：运行软件进入主界面，在主界面登录进入各自操作主界面。学生登录后可在登录界面进展成绩查询、个人信息查询与密码修改。教师登录后可在登录界面进展功能选择来完成自己所选择的查询与维护。管理员

23、登录后可在登录界面点击各页面标签选择功能进入相应页面。(3)、主要代码描述：1、登录procedure TfrmLogin.btnOKClick(Sender: TObject);var sSQL: string;begin if Trim(Edit1.Text) = then begin gf_MessageBox(请填写用户名！, MB_OK); Edit1.SetFocus; Exit; end else if Trim(Edit2.Text) = then begin gf_MessageBox(请填写密码！, MB_OK); Edit2.SetFocus; Exit; end; iE

24、rrorCount := iErrorCount + 1; sSQL := select a.userno,a.password,b.tname,b.usertype + from user a + left join (select tno,tname,1 as UserType from teacher + union all + select sno,sname,2 from student + union all + select adminino,admininame,0 from administror) b on a.userno = b.tno + where a.userno

25、 = + QuotedStr(Trim(Edit1.Text) + and a.password = + QuotedStr(Trim(Edit2.Text); gf_OpenSQL(sSQL, DM.aqPublic); if DM.aqPublic.IsEmpty then begin if iErrorCount = 3 then begin gf_MessageBox(账号或密码错误三次，程序自动关闭！,MB_OK); Application.Terminate; end; gf_MessageBox(账号或密码错误，请重试！还剩 + IntToStr(3 - iErrorCount)

26、 + 次将自动关闭程序！,MB_OK); Edit1.SelectAll; Edit1.SetFocus; end else begin gr_LoginUser.sUserID := DM.aqPublic.FieldByName(userno).AsString; gr_LoginUser.sUserName := DM.aqPublic.FieldByName(tname).AsString; gr_LoginUser.iType := DM.aqPublic.FieldByName(usertype).AsInteger; SetLoginInfo; Self.Hide; Applic

27、ation.CreateForm(TfrmStuSource, frmStuSource); case gr_LoginUser.iType of 0: begin frmStuSource.sbMain.Panels0.Text := 工号： + gr_LoginUser.sUserID; frmStuSource.sbMain.Panels1.Text := ： + gr_LoginUser.sUserName; frmStuSource.sbMain.Panels2.Text := 登录身份：管理员; end; 1: begin frmStuSource.S1.Visible := Fa

28、lse; frmStuSource.N3.Visible := False; frmStuSource.N10.Visible := False; frmStuSource.sbMain.Panels0.Text := 工号： + gr_LoginUser.sUserID; frmStuSource.sbMain.Panels1.Text := ： + gr_LoginUser.sUserName; frmStuSource.sbMain.Panels2.Text := 登录身份：教师; end; 2: begin frmStuSource.S1.Visible := False; frmSt

29、uSource.N10.Visible := False; frmStuSource.N11.Visible := False; frmStuSource.sbMain.Panels0.Text := 学号： + gr_LoginUser.sUserID; frmStuSource.sbMain.Panels1.Text := ： + gr_LoginUser.sUserName; frmStuSource.sbMain.Panels2.Text := 登录身份：学生; end; end; frmStuSource.ShowModal; end;end;procedure TfrmLogin.

30、FormShow(Sender: TObject);begin iErrorCount := 0;end;procedure TfrmLogin.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if Key = 13 then Edit2.SetFocus;end;procedure TfrmLogin.Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if Key = 13 then btnOKClick(S

31、ender);end;2、修改密码function TfrmChangPwd.ChangePwd: Boolean;var sSQL: string; OldPwd,NewPwd: string;begin Result := True; if Trim(edtNewPwd1.Text) = Trim(edtNewPwd2.Text) then begin gf_MessageBox(两次输入的新密码不一样,MB_OK); edtNewPwd2.SetFocus; Result := False; Exit; end; OldPwd := Trim(edtOldPsw.Text); NewPw

32、d := Trim(edtNewPwd1.Text); sSQL := update user set password = + QuotedStr(NewPwd) + where userno = + QuotedStr(gr_LoginUser.sUserID); gf_ExecSQL(sSQL,DM.aqSQL);end;procedure TfrmChangPwd.btnOKClick(Sender: TObject);begin if not ChangePwd then begin gf_MessageBox(密码修改成功！, MB_OK); Exit; end;end;3、查询数

33、据procedure TfrmScoreMange.SearchData;var sSQL: string;begin sSQL := select a.sno,a.sname,b.sex,b.phone,a.o,a.ame,a.score,a.GPA,d.departname,c.classname + from score a + left join student b on a.sno = b.sno + left join class c on b.classno = c.classno + left join department d on b.departid = d.depart

34、id + where 1 = 1; case gr_LoginUser.iType of 0: begin end; 1: begin sSQL := sSQL + and exists(select 1 from course whereo = a.o and tno = + QuotedStr(gr_LoginUser.sUserID) + ); end; 2: begin sSQL := sSQL + and a.sno = + QuotedStr(gr_LoginUser.sUserID); end; end; if Trim(edtSNo.Text) then sSQL := sSQ

35、L + and a.sno = + QuotedStr(Trim(edtSNo.Text); if Trim(edtSName.Text) then sSQL := sSQL + and a.sName = + QuotedStr(Trim(edtSName.Text); if Trim(edttno.Text) then sSQL := sSQL + and exists(select * from course whereo = a.o and tno = + QuotedStr(Trim(edttno.Text) + ); if Trim(cbxSDepart.Text) 全部 then

36、 sSQL := sSQL + and d.departname = + QuotedStr(Trim(cbxSDepart.Text); if Trim(cbxSClass.Text) 全部 then sSQL := sSQL + and c.ClassName = + QuotedStr(Trim(cbxSClass.Text); gf_OpenSQL(sSQL, aqMaster);end;4、增加记录procedure TfrmScoreMange.AddData;var sSQL: string; fScore: Double;begin if Trim(edtNo.Text) =

37、then begin gf_MessageBox(插入数据时未填写学号！,MB_OK); edtNo.SetFocus; Exit; end else if Trim(edtName.Text) = then begin gf_MessageBox(插入数据时未填写！,MB_OK); edtName.SetFocus; Exit; end else if Trim(edtCourse.Text) = then begin gf_MessageBox(插入数据时未填写课程号！,MB_OK); edtCourse.SetFocus; Exit; end else if Trim(edtCourse

38、Name.Text) = then begin gf_MessageBox(插入数据时未填写课程名称！,MB_OK); edtCourseName.SetFocus; Exit; end else if Trim(edtScore.Text) = then begin gf_MessageBox(插入数据时未填写成绩！,MB_OK); edtScore.SetFocus; Exit; end else if Trim(edtGPA.Text) = then begin gf_MessageBox(插入数据时未填写平均绩点！,MB_OK); edtGPA.SetFocus; Exit; end;

39、 if not TryStrToFloat(Trim(edtScore.Text),fScore) then begin gf_MessageBox(成绩输入不合法，请重输！,MB_OK); edtScore.SetFocus; Exit; end else if not TryStrToFloat(Trim(edtGPA.Text),fScore) then begin gf_MessageBox(平均绩点输入不合法，请重输！,MB_OK); edtGPA.SetFocus; Exit; end; if gf_MessageBox(是否新增所输数据？,MB_YESNO + MB_ICONWA

40、RNING) = IDNO then Exit; sSQL := sSQL + insert into score(sno,sname,o,ame,score,GPA) + values(%s,%s,%s,%s,%s,%s); sSQL := Format(sSQL,QuotedStr(Trim(edtNo.Text),QuotedStr(Trim(edtName.Text),QuotedStr(Trim(edtCourse.Text) ,QuotedStr(Trim(edtCourseName.Text),QuotedStr(Trim(edtScore.Text),QuotedStr(Tri

41、m(edtGPA.Text); try gf_ExecSQL(sSQL,aqPublic); except on E: Exception do begin gf_MessageBox(保存数据发生错误。错误信息： + E.Message,MB_OK); end; end; SearchData;end;5、删除记录procedure TfrmScoreMange.DelData;var sSQL: string;begin if (aqMaster.IsEmpty) or (not aqMaster.Active) then begin gf_MessageBox(没有数据可以删除！,MB_

42、OK + MB_ICONWARNING); Exit; end; if gf_MessageBox(删除数据后将不能恢复，是否删除？,MB_YESNO + MB_ICONWARNING) = IDNO then Exit; sSQL := delete from score where sno = + QuotedStr(aqMaster.FieldByName(sno).AsString) + ando = + QuotedStr(aqMaster.FieldByName(o).AsString); gf_ExecSQL(sSQL,aqPublic); SearchData;end;6、修改

43、记录procedure TfrmScoreMange.EditData;var sSQL: string; sno: string;begin if (aqMaster.IsEmpty) or (not aqMaster.Active) then begin gf_MessageBox(没有数据可以修改！,MB_OK + MB_ICONERROR); Exit; end; sno := aqMaster.FieldByName(sno).AsString; sSQL := update score set sno = %s,sname = %s,o = %s,ame = %s, score =

44、 %s, GPA = %s where sno = + QuotedStr(aqMaster.FieldByName(sno).AsString) + ando = + QuotedStr(aqMaster.FieldByName(o).AsString); sSQL := Format(sSQL,QuotedStr(Trim(edtNo.Text),QuotedStr(Trim(edtName.Text),QuotedStr(Trim(edtCourse.Text) ,QuotedStr(Trim(edtCourseName.Text),QuotedStr(Trim(edtScore.Tex

45、t),QuotedStr(Trim(edtGPA.Text); try gf_ExecSQL(sSQL,aqPublic); except on E: Exception do begin gf_MessageBox(修改数据发生错误。错误信息： + E.Message,MB_OK); end; end; SearchData; aqMaster.Locate(sno,sno,);end;7、统计procedure TfrmScoreStat.StatData(iType: Integer);var sSQL: string; sCondition1,sCondition2: string;

46、i: Integer;begin for i := 0 to dgMaster.Columns.Count - 1 do dgMaster.Columnsi.Visible := True; sSQL := from score a + left join student b on a.sno = b.sno + left join class c on b.classno = c.classno + left join department d on b.departid = d.departid ; case iType of 1: begin sCondition1 := select

47、a.sno,a.sname,c.classname,d.departname,a.o,a.ame,max(a.score) as MaxScore, + min(a.score) as MinScore,convert(decimal(18,2),avg(convert(float,a.score) as avgScore, + sum(case when convert(float,a.score) 60 then 0 else 1 end) as Fail ; sCondition2 := group by a.sno,a.sname,c.classname,d.departname,a.

48、o,a.ame; end; 2: begin dgMaster.Columns0.Visible := False; dgMaster.Columns1.Visible := False; sCondition1 := select c.classname,d.departname,a.o,a.ame,max(a.score) as MaxScore, + min(a.score) as MinScore,convert(decimal(18,2),avg(convert(float,a.score) as avgScore, + sum(case when convert(float,a.s

49、core) 60 then 0 else 1 end) as Fail ; sCondition2 := group by c.classname,d.departname,a.o,a.ame; end; 3: begin dgMaster.Columns0.Visible := False; dgMaster.Columns1.Visible := False; dgMaster.Columns2.Visible := False; sCondition1 := select d.departname,a.o,a.ame,max(a.score) as MaxScore, + min(a.s

50、core) as MinScore,convert(decimal(18,2),avg(convert(float,a.score) as avgScore, + sum(case when convert(float,a.score) 60 then 0 else 1 end) as Fail ; sCondition2 := group by d.departname,a.o,a.ame; end; 4: begin dgMaster.Columns0.Visible := False; dgMaster.Columns1.Visible := False; dgMaster.Column

51、s2.Visible := False; dgMaster.Columns3.Visible := False; sCondition1 := select a.o,a.ame,max(a.score) as MaxScore, + min(a.score) as MinScore,convert(decimal(18,2),avg(convert(float,a.score) as avgScore, + sum(case when convert(float,a.score) 60 then 0 else 1 end) as Fail ; sCondition2 := group by a

52、.o,a.ame; end; end; sSQL := sCondition1 + sSQL + sCondition2; gf_OpenSQL(sSQL, aqMaster);end;8、打印procedure CopyDbDataToExcel(Args: array of const);var iCount, jCount: Integer; XLApp: Variant; Sheet: Variant; I: Integer;begin Screen.Cursor := crHourGlass; if not VarIsEmpty(XLApp) then begin XLApp.DisplayAlerts := False;