delphi 课程设计.docx

1、delphi 课程设计信息工程学院课程设计任务书 题目： 学生信息管理系统的设计与实现 学 号： 姓 名： 专 业： 课 程： Delphi程序设计 指导教师： 燕孝飞 职称： 讲 师 完成时间： 2011年 6月-2011 年 7 月枣庄学院信息科学与工程学院制2011年7月10日课程设计任务书及成绩评定课程设计的任务和具体要求本系统主要完成对学生各类信息的管理，包括录入、添加、修改、删除，查询，打印信息等方面。系统可以完成对各类信息的浏览、查询、添加、删除、修改等功能。系统的核心是添加、修改和删除三者之间的联系，每一个表的修改都将联动的影响其它的表，当完成添加或删除操作时系统会自动地完成学

2、生成绩的修改。指导教师签字： 日期： 指导教师评语成绩： 指导教师签字： 日期： 课程设计所需软件、硬件等 Delphi软件 鼠标 键盘 计算机 打印机 等课程设计进度计划起至日期工作内容备注12.612.7选题并完成开题报告,系统概要设计12.712.8界面设计,编码12.1012.15内部模块测试12.1612.20系统调试及试运行,完善程序系统参考文献、资料索引序号文献、资料名称编著者出版单位1(美)steveteixeira,xavierpacheco. Delphi6开发人员指南M. 北京：电子工业出版社，20052Ned Snell.中文版Microsoft Office 97 自

3、学通M. 北京：机械工业出版社,2001.3Craig Eddy ,Timothy Buchanan. 中文Access 2000 24学时教程M. 北京：机械工业出版社,2003.4王春红.Delphi7程序设计M北京：清华大学出版社,北京交通大学出版社,2004.5夏邦贵,郭胜.Delphi数据库开发入门与范例解析M. 北京:机械工业出版社,2004.6尹立民.Delphi6数据库开发典型实例M. 北京:电子工业出版社,2002.7东方人华.Delphi7入门与提高M. 北京:清华大学出版社,2003.8蒋方帅.Delphi程序设计M. 北京:清华大学出版社,2002.摘要：本系统采用Mi

4、crosoft Access 做后台数据库，利用ADO技术对数据库进行访问，使用工具Delphi进行软件开发，能够对学校学生的信息信息，包括学生基本信息、学生成绩、学生课程等进行管理、输入、输出、查找的操作，使散乱的学籍能够具体化、直观化、合理化。它适用于教育界，实现了对学生信息信息的科学化管理。随着科学技术的发展，计算机领域不断取得新的研究成果。计算机在代替和延伸脑力劳动方面发挥越来越重要的作用，不仅在工业方面而且在日常生活中也越来越离不开计算机。尤其是在学校里，要处理大量的学生数据。在数字化的今天，为了加快学校学籍管理必须依靠计算机，以及使学校对学生数据的管理更加简单、到位，基于上述种种原

5、因，开发一套学籍管理系统迫在眉捷，我结合本次毕业设计的题目开发了学籍管理系统。本文是对基于计算机对学校里的大量数据进行加工并处理的研究。 本系统是在管理信息系统的理论和方法指导下、数据库技术支持下完成的。本文在结构上首先论述了毕业设计选题的背景、目的和意义。然后叙述了开发平台和数据库技术和各自的优点，接着用了较多篇幅阐述了系统的需求分析、总体设计、实现以及实施的任务、技术和工具。最终系统能够完成信息的输入、输出,数据的修改、查询和统计以及打印报表等功能，使用户操作起来简便快捷。因此，开发这样一套管理软件成为很有必要的事情。系统管理主要功能：1 学籍信息管理2 班级信息管理3 课程信息管理4 成

6、绩信息管理(1) 学籍信息管理 每年的大量新生入学，老生毕业都需要处理大量的学生信息。通过这一模块，可以实现学生基本情况的添加、删除、更新。还能查询各个学生的情况，姓名、家庭电话、家庭住址、学号等各个消息(2) 班级信息管理实现班级的添加、删除、更新。查询班级的所在系别，辅导员等。(3)课程信息管理每个学期都会增加一些新的科目，通过本模块可以轻松的添加以及更新课程。可以根据学期条件或者班级条件的选择，也可根据课程名、课程号或者班级的选择，并对值的输入，可以看到数据集中显示符合条件的课程数据信息，而且可以根据教工的修改要求进行数据的添加、删除、修改的操作。该项管理对课程的属性进行了具体化的分类，

7、比如可以分辨是考试科还是考察课，而且根据条件的选择大大得提高了对各学期课程数据的记录操作，很大得帮助了教工们工作效率的提高。(4)成绩信息管理本模块实现了成绩的输入、删除、更新。还能查询到平均成绩以及单科最高最低成绩以及个人成绩。把成绩统计这个繁琐的工作简单化，为学生成绩的管理方面提高工作效率。窗体设计： 班级管理（banjigl.dfm） 班级查询（banjicx.dfm） 学籍管理（xuejigl.dfm） 学籍查询（xuejicha.dfm） 课程管理（kechenggl.dfm） 课程查询（kechengcha.dfm） 成绩管理（chengjigl.dfm） 成绩查询（chengji

8、cha.dfm）系统流程图：课程管理部分的代码：选课管理：begin ComboBox1.Items.Append(adoquery1.FieldValues系名); /ComboBox1连到系表的 系名 字段 adoquery1.Next;end; end;procedure TForm11.ComboBox1Select(Sender: TObject);beginadoquery2.Close;adoquery2.SQL.Clear;adoquery2.SQL.Add(select * from class where 系名=+ComboBox1.Text+);/查询系名是否符合adoq

9、uery2.ExecSQL;adoquery2.Open;while not adoquery2.Eof do begin ComboBox2.Items.Append(adoquery2.FieldValues班级);/符合就调用班级表的字段 班级 adoquery2.Next;end;end;procedure TForm11.ComboBox2Select(Sender: TObject);beginadoquery4.Close;adoquery4.SQL.Clear;adoquery4.SQL.Add(select * from kecheng where 班级=+ComboBox2

10、.Text+);/查询课程表中字段 班级 是否符合，符合就调到adoquery4.ExecSQL; /DBgiid1adoquery4.Open;end;procedure TForm11.ComboBox3Select(Sender: TObject);beginadoquery4.Close;adoquery4.SQL.Clear;adoquery4.SQL.Add(select * from kecheng where 班级=+ComboBox2.Text+ and 学期=+ComboBox3.Text+); /判断学期是否符合 adoquery4.ExecSQL;adoquery4.O

11、pen;end;procedure TForm11.SpeedButton1Click(Sender: TObject);beginwhile not adoquery4.Eof dobeginif (adoquery4.FieldValues课程号=adoquery3.FieldValues课程号) and (adoquery4.FieldValues班级=Combobox2.Text) and (adoquery4.FieldValues学期=Combobox3.Text) thenbreak;adoquery4.Next;end;if adoquery4.Eof thenbeginado

12、query4.Insert; /把选课内容添加到选课表中。 adoquery4.FieldValues课程号:=adoquery3.FieldValues课程号;adoquery4.FieldValues班级:=Combobox2.Text;adoquery4.FieldValues课程名:=adoquery3.FieldValues课程名;adoquery4.FieldValues学期:=Combobox3.Text;adoquery4.Post;endelsebeginshowmessage(本课程此班级已经选过); /如果已经选过，弹出对话框“本课程此班级已经选过”end;end;pro

13、cedure TForm11.SpeedButton2Click(Sender: TObject);beginif not adoquery4.Eof thenadoquery4.Delete;end;end.课程管理:procedure TForm9.FormCreate(Sender: TObject);beginADOQuery3.Close; /关闭数据库ADOQuery3.SQL.Clear; /清空ADOQuery3.SQL.Add(select * from kechengbiao);ADOQuery3.ExecSQL;ADOQuery3.Open;dbedit1.DataFie

14、ld:=课程号;dbedit2.DataField:=课程名;dbedit3.DataField:=课时;dbedit4.DataField:=学分;/DBComboBox1.DataField:=学期;DBComboBox2.DataField:=类型;end;procedure TForm9.SpeedButton1Click(Sender: TObject);beginif SpeedButton1.Caption=添加 thenbeginadoquery3.Insert; /添加到课程表SpeedButton1.Caption:=确定;SpeedButton4.Enabled:=tru

15、e;SpeedButton2.Enabled:=false;SpeedButton3.Enabled:=false;endelseif SpeedButton1.Caption=确定 thenbeginif dbedit1.Text= thenbeginshowmessage(请输入课程号！); /如果课程号没输入,弹出对话框endelsebeginadoquery3.Post;SpeedButton1.Caption:=添加;SpeedButton4.Enabled:=false;SpeedButton2.Enabled:=true;SpeedButton3.Enabled:=true;en

16、d;end;end;procedure TForm9.SpeedButton2Click(Sender: TObject);beginif adoquery3.Eof thenbeginSpeedButton2.Enabled:=false;SpeedButton3.Enabled:=false;end;if SpeedButton2.Caption=删除 thenbeginSpeedButton2.Caption:=确定;SpeedButton4.Enabled:=true;SpeedButton1.Enabled:=false;SpeedButton3.Enabled:=false;end

17、elsebeginadoquery3.Delete; /从数据表中删掉所选记录SpeedButton2.Caption:=删除;SpeedButton4.Enabled:=false;SpeedButton1.Enabled:=true;SpeedButton3.Enabled:=true;end;end;procedure TForm9.SpeedButton4Click(Sender: TObject);begin adoquery3.Cancel;SpeedButton1.Caption:=添加;SpeedButton2.Caption:=删除;SpeedButton3.Caption:

18、=修改;SpeedButton4.Enabled:=false;SpeedButton1.Enabled:=true;SpeedButton2.Enabled:=true;SpeedButton3.Enabled:=true;end;procedure TForm9.SpeedButton3Click(Sender: TObject);beginif SpeedButton3.Caption=修改 thenbeginadoquery3.Edit; /修改课程表中的记录SpeedButton3.Caption:=确定;SpeedButton4.Enabled:=true;SpeedButton2

19、.Enabled:=false;SpeedButton1.Enabled:=false;endelsebeginadoquery3.Post;SpeedButton3.Caption:=修改;SpeedButton4.Enabled:=false;SpeedButton2.Enabled:=true;SpeedButton1.Enabled:=true;end;end;procedure TForm9.Label1DblClick(Sender: TObject);beginform11:=tform11.Create(application);form11.ShowModal;end;end

20、.课程查询部分：procedure Tform4.ComboBox1Select(Sender: TObject);beginedit1.Text:=;button1.Enabled:=false;end;procedure Tform4.Button1Click(Sender: TObject);beginif CheckBox1.Checked=true thenbeginADOQuery1.Close; /先将数据库关闭ADOQuery1.SQL.Clear; /清空ADOQuery1内的SQL值清空ADOQuery1.SQL.Add(select * from kecheng wher

21、e +ComboBox1.text+ = +edit1.Text+ and 学期 = +ComboBox2.Text+); /合并查询，符合的话在DBGrid中显示出来ADOQuery1.ExecSQL;ADOQuery1.Open;endelsebeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(select * from kecheng where +ComboBox1.text+ = +edit1.Text+);/单个条件查询ADOQuery1.ExecSQL;ADOQuery1.Open;end;end;procedur

22、e Tform4.N2Click(Sender: TObject);begin /开启其他管理界面form2.show;form4.Close;end;procedure Tform4.N3Click(Sender: TObject);begin form3.show;form4.Close;end;procedure Tform4.N4Click(Sender: TObject);beginform5.show;form4.Close;end;procedure Tform4.N6Click(Sender: TObject);beginform1.show;form4.Close;end;p

23、rocedure Tform4.N7Click(Sender: TObject);beginform4.Close;end;procedure Tform4.Edit1KeyPress(Sender: TObject; var Key: Char);beginbutton1.Enabled:=true; /当输入条件后，“确定”按钮为有效状态end;procedure Tform4.CheckBox1Click(Sender: TObject);beginComboBox2.Enabled:=CheckBox1.Checked;/把查询到的数据放在DBGrid上显示出来end;end；.学校学

24、生管理信息系统的使用说明：本系统分为学生用户和管理用户，如果你不是管理员，那只能进行查询，对数据没有修改权力。只能进行查询，里面有各个方面的，如成绩查询，课程查询，班级查询，学籍查询。各个界面都简单明了，只要输入你所需要的条件，系统自动调出数据。管理员登陆点系统，点系统，输入管理员用户及密码，跟数据库的用户表比较。如果通过则能进行课程，学籍，成绩，班级的管理。运行界面截图：总结： 学生信息管理系统有利于学校对学生资料的查询，具有可使用性和可维护性，利于学校在需要之时快速了解学生的情况。并可以让具有最高权限的管理员更新、修改信息，已经具备了一定的功能。但由于时间关系和其它原因，本系统还有些不足之

25、处， 如本系统没有实现报表打印的功能等等， 还有待于完善。 在燕孝飞老师的指导下，经过一段时间的讨论和上机的不断调试，我顺利的完成了开发任务。在开发过程中，我不仅增强了自学的能力和开发软件的能力。对一些软件开发模式有了更加深刻的认识，对应用软件的熟练程度有所提高，已经能运用这项开发过程，学会了如何进行小组式的开发一个综合系统。还从燕老师身上学到了很多东西。张老师认真负责的态度严谨治治学精神都使我收益非浅。在此我特向给了很多指导和提供给我宝贵意见的燕孝飞老师表示感谢！因为本系统所涉及的内容非常广泛并且比较复杂，加上时间的仓促，尽管我竭尽全力来保证系统的可靠性，但是肯定还有不足之处，恳请用户批评指正。谢谢!