delphi 课程设计学生管理系统.docx
《delphi 课程设计学生管理系统.docx》由会员分享，可在线阅读，更多相关《delphi 课程设计学生管理系统.docx（21页珍藏版）》请在冰豆网上搜索。
delphi课程设计学生管理系统
课程设计任务书
题目：
学生管理系统
学号200812220253
姓名
专业计算机科学与技术
课程Dilphi程序设计
指导教师职称讲师
完成时间：
2010年11月----2010年12月
枣庄学院计算机科学系制
课程设计任务书及成绩评定
课程设计的任务和具体要求
1.学会应用所学的知识做一个学生管理系统
2.会灵活应用所学的知识
3.本系统由SQL语言编写，在Dilphi软件环境下可以正常运行
指导教师签字：
日期：
指导教师评语
成绩：
指导教师签字：
日期：
课程设计所需软件、硬件等
Xp系统
Dilphi软件
课程设计进度计划
起至日期
工作内容
备注
2010.12.20—2010.12.25
2010.12.25—2010.12.30
先做一个简单的界面，会应用所学的知识的
对所做的系统加以更改，使系统更加完善，功能更加强大
参考文献、资料索引
序号
文献、资料名称
编著者
出版单位
[1]（美）steveteixeira,xavierpacheco.Delphi6开发人员指南[M].北京：
电子工业出版社，2005．
[2]NedSnell.中文版MicrosoftOffice97自学通[M].北京：
机械工业出版社,2001.
[3]CraigEddy,TimothyBuchanan.中文Access200024学时教程[M].北京：
机械工业出版社,2003.
[4]王春红.Delphi7程序设计[M]．北京：
清华大学出版社,北京交通大学出版社,2004.
[5]夏邦贵,郭胜.Delphi数据库开发入门与范例解析[M].北京:
机械工业出版社,2004.
[6]尹立民.Delphi6数据库开发典型实例[M].北京:
电子工业出版社,2002.
[7]东方人华.Delphi7入门与提高[M].北京:
清华大学出版社,2003.
[8]蒋方帅.Delphi程序设计[M].北京:
清华大学出版社,2002.
前言
学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。
但一直以来人们使用传统人工的方式管理文件信息，这种管理方式存在着许多缺点,如:
效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分,使用计算机对学生信息信息进行管理,具有着手工管理所无法比拟的优点.例如:
检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高学生信息管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。
因此，开发这样一套管理软件成为很有必要的事情。
无论学校大小，每个学校手里总是会有很多很多的学生信息，而且随着一年一年的累积，学校规模的逐渐扩大，学生信息信息是越来越多。
现在随着中国加入了WTO，很多的企业为了能够加强自己的竞争力，都不约而同的在工作效率和管理的规范性方面下功夫。
现在计算机化管理已经不知不觉中渗透到了各行各业，并且提高了这些行业的效率。
学校虽然不算是一个纯粹的企业，但是学校的管理一样需要信息化，而且现在的学校逐渐的往大规模的方向发展，信息化对于学校就显的更加的重要了。
以前的手工管理,已经越来越不适应学校的发展要求了。
针对这种情况下，我设计了这么一个简单的学生信息管理系统，虽然很小，但是呢，还是有一定的使用价值的。
一．框架设计
系统流程图模块主要由刘龙洋同学设计，而系统的功能设计主要由李江滨同学完成,我主要负责程序主要功能界面的设计,下面是部分流程图：
、
一．
二．详细设计
1开机画面
2．登录界面
unitUnit2;
interface
uses
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:
TLabel;
Edit2:
TEdit;
Button1:
TButton;
Button2:
TButton;
procedureButton1Click（Sender:
TObject）;
procedureButton2Click（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form2:
TForm2;
implementation
{$R*.dfm}
usesunit3;
procedureTForm2.Button1Click（Sender:
TObject）;
var
m1,m2:
string;
begin
m1:
='岳耀强';
m2:
='123456';
ifcomparestr（m1,edit1.Text）=0then
begin
ifcomparestr（m2,edit2.Text）=0then
begin
form3:
=Tform3.Create（self）;
form3.Show;
form2.Hide;
end
else
showmessage（'密码错误，请重新输入'）;
end
else
showmessage（'用户名错误，请重新输入'）;
end;
procedureTForm2.Button2Click（Sender:
TObject）;
begin
form2.Free;
end;
end.
3．主界面
unitUnit3;
interface
uses
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:
TMenuItem;
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:
TImage;
Image5:
TImage;
Image6:
TImage;
Image7:
TImage;
Image8:
TImage;
Image9:
TImage;
Image10:
TImage;
Image11:
TImage;
Image12:
TImage;
procedureN6Click（Sender:
TObject）;
procedureN8Click（Sender:
TObject）;
procedureN10Click（Sender:
TObject）;
procedureN3Click（Sender:
TObject）;
procedureN2Click（Sender:
TObject）;
procedureN15Click（Sender:
TObject）;
procedureN16Click（Sender:
TObject）;
procedureN17Click（Sender:
TObject）;
procedureN18Click（Sender:
TObject）;
procedureN19Click（Sender:
TObject）;
procedureN20Click（Sender:
TObject）;
procedureN11Click（Sender:
TObject）;
procedureN7Click（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form3:
TForm3;
implementation
{$R*.dfm}
usesunit4,unit6,unit7;
procedureTForm3.N6Click（Sender:
TObject）;
begin
form4:
=tform4.Create（self）;
form4.Show;
end;
procedureTForm3.N8Click（Sender:
TObject）;
begin
form6:
=Tform6.Create（self）;
form6.Show;
end;
procedureTForm3.N10Click（Sender:
TObject）;
begin
aboutbox:
=taboutbox.Create（self）;
aboutbox.Show;
end;
procedureTForm3.N3Click（Sender:
TObject）;
begin
form5:
=Tform5.Create（self）;
form5.ADOQuery1.Active:
=true;
form5.ADOQuery2.Active:
=false;
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:
=true;
form5.DBGrid2.Visible:
=false;
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;
form5.Show;
end;
procedureTForm3.N2Click（Sender:
TObject）;
begin
form5.Free;
end;
procedureTForm3.N15Click（Sender:
TObject）;
begin
form5.ADOQuery1.Active:
=false;
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:
=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;
procedureTForm3.N16Click（Sender:
TObject）;
begin
form5.ADOQuery1.Active:
=false;
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:
=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;
procedureTForm3.N17Click（Sender:
TObject）;
begin
form5.ADOQuery1.Active:
=false;
form5.ADOQuery2.Active:
=false;
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:
=true;
form5.DBGrid5.Visible:
=false;
form5.DBGrid6.Visible:
=false;
form5.DBGrid7.Visible:
=false;
form5.DBGrid8.Visible:
=false;
form5.DBGrid9.Visible:
=false;
end;
procedureTForm3.N18Click（Sender:
TObject）;
begin
form5.ADOQuery1.Active:
=false;
form5.ADOQuery2.Active:
=false;
form5.ADOQuery3.Active:
=false;
form5.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;
form5.DBGrid6.Visible:
=false;
form5.DBGrid7.Visible:
=false;
form5.DBGrid8.Visible:
=false;
form5.DBGrid9.Visible:
=false;
end;
procedureTForm3.N19Click（Sender:
TObject）;
begin
form5.ADOQuery1.Active:
=false;
form5.ADOQuery2.Active:
=false;
form5.ADOQuery3.Active:
=false;
form5.ADOQuery4.Active:
=false;
form5.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;
form5.DBGrid7.Visible:
=false;
form5.DBGrid8.Visible:
=false;
form5.DBGrid9.Visible:
=false;
end;
procedureTForm3.N20Click（Sender:
TObject）;
begin
form5.ADOQuery1.Active:
=false;
form5.ADOQuery2.Active:
=false;
form5.ADOQuery3.Active:
=false;
form5.ADOQuery4.Active:
=false;
form5.ADOQuery5.Active:
=false;
form5.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;
form5.DBGrid8.Visible:
=false;
form5.DBGrid9.Visible:
=false;
end;
procedureTForm3.N11Click（Sender:
TObject）;
begin
form9:
=tform9.Create（self）;
form9.Show;
end;
procedureTForm3.N7Click（Sender:
TObject）;
begin
form11:
=tform11.Create（self）;
form11.Show;
end;
end.
4．插入界面
procedureTForm4.Button1Click（Sender:
TObject）;
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（'性别'）.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
升级会员 