基于delphi的学生成绩管理系统

《基于delphi的学生成绩管理系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、南昌航空大学信息工程学院数据库原理课程实验报告实验名称：学生成绩信息管理系统实验时间：2010年６月2日指导教师：班级：学号：姓名：成绩：一、实验目的（1）通过完成从用户需求分析、系统概要设计、系统详细设计以及数据库的SQL操作具体实现等全过程,把前面的各个实验更好地综合起来.（2）进一步理解和掌握教材中的相关内容。（3）掌握分析和设计一个大型数据库系统的基本思路与方法。二、实验要求1.独立完成该系统的数据库设计。2.用SQL实现数据库的设计,并在MSSQLServer上调试通过。3.写出查询、更新以及建立触发器SQL语句和执行结果。4.掌握报表的使用。三、实验内容

2、综合前面各章内容设计并调试一学生成绩管理系统，Delphi作为前台开发工具，SQLServer完成后台数据库存管理。创建学生成绩的统计（包括求班级各科成绩的平均分）；并实现对各科成绩等的录入、修改、删除、查询等功能；实现学生成绩的统计（包括求班级各科成绩的平均分）；并实现对各科成绩的排序。四、实验代码及功能注释　１．用户登陆界面实验程序：procedureTForm1.Button1Click(Sender:TObject);　／／用户登陆varret:integer;beginadoconnection1.Open;withADOStoredProc1dobegi

3、nClose;ProcedureName:='proc_login';Parameters.Clear;Parameters.Refresh;Parameters.ParamByName('@username').Value:=Edit1.text;Parameters.ParamByName('@password').Value:=Edit2.text;ExecProc;ret:=Parameters.ParamByName('@return_value').Value;end;ifret=1then//用户名密码匹配beginshowmessage('登陆成功'

4、);form3.show;endelseshowmessage('你不是用户，请注册');end;procedureTForm1.Button2Click(Sender:TObject);　／／若不是用户，触发用户登陆界面显示beginform2.show;end;procedureTForm1.Button3Click(Sender:TObject);　／／退出该管理系统beginform1.Close;end;说明：在这里，使用了adostoredproc1控件和adoconnection1控件，它们的connectionstring属性都要与所设计的数据库相连

5、，在查询分析器中，要运行存储过程如下：CREATEprocedureproc_login@usernamevarchar(20),@passwordvarchar(20)asdeclare@resultintselect@result=count(*)fromuserswhereusername=@usernameandpasswords=@passwordif@result=0return0return1GO２．用户注册界面实验程序：procedureTForm2.Button1Click(Sender:TObject);／／新用户注册beginadoquery1

6、.close;adoquery1.sql.clear;adoquery1.sql.add('insertintousers(username,passwords,核对密码,性别,出生年月,联系地址,联系电话,邮政编码,电子邮箱)'+'values(:1,:2,:3,:4,:5,:6,:7,:8,:9)');adoquery1.parameters.parambyname('1').value:=''+edit1.text+'';adoquery1.parameters.parambyname('2').value:=''+edit2.text+'';adoquery

7、1.parameters.parambyname('3').value:=''+edit3.text+'';adoquery1.parameters.parambyname('4').value:=''+combobox1.text+'';adoquery1.parameters.parambyname('5').value:=''+combobox1.text+''+combobox1.text+'';adoquery1.parameters.parambyname('6').value:=''+edit4.text+'';adoquery1.paramete