Visual FoxPro 课程设计实验报告.doc

中国文案 中国最大的商务办公文档下载基地： ╔------------------------------------------------------------------------╗ ┆项目方案 调查报告 可研分析 广告策划 案例分析┆ ┆商业计划 项目管理 电子商务 财税管理 法律文书┆ ┆战略管理 企业文化 行政管理 人力资源 管理制度┆ ┆合同文本 个人简历 年终总结 公文写作 视频讲座┆ ╚------------------------------------------------------------------------╝ 中国文案： 中国商务办公文案的下载基地...... 娱乐中国： 免费电影下载 在线电影观看...... 办公休闲小游戏： 超多FLASH游戏免费玩...... 以下为文案正文： 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周 六.设计主要流程 流程图： 用户登陆 logo.scx 管理员 登陆 普通用户 登陆 选择用户类型 查询 维护 退出 统计 退出 查询 统计 成绩信息 课程信息 学生信息 成绩信息 课程信息 学生信息 个人统计 课程统计 成绩信息 课程信息 学生信息 课程统计 个人统计 (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事件： 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. 系统界面 当使用者是普通用户时，系统界面中的“维护”键是不可用的。 当管理员登陆时则可以使用“维护”键。 “维护”键可否使用是通过form.activate来实现的： if guest=1 thisform.Command2.enabled=.t. else thisform.Command2.enabled=.f. endif “查询”、“维护”、“统计”、“退出”键的click代码分别为： do form chaxun.scx do form weihu.scx do form statistic.scx thisform.release do form logo 3. 查询界面 用户可以在此查询学生信息、课程信息和成绩信息。 查询学生信息时“确定”键的代码是： thisform.pageframe1.page1.grid1.recordsource="" XH=alltrim(thisform.pageframe1.page1.text1.value) thisform.pageframe1.page1.grid1.recordsource="select student.学号, student.姓名, student.性别, student.民族, student.出生日期, student.专业, student.籍贯 from student where alltrim(学号)==XH or alltrim(姓名)==XH into cursor temp" thisform.pageframe1.page1.text1.value="" 查询课程信息时的代码为： kcmc=alltrim(thisform.pageframe1.page2.text1.value) thisform.pageframe1.page2.grid1.recordsource="select course.课程编号, course.课程名称, course.学分, course.任课老师 from course where alltrim(课程名称)=kcmc or alltrim(课程编号)=kcmc into cursor temp" thisform.pageframe1.page2.text1.value="" 查询成绩信息时的代码为： xh=alltrim(thisform.pageframe1.page3.text1.value) thisform.pageframe1.page3.grid1.recordsource="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 temp" thisform.pageframe1.page3.text1.value="" 4. 维护界面 只有管理员才能进入此界面。 进入此界面后，选择组合框里的一项可以查询此项的数据，但不能修改，只有按下“进行修改”键后才能进行修改，修改后按“确定”键确认修改。按“退出”键退出此界面。 此界面中optiongroup1的click事件代码为： do case case thisform.optiongroup1.option1.value=1 thisform.grid1.recordsource="student" thisform.grid1.refresh case thisform.optiongroup1.option2.value=1 thisform.grid1.recordsource="course" thisform.grid1.refresh case thisform.optiongroup1.option3.value=1 thisform.grid1.recordsource="score" thisform.grid1.refresh