Visual FoxPro 课程设计实验报告
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
.
以下为文案正文:
Visual FoxPro 课程设计实验报告
——“学生信息管理系统”
国贸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 记录的是学生的个人信息,如:学号、姓名、性别、民族、出生日期、所在专业、籍贯。
用户登陆 logo.scx
选择用户类型
普通用户 登陆 管理员 登陆
查询 统计 退出 退出 查询 统计
维护 个人统计 课程统计 个人统计 课程统计
学生信息 课程信息 成绩信息 学生信息 课程信息 成绩信息 学生信息 课程信息 成绩信息
Course.dbf记录的是有关课程的信息,如:课程编号、课程名称、学分、任课老师。
Score.dbf记录的是每个同学不同科目的考试成绩,有以下这些内容:课程编号、课程名称、学号、成绩。
Password.dbf记录系统普通用户的用户名和密码。
Passwordm.dbf记录系统管理员的用户名和密码。
(2) 应用程序设计
由于本系统是多用户登陆,当是管理员登陆时此系统的所有功能都可能用,当是普通用户登陆时此系统时将无法使用系统的维护功能。下面就各个表单功能和使用作如下简述:
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
“确定”键command1.click事件:
public guest
private Password1
do 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=2
thisform.release
do form main.scx
else
=messagebox("用户名或密码错误,请重新输入!")
thisform.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=1
thisform.release
do form main.scx
else
=messagebox("用户名或密码错误,请重新输入!")
thisform.text1.setfocus
endif
endcase
在此代码中定义了公共变量guest,是为了判断用户类型以确定进入系统界面后“维护”键是否可用。
“重写”键command2.click事件:
bo1.value=""
thisform.text1.value=""
thisform.text1.setfocus
“退出”键command3.click事件:
thisform.release
2. 系统界面
当使用者是普通用户时,系统界面中的“维护”键是不可用的。
当管理员登陆时则可以使用“维护”键。