《VFP程序设计与应用》实训报告

《《VFP程序设计与应用》实训报告》由会员分享，可在线阅读，更多相关《《VFP程序设计与应用》实训报告（16页珍藏版）》请在装配图网上搜索。

1、 VFP程序设计与应用实训报告实训名称： 专 业：班 级： 学 号：姓 名：指导教师： 年月日实训成绩考核、评价项目考核内容得分实训评价实训表现与态度（20分）对实训期间的出勤情况、实训态度、安全意识、职业道德素质评定成绩职业素质、实训态度、效率观念、协作精神实训操作过程（40分）根据学生实训操作的过程进行考核，评定成绩根据学生在实训操作过程中的知识掌握情况、程序设计方法和技巧、基本操作技能、知识应用能力、分析问题和解决问题的能力，以及创新能力进行考核。实训考核（30分）根据学生实训，程序设计的结果进行考核，评定成绩根据实训项目任务要求，对程序设计的结果，分模块进行测试考核实训文档（10分）实

2、训日记、实训报告等评定成绩表达能力、文档写作能力、文档的规范性总分一、实训目的1. 运用数据库管理技术，初步形成对实际问题科学评价的能力；2. 熟练掌握建立、查询系统、维护关系数据库；3. 独立完成一个完整的数据库应用系统，提高运用计算机技术的素质；4. 培养学生开展研究与合作的能力。二、课程设计报告内容1.实训内容VFP数据库采用了可视化、面向对象的程序设计方法，大大的简化了应用系统的开发过程，并提升了系统的模块性和紧凑性，引进和完善了关系数据库的实体完整性、参照完整性和用户定义完整性，是快速掌握面向对象的程序设计、运用计算机解决常用数据处理问题的最佳入门语言。1) 理解关系数据库系统的作用

3、，明确数据库基本知识。2) 学会建立、查询系统、维护关系数据库，包括菜单设计、表单设计、面向对象编程的基本方法等。；3) 掌握关系数据库中的库、表、字段、记录等概念，理解关系所表达的意义。4) 了解结构化查询语言SQL。2. 系统运行环境 硬件： PC兼容机，128以上内存，彩显。 软件： WINDOWS操作系统，Visual FoxPro 6.0 。3. 软件功能分析1) 用户界面友好，操作简单。2) 完成数据的录入和修改，并提交数据库保存。3) 实现信息查询，主要包括学生信息查询、成绩信息查询等。4) 实现数据的删除功能：对数据进行删除操作。系统能够通过用户给出的条件查找出所要删除的信息，

4、并提示用户确认是否删除。若确定，则把相关信息从数据库中删除。4. 系统总体框架图学生信息管理系统用户登录密码正确? N Y系统主界面成 绩 查 询学生信息浏览新生不及格查询三好学生统计5. 模块功能分析根据题目要求，将题目分解成子模块，从而设计完整系统功能流程。三、结论本实训项目通过分析并实现了学生信息管理系统。本系统的设计让大家了解如何根据实际问题，分析功能需求，将复杂的问题分析成子问题，达到模块化设计系统功能的目标。同时，理解了关系数据库系统作用及所表达的意义，明确了数据库基本知识，掌握了关系数据库中的库、表、字段、记录等概念，此外，本次实训培养了我们学习VFP的思维能力，让我们对VFP数

5、据库有了更深层次的学习与理解，通过两周的实训可以去独立完成一个完整的数据库应用系统，并对其出现的错误能以与改正和讨论的同时，也对以前自己朦胧而不解的问题有了很好的理解，对VFP数据库的理论学习有了更深的学习，同时也可以运用本次的实训设置一些简单的系统，VFP作为数据库和开发工具，其操作都比较简单，学习起来都比较入门。窗口的操作界面，都比较简单，但是功能却非常强大，所开发出来的项目，基本能满足日常工作的需要。学习了VFP,让我更深的了解到，什么是数据库，什么是程序，让我从最基本的OFFICE的学习中，直接从次底层认识了什么是计算机。VFP是小型的数据库，尽管其开发非常灵活，功能强大，得究其本质而

6、已，数据库文件没有任何的安全性，因为，只要别人直接设计打开DBF数据表文件，就可以浏览里面的所有记录了。总之，本次实训让我们受益匪浅，给了我们更深的认识。四、结束语 VFP虽然由于太过简单和过时以至于没有多少企业在实际应用中使用它，但是数据库的概念和对数据库管理的知识和信息化管理的理念是在任何工作中都会用得到的。通过两周的实训学习，除了学到数据库的基本知识外，我还掌握了分析解决问题的能力。只要努力与用心学了，就会有收获。学习过程中让我对自己的智力更加有了信心。学习VFP，坚定了我努力提高英语水平的决心，在学习过程中发现不懂英语要搞懂那些命令真是难上加难，再一次体会英语的无处不在。 VFP里面包

7、含了丰富的数学思维和逻辑思维的影子，对我们培养逻辑思维还是大有好处的。 五、附录：(源程序清单)表：表1.学生原始档案表字段名数据类型及宽度是否允许为空备注学号字符型(7)主索引姓名字符型(6)性别字符型(2)出生年月日期型(8)政治面貌逻辑性(1)T表示团员简历备注型(4)籍贯通用型(4)表2.学生成绩表字段名数据类型及宽度是否允许为空备注学号字符型(7)普通索引姓名字符型(6)班级字符型(5)语文数值型(2,0)普通索引数学数值型(2,0)普通索引英语数值型(2,0)普通索引体育数值型(2,0)普通索引表3.三好生表字段名数据类型及宽度是否允许为空备注学号字符型(7)普通索引姓名字符型(6

8、)班级字符型(5)普通索引平均成绩数值型(2,0)干部逻辑型(1)T是干部表4.系代码表字段名数据类型及宽度是否允许为空备注系代码字符型(2)系名字符型(10)主索引表5.专业代码表字段名数据类型及宽度是否允许为空备注系名字符型(10)普通索引专业字符型(10)主索引专业简称字符型(10)专业代码数值型(1)表6.班级情况表字段名数据类型及宽度是否允许为空备注系别字符型(10)专业字符型(10)普通索引班级字符型(5)主索引表7.口令表字段名数据类型及宽度是否允许为空备注用户名字符型(6)口令字符型(3)可用*显示表单： 进入 do form 用户登录thisform.release 退出 q

9、uit确定public ii=0取消thisform.Combo1.value=thisform.text1.value=thisform.text1.setfocusthisform.refresh退出thisform.releaseclose dataquit 浏览do form 学生信息浏览查询 do form 新生不及格查询统计do form 三好学生统计排序do form 成绩排序 首记录go topwith mand1.enabled=.f. .command2.enabled=.f.endwiththisform.refresh 上一条skip -1with mand3.enab

10、led=mand4.enabled=.t.endwithif bof()=messagebox(已经是第一条记录!,48,提醒)go topwith mand1.enabled=mand2.enabled=.f.endwithendifthisform.refresh下一条skipwith mand1.enabled=mand2.enabled=mand3.enabled=mand4.enabled=.t.endwithif eof()=messagebox(已经是最后一条记录+chr(13)+返回第一条记录,48,提醒)go topwith mand1.enabled=mand2.enabl

11、ed=.f.endwithendifthisform.refresh末纪录go bottomwith mand1.enabled=mand2.enabled=mand3.enabled=mand4.enabled=.f.endwiththisform.refresh添加with mand1.enabled=mand2.enabled=mand3.enabled=mand4.enabled=.t.endwithappend blankthisform.text1.setfocusthisform.refresh删除with mand1.enabled=mand2.enabled=mand3.en

12、abled=mand4.enabled=.t.endwithyn=messagebox(真的要删除吗?,4+32,警告)if yn=6deletepackendifthisform.refresh退出thisform.release查询if thisform.optiongroup1.value=1 set filter to 学生成绩表.语文60.and.学生成绩表.班级=bo3.valueendifif thisform.optiongroup1.value=2 set filter to 学生成绩表.数学60.and.学生成绩表.班级=bo3.valueendifif thisform.

13、optiongroup1.value=3 set filter to 学生成绩表.英语60.and.学生成绩表.班级=bo3.valueendifif thisform.optiongroup1.value=4 set filter to 学生成绩表.体育60.and.学生成绩表.班级=bo3.valueendif thisform.grid1.refresh 退出thisform.release 统计if empty(bo1.value)set filter to elseset filter to 三好生表.班级=bo1.valueendifthisform.refreshthisform

14、.grid1.setfocus退出thisform.release 升序if thisform.optiongroup1.value=1 select 学号,姓名,语文 from 学生成绩表 order by 语文 ascendifif thisform.optiongroup1.value=2 select 学号,姓名,数学 from 学生成绩表 order by 数学 ascendifif thisform.optiongroup1.value=3 select 学号,姓名,英语 from 学生成绩表 order by 英语 ascendifif thisform.optiongroup1

15、.value=4 select 学号,姓名,体育 from 学生成绩表 order by 体育 ascendifif thisform.optiongroup1.value=5select 学号,姓名,总成绩 from 学生成绩表 order by 总成绩 ascendifthisform.grid1.refresh降序if thisform.optiongroup1.value=1 select 学号,姓名,语文 from 学生成绩表 order by 语文 descendifif thisform.optiongroup1.value=2 select 学号,姓名,数学 from 学生成绩

16、表 order by 数学 descendifif thisform.optiongroup1.value=3 select 学号,姓名,英语 from 学生成绩表 order by 英语 descendifif thisform.optiongroup1.value=4 select 学号,姓名,体育 from 学生成绩表 order by 体育 descendifif thisform.optiongroup1.value=5select 学号,姓名,总成绩 from 学生成绩表 order by 总成绩 descendifthisform.grid1.refresh退出thisform.

17、release数据库：菜单： River implementation comprehensive, through built reservoir, and built dike, and retaining dam, and anti-infiltration governance, focus water engineering and water connection engineering, speed up formed layout reasonable, ecological good, and introduction row properly, and cycle smooth, and storage relief both, and Feng dry transfers, and more source