delphi 课程设计学生管理系统Word文档格式.docx
- 文档编号:19001996
- 上传时间:2023-01-02
- 格式:DOCX
- 页数:21
- 大小:1.21MB
delphi 课程设计学生管理系统Word文档格式.docx
《delphi 课程设计学生管理系统Word文档格式.docx》由会员分享,可在线阅读,更多相关《delphi 课程设计学生管理系统Word文档格式.docx(21页珍藏版)》请在冰豆网上搜索。
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:
Label3:
Edit2:
Button1:
TButton;
Button2:
procedureButton1Click(Sender:
TObject);
procedureButton2Click(Sender:
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form2:
TForm2;
implementation
{$R*.dfm}
usesunit3;
procedureTForm2.Button1Click(Sender:
m1,m2:
string;
begin
m1:
='
岳耀强'
;
m2:
123456'
ifcomparestr(m1,edit1.Text)=0then
begin
ifcomparestr(m2,edit2.Text)=0then
form3:
=Tform3.Create(self);
form3.Show;
form2.Hide;
end
else
showmessage('
密码错误,请重新输入'
);
用户名错误,请重新输入'
end;
procedureTForm2.Button2Click(Sender:
form2.Free;
end.
3.主界面
unitUnit3;
Dialogs,ExtCtrls,Menus,ComCtrls,Grids,DBGrids,DB,ADODB,unit5,jpeg,unit9
unit11;
TForm3=class(TForm)
MainMenu1:
TMainMenu;
N1:
TMenuItem;
N2:
N3:
N4:
N5:
N6:
N7:
N9:
N10:
N11:
N12:
N13:
N15:
N16:
N17:
N18:
N19:
N20:
Image2:
Image3:
Image4:
Image5:
Image6:
Image7:
Image8:
Image9:
Image10:
Image11:
Image12:
procedureN6Click(Sender:
procedureN8Click(Sender:
procedureN10Click(Sender:
procedureN3Click(Sender:
procedureN2Click(Sender:
procedureN15Click(Sender:
procedureN16Click(Sender:
procedureN17Click(Sender:
procedureN18Click(Sender:
procedureN19Click(Sender:
procedureN20Click(Sender:
procedureN11Click(Sender:
procedureN7Click(Sender:
Form3:
TForm3;
usesunit4,unit6,unit7;
procedureTForm3.N6Click(Sender:
form4:
=tform4.Create(self);
form4.Show;
procedureTForm3.N8Click(Sender:
form6:
=Tform6.Create(self);
form6.Show;
procedureTForm3.N10Click(Sender:
aboutbox:
=taboutbox.Create(self);
aboutbox.Show;
procedureTForm3.N3Click(Sender:
form5:
=Tform5.Create(self);
form5.ADOQuery1.Active:
=true;
form5.ADOQuery2.Active:
=false;
form5.ADOQuery3.Active:
form5.ADOQuery4.Active:
form5.ADOQuery5.Active:
form5.ADOQuery6.Active:
form5.ADOQuery7.Active:
form5.ADOQuery8.Active:
form5.DBGrid1.Visible:
form5.DBGrid2.Visible:
form5.DBGrid3.Visible:
form5.DBGrid4.Visible:
form5.DBGrid5.Visible:
form5.DBGrid6.Visible:
form5.DBGrid7.Visible:
form5.DBGrid8.Visible:
form5.DBGrid9.Visible:
form5.Show;
procedureTForm3.N2Click(Sender:
form5.Free;
procedureTForm3.N15Click(Sender:
procedureTForm3.N16Click(Sender:
procedureTForm3.N17Click(Sender:
procedureTForm3.N18Click(Sender:
procedureTForm3.N19Click(Sender:
procedureTForm3.N20Click(Sender:
procedureTForm3.N11Click(Sender:
form9:
=tform9.Create(self);
form9.Show;
procedureTForm3.N7Click(Sender:
form11:
=tform11.Create(self);
form11.Show;
4.插入界面
procedureTForm4.Button1Click(Sender:
form5.ADOTable2.Close;
form5.ADOTable2.Open;
form5.ADOTable2.Active:
form5.ADOTable2.Insert;
form5.ADOTable2.FieldByName('
学号'
).AsString:
=edit1.Text;
姓名'
=edit2.Text;
性别'
=combobox1.Text;
年龄'
).AsInteger:
=strtoint(edit3.Text);
身份证号'
=edit4.Text;
家庭住址'
=edit5.Text;
所在系'
所在年级'
=edit7.Text;
所在班级'
).As
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- delphi 课程设计 学生管理系统 学生 管理 系统
![提示](https://static.bdocx.com/images/bang_tan.gif)