Delphi期末设计实验报告.doc

Delphi期末设计实验报告班级：08信息与计算科学学号：0821121033姓名：宋思伟指导老师：黄建新日期：2010-7-7一、 设计目的：学生信息管理系统的创作理念是基于我们是在校大学生，学生信息管理系统可以部分解决学院管理方面的问题，所以我想以这个项目来检验我一学期来学习Delphi实践的成果。二、 需求分析现如今，大学越来越普及化，各个学院都需要一个系统来管理学生的各种信息，虽然学院现用的系统比我这个先进好多，但是这个系统还是可以实现一些学生基本的信息管理功能。在以后的时间里，我相信随着我计算机能力的提升，这个系统会越来越完善！三、技术分析1、登录系统界面控件为两个Label，两个Edit,两个Button相应的代码为：if (Edit1.Text=宋思伟)and(Edit2.Text=19900123) then begin showmessage(欢迎进入此系统.); form2.Show ; end else showmessage(姓名或密码错误.);end;2、学生信息管理系统主页面：界面上的控件有：Panel; SpeedButton; 音乐播放控件： MediaPlayer; Lable; Button; 我还导入了一张秋中湖的图片，所用控件为:Image;编辑信息的代码为：beginform3.show;end;(显示Form3)查看信息的代码为：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; ADOTable;按钮“上一条”的代码：begin adotable1.Prior; if adotable1.Bof then adotable1.Last ;end;按钮“下一条”的代码：begin adotable1.Next ; if adotable1.eof then adotable1.First;end;按钮“首条”的代码：begin adotable1.First;end按钮“末条”的代码：begin adotable1.Last;end;按钮“添加”的代码：begin adotable1.Append; button6.Enabled:=true; button5.Enabled :=false;end;按钮“保存”的代码：begin adotable1.Post; button5.Enabled:=true; button6.Enabled:=false; button7.Enabled:=true;end;按钮“修改”的代码：begin adotable1.Edit; button6.Enabled:=true; button7.Enabled:=false;end;按钮“删除”的代码：begin adotable1.Delete;end;按钮“返回”的代码：begin form2.Show;end;四、 学生信息管理系统查看窗口此界面上的控件有：Lable; DBGrid; Button; DBNavigator关于连接数据库Access的控件：Datasource; ADOTable;这里没有太多要编写的代码，只有一个返回主界面的按钮，主要注意两个连接控件的各个属性值的设置；五、 学生信息管理系统查询窗口：界面上的控件有：Lable;Button;Radiogroup;DBGrid;关于连接数据库Access的控件：Datasource;ADODDataSet;查询的代码为：begin if RadioGroup1.ItemIndex-1 then begin case radiogroup1.ItemIndex of 0:begin adodataset1.Filtered:=false; adodataset1.Filter:=Number= +edit1.Text+; adodataset1.Filtered:=true; end; 1:begin adodataset1.Filtered:=false; adodataset1.Filter:=Name=+edit2.Text+; / Filter的属性值是一个字符串 adodataset1.Filtered:=true; end; 2:begin adodataset1.Filtered:=false; adodataset1.Filter:=Sex=+edit3.Text+; adodataset1.Filtered:=true; end; 3:begin adodataset1.Filtered:=false; adodataset1.Filter:=Speciality=+edit4.Text+; adodataset1.Filtered:=true; end; 4:begin adodataset1.Filtered:=false; adodataset1.Filter:=Class=+edit4.Text+; adodataset1.Filtered:=true; end; end; end; end;六、 后记：帮助界面和用户设置这两个按钮的界面还没有做好吗，这是我接下来努力的方向。这是我第二次独