《2021年VISUALFOXPRO课程设计实验报告新编修订》由会员分享，可在线阅读，更多相关《2021年VISUALFOXPRO课程设计实验报告新编修订（17页珍藏版）》请在金锄头文库上搜索。
1、不问收获，但问耕耘，把最好的资料送给最好的自己！Visual,FoxPro,课程设计实验报告姓名：XXX时间：20XX年X月X日中国最大的商务办公文档下载基地： http:/ -项目方案调查报告可研分析广告策划案例分析商业计划项目管理电子商务财税管理法律文书战略管理企业文化行政管理人力资源管理制度合同文本个人简历年终总结公文写作视频讲座-中国文案：中国商务办公文案的下载基地.娱乐中国：免费电影下载 在线电影观看.办公休闲小游戏：超多FLASH游戏免费玩.以下为文案正文：Visual FoxPro 课程设计实验报告“学生信息管理系统”国贸2班200204074224佘楷一.设计题目学生信息管理系
2、统二.开发软件VFP6.0三.课题要求(1) 掌握课堂讲授的基本数据库知识和VFP的基本技巧： 1. 数据库管理系统合数据库应用系统； 2. VFP的界面组成与操作； 3. VFP的工作方式； 4. 标的基本操作（表的建立与修改、表达式、维护命令）； 5. 表的查询与统计（排序与索引，SELECT-SQL查询，数据库于视图）； 6. 程序设计初步（程序文件，程序的控制，多模块程序）。(2) 自学部分书本关于VFP的内容： 1. 菜单设计； 2. 表单设计； 3. 表单控件设计； 4. 实例：汽车修理管理系统的开发。(3) 要求能够独立设计。完成一个简单的学生信息管理系统，此系统必须有如下基本功
3、能： 1. 数据的查询； 2. 记录的增加，删除，修改等功能； 3. 系统界面良好； 4. 操作方便，运行稳定。四.目的掌握基本的数据库知识，熟悉VFP的使用。学习VFP数据库应用系统开发的一般步骤：1. 需求分析2. 数据库设计3. 应用程序设计4. 软件的运行测试通过简单的系统设计、开发，激发学生的学习兴趣和动手能力。五.设计时间第12周第19周六.设计主要流程流程图：用户登陆logo.scx管理员登陆普通用户登陆选择用户类型查询维护退出统计退出查询统计成绩信息课程信息学生信息成绩信息课程信息学生信息个人统计课程统计成绩信息课程信息学生信息课程统计个人统计(1) 数据库设计根据此系统需要建
4、立数据库seXXdb.dbc，数据库中有如下几个数据表：student.dbf、course.dbf、score.dbf、password.dbf、passwordm.dbf。student.dbf记录的是学生的个人信息，如：学号、姓名、性别、民族、出生日期、所在专业、籍贯。Course.dbf记录的是有关课程的信息，如：课程编号、课程名称、学分、任课老师。Score.dbf记录的是每个同学不同科目的考试成绩，有以下这些内容：课程编号、课程名称、学号、成绩。Password.dbf记录系统普通用户的用户名和密码。Passwordm.dbf记录系统管理员的用户名和密码。(2) 应用程序设计由于本
5、系统是多用户登陆，当是管理员登陆时此系统的所有功能都可能用，当是普通用户登陆时此系统时将无法使用系统的维护功能。下面就各个表单功能和使用作如下简述：1. 用户登录先选择用户类型：普通用户、管理员，输入密码，按确定键进入（按重写键重新填写；按退出键退出系统）。主要代码如下：optiongroup1.click事件：do case case this.value=0 bo1.rowsource= case this.value=1 bo1.rowsource=password.用户名 case this.value=2 bo1.rowsource=passwordm.管理员endcase“确定”键
6、command1.click事件：public guestprivate Password1do case case thisform.optiongroup1.value=1 select password password1=alltrim(thisform.text1.value) locate for alltrim(用户名)=alltrim(bo1.value) if found() and password1=alltrim(密码) guest=2thisform.releasedo form main.scx else=messagebox(用户名或密码错误,请重新输入!)thi
7、sform.text1.setfocus endif case thisform.optiongroup1.value=2 select passwordm password1=alltrim(thisform.text1.value) locate for alltrim(管理员)=alltrim(bo1.value) if found() and password1=alltrim(密码) guest=1thisform.releasedo form main.scx else=messagebox(用户名或密码错误,请重新输入!)thisform.text1.setfocus endif
8、endcase在此代码中定义了公共变量guest，是为了判断用户类型以确定进入系统界面后“维护”键是否可用。“重写”键command2.click事件：bo1.value=thisform.text1.value=thisform.text1.setfocus“退出”键command3.click事件：thisform.release2. 系统界面当使用者是普通用户时，系统界面中的“维护”键是不可用的。当管理员登陆时则可以使用“维护”键。“维护”键可否使用是通过form.activate来实现的：if guest=1thisform.Command2.enabled=.t.elsethisfo
9、rm.Command2.enabled=.f.endif“查询”、“维护”、“统计”、“退出”键的click代码分别为：do form chaxun.scxdo form weihu.scxdo form statistic.scxthisform.releasedo form logo3. 查询界面用户可以在此查询学生信息、课程信息和成绩信息。查询学生信息时“确定”键的代码是：thisform.pageframe1.page1.grid1.recordsource=XH=alltrim(thisform.pageframe1.page1.text1.value)thisform.pagefr
10、ame1.page1.grid1.recordsource=select student.学号, student.姓名, student.性别, student.民族, student.出生日期, student.专业, student.籍贯 from student where alltrim(学号)=XH or alltrim(姓名)=XH into cursor tempthisform.pageframe1.page1.text1.value=查询课程信息时的代码为：kcmc=alltrim(thisform.pageframe1.page2.text1.value)thisform.
11、pageframe1.page2.grid1.recordsource=select course.课程编号, course.课程名称, course.学分, course.任课老师 from course where alltrim(课程名称)=kcmc or alltrim(课程编号)=kcmc into cursor tempthisform.pageframe1.page2.text1.value=查询成绩信息时的代码为：xh=alltrim(thisform.pageframe1.page3.text1.value)thisform.pageframe1.page3.grid1.re
12、cordsource=select student.学号,student.姓名,course.课程名称,score.成绩 from student,course,score where alltrim(score.学号)=xh and alltrim(student.学号)=alltrim(score.学号) and alltrim(course.课程编号)=alltrim(score.课程编号) into cursor tempthisform.pageframe1.page3.text1.value=4. 维护界面只有管理员才能进入此界面。进入此界面后，选择组合框里的一项可以查询此项的数据
13、，但不能修改，只有按下“进行修改”键后才能进行修改，修改后按“确定”键确认修改。按“退出”键退出此界面。此界面中optiongroup1的click事件代码为：do casecase thisform.optiongroup1.option1.value=1thisform.grid1.recordsource=studentthisform.grid1.refreshcase thisform.optiongroup1.option2.value=1thisform.grid1.recordsource=coursethisform.grid1.refreshcase thisform.optiongroup1.option3.value=1thisform.grid1.recordsource=mand1.enabled=mand2.enabled=mand3.enabled=.t.“进行修改”键的click代码为：thisform.grid1.enabled=.t.thisform.grid1.readonly=.f.thisform.grid1.allowaddnew=.t.thisform.grid1.setfocusthisform.
