delphi 课程设计学生管理系统.docx

1、delphi 课程设计 学生管理系统课程设计任务书 题目： 学生管理系统 学 号 200812220253 姓 名 专 业 计算机科学与技术 课 程 Dilphi程序设计 指导教师 职称 讲师 完成时间：2010 年 11 月-2010 年 12 月枣庄学院计算机科学系制课程设计任务书及成绩评定课程设计的任务和具体要求1. 学会应用所学的知识做一个学生管理系统2. 会灵活应用所学的知识3. 本系统由SQL语言编写，在Dilphi软件环境下可以正常运行指导教师签字： 日期： 指导教师评语成绩： 指导教师签字： 日期： 课程设计所需软件、硬件等Xp系统Dilphi软件课程设计进度计划起至日期工作内

2、容备注2010.12.202010.12.252010.12.252010.12.30 先做一个简单的界面，会应用所学的知识的对所做的系统加以更改，使系统更加完善，功能更加强大参考文献、资料索引序号文献、资料名称编著者出版单位1(美)steveteixeira,xavierpacheco. Delphi6开发人员指南M. 北京：电子工业出版社，20052Ned Snell.中文版Microsoft Office 97 自学通M. 北京：机械工业出版社,2001.3Craig Eddy ,Timothy Buchanan. 中文Access 2000 24学时教程M. 北京：机械工业出版社,20

3、03.4王春红.Delphi7程序设计M北京：清华大学出版社,北京交通大学出版社,2004.5夏邦贵,郭胜.Delphi数据库开发入门与范例解析M. 北京:机械工业出版社,2004.6尹立民.Delphi6数据库开发典型实例M. 北京:电子工业出版社,2002.7东方人华.Delphi7入门与提高M. 北京:清华大学出版社,2003.8蒋方帅.Delphi程序设计M. 北京:清华大学出版社,2002.前言学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式

4、管理文件信息，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生信息信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生信息管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情。无论学校大小，每个学校手里

5、总是会有很多很多的学生信息，而且随着一年一年的累积，学校规模的逐渐扩大，学生信息信息是越来越多。现在随着中国加入了WTO，很多的企业为了能够加强自己的竞争力，都不约而同的在工作效率和管理的规范性方面下功夫。现在计算机化管理已经不知不觉中渗透到了各行各业，并且提高了这些行业的效率。学校虽然不算是一个纯粹的企业，但是学校的管理一样需要信息化，而且现在的学校逐渐的往大规模的方向发展，信息化对于学校就显的更加的重要了。以前的手工管理,已经越来越不适应学校的发展要求了。针对这种情况下，我设计了这么一个简单的学生信息管理系统，虽然很小，但是呢，还是有一定的使用价值的。一 框架设计系统流程图模块主要由刘龙洋

6、同学设计，而系统的功能设计主要由李江滨同学完成,我主要负责程序主要功能界面的设计,下面是部分流程图：、一 二 详细设计1开机画面2登录界面unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls;type TForm2 = class(TForm) Image1: TImage; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Label3:

7、TLabel; Edit2: TEdit; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var Form2: TForm2;implementation$R *.dfm uses unit3;procedure TForm2.Button1Click(Sender: TObject);v

8、ar m1,m2:string;begin m1:=岳耀强; m2:=123456; if comparestr(m1,edit1.Text)=0 then begin if comparestr(m2,edit2.Text)=0 then begin form3:=Tform3.Create(self); form3.Show; form2.Hide; end else showmessage(密码错误，请重新输入); end else showmessage(用户名错误，请重新输入);end;procedure TForm2.Button2Click(Sender: TObject);be

9、ginform2.Free;end;end.3主界面unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus, ComCtrls, Grids, DBGrids, DB, ADODB,unit5, jpeg,unit9 ,unit11;type TForm3 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMe

10、nuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; N20: TMenuItem; Image1: TImage; Image2: TImage; Image3: TImage; Image4: T

11、Image; Image5: TImage; Image6: TImage; Image7: TImage; Image8: TImage; Image9: TImage; Image10: TImage; Image11: TImage; Image12: TImage; procedure N6Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N2Click

12、(Sender: TObject); procedure N15Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure N17Click(Sender: TObject); procedure N18Click(Sender: TObject); procedure N19Click(Sender: TObject); procedure N20Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N7Click(Send

13、er: TObject); private Private declarations public Public declarations end;var Form3: TForm3;implementation$R *.dfmuses unit4, unit6,unit7;procedure TForm3.N6Click(Sender: TObject);begin form4:=tform4.Create(self); form4.Show;end;procedure TForm3.N8Click(Sender: TObject);begin form6:=Tform6.Create(se

14、lf); form6.Show;end;procedure TForm3.N10Click(Sender: TObject);begin aboutbox:=taboutbox.Create(self); aboutbox.Show;end;procedure TForm3.N3Click(Sender: TObject);begin form5:=Tform5.Create(self); form5.ADOQuery1.Active:=true; form5.ADOQuery2.Active:=false; form5.ADOQuery3.Active:=false; form5.ADOQu

15、ery4.Active:=false; form5.ADOQuery5.Active:=false; form5.ADOQuery6.Active:=false; form5.ADOQuery6.Active:=false; form5.ADOQuery7.Active:=false; form5.ADOQuery8.Active:=false; form5.DBGrid1.Visible:=true; form5.DBGrid2.Visible:=false; form5.DBGrid3.Visible:=false; form5.DBGrid4.Visible:=false; form5.

16、DBGrid5.Visible:=false; form5.DBGrid6.Visible:=false; form5.DBGrid7.Visible:=false; form5.DBGrid8.Visible:=false; form5.DBGrid9.Visible:=false; form5.Show;end;procedure TForm3.N2Click(Sender: TObject);begin form5.Free;end;procedure TForm3.N15Click(Sender: TObject);begin form5.ADOQuery1.Active:=false

17、; form5.ADOQuery2.Active:=true; form5.ADOQuery3.Active:=false; form5.ADOQuery4.Active:=false; form5.ADOQuery5.Active:=false; form5.ADOQuery6.Active:=false; form5.ADOQuery6.Active:=false; form5.ADOQuery7.Active:=false; form5.ADOQuery8.Active:=false; form5.DBGrid1.Visible:=false; form5.DBGrid2.Visible

18、:=true; form5.DBGrid3.Visible:=false; form5.DBGrid4.Visible:=false; form5.DBGrid5.Visible:=false; form5.DBGrid6.Visible:=false; form5.DBGrid7.Visible:=false; form5.DBGrid8.Visible:=false; form5.DBGrid9.Visible:=false;end;procedure TForm3.N16Click(Sender: TObject);begin form5.ADOQuery1.Active:=false;

19、 form5.ADOQuery2.Active:=false; form5.ADOQuery3.Active:=true; form5.ADOQuery4.Active:=false; form5.ADOQuery5.Active:=false; form5.ADOQuery6.Active:=false; form5.ADOQuery7.Active:=false; form5.ADOQuery8.Active:=false; form5.DBGrid1.Visible:=false; form5.DBGrid2.Visible:=false; form5.DBGrid3.Visible:=

20、true; form5.DBGrid4.Visible:=false; form5.DBGrid5.Visible:=false; form5.DBGrid6.Visible:=false; form5.DBGrid7.Visible:=false; form5.DBGrid8.Visible:=false; form5.DBGrid9.Visible:=false;end;procedure TForm3.N17Click(Sender: TObject);begin form5.ADOQuery1.Active:=false; form5.ADOQuery2.Active:=false;

21、form5.ADOQuery3.Active:=false; form5.ADOQuery4.Active:=true; form5.ADOQuery5.Active:=false; form5.ADOQuery6.Active:=false; form5.ADOQuery7.Active:=false; form5.ADOQuery8.Active:=false; form5.DBGrid1.Visible:=false; form5.DBGrid2.Visible:=false; form5.DBGrid3.Visible:=false; form5.DBGrid4.Visible:=tr

22、ue; form5.DBGrid5.Visible:=false; form5.DBGrid6.Visible:=false; form5.DBGrid7.Visible:=false; form5.DBGrid8.Visible:=false; form5.DBGrid9.Visible:=false;end;procedure TForm3.N18Click(Sender: TObject);begin form5.ADOQuery1.Active:=false; form5.ADOQuery2.Active:=false; form5.ADOQuery3.Active:=false; f

23、orm5.ADOQuery4.Active:=false; form5.ADOQuery5.Active:=true; form5.ADOQuery6.Active:=false; form5.ADOQuery7.Active:=false; form5.ADOQuery8.Active:=false; form5.DBGrid1.Visible:=false; form5.DBGrid2.Visible:=false; form5.DBGrid3.Visible:=false; form5.DBGrid4.Visible:=false; form5.DBGrid5.Visible:=true

24、; form5.DBGrid6.Visible:=false; form5.DBGrid7.Visible:=false; form5.DBGrid8.Visible:=false; form5.DBGrid9.Visible:=false;end;procedure TForm3.N19Click(Sender: TObject);begin form5.ADOQuery1.Active:=false; form5.ADOQuery2.Active:=false; form5.ADOQuery3.Active:=false; form5.ADOQuery4.Active:=false; fo

25、rm5.ADOQuery5.Active:=false; form5.ADOQuery6.Active:=true; form5.ADOQuery7.Active:=false; form5.ADOQuery8.Active:=false; form5.DBGrid1.Visible:=false; form5.DBGrid2.Visible:=false; form5.DBGrid3.Visible:=false; form5.DBGrid4.Visible:=false; form5.DBGrid5.Visible:=false; form5.DBGrid6.Visible:=true;

26、form5.DBGrid7.Visible:=false; form5.DBGrid8.Visible:=false; form5.DBGrid9.Visible:=false;end;procedure TForm3.N20Click(Sender: TObject);begin form5.ADOQuery1.Active:=false; form5.ADOQuery2.Active:=false; form5.ADOQuery3.Active:=false; form5.ADOQuery4.Active:=false; form5.ADOQuery5.Active:=false; for

27、m5.ADOQuery6.Active:=false; form5.ADOQuery7.Active:=true; form5.ADOQuery8.Active:=true; form5.DBGrid1.Visible:=false; form5.DBGrid2.Visible:=false; form5.DBGrid3.Visible:=false; form5.DBGrid4.Visible:=false; form5.DBGrid5.Visible:=false; form5.DBGrid6.Visible:=false; form5.DBGrid7.Visible:=true; for

28、m5.DBGrid8.Visible:=false; form5.DBGrid9.Visible:=false;end;procedure TForm3.N11Click(Sender: TObject);begin form9:=tform9.Create(self); form9.Show; end;procedure TForm3.N7Click(Sender: TObject);beginform11:=tform11.Create(self);form11.Show;end;end.4插入界面procedure TForm4.Button1Click(Sender: TObject)

29、;begin form5.ADOTable2.Close; form5.ADOTable2.Open; form5.DBGrid9.Visible:=true; form5.DBGrid1.Visible:=false; form5.ADOTable2.Active:=true; form5.ADOTable2.Insert; form5.ADOTable2.FieldByName(学号).AsString:=edit1.Text; form5.ADOTable2.FieldByName(姓名).AsString:=edit2.Text; form5.ADOTable2.FieldByName

30、(性别).AsString:=combobox1.Text; form5.ADOTable2.FieldByName(年龄).AsInteger:=strtoint(edit3.Text); form5.ADOTable2.FieldByName(身份证号).AsString:=edit4.Text; form5.ADOTable2.FieldByName(家庭住址).AsString:=edit5.Text; form5.ADOTable2.FieldByName(所在系).AsString:=combobox1.Text; form5.ADOTable2.FieldByName(所在年级).AsString:=edit7.Text; form5.ADOTable2.FieldByName(所在班级).As