VFP 实训报告 郑州铁路职业技术学院.docx
- 文档编号:9516298
- 上传时间:2023-02-05
- 格式:DOCX
- 页数:21
- 大小:263.34KB
VFP 实训报告 郑州铁路职业技术学院.docx
《VFP 实训报告 郑州铁路职业技术学院.docx》由会员分享,可在线阅读,更多相关《VFP 实训报告 郑州铁路职业技术学院.docx(21页珍藏版)》请在冰豆网上搜索。
VFP实训报告郑州铁路职业技术学院
《VFP程序设计与应用》实训报告
实训名称:
学生信息管理系统
专业:
城市轨道交通运营管理
班级:
城轨运营09A
学号:
090513
姓名:
指导教师:
陆璐
2010年12月25日
实训成绩
考核、评价项目
考核内容
得分
实训评价
实训表现与态度
(20分)
对实训期间的出勤情况、实训态度、安全意识、职业道德素质评定成绩
职业素质、实训态度、效率观念、协作精神
实训操作过程
(40分)
根据学生实训操作的过程进行考核,评定成绩
根据学生在实训操作过程中的知识掌握情况、程序设计方法和技巧、基本操作技能、知识应用能力、分析问题和解决问题的能力,以及创新能力进行考核。
实训考核
(30分)
根据学生实训,程序设计的结果进行考核,评定成绩
根据实训项目任务要求,对程序设计的结果,分模块进行测试考核
实训文档
(10分)
实训日记、实训报告等评定成绩
表达能力、文档写作能力、文档的规范性
总分
一、实训目的
1.运用数据库管理技术,初步形成对实际问题科学评价的能力;
2.熟练掌握建立、查询系统、维护关系数据库;
3.独立完成一个完整的数据库应用系统,提高运用计算机技术的素质;
4.培养学生开展研究与合作的能力。
二、课程设计报告内容
1.实训内容
VFP数据库采用了可视化、面向对象的程序设计方法,大大的简化了应用系统的开发过程,并提升了系统的模块性和紧凑性,引进和完善了关系数据库的实体完整性、参照完整性和用户定义完整性,是快速掌握面向对象的程序设计、运用计算机解决常用数据处理问题的最佳入门语言。
1)理解关系数据库系统的作用,明确数据库基本知识。
2)学会建立、查询系统、维护关系数据库,包括菜单设计、表单设计、面向对象编程的基本方法等。
;
3)掌握关系数据库中的库、表、字段、记录等概念,理解关系所表达的意义。
4)了解结构化查询语言SQL。
2.系统运行环境
硬件:
PC兼容机,128以上内存,彩显。
软件:
WINDOWS操作系统,VisualFoxPro6.0。
3.软件功能分析
1)用户界面友好,操作简单。
2)完成数据的录入和修改,并提交数据库保存。
3)实现信息查询,主要包括学生信息查询、成绩信息查询等。
4)实现数据的删除功能:
对数据进行删除操作。
系统能够通过用户给出的条件查找出所要删除的信息,并提示用户确认是否删除。
若确定,则把相关信息从数据库中删除。
4.系统总体框架图
N
Y
5.模块功能分析
根据题目要求,将题目分解成子模块,从而设计完整系统功能流程。
三、结论
本实训项目通过分析并实现了学生信息管理系统。
本系统的设计让大家了解如何根据实际问题,分析功能需求,将复杂的问题分析成子问题,达到模块化设计系统功能的目标。
同时,理解了关系数据库系统作用及所表达的意义,明确了数据库基本知识,掌握了关系数据库中的库、表、字段、记录等概念,此外,本次实训培养了我们学习VFP的思维能力,让我们对VFP数据库有了更深层次的学习与理解,通过两周的实训可以去独立完成一个完整的数据库应用系统,并对其出现的错误能以与改正和讨论的同时,也对以前自己朦胧而不解的问题有了很好的理解,对VFP数据库的理论学习有了更深的学习,同时也可以运用本次的实训设置一些简单的系统,
VFP作为数据库和开发工具,其操作都比较简单,学习起来都比较入门。
窗口的操作界面,都比较简单,但是功能却非常强大,所开发出来的项目,基本能满足日常工作的需要。
学习了VFP,让我更深的了解到,什么是数据库,什么是程序,让我从最基本的OFFICE的学习中,直接从次底层认识了什么是计算机。
VFP是小型的数据库,尽管其开发非常灵活,功能强大,得究其本质而已,数据库文件没有任何的安全性,因为,只要别人直接设计打开DBF数据表文件,就可以浏览里面的所有记录了。
总之,本次实训让我们受益匪浅,给了我们更深的认识。
四、结束语
VFP虽然由于太过简单和过时以至于没有多少企业在实际应用中使用它,但是数据库的概念和对数据库管理的知识和信息化管理的理念是在任何工作中都会用得到的。
通过两周的实训学习,除了学到数据库的基本知识外,我还掌握了分析解决问题的能力。
只要努力与用心学了,就会有收获。
学习过程中让我对自己的智力更加有了信心。
学习VFP,坚定了我努力提高英语水平的决心,在学习过程中发现不懂英语要搞懂那些命令真是难上加难,再一次体会英语的无处不在。
VFP里面包含了丰富的数学思维和逻辑思维的影子,对我们培养逻辑思维还是大有好处的。
五、附录:
(源程序清单)
表:
表1.学生原始档案表
字段名
数据类型及宽度
是否允许为空
备注
学号
字符型(7)
×
主索引
姓名
字符型(6)
×
性别
字符型
(2)
√
出生年月
日期型(8)
√
政治面貌
逻辑性
(1)
√
T表示团员
简历
备注型(4)
√
籍贯
通用型(4)
√
表2.学生成绩表
字段名
数据类型及宽度
是否允许为空
备注
学号
字符型(7)
×
普通索引
姓名
字符型(6)
×
班级
字符型(5)
×
语文
数值型(2,0)
√
普通索引
数学
数值型(2,0)
√
普通索引
英语
数值型(2,0)
√
普通索引
体育
数值型(2,0)
√
普通索引
表3.三好生表
字段名
数据类型及宽度
是否允许为空
备注
学号
字符型(7)
×
普通索引
姓名
字符型(6)
×
班级
字符型(5)
×
普通索引
平均成绩
数值型(2,0)
√
干部
逻辑型
(1)
√
T是干部
表4.系代码表
字段名
数据类型及宽度
是否允许为空
备注
系代码
字符型
(2)
√
系名
字符型(10)
×
主索引
表5.专业代码表
字段名
数据类型及宽度
是否允许为空
备注
系名
字符型(10)
×
普通索引
专业
字符型(10)
×
主索引
专业简称
字符型(10)
×
专业代码
数值型
(1)
√
表6.班级情况表
字段名
数据类型及宽度
是否允许为空
备注
系别
字符型(10)
×
专业
字符型(10)
×
普通索引
班级
字符型(5)
×
主索引
表7.口令表
字段名
数据类型及宽度
是否允许为空
备注
用户名
字符型(6)
×
口令
字符型(3)
×
可用*显示
表单:
进入doform用户登录
thisform.release
退出quit
确定publici
i=0
取消thisform.Combo1.value=""
thisform.text1.value=""
thisform.text1.setfocus
thisform.refresh
退出thisform.release
closedata
quit
浏览doform学生信息浏览
查询doform新生不及格查询
统计doform三好学生统计
排序doform成绩排序
首记录gotop
withmandgroup1
.command1.enabled=.f.
.command2.enabled=.f.
endwith
thisform.refresh
上一条skip-1
withmandgroup1
.command3.enabled=.t.
.command4.enabled=.t.
endwith
ifbof()
=messagebox("已经是第一条记录!
",48,"提醒")
gotop
withmandgroup1
.command1.enabled=.f.
.command2.enabled=.f.
endwith
endif
thisform.refresh
下一条skip
withmandgroup1
.command1.enabled=.t.
.command2.enabled=.t.
.command3.enabled=.t.
.command4.enabled=.t.
endwith
ifeof()
=messagebox("已经是最后一条记录"+chr(13)+"返回第一条记录",48,"提醒")
gotop
withmandgroup1
.command1.enabled=.f.
.command2.enabled=.f.
endwith
endif
thisform.refresh
末纪录gobottom
withmandgroup1
.command1.enabled=.t.
.command2.enabled=.t.
.command3.enabled=.f.
.command4.enabled=.f.
endwith
thisform.refresh
添加withmandgroup1
.command1.enabled=.t.
.command2.enabled=.t.
.command3.enabled=.t.
.command4.enabled=.t.
endwith
appendblank
thisform.text1.setfocus
thisform.refresh
删除withmandgroup1
.command1.enabled=.t.
.command2.enabled=.t.
.command3.enabled=.t.
.command4.enabled=.t.
endwith
yn=messagebox("真的要删除吗?
",4+32,"警告")
ifyn=6
delete
pack
endif
thisform.refresh
退出thisform.release
查询ifthisform.optiongroup1.value=1
setfilterto学生成绩表.语文<60.and.学生成绩表.班级=bo3.value
endif
ifthisform.optiongroup1.value=2
setfilterto学生成绩表.数学<60.and.学生成绩表.班级=bo3.value
endif
ifthisform.optiongroup1.value=3
setfilterto学生成绩表.英语<60.and.学生成绩表.班级=bo3.value
endif
ifthisform.optiongroup1.value=4
setfilterto学生成绩表.体育<60.and.学生成绩表.班级=bo3.value
endif
thisform.grid1.refresh
退出thisform.release
统计ifempty(bo1.value)
setfilterto
else
setfilterto三好生表.班级=bo1.value
endif
thisform.refresh
thisform.grid1.setfocus
退出thisform.release
升序ifthisform.optiongroup1.value=1
select学号,姓名,语文from学生成绩表orderby语文asc
endif
ifthisform.optiongroup1.value=2
select学号,姓名,数学from学生成绩表orderby数学asc
endif
ifthisform.optiongroup1.value=3
select学号,姓名,英语from学生成绩表orderby英语asc
endif
ifthisform.optiongroup1.value=4
select学号,姓名,体育from学生成绩表orderby体育asc
endif
ifthisform.optiongroup1.value=5
select学号,姓名,总成绩from学生成绩表orderby总成绩asc
endif
thisform.grid1.refresh
降序ifthisform.optiongroup1.value=1
select学号,姓名,语文from学生成绩表orderby语文desc
endif
ifthisform.optiongroup1.value=2
select学号,姓名,数学from学生成绩表orderby数学desc
endif
ifthisform.optiongroup1.value=3
select学号,姓名,英语from学生成绩表orderby英语desc
endif
ifthisform.optiongroup1.value=4
select学号,姓名,体育from学生成绩表orderby体育desc
endif
ifthisform.optiongroup1.value=5
select学号,姓名,总成绩from学生成绩表orderby总成绩desc
endif
thisform.grid1.refresh
退出thisform.release
数据库:
菜单:
2010年12月22日星期三
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP 实训报告 郑州铁路职业技术学院 报告 郑州 铁路 职业技术学院