Visual FoxPro 课程设计实验报告.docx
《Visual FoxPro 课程设计实验报告.docx》由会员分享，可在线阅读，更多相关《Visual FoxPro 课程设计实验报告.docx（17页珍藏版）》请在冰点文库上搜索。
VisualFoxPro课程设计实验报告
中国最大的商务办公文档下载基地：
╔------------------------------------------------------------------------╗
┆项目方案调查报告可研分析广告策划案例分析┆
┆商业计划项目管理电子商务财税管理法律文书┆
┆战略管理企业文化行政管理人力资源管理制度┆
┆合同文本个人简历年终总结公文写作视频讲座┆
╚------------------------------------------------------------------------╝
中国文案：
中国商务办公文案的下载基地......
娱乐中国：
免费电影下载在线电影观看......
办公休闲小游戏：
超多FLASH游戏免费玩......
以下为文案正文：
VisualFoxPro课程设计实验报告
——“学生信息管理系统”
国贸2班
200204074224
佘楷
一.设计题目
学生信息管理系统
二.开发软件
VFP6.0
三.课题要求
（1）掌握课堂讲授的基本数据库知识和VFP的基本技巧：
1.数据库管理系统合数据库应用系统；
2.VFP的界面组成与操作；
3.VFP的工作方式；
4.标的基本操作（表的建立与修改、表达式、维护命令）；
5.表的查询与统计（排序与索引，SELECT-SQL查询，数据库于视图）；
6.程序设计初步（程序文件，程序的控制，多模块程序）。
（2）自学部分书本关于VFP的内容：
1.菜单设计；
2.表单设计；
3.表单控件设计；
4.实例：
汽车修理管理系统的开发。
（3）要求能够独立设计。
完成一个简单的学生信息管理系统，此系统必须有如下基本功能：
1.数据的查询；
2.记录的增加，删除，修改等功能；
3.系统界面良好；
4.操作方便，运行稳定。
四.目的
掌握基本的数据库知识，熟悉VFP的使用。
学习VFP数据库应用系统开发的一般步骤：
1.需求分析
2.数据库设计
3.应用程序设计
4.软件的运行测试
通过简单的系统设计、开发，激发学生的学习兴趣和动手能力。
五.设计时间
第12周——第19周
六.设计主要流程
流程图：
（1）数据库设计
根据此系统需要建立数据库sexxdb.dbc，数据库中有如下几个数据表：
student.dbf、course.dbf、score.dbf、password.dbf、passwordm.dbf。
student..dbf记录的是学生的个人信息，如：
学号、姓名、性别、民族、出生日期、所在专业、籍贯。
Course.dbf记录的是有关课程的信息，如：
课程编号、课程名称、学分、任课老师。
Score.dbf记录的是每个同学不同科目的考试成绩，有以下这些内容：
课程编号、课程名称、学号、成绩。
Password.dbf记录系统普通用户的用户名和密码。
Passwordm.dbf记录系统管理员的用户名和密码。
（2）应用程序设计
由于本系统是多用户登陆，当是管理员登陆时此系统的所有功能都可能用，当是普通用户登陆时此系统时将无法使用系统的维护功能。
下面就各个表单功能和使用作如下简述：
1.用户登录
先选择用户类型：
普通用户、管理员，输入密码，按确定键进入（按重写键重新填写；按退出键退出系统）。
主要代码如下：
optiongroup1.click事件：
docase
casethis.value=0
bo1.rowsource=""
casethis.value=1
bo1.rowsource="password.用户名"
casethis.value=2
bo1.rowsource="passwordm.管理员"
endcase
“确定”键command1.click事件：
publicguest
privatePassword1
docase
casethisform.optiongroup1.value=1
selectpassword
password1=alltrim（thisform.text1.value）
locateforalltrim（用户名）==alltrim（bo1.value）
iffound（）andpassword1==alltrim（密码）
guest=2
thisform.release
doformmain.scx
else
=messagebox（"用户名或密码错误,请重新输入!
"）
thisform.text1.setfocus
endif
casethisform.optiongroup1.value=2
selectpasswordm
password1=alltrim（thisform.text1.value）
locateforalltrim（管理员）==alltrim（bo1.value）
iffound（）andpassword1==alltrim（密码）
guest=1
thisform.release
doformmain.scx
else
=messagebox（"用户名或密码错误,请重新输入!
"）
thisform.text1.setfocus
endif
endcase
在此代码中定义了公共变量guest，是为了判断用户类型以确定进入系统界面后“维护”键是否可用。
“重写”键command2.click事件：
bo1.value=""
thisform.text1.value=""
thisform.text1.setfocus
“退出”键command3.click事件：
thisform.release
2.系统界面
当使用者是普通用户时，系统界面中的“维护”键是不可用的。
当管理员登陆时则可以使用“维护”键。
“维护”键可否使用是通过form.activate来实现的：
ifguest=1
thisform.Command2.enabled=.t.
else
thisform.Command2.enabled=.f.
endif
“查询”、“维护”、“统计”、“退出”键的click代码分别为：
doformchaxun.scx
doformweihu.scx
doformstatistic.scx
thisform.release
doformlogo
3.查询界面
用户可以在此查询学生信息、课程信息和成绩信息。
查询学生信息时“确定”键的代码是：
thisform.pageframe1.page1.grid1.recordsource=""
XH=alltrim（thisform.pageframe1.page1.text1.value）
thisform.pageframe1.page1.grid1.recordsource="selectstudent.学号,student.姓名,student.性别,student.民族,student.出生日期,student.专业,student.籍贯fromstudentwherealltrim（学号）==XHoralltrim（姓名）==XHintocursortemp"
thisform.pageframe1.page1.text1.value=""
查询课程信息时的代码为：
kcmc=alltrim（thisform.pageframe1.page2.text1.value）
thisform.pageframe1.page2.grid1.recordsource="selectcourse.课程编号,course.课程名称,course.学分,course.任课老师fromcoursewherealltrim（课程名称）=kcmcoralltrim（课程编号）=kcmcintocursortemp"
thisform.pageframe1.page2.text1.value=""
查询成绩信息时的代码为：
xh=alltrim（thisform.pageframe1.page3.text1.value）
thisform.pageframe1.page3.grid1.recordsource="selectstudent.学号,student.姓名,course.课程名称,score.成绩fromstudent,course,scorewherealltrim（score.学号）==xhandalltrim（student.学号）==alltrim（score.学号）andalltrim（course.课程编号）==alltrim（score.课程编号）intocursortemp"
thisform.pageframe1.page3.text1.value=""
4.维护界面
只有管理员才能进入此界面。
进入此界面后，选择组合框里的一项可以查询此项的数据，但不能修改，只有按下“进行修改”键后才能进行修改，修改后按“确定”键确认修改。
按“退出”键退出此界面。
此界面中optiongroup1的click事件代码为：
docase
casethisform.optiongroup1.option1.value=1
thisform.grid1.recordsource="student"
thisform.grid1.refresh
casethisform.optiongroup1.option2.value=1
thisform.grid1.recordsource="course"
thisform.grid1.refresh
casethisform.optiongroup1.option3.value=1
thisform.grid1.recordsource="score"
thisform.grid1.refresh
endcase
mand1.enabled=.t.
mand2.enabled=.t.
mand3.enabled=.t.
“进行修改”键的click代码为：
thisform.grid1.enabled=.t.
thisform.grid1.readonly=.f.
thisform.grid1.allowaddnew=.t.
thisform.grid1.setfocus
mand1.enabled=.f.
“确定”键的click代码为：
use
thisform.grid1.enabled=.t.
thisform.grid1.allowaddnew=.f.
thisform.grid1.readonly=.t.
&&thisform.grid1.recordsource=""
thisform.grid1.refresh
mand1.enabled=.t.
mand2.enabled=.f.
mand3.enabled=.f.
5.统计界面
通过选择组合框中的选项，可以统计个人成绩或某一课程的成绩。
此界面中optiongroup1的click事件代码为：
Docase
Casethis.value=0
Tbo1.rowsource=""
Casethis.value=1
Tbo1.rowsource="student.学号"
Casethis.value=2
Tbo1.rowsource="course.课程名称"
Endcase
“确定”键的click代码为：
docase
casethisform.optiongroup1.value=1
xh=alltrim（bo1.value）
selectscore
calculatemax（成绩）,min（成绩）,avg（成绩）,cnt（）;
for学号=xhtoa1,a2,a3,a4
&&显示统计结果
Thisform.text1.value=alltrim（str（a1））
Thisform.text2.value=alltrim（str（a2））
Thisform.text3.value=alltrim（str（a3））
Thisform.text4.value=alltrim（str（a4））
Casethisform.optiongroup1.value=2
Kcmc=alltrim（bo1.value）
Selectcourse
Locatefor课程名称=kcmc
Selectscore
Calculatemax（成绩）,min（成绩）,avg（成绩）,cnt（）;
For课程名称=kcmctoa1,a2,a3,a4
&&显示统计结果
Thisform.text1.value=alltrim（str（a1））
Thisform.text2.value=alltrim（str（a2））
Thisform.text3.value=alltrim（str（a3））
Thisform.text4.value=alltrim（str（a4））
Endcase
（3）程序测试
登陆系统，选择选项按钮组中的“普通用户”，在组合框中选择用户（如用“王仪”登陆，密码为111111），查看能否登陆。
以此相同方法查看“管理员”选项。
查看“重写”、“退出”按钮是否有效。
进入系统界面，查看“维护”键是否可用（用户为管理员时才可用）；点击“查询”键进入查询界面，点击页框的“学生信息”一项，在文本框中输入学号或姓名（如1或王仪），单击“确定”，查看列表框中是否显示相应的信息。
依此方法查看“课程信息”、“成绩信息”。
然后单击“退出”。
点击“统计”进入统计界面，选择选项按钮组中的“个人统计”选项，在组合框中选择学号（如1），单击“，确定”，查看右侧文本框中的数据是否正确。
以相同方法检查“课程统计”选项。
然后单击“退出”。
点击“维护”（当用户为管理员时），选择选项按钮组中的“学生信息”选项，然后单击列表，检查能否修改（正常应当无法修改）；然后单击“进行修改”按钮，在检查列表能否修改（正常应当可以修改）；单击“确定”确认修改，在查看列表能否修改（正常应当无法修改）。
以此方法检查“课程信息”、“成绩信息”选项。
七.系统实现的功能
查询、统计、维护（添加、删除、修改）
八.设计中遇到的主要问题，解决方法
主要问题：
代码编写问题、数据表的关联、数据环境
解决方法：
注意中英文输入法切换；注意主索引的设置；添加数据表。
九.心得体会
符号输入不可用中文输入法
出现错误时从使用“挂起”，查看代码何处发生错误，查看控件属性。
十.系统需要改善之处，改善方法的构思
该系统比较简单，功能较少；
可添加报表功能、用户注册功能、修改密码功能；
可使用菜单。
美文欣赏
1、走过春的田野，趟过夏的激流，来到秋天就是安静祥和的世界。
秋天，虽没有玫瑰的芳香，却有秋菊的淡雅，没有繁花似锦，却有硕果累累。
秋天，没有夏日的激情，却有浪漫的温情，没有春的奔放，却有收获的喜悦。
清风落叶舞秋韵，枝头硕果醉秋容。
秋天是甘美的酒，秋天是壮丽的诗，秋天是动人的歌。
2、人的一生就是一个储蓄的过程，在奋斗的时候储存了希望；在耕耘的时候储存了一粒种子；在旅行的时候储存了风景；在微笑的时候储存了快乐。
聪明的人善于储蓄，在漫长而短暂的人生旅途中，学会储蓄每一个闪光的瞬间，然后用它们酿成一杯美好的回忆，在四季的变幻与交替之间，散发浓香，珍藏一生！
3、春天来了，我要把心灵放回萦绕柔肠的远方。
让心灵长出北归大雁的翅膀，乘着吹动彩云的熏风，捧着湿润江南的霡霂，唱着荡漾晨舟的渔歌，沾着充盈夜窗的芬芳，回到久别的家乡。
我翻开解冻的泥土，挖出埋藏在这里的梦，让她沐浴灿烂的阳光，期待她慢慢长出枝蔓，结下向往已久的真爱的果实。
4、好好享受生活吧，每个人都是幸福的。
人生山一程，水一程，轻握一份懂得，将牵挂折叠，将幸福尽收，带着明媚，温暖前行，只要心是温润的，再遥远的路也会走的安然，回眸处，愿阳光时时明媚，愿生活处处晴好。
5、漂然月色，时光随风远逝，悄然又到雨季，花，依旧美；心，依旧静。
月的柔情，夜懂；心的清澈，雨懂；你的深情，我懂。
人生没有绝美，曾经习惯漂浮的你我，曾几何时，向往一种平实的安定，风雨共度，淡然在心，凡尘远路，彼此守护着心的旅程。
沧桑不是自然，而是经历；幸福不是状态，而是感受。
6、疏疏篱落，酒意消，惆怅多。
阑珊灯火，映照旧阁。
红粉朱唇，腔板欲与谁歌？
画脸粉色，凝眸着世间因果；未央歌舞，轮回着缘起缘落。
舞袖舒广青衣薄，何似院落寂寞。
风起，谁人轻叩我柴扉小门，执我之手，听我戏说？
7、经年，未染流殇漠漠清殇。
流年为祭。
琴瑟曲中倦红妆，霓裳舞中残娇靥。
冗长红尘中，一曲浅吟轻诵描绘半世薄凉寂寞，清殇如水。
寂寞琉璃，荒城繁心。
流逝的痕迹深深印骨。
如烟流年中，一抹曼妙娇羞舞尽半世清冷傲然，花祭唯美。
邂逅的情劫，淡淡刻心。
那些碎时光，用来祭奠流年，可好？
8、缘分不是擦肩而过，而是彼此拥抱。
你踮起脚尖，彼此的心就会贴得更近。
生活总不完美，总有辛酸的泪，总有失足的悔，总有幽深的怨，总有抱憾的恨。
生活亦很完美，总让我们泪中带笑，悔中顿悟，怨中藏喜，恨中生爱。
9、海浪在沙滩上一层一层地漫涌上来，又一层一层地徐徐退去。
我与你一起在海水中尽情的戏嬉，海浪翻滚，碧海蓝天，一同感受海的胸怀，一同去领略海的温情。
这无边的海，就如同我们俩无尽的爱，重重的将我们包裹。
10、寂寞的严冬里，到处是单调的枯黄色。
四处一片萧瑟，连往日明净的小河也失去了光彩，黯然无神地躲在冰面下恹恹欲睡。
有母女俩，在散发着丝丝暖意的阳光下，母亲在为女儿梳头。
她温和的把头发理顺。
又轻柔的一缕缕编织着麻花辫。
她脸上写满笑意，似乎满心的慈爱永远装不下，溢到嘴边。
流到眼角，纺织进长长的。
麻花辫。
阳光亲吻着长发，像散上了金粉，闪着飘忽的光辉。
女儿乖巧地依偎在母亲怀里，不停地说着什么，不时把母亲逗出会心的微笑，甜美的亲情融化了冬的寒冷，使萧索的冬景旋转出春天的美丽。
11、太阳终于伸出纤纤玉指，将青山的柔纱轻轻褪去。
青山那坚实的肌胸，挺拔的脊梁坦露在人们的面前，沉静而坚毅。
不时有云雾从它的怀中涌起，散开，成为最美丽的语言。
那阳光下显得凝重的松柏，那苍茫中显现出的点点殷红，那散落在群山峰顶神秘的吻痕，却又增添了青山另外的神秘。
12、原野里那郁郁葱葱的植物，叫我们丝毫感受不到秋天的萧索，勃勃生机与活力仍在田间高山涌动。
谷子的叶是墨绿的，长而大的谷穗沉甸甸地压弯了昨日挺拔的脊梁；高粱仍旧那么苗条，满头漂亮的红缨挥洒出秋的风韵；那纵横原野的林带，编织着深绿浅黄的锦绣，抒写出比之春夏更加丰富的生命色彩。
13、终于，心痛，心碎，心成灰。
终于选择，在月光下，被遗忘。
百转千回，早已物是人非；欲说还休，终于咫尺天涯；此去经年，你我终成陌路。
爱你，终是一朵花开至荼糜的悲伤，一只娥飞奔扑火的悲哀。
14、世界这么大，能遇见，不容易。
心若向阳，何惧忧伤。
人只要生活在这个世界上，就有很多烦恼，痛苦或是快乐，取决于你的内心。
人不是战胜痛苦的强者，便是屈服于痛苦的弱者。
再重的担子，笑着也是挑，哭着也是挑。
再不顺的生活，微笑着撑过去了，就是胜利。
15、孤独与喧嚣无关，摩肩接踵的人群，演绎着身外的花开花谢，没谁陪你挥别走远的流年。
孤独与忙碌迥异，滚滚红尘湮没了心境，可少了终点的奔波，人生终究一样的苍白。
当一个人成长以后，在他已经了解了世界不是由鲜花和掌声构成之后，还能坚持自己的梦想，多么可贵。
16、生活除却一份过往和爱情外，还是需要几多的遐思。
人生并不是单单的由过往和爱情符号所组成的，过往是人生对所有走过岁月的见证；因为简单，才深悟生命之轻，轻若飞花，轻似落霞，轻如雨丝；因为简单，才洞悉心灵之静，静若夜空，静似幽谷，静如小溪。
升级会员 