Delphi期末设计实验报告.docx
- 文档编号:2989589
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:8
- 大小:3.01MB
Delphi期末设计实验报告.docx
《Delphi期末设计实验报告.docx》由会员分享,可在线阅读,更多相关《Delphi期末设计实验报告.docx(8页珍藏版)》请在冰豆网上搜索。
Delphi期末设计实验报告
Delphi期末设计实验报告
班级:
08信息与计算科学
学号:
0821121033
姓名:
宋思伟
指导老师:
黄建新
日期:
2010-7-7
一、设计目的:
学生信息管理系统的创作理念是基于我们是在校大学生,学生信息管理系统可以部分解决学院管理方面的问题,所以我想以这个项目来检验我一学期来学习Delphi实践的成果。
二、需求分析
现如今,大学越来越普及化,各个学院都需要一个系统来管理学生的各种信息,虽然学院现用的系统比我这个先进好多,但是这个系统还是可以实现一些学生基本的信息管理功能。
在以后的时间里,我相信随着我计算机能力的提升,这个系统会越来越完善!
三、技术分析
1、登录系统界面
控件为两个Label,两个Edit,两个Button
相应的代码为:
if(Edit1.Text='宋思伟')and(Edit2.Text='19900123')thenbegin
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;
ifadotable1.Bofthen
adotable1.Last;
end;
按钮“下一条”的代码:
begin
adotable1.Next;
ifadotable1.eofthen
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
ifRadioGroup1.ItemIndex<>-1then
begin
caseradiogroup1.ItemIndexof
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;
六、后记:
帮助界面和用户设置这两个按钮的界面还没有做好吗,这是我接下来努力的方向。
这是我第二次独立完成一个程序的编写,同上学期的VC++一样,做完之后感觉好有成功感。
着这个过程中,我查阅了几本书籍,学到了很多关于控件的知识。
我觉得只要有很好的想象力,我们完全可以做出非常好的系统来!
参考资料:
《Delphi入门与提高》清华大学出版社
《Delphi基础设计》
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Delphi 期末 设计 实验 报告