用Delphi及SQL Server开发学生成绩管理系统
2012-04-29吴以林
吴以林
摘要：该文介绍了采用Delphi 7及Microsoft SQL Server数据库做为开发工具，开发学生成绩管理系统，内容包括目标与功能结构、数据库设计、SQL存储过程及主要技术特点等。并给出了部分Delphi原程序。
关键词：成绩管理系统；数据库；Delphi；ADO
中图分类号：TP311文献标识码：A文章编号：1009-3044(2012)02-0353-05
目前在计算机技术的迅速发展的前提下以及计算机应用的普遍性，同时为了更好更快的加快学校学生成绩/学籍管理，开发一套成绩/学籍管理系统迫在眉捷。本系统主要采用Delphi 7及SQL Server2000做为开发工具，应用面向对象的程序设计方法进行开发与设计的。利用其提供的集成开发环境及各种控件，尤其是对数据库的支持完成对数据库的各种操作，达到对学生成绩管理的目的。本系统使用ADO连接数据库Microsoft SQL Server，提出了权限管理模块的具体实现方法，并完成了相关软件的设计任务。最终系统能够完成信息的输入、输出、数据的修改、查询和统计等功能，使用户操作起来简便快捷。
1设计概述
本系统由系统（用户登录）、班级管理、课程设置、成绩管理共四个模块组成分别设计应用程序界面。其主要功能框图如图1所示。
图1主要功能框图
2数据库结构设计（数据库采用Microsoft SQL Server数据库）
2.1班级信息数据库（class_info）
2.2学生信息数据库（student_info）
2.3班级课程数据库（classcourse_ifo）
2.4学期成绩数据库（result_ifo）
2.5学期不及格成绩数据库（bujige_ifo）
以上数据库表，通过Microsoft SQL Server数据库关系图功能设置了各表关键字段的关联，即采用了关系性数据的表示方式，如各数据库表class字段的关联、student_ID字段的关联等等，另外学期不及格成绩数据库（bujige_ifo）的数据由系统自动统计“学期成绩数据库”的数据成绩（result）<60自动存入。。
3 SQL存储过程
sql语句执行的时候要先编译，然后执行。存储过程（Stored Procedure）是一组为了完成特定功能的SQL语句集，经编译后存储在数据库中。用户通过指定存储过程的名字并给出参数（如果该存储过程带有参数）来执行它。存储过程是数据库中的一个重要对象，任何一个设计良好的数据库应用程序都应该用到存储过程。下面为系统开发中的部分存储过程代码：
create procedure [Proc_term_result] as
Declare @sql varchar(8000)
set @sql=select SUBSTRING(student_ID,7,3) as学号,student_name as姓名,retire as备注,
select @sql=@sql+cast(max(case course_name when
+course_name+ then Rtrim(result) else end)
as varchar(4))+IsNull((select enable from resultVIEW1
where student_id=b.student_id
and (class=某班) and (academic_year=10/11学年)and (term=下学期期末)
and course_name=+course_name+),)as +course_name+,
from (select distinct course_name from resultVIEW1 where class=某班 and
academic_year=10/11学年and term=下学期期末) as a select @sql=left(@sql,len
(@sql)-1) +from resultVIEW1 as b where class=某班 and academic_year=10/11学年 and term=下学期期末 group by stu?
dent_ID,student_name, retire exec(@sql)
以上SQL存储过程代码，主要是实现行列交叉的功能，即把图2的数据表变成图3的数据表，方便打印及查看。
图2
图3
4程序实现
4.1查询/打印毕业成绩
procedureTF_PtAVGResult.FormCreate(Sender:TObject);
begin
//设置查询年级列表框
withDataModule1.AQ_yeardo
begin
close;
SQL.clear;
SQl.add(select*fromyear_Info);
DataModule1.AQ_year.Open;
CB_year.Items.Clear;
whilenotDataModule1.AQ_year.eofdo
begin
CB_year.Items.Add(Fieldbyname(grade).asString);
next;
end;
end;
end;
procedureTF_PtAVGResult.CB_yearClick(Sender:TObject);
begin
CB_class.Text:=;
withDataModule1.AQ_classdo
//设置查询班级列表框
begin
close;
SQL.clear;
SQL.Add(select*fromClass_infowheregrade=:grade);
parameters.ParamByName(grade).value:=CB_year.Text;
DataModule1.AQ_class.Open;
CB_class.Items.Clear;
whilenotDataModule1.AQ_class.eofdo
begin
CB_class.Items.Add(Fieldbyname(class).asString);
next;
end;
end;
DataModule1.SQLSp.Close;//清空表格
end;
procedureTF_PtAVGResult.CB_ClassClick(Sender:TObject);
begin
DataModule1.SQLSp.Close;//清空表格
withDataModule1.AQ_Ysdo
begin
Close;//创建视图文件“resultVIEW2”
SQL.Clear;
SQL.Add(ifexists(select*fromsysobjectswhere);
SQL.Add(id=object_id(N[dbo].[result_bujigeVIEW2]));
SQL.Add(andOBJECTPROPERTY(id,NIsView)=1));
SQL.Add(dropView[dbo].[result_bujigeVIEW2]);
ExecSQL;
Close;
SQL.Clear;
SQL.Add(CREATEVIEWdbo.result_bujigeVIEW2AS);
SQL.Add(SELECTstudent_ID,student_Name,class,retire,course_name,);
SQL.Add(AVG(result)ASresult1,MAX(enable)ASenable1);
SQL.Add(FROMresult_bujigeVIEW);
SQL.Add(GROUPBYstudent_ID,student_Name,class,retire,course_name);
SQL.Add(HAVING(class=+CB_Class.Text+));
ExecSQL;
Close;
end;
DataModule1.SQLSp.Close;//清空表格
withDataModule1.AQ_Ysdo
begin
Close;
//修改存储过程文件“Proc_AVG_result”的前提
SQL.Clear;
SQL.Add(ifexists(select*fromsysobjectswhere);
SQL.Add(id=object_id(N[dbo].[Proc_AVG_result]));
SQL.Add(andOBJECTPROPERTY(id,NIsProcedure)=1));
SQL.Add(dropprocedure[dbo].[Proc_AVG_result]);
ExecSQL;
Close;
end;
withDataModule1.AQ_MakeupResultdo//修改存储过程文件“Proc_term_result”
begin
close;
SQL.Clear;
sql.Add(createprocedure[Proc_avg_result]as);
sql.Add(Declare@sqlvarchar(8000));
sql.add(set@sql=selectSUBSTRING(student_ID,7,3)as学号,);
sql.Add(student_nameas姓名,retire备注,);
sql.add(select@sql=@sql+cast(max(casecourse_namewhen);
sql.Add(+course_name+thenRtrim(result1)elseend));
sql.Add(asvarchar(4))+IsNull((selectmax(enable1)as标识fromresult_bujigeVIEW2);
sql.Add(wherestudent_id=b.student_idand);
sql.Add((class=+CB_Class.Text+)andcourse_name=+course_name+),));
sql.Add(as+course_name+,);
sql.add(from(selectdistinctcourse_namefromresult_bujigeVIEW2);
sql.Add(whereclass=+CB_Class.Text+)asa);
sql.Add(Declare@subjectcountvarchar(6));
sql.Add(select@subjectcount=count(distinctcourse_name)fromresult_bujigeVIEW2);
sql.Add(select@sql=@sql+(selectsum(result1)fromresult_bujigeVIEW2wherestudent_id=b.student_id)/+@subjectcount+as平均分,);
sql.Add(select@sql=@sql+(selectcast(count(student_ID)asvarchar(4))+科);
sql.Add(fromresult_bujigeVIEW2whereresult1<60andstudent_ID=b.student_ID)as不及格科数+);
sql.Add(fromresult_bujigeVIEW2asb);//whereresult1<60
sql.Add(groupbystudent_ID,student_name,retire);
sql.Add(select@sql=@sql+unionselect各科asstudent_id,合计人数asstudent_name,asretire,);
sql.Add(select@sql=@sql+(selectcast(count(student_id)asvarchar(4)));
sql.Add(+人fromresult_bujigeVIEW2where);
sql.Add(result1<60andcourse_name=+course_name+));
sql.Add(as+course_name+,);
sql.Add(from(selectDistinctcourse_namefromresult_bujigeVIEW2);
sql.Add(whereresult1<60)asa);
sql.Add(select@sql=@sql+as平均分,as不及格科数orderby平均分desc);
sql.Add(exec(@sql));
ExecSQL;
end;
以上程序通过简单的下拉选项选择年级和班级，就以实现查询某班所有学期每门课程的平均成绩情况，显示在屏幕窗口表格里，同时可以直接点打印按钮，将成绩打印出来；也可通过下面成绩另存为程序实现成绩导出。
4.2成绩另存为（或导出）
procedureTF_PtAVGResult.ppmSaveSelectionClick(Sender:TObject);
varExpClass:TDBGridEhExportClass;
Ext:String;
begin
SaveDialog1.FileName:=file1;
if(ActiveControlisTDBGridEh)then
ifSaveDialog1.Executethen
begin
caseSaveDialog1.FilterIndexof
1:beginExpClass:=TDBGridEhExportAsText;Ext:=txt;end;
2:beginExpClass:=TDBGridEhExportAsCSV;Ext:=csv;end;
3:beginExpClass:=TDBGridEhExportAsHTML;Ext:=htm;end;
4:beginExpClass:=TDBGridEhExportAsRTF;Ext:=rtf;end;
5:beginExpClass:=TDBGridEhExportAsXLS;Ext:=xls;end;
else
ExpClass:=nil;Ext:=;
end;
ifExpClass<>nilthen
begin
ifUpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3))<> UpperCase(Ext)then
SaveDialog1.FileName:=SaveDialog1.FileName+.+Ext;
SaveDBGridEhToExportFile(ExpClass,TDBGridEh(ActiveControl),
SaveDialog1.FileName,False);
end;
end;
end;这部分程序与数据浏览窗口放在一起实现了，可以将数据导出生成xls、txt、csv、htm、rtf类型文件。
5主要技术特点
1）本系统适用于软件环境为Win2003/WinXP/Win2000/WinNT/Win9x。
2）系统在设计上按通用性软件的要求，做到了结构良好，数据入或导入灵活、方便。用户在完成原始数据输入或导入后，只需按几下按钮，即可完成对各种数据的处理和要求，并可根据预先定制好的格式生成成绩表。
3）系统采用了多种形式的窗口控制技术和多种容错措施，使软件不仅具有独特的屏幕界面风格，而且较少地占用计算机系统资源，运行快速、安全可靠。
4）系统的数据输入采用键盘输入或从Excel文件、CSV文件导入等多种输入方式，而数据输出采用屏幕显示、打印、直接复制出去及导出生成xls、txt、csv、htm、rtf类型文件等多种输出方式，从面完全可以满足用户的不同需求。
参考文献：
[1]陈豫龙,何旭洪.Delphi数据库系统开发实例导航[M].2版.北京:人民邮电出版社,2003.
[2]张立科.Delphi 7组件编程参考手册[M].北京:人民邮电出版社,2003.
