Delphi期末设计实验报告.docVIP

Delphi期末设计实验报告 班级：08信息与计算科学 学号：0821121033 姓名：宋思伟 指导老师：黄建新 日期：2010-7-7 设计目的： 学生信息管理系统的创作理念是基于我们是在校大学生，学生信息管理系统可以部分解决学院管理方面的问题，所以我想以这个项目来检验我一学期来学习Delphi实践的成果。 需求分析 现如今，大学越来越普及化，各个学院都需要一个系统来管理学生的各种信息，虽然学院现用的系统比我这个先进好多，但是这个系统还是可以实现一些学生基本的信息管理功能。在以后的时间里，我相信随着我计算机能力的提升，这个系统会越来越完善！ 三、技术分析 1、登录系统界面 控件为两个Label，两个Edit,两个Button 相应的代码为： if (Edit1.Text=宋思伟)and(Edit2.Text then begin showmessage(欢迎进入此系统.); form2.Show ; end else showmessage(姓名或密码错误.); end; 2、学生信息管理系统主页面： 界面上的控件有：Panel; SpeedButton; 音乐播放控件： MediaPlayer; Lable; Button; 我还导入了一张秋中湖的图片，所用控件为:Image; 编辑信息的代码为： begin form3.show; end;(显示Form3) 查看信息的代码为： begin form4.Show; end; (显示Form4) 查询信息的代码为： begin form5.Show; end; (显示Form5) 播放音乐文件的代码为： begin MediaPlayer1.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