《VisualFoxPro课程设计实验报告》由会员分享，可在线阅读，更多相关《VisualFoxPro课程设计实验报告（21页珍藏版）》请在金锄头文库上搜索。
1、Visual FoxPro课程设计实验报告“学生信息管理系统”国贸2班200204074224余楷一. 设计题目学生信息管理系统二. 开发软件VFP6.0三. 课题要求(1) 掌握课堂讲授的基本数据库知识和VFP的基本技巧：1. 数据库管理系统合数据库应用系统；2. VFP的界面组成与操作；3. VFP的工作方式；4. 标的基本操作(表的建立与修改、表达式、维护命令) ；5. 表的查询与统计(排序与索引，SELECT-SQL查询，数据库于视图)；6. 程序设计初步(程序文件，程序的控制，多模块程序)。(2) 自学部分书本关于 VFP的内容：1. 菜单设计；2. 表单设计；3. 表单控件设计；4
2、. 实例：汽车修理管理系统的开发。(3) 要求能够独立设计。完成一个简单的学生信息管理系统，此系统必须有如下基本功能：1. 数据的查询；2. 记录的增加，删除，修改等功能；3. 系统界面良好；4. 操作方便，运行稳定。四. 目的掌握基本的数据库知识， 熟悉VFP的使用。学习VFP数据库应用系统开发的一般步骤：1. 需求分析2. 数据库设计3. 应用程序设计4. 软件的运行测试通过简单的系统设计、开发，激发学生的学习兴趣和动手能力。五. 设计时间第12周一一第19周六. 设计主要流程流程图：(1)数据库设计根据此系统需要建立数据库sexxdb.dbc，数据库中有如下几个数据表：student.d
3、bf、course.dbf、score.dbf password.dbf passwordm.dbf。student.dbf记录的是学生的个人信息，如：学号、姓名、性别、民族、出生日期、所在专业、籍贯。:i-t;! -一二 4-!-L E-rkiL-*-E=.j01_/01/34 j02/01/02 ?oY7i9/83夏甄Ki - i S国5既北A二 湖洞一匚(一 Ji二 一二二Studeirt学号1 姓名i性别I出生日期专业1j王成i 女 1/22/83 i 国贸JCourse.dbf记录的是有关课程的信息，如：课程编号、课程名称、学分、任课老师。H : hi课程褊号|课程名称任停老师噤二
4、尊冒首 商一四马-I 4.0；赴适1 .茂通藩兀. jfnintin jHiiiiiiiimymiHO?周时散 Score.dbf记录的是每个同学不同科目的考试成绩，有以下这些内容：课程编号、课程 名称、学号、成绩。大学英语E8一十一四JiI74lesK)H司更O1B1_二.：-一F一.，.r.J.一:.r ;T-r-= .-：-flTPassword.dbf记录系统普通用户的用户名和密码。PassTorn用尸名I密玛huh 2222 JPasswordm.dbf记录系统管理员的用户名和密码。(2)应用程序设计由于本系统是多用户登陆，当是管理员登陆时此系统的所有功能都可能用，当是普通用户登陆时
5、此系统时将无法使用系统的维护功能。下面就各个表单功能和使用作如下简述：1. 用户登录先选择用户类型：普通用户、管理员，输入密码，按确定键进入(按重写键重新填写；按退 出键退出系统)。主要代码如下：optiongroupl.click 事件:do casecase this.value=bo1.rowsource=case this.value=bo1.rowsource=password.用户名case this.value=bo1.rowsource=passwordm.管理员endcase确定键 command1.click 事件：public guestprivate Password1
6、do casecase thisform.optiongroup1.value=1select passwordpassword1=alltrim(thisform.text1.value)locate for alltrim(用户名)=alltrim(bo1.value)if found() and password1=alltrim( 密码)guest=2thisform.releasedo form main.scxelse=messagebox（用户名或密码错误，请重新输入!）thisform.textl.setfocusendifcase thisform.optiongroup1.
7、value=2select passwordmpassword1=alltrim（thisform.text1.value）locate for alltrim（ 管理员）=alltrim（bo1.value）if found（） and password1=alltrim（ 密码）guest=1thisform.releasedo form main.scxelse=messagebox（用户名或密码错误，请重新输入!）thisform.text1.setfocusendifendcase在此代码中定义了公共变量guest,是为了判断用户类型以确定进入系统界面后“维护”键是否可用。重写键 c
8、ommand2.click 事件：bo1.value=thisform.text1.value=thisform.text1.setfocus退出键 command3.click 事件：thisform.release2. 系统界面当使用者是普通用户时，系统界面中的“维护”键是不可用的。当管理员登陆时则可以使用“维护”键。学生信息管理系统Hr 统 _计：退“维护”键可否使用是通过form.activate来实现的：if guest=1thisform.Command2.enabled=.t.elsethisform.Command2.enabled=.f.endif“查询”、“维护”、“统计”
9、、“退出”键的click代码分别为：do form chaxun.scxdo form weihu.scxdo form statistic.scxthisform.releasedo form logo3. 查询界面用户可以在此查询学生信息、课程信息和成绩信息。学生信息查询匚一 “一善里题“一课程信息成演信息I 举号或姓名： I确定查询学生信息时“确定”键的代码是: thisform.pageframe1.page1.grid1.recordsource=XH=alltrim（thisform.pageframe1.page1.text1.value）thisform.pageframe1.
10、page1.grid1.recordsource=select student.学号，student.姓名，student.性另U, 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.pagefr
11、ame1.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.recor
12、dsource=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.gridl.refreshcase thisform.optiongroup1.option2.value=1thisform.grid1.recordsource=coursethisform.grid1.refreshcase thisform.opti
14、ongroup1.option3.value=1thisform.grid1.recordsource=mand1.enabled=mand2.enabled=mand3.enabled=.t.进行修改”键的 click代码为：thisform.grid1.enabled=.t.thisform.grid1.readonly=.f.thisform.grid1.allowaddnew=mand1.enabled=.f.确定键的click代码为：usethisform.grid1.enabled=.t.thisform.grid1.allowaddnew=.f.thisform.grid1.readonly=.t.&thisform.grid1.recordsource=thisform.grid1.ref
