VisualFoxPro课程设计实验的报告.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
以下为文案正文: Visual FoxPro 课程设计实验报告 ——“学生信息管理系统” 国贸 2班 200204074224 佘楷 一.设计题目 学生信息管理系统 二.开发软件 VFP6.0 三.课题要求 (1) 掌握课堂讲授的基本数据库知识和 VFP 的基本技巧: 数据库管理系统合数据库应用系统; VFP 的界面组成与操作; VFP 的工作方式; 标的基本操作(表的建立与修改、表达式、维护命令); 表的查询与统计(排序与索引,SELECT-SQL 查询,数据库于视图) ; 程序设计初步(程序文件,程序的控制,多模块程序)。 自学部分书本关于 VFP 的内容: 菜单设计; 表单设计; 表单控件设计; 实例:汽车修理管理系统的开发。 要求能够独立设计。完成一个简单的学生信息管理系统,此系统必须有如下基本功能: 数据的查询; 记录的增加,删除,修改等功能; 系统界面良好; 操作方便,运行稳定。 四.目的 掌握基本的数据库知识, 熟悉 VFP 的使用。学习 VFP 数据库应用系统开发的一般步骤: 需求分析 数据库设计 应用程序设计 软件的运行测试 通过简单的系统设计、开发,激发学生的学习兴趣和动手能力。 五.设计时间 第 12 周——第 19 周 .设计主要流程 流程图: 用户登陆 logo.scx 普通用户 登陆  管理员 登陆 选择用户类型 统 计  查 询  退 出  查 询  维 护  退 出  统 计 个 课 学 课 成 学 课 成 学 课 成 个 课 人 程 生 程 绩 生 程 绩 生 程 绩 人 程 统 统 信 信 信 信 信 信 信 信 信 统 统 计 计 息 息 息 息 息 息 息 息 息 计 计 数据库设计 根据此系统需要建立数据库 sexxdb.dbc,数据库中有如下几个数据表: student.dbf、course.dbf、score.dbf、 password.dbf、 passwordm.dbf。 student..dbf 记录的是学生的个人信息,如:学号、姓名、性别、民族、出生日期、所在专业、籍贯 。 Course.dbf 记录的是有关课程的信息,如:课程编号、课程名称、学分、任课老师。 Score.dbf 记录的是每个同学不同科目的考试成绩,有以下这些内容:课程编号、课程名称、学号、成绩。 Password.dbf 记录系统普通用户的用户名和密码。 Passwordm.dbf 记录系统管理员的用户名和密码。 应用程序设计 由于本系统是多用户登陆, 当是管理员登陆时此系统的所有功能都可能用, 当是普通用户登 陆时此系统时将无法使用系统的维护功能。下面就各个表单功能和使用作如下简述: 用户登录 先选择用户类型:普通用户、管理员,输入密码,按确定键进入(按重写键重新填写;按退出键退出系统) 。主要代码如下: 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 end

文档评论(0)

137****3851 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档