delphi课程设计--学生成绩信息管理系统.doc

信息科学与工程学院课程设计任务书 题目： 学生成绩信息管理系统 姓 名： XXX 学 号： XXXXXXXXX 专 业： 计算机应用技术 课 程： Delphi应用程序设计 课程设计任务书及成绩评定课程设计的任务和具体要求要求学生熟练掌握Delphi高级编程语言的基本知识和基本的编程技能； 掌握结构化和面向对象程序设计的基本思路和方法； 能够熟练应用常用的Delphi的组件，实现应用程序的编写、编译和发行实验要求：利用delphi软件，编写学生成绩管理系统。1. 具有成绩输入，查询，打印功能，2. 具有不及格学生的统计功能。指导教师签字： 、 日期： 指导教师评语成绩： 指导教师签字： 日期： 课程设计所需软件、硬件等软件：word文档，delphi7，database desktop 硬件：计算机，打印机课程设计进度计划起至日期工作内容备注12月28日-12月29日12月29日12月29日-1月5日分析课程设计任务要求并合理安排工作搜集资料编写课程设计任务书及排版认真仔细的分析搜索的资料参考文献、资料索引序号文献、资料名称编著者出版单位1.Delphi应用程序设计 李目海 枣庄学院计算机科学系2.Delphi 程序设计教程 沈才梁，万志平 北京交通大学出版社 3.Delphi 基础教程 宋一兵，李春燕 机械工业出版社 4.SQL server 2005数据库技术 蒋秀英 清华大学出版社目录一前言4二设计目的4三设计流程4四表结构5五具体步骤9六. 心得体会18一前言：随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。目前，在学校里，随着高校规模的不断扩大和招生人数的不断增加，需要处理大量的学生数据信息。如何更好的组织学生信息，更加快捷的管理学生信息显得尤为的重要。 作为计算机应用的一部分,使用计算机对学生信息进行管理,有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生信息管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。我们为此开发了一套学生信息管理系统，本系统面向学校的教务人员，目的是为学校办公管理提供一个快速、简单规范的管理平台，使学院在学生信息管理方面更加规范化,快捷化。二设计目的：a) 要求学生熟练掌握Delphi高级编程语言的基本知识和基本的编程技能； b) 掌握结构化和面向对象程序设计的基本思路和方法； c) 能够熟练应用常用的Delphi的组件，实现应用程序的编写、编译和发行。三.设计流程：（1） 学生成绩管理系统登陆成绩输入信息输入（2）四.表结构：五.具体步骤：1.新建一个application。新建aboutbox1。在project1中编写相应的代码。Project1中的代码：program Project1;uses Forms, sysutils, Unit1 in Unit1.pas Form1, Unit2 in Unit2.pas Form2, Unit3 in Unit3.pas Form3, Unit4 in Unit4.pas Form4, Unit7 in Unit7.pas AboutBox, Unit9 in Unit9.pas Form9, Unit8 in Unit8.pas Form8, Unit10 in Unit10.pas Form10;$R *.resbegin Application.Initialize; aboutbox:=taboutbox.Create(application); aboutbox.Show; aboutbox.update; sleep(2000); Application.CreateForm(TForm1, Form1); AboutBox.Free; Application.Run; end.2.新建form1，做成登陆界面，通过用户名和密码进入系统。 Form1（登陆界面）var Form1: TForm1;implementationuses Unit2, Unit9;$R *.dfmprocedure TForm1.SpeedButton1Click(Sender: TObject);begin begin if edit1.Text= then showmessage(请输入用户名) else if edit2.Text= then showmessage(请输入密码) else begin table1.Open; if table1.Locate(Username;Pwd,vararrayof(edit1.Text,edit2.Text),) then begin if not assigned(form2) then form2:=tform2.Create(self); form2.Show; form1.Hide; end else showmessage(用户名或密码不正确，请重新输入！); edit1.Clear; edit2.Clear; end;end;end;procedure TForm1.SpeedButton2Click(Sender: TObject);beginapplication.Terminate;end;end.3.新建form2，通过代码调用其他的窗体。Form2procedure TForm2.Label3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginif not assigned(form10) then form10:=tform10.Create(self); form10.Show; form2.Hide;end;procedure TForm2.Label2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginif not assigned(form8) then form8:=tform8.Create(self); form8.Show; form2.Hide;end;procedure TForm2.Timer1Timer(Sender: TObject);beginlabel4.caption:=datetimetostr(now);end;procedure TForm2.Label6MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginif not assigned(form3) then form3:=tform3.Create(self); form3.Show; form2.Hide;end;procedure TForm2.Label7MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginif not assigned(form4) then form4:=tform4.Create(self); form4.Show; form2.Hide;end;procedure TForm2.Label5Click(Sender: TObject);beginif not assigned(form9) then form9:=tform9.Create(self); form9.Show; form2.Hide;end;end.4.新建form8，编写代码，可以快速输入学生的信息，也可以很方便的删除学生的信息。Form8（信息输入）procedure TForm8.SpeedButton1Click(Sender: TObject);begin begin if edit1.Text= then showmessage(请输入学号) else if edit2.Text= then showmessage(请输入姓名) else if edit3.Text= then showmessage(请输入性别) else if edit4.Text= then showmessage(请输入年龄) else if edit5.Text= then showmessage(请输入电话) begin if messagedlg(确实要添加该学生信息？,mtinformation,mbok,mbcancel,0)=mrok then begin Table1.Edit; Table1.Append; Table1.FieldByName(学号).asstring:=edit1.text; Table1.FieldByName(姓名).asstring:=edit2.text; Table1.FieldByName(性别).asstring:=edit3.text; Table1.FieldByName(年龄).asstring:=edit4.text; Table1.FieldByName(电话).asstring:=edit5.text; Table1.Post; showmessage(添加成功); edit1.clear; edit2.clear; edit3.clear; edit4.clear; edit5.clear; Table1.Append; end else begin showmessage(添加失败); edit1.clear; edit2.clear; edit3.clear; edit4.clear; edit5.clear; Table1.Append; end; end; end;end;procedure TForm8.SpeedButton2Click(Sender: TObject);beginif not assigned(form2) then form2:=tform2.Create(self); form2.Show; form8.Hide;end;procedure TForm8.SpeedButton3Click(Sender: TObject);beginif not assigned(form9) then form9:=tform9.Create(self); form9.Show; form8.Hide;end;procedure TForm8.SpeedButton4Click(Sender: TObject)，end；end.5.新建form3，编写代码，可以快速输入学生的成绩，也可以很方便的删除学生的成绩。Form3（成绩输入）procedure TForm3.SpeedButton2Click(Sender: TObject);beginif not assigned(form2) then form2:=tform2.Create(self); form2.Show; form3.Hide;end;procedure TForm3.SpeedButton3Click(Sender: TObject);beginif not assigned(form9) then form9:=tform9.Create(self); form9.Show; form3.Hide;end;procedure TForm3.SpeedButton1Click(Sender: TObject);begin begin if edit1.Text= then showmessage(请输入学号) else if edit2.Text= then showmessage(请输入姓名) else if edit15.Text= then showmessage(请输入科目) else if edit16.Text= then showmessage(请输入成绩) else begin if messagedlg(确实要添加该学生？,mtinformation,mbok,mbcancel,0)=mrok then begin Table2.Edit; Table2.Append; Table2.FieldByName(学号).asstring:=edit1.text; Table2.FieldByName(姓名).asstring:=edit2.text; Table2.FieldByName(科目).asstring:=edit15.text; Table2.FieldByName(成绩).asstring:=edit16.text; table2.post; showmessage(添加成功); edit1.Clear; edit2.Clear; edit15.Clear; edit16.Clear; Table2.Append; end else begin showmessage(添加失败); Table2.Append; end; end; end; end;procedure TForm3.SpeedButton4Click(Sender: TObject);begintable2.Active:=true; if edit3.Text= then showmessage(请输入要删除学生的学号) else if table2.Locate(学号,edit3.Text,) then begin if messagedlg(确实要删除该学生？,mtwarning,mbok,mbcancel,0)=mrok then begin table2.Delete; showmessage(删除成功); edit3.Clear; end else showmessage (删除失败); edit3.Clear; end;end;end.6.新建form9，编写代码，是系统能够退出。Form9（退出界面）procedure TForm9.SpeedButton1Click(Sender: TObject);beginapplication.Terminate;end;procedure TForm9.SpeedButton2Click(Sender: TObject);beginif not assigned(form2)