Delphi期末设计实验报告

《Delphi期末设计实验报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Delphi期末设计实验报告班级：08信息与计算科学学号：0821121033姓名：宋思伟指导老师：黄建新日期：2010-7-7一、设计目的：学生信息管理系统的创作理念是基于我们是在校大学生，学生信息管理系统可以部分解决学院管理方面的问题，所以我想以这个项目来检验我一学期来学习Delphi实践的成果。二、需求分析现如今，大学越来越普及化，各个学院都需要一个系统来管理学生的各种信息，虽然学院现用的系统比我这个先进好多，但是这个系统还是可以实现一些学生基本的信息管理功能。在以后的时间里，我相信随着我计算机能力的提升，这个系统会越来越完善！三、技术分析1、登录系统界面控件为两个L

2、abel，两个Edit,两个Button相应的代码为：if(Edit1.Text='宋思伟')and(Edit2.Text='19900123')thenbeginshowmessage('欢迎进入此系统.');form2.Show;endelseshowmessage('姓名或密码错误.');end;2、学生信息管理系统主页面：界面上的控件有：Panel;SpeedButton;音乐播放控件：MediaPlayer;Lable;Button;我还导入了一张秋中湖的图片，所用控件为:Image;编辑信息的代码为：beginform3.show;end;(显示Form3)查看

3、信息的代码为：beginform4.Show;end;(显示Form4)查询信息的代码为：beginform5.Show;end;(显示Form5)播放音乐文件的代码为：beginMediaPlayer1.FileName:='I:周杰伦-枫.mp3';MediaPlayer1.Open;MediaPlayer1.Play;end;这里我只放了一首歌曲在里面。一、学生信息管理系统查看界面：界面上的控件有：Panel;Lable;DBedit;DBmemo(用来写备注)；DBCombobox;Button;关于连接数据库Access的控件：Datasource;ADOTab

4、le;按钮“上一条”的代码：beginadotable1.Prior;ifadotable1.Bofthenadotable1.Last;end;按钮“下一条”的代码：beginadotable1.Next;ifadotable1.eofthenadotable1.First;end;按钮“首条”的代码：beginadotable1.First;end按钮“末条”的代码：beginadotable1.Last;end;按钮“添加”的代码：beginadotable1.Append;button6.Enabled:=true;button5.Enabled:=false;en

5、d;按钮“保存”的代码：beginadotable1.Post;button5.Enabled:=true;button6.Enabled:=false;button7.Enabled:=true;end;按钮“修改”的代码：beginadotable1.Edit;button6.Enabled:=true;button7.Enabled:=false;end;按钮“删除”的代码：beginadotable1.Delete;end;按钮“返回”的代码：beginform2.Show;end;一、学生信息管理系统查看窗口此界面上的控件有：Lable;DBGrid;Button

6、;DBNavigator关于连接数据库Access的控件：Datasource;ADOTable;这里没有太多要编写的代码，只有一个返回主界面的按钮，主要注意两个连接控件的各个属性值的设置；一、学生信息管理系统查询窗口：界面上的控件有：Lable;Button;Radiogroup;DBGrid;关于连接数据库Access的控件：Datasource;ADODDataSet;查询的代码为：beginifRadioGroup1.ItemIndex<>-1thenbegincaseradiogroup1.ItemIndexof0:beginadodataset1.Filtere

7、d:=false;adodataset1.Filter:='Number='+''''+edit1.Text+'''';adodataset1.Filtered:=true;end;1:beginadodataset1.Filtered:=false;adodataset1.Filter:='Name='+''''+edit2.Text+'''';//Filter的属性值是一个字符串adodataset1.Filtered:=true;end;2:beginadodataset1.Filtered:=false;a