内容简介本书全面具体地介绍了 Visual FoxPro 6.0 的基础知识 基本操作和基本技能, 以及数据库设计和开发的有关知识 本书可辅助理论教程使用, 也可单独作为实验教程使用 在编写本书过程中力求语言通俗易懂, 讲解深入浅出 运用大量实例使读者更快地熟悉 Visual FoxPro 6.0

Transcription

1 普通高等教育 十二五 重点规划教材公共课系列中国科学院教材建设专家委员会 十二五 规划教材 Visual FoxPro 6.0 程序设计实践教程 吴德胜岳莉高鹏主编 王延松俞炫昊朱建辉副主编 朱丽莉主审 科学出版社职教技术出版中心 北京

2 内容简介本书全面具体地介绍了 Visual FoxPro 6.0 的基础知识 基本操作和基本技能, 以及数据库设计和开发的有关知识 本书可辅助理论教程使用, 也可单独作为实验教程使用 在编写本书过程中力求语言通俗易懂, 讲解深入浅出 运用大量实例使读者更快地熟悉 Visual FoxPro 6.0 的可视化编程环境, 所有案例的操作步骤都是按实际操作界面逐步讲解, 读者可一边学习, 一边上机实践 通过对本书的学习, 读者能够对使用 Visual FoxPro 6.0 进行数据库开发有一个完整的认识, 并逐渐培养数据库系统的设计 应用和开发能力 本书可作为大专院校非计算机专业的实验教材, 同时对数据库应用和开发爱好者也具有很好的参考价值 图书在版编目 (CIP) 数据 Visual FoxPro 6.0 程序设计实践教程 / 吴德胜, 岳莉, 高鹏主编. 北京 : 科学出版社,2012 ( 普通高等教育 十二五 重点规划教材公共课系列 中国科学院教材建设专家委员会 十二五 规划教材 ) ISBN Ⅰ. 1V Ⅱ. 1 吴 2 岳 3 高 Ⅲ. 1 关系数据库 - 数据库管理系统,Visual FoxPro 6.0- 程序设计 - 高等学校 - 教材 Ⅳ. 1TP 中国版本图书馆 CIP 数据核字 (2011) 第 号 责任编辑 : 戴薇李瑜 / 责任校对 : 王万红责任印制 : 吕春珉 / 封面设计 : 东方人华 出版北京东黄城根北街 16 号邮政编码 : 北京双清印刷厂印刷科学出版社发行各地新华书店经销 * 年 1 月第一版开本 : / 年 1 月第一次印刷印张 :9 1/2 字数 : 定价 :16.00 元 ( 如有印装质量问题, 我社负责调换 < 环伟 >) 销售部电话 编辑部电话 版权所有, 侵权必究举报电话 : ; ;

3 前 言 随着计算机技术的飞速发展和计算机应用的普及, 广泛应用于各个领域的数据管理和信 息处理的数据库技术已经成为新世纪人才必须具备的知识 为使高等学校培养的人才适应现代化建设的需求, 加强人才培养的针对性 应用性和实践性, 许多专业的学生都应掌握数据库中应用广泛且实用的关系数据库管理系统 根据我们多年的教学实践, 在已出版的各类 Visual FoxPro( 以下简称 VFP) 实验教材中, 真正适合教学和读者自学的并不多 我们认为,VFP 程序设计课程的实验教学应主要体现在程序设计和可视化界面操作两个方面 程序设计方面主要是掌握 VFP 结构化程序设计和面向对象程序设计的基本知识 基本语法和编程方法, 培养学生分析问题 解决问题的能力 ; 可视化界面操作方面主要是掌握各种向导和菜单操作以及各种界面的设计知识, 培养学生可视化操作的能力 目前, 一些同类教材大多太偏重视可视化界面操作, 而不重视程序设计, 致使学生学习完 VFP 程序设计课程, 仅仅只会可视化操作的内容, 而不能编写应用程序 所以, 我们根据多年在高校从事计算机程序设计语言实践教学的经验, 结合 VFP 的特点, 编写了这本既适合各类高校学生学习 VFP 程序设计的实验课程使用, 又适合其他读者自学使用的教材 本书为 Visual FoxPro 6.0 程序设计教程 ( 侯仲尼 朱丽莉 张丹彤主编, 科学出版社 ) 的配套实验教材 本套教材体现了 实用 适用 先进 的编写原则和 通俗 精练 可操作 的编写风格, 读者能由浅入深 循序渐进地掌握 VFP 程序设计的思想与数据库应用系统的开发方法 本书在编写过程中, 力求做到概念准确 内容正确 循序渐进 繁简适当 Visual FoxPro 6.0 程序设计实践教程 从数据库系统的基本概念出发, 循序渐进地介绍了 VFP 基础知识 表和数据库的建立与操作, 详尽地讲述了结构化查询语言 SQL 的应用 查询与视图 程序设计与面向对象程序设计 表单与报表及菜单设计技术 数据库系统开发过程 本书所有例题已上机调试通过, 前后对照, 最终构成了较全面的数据库应用实例集 本书由吴德胜 岳莉 高鹏担任主编, 由王延松 俞炫昊 朱建辉担任副主编, 全书由吴德胜统稿 感谢科学出版社在本书编写和出版过程中给予的大力支持和帮助 由于编者水平有限, 书中难免有不足之处, 恳请读者提出宝贵意见和建议 联系邮箱 :wudesheng@mail.ccut.edu.cn 科学出版社职教技术出版中心 编者 2011 年 10 月

4 目 录 第一部分实验项目实验一 Visual FoxPro 安装和使用...2 实验二运算符 公式及函数...6 实验三表的创建及维护...10 实验四表的相关命令使用...15 实验五数据库的操作...20 实验六查询和视图...26 实验七 SQL 的应用 ( 一 )...32 实验八 SQL 的应用 ( 二 )...34 实验九程序的创建...37 实验十结构化程序设计...40 实验十一子程序和自定义函数...44 实验十二用向导快速生成表单...48 实验十三表单与常用控件 ( 一 )...58 实验十四表单与常用控件 ( 二 )...64 实验十五表单与常用控件 ( 三 )...70 实验十六表单及常用控件 ( 四 )...78 实验十七报表的创建...83 实验十八菜单的创建...89 实验十九综合系统...94 第二部分计算机等级考试 ( 二级 Visual FoxPro) 笔试和上机试题计算机等级考试 ( 二级 Visual FoxPro) 全真上机模拟题一...99 计算机等级考试 ( 二级 Visual FoxPro) 全真上机模拟题一答案解析...100

5 iv Visual FoxPro 6.0 程序设计实践教程 计算机等级考试 ( 二级 Visual FoxPro) 全真上机模拟题二 计算机等级考试 ( 二级 Visual FoxPro) 全真上机模拟题二答案解析 计算机等级考试 ( 二级 Visual FoxPro) 笔试模拟题一 计算机等级考试 ( 二级 Visual FoxPro) 笔试模拟题一答案解析 计算机等级考试 ( 二级 Visual FoxPro) 笔试模拟题二 计算机等级考试 ( 二级 Visual FoxPro) 笔试模拟题二答案解析 年 3 月全国计算机等级考试二级笔试试卷 年 3 月全国计算机等级考试二级笔试试卷参考答案 年 9 月全国计算机等级考试二级笔试试卷 年 9 月全国计算机等级考试二级笔试试卷参考答案 科学出版社职教技术出版中心

6 第一部分 实验项目

7 2 Visual FoxPro 6.0 程序设计实践教程 实验一 Visual FoxPro 安装和使用 1. 学会安装 Visual FoxPro 6.0 软件系统 2. 掌握 Visual FoxPro 6.0 的启动与退出方法 3. 了解 Visual FoxPro 6.0 的基本操作环境 4. 熟悉使用 Visual FoxPro 6.0 的 项目管理器 建立项目 1. 准备 Visual FoxPro 6.0 安装光盘 2. 复习 Visual FoxPro 6.0 的用户界面 3. 复习用 项目管理器 建立项目的方法 实验 1-1 安装 Microsoft Visual FoxPro 6.0 在光驱中放入 Visual FoxPro 6.0 安装光盘, 光盘中的 AutoRun.exe 程序自动运行 ( 如果 不是专门的 VFP 安装光盘, 可利用 我的电脑 或 资源管理器 来运行 ), 然后根据向导 提示逐步安装即可 安装时最好安装到 D 盘上, 系统会自动创建一个 VFP 文件夹, 并且把 所有系统文件都装入其中 实验 1-2 Microsoft Visual FoxPro 6.0 的启动方法 1) 在任务栏上单击 开始 按钮 2) 执行 程序 Microsoft Visual FoxPro 6.0 3) 选择 Microsoft Visual FoxPro 6.0 命令 实验 1-3 Microsoft Visual FoxPro 6.0 的退出方法 方法 1: 在命令窗口中输入 quit 方法 2: 按 Alt+F4 组合键 方法 3: 在 文件 菜单中选择 退出 命令 方法 4: 单击标题栏右上角的 关闭 按钮 实验 1-4 熟悉 Microsoft Visual FoxPro 6.0 窗口及菜单的使用 科学出版社职教技术出版中心 1)VFP 6.0 主窗口的组成 熟悉 VFP 6.0 主窗口的标题栏 菜单栏 工具栏 状态栏

8 第一部分实验项目 3 工作区 命令 窗口等组成部分 2) 熟悉菜单栏 1 观察菜单栏的 8 个菜单 ;2 在 命令 窗口中输入 :create project ( 大小写均可 ), 按 Enter 键, 在弹出的 创建 对话框中单击 保存 按钮, 打开 项目管理器, 观察菜单栏的变化, 此时即为动态菜单 3) 单命令的选取练习 分别使用鼠标按访问键 快捷键等方法选取 新建 打开 等系统菜单命令 实验 1-5 熟悉 Microsoft Visual FoxPro 6.0 主窗口的工具栏 1) 观察 VFP 6.0 主窗口的工具栏, 将鼠标指针指向每一个工具按钮, 稍停留, 观察工具提示, 了解每一个工具按钮的名称和作用 2) 执行 显示 菜单中的 工具栏 命令, 打开 工具栏 对话框 了解系统工具栏 的数量, 练习显示一个或多个工具栏 ; 练习隐藏一个或多个工具栏 3) 在打开的 工具栏 对话框中练习新建及删除自定义工具栏 实验 1-6 命令窗口的隐藏或显示练习 1) 单击主窗口内 命令 窗口右上角的 关闭 按钮, 或选择 窗口 菜单中的 隐藏 (H) 命令, 均可隐藏 命令 窗口 2) 打开 窗口 菜单, 选择 命令窗口 (C) 命令, 即可将 命令 窗口显示在主窗口内 实验 1-7 在 D 盘上新建一个名为 VFPLX 的文件夹, 设置 D:\VFPLX 文件夹为工作目录 ( 使用两种方法 ) 方法 1: 1) 依次选择 工具 菜单中的 选项 菜单项 2) 选中 文件位置 选项卡中的 默认目录 项 3) 单击 修改 按钮, 在弹出的 更改文件位置 对话框中, 选中 使用默认目录 复选框 4) 在 定位默认目录 下面的文本框中输入新的文件夹路径, 例如 :D:\VFPLX, 单击 确定 按钮 方法 2: 命令操作的格式为 :set default to 目录名 1) 在 命令 窗口中输入 :set default to D:\VFPLX 2) 按 Enter 键, 执行上面的命令即可 注意 要设置为工作目录的文件夹必须已经存在 ; 否则, 不能设置成功 实验 1-8 项目管理器的应用 (1) 打开项目管理器 1) 用命令打开 在 命令 窗口中输入 :modify project 销售 ( 销售 是项目名 ), 然

9 4 Visual FoxPro 6.0 程序设计实践教程 后按 Enter 键, 即可打开 销售 项目 若未输入项目名称, 则弹出 打开 对话框 请用 户自己选择一个已有的项目文件, 或输入一个新的待创建的项目文件名 2) 利用 我的电脑 或 资源管理器 打开 双击需要打开的项目文件, 添加数据表 : 展开 数据 选项卡, 选定 自由表 项, 再单击 添加 按钮, 在弹出的 打开 对话框中选择一个数据表 (2) 关闭项目管理器单击 项目管理器 窗口右上角的 关闭 按钮 (3) 查看项目详细内容项目管理器中采用的是与 资源管理器 类似的目录树结构, 处于折叠状态的目录在其图表左方有 +, 单击 + 可以展开以显示出该目录所包含的子目录, 同时 + 变成 - ; 单击 -, 又将它恢复成折叠状态 (4) 项目管理器的折叠在项目管理器的右上角上, 除 关闭 按钮外, 还有一个带向上箭头的折叠按钮 单击该按钮可隐去全部选项卡, 只剩下项目管理器和选项卡的标题 ; 与此同时, 折叠按钮上的向上箭头也改为向下, 变成了恢复按钮 单击它, 将使项目管理器恢复原状态 (5) 项目管理器的分离当项目管理器处于折叠状态时, 用鼠标拖动任何一个选项卡的标题, 都可使该选项卡与项目管理器分离 分离后的选项卡可以像一个独立的窗口在 VFP 主窗口中移动 单击分离选项卡的 关闭 按钮, 即可使该选项卡恢复原位 当选项卡处于浮动状态时, 通过在选项卡中单击鼠标右键访问 项目 菜单中的选项 (6) 停放项目管理器将项目管理器拖到 Visual FoxPro 6.0 主窗口的顶部 ( 停放就是将工具栏固定在 Visual FoxPro 窗口的上部 下部或边缘 ), 也可以停放在 Visual FoxPro 窗口的上部 项目管理器停放后, 它就变成窗口工具栏区域的一部分 项目管理器处于停放状态时, 不能将其展开, 但是可以单击每个选项卡来进行相应的操作 对于停放的项目管理器, 用户同样可以从中拖出选项卡 实验 1-9 设置日期和时间格式 1) 在 VFP 的菜单中选择 工具 选项 命令, 打开 选项 对话框 2) 切换到 区域 选项卡, 在 日期和时间 区域内定义日期格式 日期分隔符 年份格式 时间格式 3) 单击 设置为默认值 按钮, 再单击 确定 按钮 如图 1-1 所示, 在 选项 对话框中有 14 种不同类别的选项卡, 每一个选项卡有其特定的应用环境, 又有相应的设置信息的对话窗口, 用户可以根据操作的需要, 利用这些选项卡确定或修改每一个参数, 从而确定 Visual FoxPro 的系统环境 科学出版社职教技术出版中心

10 第一部分实验项目 5 图 1-1 选项 对话框 练习题 运行 Visual FoxPro, 将其窗口最大化或最小化, 然后单击各下拉菜单, 并说出各菜单项 的功能

11 6 Visual FoxPro 6.0 程序设计实践教程 实验二运算符 公式及函数 1. 熟练掌握 VF 6.0 的数据类型和表达式 2. 灵活运用 VF 6.0 的标准函数 3. 掌握常量和变量的一般使用方法 1. 熟悉 VF 6.0 命令窗口的使用方法 2. 复习 VF 6.0 的数据类型 数据运算符及运算规则 实验 2-1 内存变量的操作 1) 创建内存变量 :AB=8,AM="18",B=10,R="HAPPY",AN=8,A=123 store 8 to AB,AN AM="18" B=10 R="HAPPY" A=123 2) 将上述变量保存到 A1.MEM 文件中 save to A1 3) 显示所有以 A 开头的变量 disp memo like A* 4) 清除所有内存变量 clear memory 实验 2-2 在 命令 窗口中执行以下命令, 写出各表达式的结果 科学出版社职教技术出版中心 1)?2*2^3+6 && 结果是 :22 2)?"I "+" LOVE "-" CHINA" && 结果是 :"I LOVECHINA " 3)?{^1998/08/12}-{^1998/08/10} && 结果是 :2

12 第一部分实验项目 7 4)? "as"=="as" && 结果是 :.T. 5)?(8>5) and "string"$"str" && 结果是 :.F. 6)?"ABCDEFG"="ABCD"&& 当 SET EXACT ON && 结果是 :.F. 7)?A>B AND C<D && 当 A=5,B=9,C=8,D=12 && 结果是 :.F. 实验 2-3 写出以下各函数的结果 1)?INT(10-3.2) && 结果是 :6 2)?ROUND( ,1),ROUND( ) && 结果是 : )?ABS(2*3-8) && 结果是 :2 4)?SQRT(4) && 结果是 :2.00 5)?mod(25,-4) && 结果是 :-3 6)Y="123" && 结果是 :579 S="VISUAL FOXPRO" 13?456+&Y "FOX"?LEN(S)?substr(S,8,3) 7)?YEAR({^2011/03/12}) && 结果是 :2011 8)?DTOC(^2011/03/12}) && 结果是 :"03/12/11" 9)?str( ,5,1) && 结果是 :"123.5" 10)?ASC("APPLE") && 结果是 :65 11)?CHR(66) && 结果是 :"B" 12)B =" a" A=5?2*& B && 结果是 :10 13)ALLTRIM(" 中国 ") && 结果是 :" 中国 " 14)?right("STUDENT",4) && 结果是 :"DENT" 15)?Left("STUDENT",4) && 结果是 :"STUD" 16)?AT("CD","ABCDE",1) && 结果是 :3 17)?UPPER("abcd") && 结果是 :"ABCD" 18)?LOWER("ABout") && 结果是 :"about" 19)?ALLTRIM("ABCD") && 结果是 :"ABCD" 20)?SUBSTR("STUDENT",3,2) && 结果是 :"UD" 实验 2-4 数组的使用 定义一个含有 6 个元素的一维数组 C, 给数组赋值并显示 DIMENSION C(5) C(1)=' 王强 ' C(2)=' '

13 8 Visual FoxPro 6.0 程序设计实践教程 C(3)=90 C(4)=86 C(5)=79 LIST MEMORY LIKE C* 屏幕将显示 : C Pub A ( 1) C " 王强 " ( 2) C " " ( 3) N 90 ( ) ( 4) N 86 ( ) ( 5) N 79 ( ) 实验 2-5 宏替换的使用 1)C= "11" 2)?&C+5 && 结果是 :16 3)? "&C+3" && 结果是 :11+3 4)? "&C34" && 结果是 :&C34 5)? "&C.34" && 结果是 :1134 6)STORE "?" TO A1 SOTRE "S" TO A2 TORE 200 TO &A2 A1.&A2 && 结果是 :200 7)D= "*"?2&D.2 && 结果是 :4 练习题 1. 运算符与表达式 根据下面的输入命令, 写出其显示的结果 输入命令显示结果说明?3*5?4%3?4%3?-4%3?-4%-3?6.5%2?6.5%2.1?"100">"99"?"B">"b"?"ABC">"AAA"?"ABC">"ABCD" 科学出版社职教技术出版中心

14 第一部分实验项目 9 续表 输入命令 显示结果 说明?"ABCDEFG"="ABCD" && 当 SET EXACT ON?"ABCDEFG"="ABCD" && 当 SET EXACT OFF?A>B AND C<D && 当 A=5,B=9,C=8,D=12?A>B OR C<D && 当 A=5,B=9,C=8,D=12 2. 数值处理函数 1) 求 -5 的绝对值 2) 取 整数部分 3. 字符处理函数 1) 求 this is a book. 字符串长度 2) 将 visual FoxPro 中的小写字母转换成大写字母 4. 转换函数 1) 将数值 15 转换成字符型数据 2) 将 12/12/98 字符型数据转换成日期型数据

15 10 Visual FoxPro 6.0 程序设计实践教程 实验三表的创建及维护 1. 掌握表结构的定义, 表记录的输入 修改 浏览 删除等基本操作 2. 掌握过滤器和字段表的设置和应用 3. 掌握排序与索引的创建和使用 4. 掌握统计命令 5. 掌握数据库和数据库表的操作 1. 复习关系数据库的有关概念, 理解关系模型的实质, 掌握表字段数据类型的含义及 表示方法 2. 复习表的创建 显示 修改与维护等操作方法 实验 3-1 使用 表设计器 创建 stud 数据表的结构 ( 其结构如表 3-1 所示 ) 表 3-1 stud 表结构 字段名数据类型字段宽度小数位数 NULL 学号字符型 8 否 班级字符型 8 是 姓名字符型 8 是 性别字符型 2 是 出生日期日期型 8 是 专业代码字符型 4 是 入学成绩数值型 5 1 是 院系代码字符型 4 是 简历备注型 4 是 照片通用型 4 是 1) 打开 表设计器 2) 在 表设计器 中分别定义表结构, 定义每个字段的名称 类型和宽度 实验 3-2 输入 学生信息 数据表的记录内容 ( 其记录如表 3-2 所示 ) 科学出版社职教技术出版中心

16 第一部分实验项目 11 表 3-2 stud 表 学号 班级 姓名 性别 出生日期 专业代码 入学成绩 院系代码 简历 照片 李红玉 女 12/11/91 DQ GD01 memo Gen 希望 男 11/23/91 DQ GD01 memo Gen 欧阳东 男 10/11/92 DQ GD01 memo Gen 文晓红 女 12/11/92 DQ GD01 memo Gen 王晓红 女 06/15/92 CP GD02 memo Gen 王红 女 06/23/93 CP GD02 memo Gen 刘江 男 02/28/91 CP GD02 memo Gen 刘长江 男 03/09/92 CP GD02 memo Gen 张强 男 02/01/93 CP GD02 memo Gen 李文玲 女 10/23/92 CP GD02 memo Gen 赵天明 男 06/08/93 CP GD02 memo Gen 希望 男 07/08/93 DQ GD01 memo Gen 1) 创建表结构后, 单击 确定 按钮, 屏幕提示如图 3-1 所示 图 3-1 提示界面 2) 单击 是 按钮, 就可直接输入表中数据了 实验 3-3 数据输入练习 ( 假设创建完表结构后没有立即输入数据 ) (1) 用浏览方式输入数据 1) 打开 学生信息 表 2) 选择系统菜单中的 显示 浏览 命令, 打开 学生信息 表的浏览窗口 3) 选择系统菜单中的 显示 追加方式 命令, 在浏览追加方式下录入表数据 (2) 用编辑方式输入数据 1) 打开 学生信息 表 2) 选择系统菜单中的 显示 编辑 命令, 使浏览窗口中的记录以编辑方式显示 3) 选择系统菜单中的 显示 追加方式 命令, 在编辑追加方式下录入表数据 实验 3-4 修改 学生信息 表的结构, 给 学生信息 表增加一个 年龄 字段 1) 选择系统菜单中的 文件 打开 命令, 打开 学生信息 表 2) 选择系统菜单中的 显示 表设计器 命令或使用 modify structure 命令, 在主窗口内显示 学生信息 表的表设计器 3) 在表设计器中修改表的结构, 增加一个 年龄 字段, 并设置字段类型为数值型

17 12 Visual FoxPro 6.0 程序设计实践教程 实验 3-5 利用界面操作对表追加记录 1) 打开 学生信息 表 2) 选择系统菜单中的 显示 浏览 命令, 打开 学生信息.dbf 表的浏览窗口 3) 选择系统菜单中的 表 追加新记录 命令, 则可在浏览窗口中追加记录 实验 3-6 利用界面操作对表记录进行逻辑删除 1) 打开 学生信息 表 2) 选择系统菜单中的 显示 浏览 命令, 打开 学生信息.dbf 表的浏览窗口 3) 选择系统菜单中的 表 删除记录 命令, 则进入 删除记录 对话框, 对第 3 条和 第 5 条记录进行逻辑删除操作 实验 3-7 利用界面操作对表中有删除标记的记录进行恢复操作 1) 打开 学生信息 表 2) 选择系统菜单中的 显示 浏览 命令, 打开 学生信息.dbf 表的浏览窗口 3) 选择系统菜单中的 表 恢复记录 命令, 则进入 恢复记录 对话框, 对第 3 条记 录进行恢复操作 实验 3-8 利用界面操作对表记录进行物理删除操作 1) 打开 学生信息 表 2) 选择系统菜单中的 显示 浏览 命令, 打开 学生信息.dbf 表的浏览窗口 3) 选择系统菜单中的 表 彻底删除 命令, 则对表中第 5 条记录进行物理删除 实验 3-9 利用界面操作对表记录定位 1) 打开 学生信息 表 2) 选择系统菜单中的 显示 浏览 命令, 打开 学生信息.dbf 表的浏览窗口 3) 选择系统菜单中的 表 转到记录 命令, 则进入 转到记录 对话框, 分别在对话 框中进行以下操作 1 将指针移到最后一条记录上, 显示该记录的内容 2 将指针移到第 1 条记录上, 显示该记录的内容 3 将指针移到第 3 条记录上, 显示该记录的内容 4 将指针后移 3 条记录, 显示该记录的内容 实验 3-10 按 学号 字段创建候选索引, 按 姓名 创建普通索引 1) 打开 学生信息 表 2) 选择系统菜单中的 显示 表设计器 命令, 在所显示的 表设计器 中选择 索引 选项卡 1 在 索引名 框中输入索引名 xh 2 在 类型 下拉列表中, 选择候选索引类型 科学出版社职教技术出版中心

18 第一部分实验项目 13 3 在 表达式 框中输入 学号, 或单击右侧的 按钮, 系统进入 表达式生成 器 对话框, 选取 学号 表达式 练习题 1. 按要求完成下列操作 1) 使用 表向导 创建自由表 test( 包括 学号 姓名 性别 入学成绩 ), 并利用 stud 表向其追加所有女生的记录 2) 在 数据工作期 中打开 stud 表, 并使用 数据过滤器 在浏览窗口中显示所有男生的记录 3) 在浏览窗口中按 入学成绩 降序显示 sstud 表中的所有记录, 并按专业求入学成绩的平均分 4) 用 LOCATE 和 SEEK 命令, 分别实现逐条显示 计算机 专业的学生名单 5) 创建 教师 表文件结构, 结构创建后输入全部数据 ( 见表 3-3) 表 3-3 教师表 教师代号 姓名 性别 出生日期 职称 教师代号 姓名 性别 出生日期 职称 于林森 男 06/19/72 副教授 李新欣 女 11/15/88 讲师 程万年 男 03/16/64 副教授 万长兰 女 11/18/70 副教授 李木子 男 02/23/50 教授 张文强 男 10/12/54 教授 6) 创建 课程 表文件结构, 结构创建后输入全部数据 ( 见表 3-4) 表 3-4 课程表 课程代码 课程名称 周课时 学分 专业类别 英语 C 数学 C 大学计算机基础 C 宪法 A 计算机程序设计 C 大学生就业指导 C C++ 程序设计 B 数据库原理 B 7) 创建 院系 表文件结构, 结构创建后输入全部数据 ( 见表 3-5) 表 3-5 院系表 院系代码 院系名称 院系代码 院系名称 GD01 机电工程学院 GD04 化学工程学院 GD02 计算机科学与工程学院 GD05 信息传播工程学院 GD03 材料工程学院 GD06 工商管理学院

19 14 Visual FoxPro 6.0 程序设计实践教程 8) 创建 专业 表文件结构, 结构创建后输入全部数据 ( 见表 3-6) 表 3-6 专业表 专业代码专业名称专业类别类别说明 DQ01 电器工程及其自动化 A 理科生 CP02 计算机应用 A 理科生 CP03 信息工程 A 理科生 RW04 中文 A 文科生 GS05 国际贸易 C 文理兼招生 GG06 英语 A 文科生 SX07 应用数学 B 理科生 GS08 会计 C 文理兼招生 2. 创建教师表, 按要求完成下列操作 1) 新建一个教师表, 表名为 教师.dbf, 包括教师号 姓名 出生日期 职称 性别 5 个字段, 字段的名称 类型 宽度可根据实际需要进行定义 然后输入任课教师的记录, 最后将教师表保存在 D 盘根目录下, 再在所创建的教师表的 出生日期 后添加 年龄 字段 2) 打开教师表, 完成以下操作 1 分别用 LIST 和 DISP 命令显示教师表中的记录, 这两个命令有什么不同之处? 2 显示满足条件 30< 年龄 <50 的所有男教师的记录 3 在教师表中增加一个 备注 字段, 在每个教师的 备注 字段中输入所教课程的名称 4 在第 2 条与第 3 条记录间插入一条空记录, 然后对该空记录进行物理删除 5 显示女教师的姓名 年龄和职称信息 3) 当一个 LIST 命令中同时带有 FOR< 条件 > 与 WHILE< 条件 > 两个子句时, 如何显示表中的记录? 科学出版社职教技术出版中心

20 第一部分实验项目 15 实验四表的相关命令使用 1. 掌握表记录的删除 2. 掌握记录的查找和定位 3. 掌握索引的创建和作用 4. 掌握表的数值统计操作 1. 复习关系数据库的有关概念, 理解关系模型的实质, 掌握表字段数据类型的含义及 表示方法 2. 复习表的创建 显示 修改与维护等操作方法 实验 4-1 新建一个成绩表, 并输入如图 4-1 所示的记录 CREATE 成绩表 实验 4-2 显示表结构 list structure 图 4-1 成绩表 实验 4-3 显示表中所有女同学的学号 姓名 性别和专业信息 list 学号, 姓名, 性别, 专业 for 性别 =" 女 "

21 16 Visual FoxPro 6.0 程序设计实践教程 实验 4-4 在第 2 条记录的后面插入一条新记录 go 2 insert 实验 4-5 从表中彻底删除刚插入的记录 go 3 delete pack 实验 4-6 设置过滤器, 条件为 性别 = 女, 筛选出 学号 和 姓名 字段, 并显示结果 set filter to 性别 =' 女 ' set fields to 学号, 姓名 list 实验 4-7 取消所有设置过滤器和字段的表 set filter to set fields to 实验 4-8 用成批替换命令计算各条记录的总成绩 ( 总成绩 = 计算机成绩 + 数学成绩 ) 方法 : replace all 总成绩 with 计算机成绩 + 数学成绩 实验 4-9 查找并显示学号为 的同学成绩信息 locate for 学号 =" " display 实验 4-10 测试当前记录指针所处的位置?recno( ) 实验 4-11 对 成绩表 中 总成绩 字段按降序创建排序文件, 并显示排序文件记录 sort to 成绩表 on 总成绩 /D use 成绩表 list 科学出版社职教技术出版中心

22 第一部分实验项目 17 实验 4-12 在 成绩表 中, 分别按 学号 升序和 总成绩 降序创建普通索引 index on 学号 tag 学号 asce index on 总成绩 tag 总成绩 desc 实验 4-13 按 学号 降序显示 成绩表 中的记录 set order to 学号 list 实验 4-14 统计 成绩表 中 计算机成绩 的平均分 average 计算机成绩 to a 实验 4-15 统计 成绩表 中 总成绩 在 150 分以上的记录个数 count for 总成绩 >150 to b 实验 4-16 复制 成绩表, 生成一个 成绩表 1, 并查看 use 成绩表 copy to 成绩表 1 use 成绩表 1 list 实验 4-17 逻辑删除前 3 条记录 go top dele next 3 实验 4-18 撤销对 3 条记录所加的删除标志 go top recall next 3 实验 4-19 利用 seek 命令对英语专业的学生进行查询 index on 专业 tag zy seek " 英语 "

23 18 Visual FoxPro 6.0 程序设计实践教程 练习题 1. 根据表 4-1 和图 4-2, 创建表 Student.dbf, 完成以下操作 1) 显示表中第 5 条记录 2) 显示姓名为 王大力 的记录信息, 修改该记录中 简历 字段的内容为 多次评为三好学生 表 4-1 Student.dbf 的结构 字段 字段名称 字段类型 字段宽度 小数位数 学号 XH 字符型 7 姓名 XM 字符型 10 性别 XB 字符型 2 出生日期 CSRQ 日期型 8 少数民族否 SSMZF 逻辑型 1 籍贯 JG 字符型 10 入学成绩 YXCJ 数值型 5 1 简历 JL 备注型 4 图 4-2 Student.dbf 的记录 3) 显示所有姓 王 且性别为 男 的记录信息 4) 给全部 湖南 籍学生的入学成绩加 10 分 5) 将 Student.dbf 表的姓名字段的宽度修改为 8, 并将该字段设置为普通索引 6) 在表的顶部及尾部分别增加一条新记录 7) 在表中第 4~5 条记录之间增加一条新的空白记录 8) 对表中赵四明同学的记录依次进行逻辑删除 逻辑恢复和物理删除 9) 将少数民族且 1980 年以后出生的学生记录复制到 Student1.dbf 中 10) 复制一个包含 : 学号 姓名 出生日期 籍贯 入学成绩 5 个字段的表 Student3.dbf 11) 将 Student.dbf 复制到一个 Excel 文件中 科学出版社职教技术出版中心 12) 关闭所有打开的表 2. 按要求完成下列操作 1) 把 Student.dbf 按入学成绩的值由大到小排序, 生成排序表 order1.dbf 2) 把 Student.dbf 中男学生记录按入学成绩 (yxcj) 的值由小到大排序, 生成排序表 order2.dbf, 且该表只含姓名 性别 出生日期 籍贯 4 个字段

24 第一部分实验项目 19 3) 把 Student.dbf 按性别字段由大到小排序, 性别相同时按出生日期由小到大排序, 生成排序表 order3.dbf 4) 显示入学成绩在前 6 名的学生记录 5) 统计少数民族男生的人数, 并把它存入变量 A 中 6) 分别求男 女学生的平均年龄 7) 在 Student.dbf 中, 直接查询入学成绩 >600 分的记录 8) 在 Student.dbf 中, 索引查询姓王的学生记录 9) 创建一个复合索引文件, 其中包括以下两个索引 1 记录以学号降序排列 2 记录以姓名降序排序, 姓名相同时则按出生日期升序排列 10) 针对第 9) 题创建的索引, 测试 FIND SEEK 命令的用法 12) 计算入学成绩的总分 平均分 最大值和最小值

25 20 Visual FoxPro 6.0 程序设计实践教程 实验五数据库的操作 1. 掌握数据库的创建 2. 了解数据库与数据库表的关系 3. 掌握数据库表关联关系和参照完整性的创建 1. 学习利用命令方式和窗口方式创建数据库的操作过程 2. 学习向数据库添加表或从数据库移除 删除表, 以及数据库的关闭与删除方法 3. 学习数据库参照完整性的概念及设置 表之间永久关系的建立与删除方法 4. 学习数据库表的属性 字段属性与规则和记录规则的设置 5. 自由表与数据库表的区别 实验 5-1 在指定目录 (D:\ vfp) 下, 创建一个名为 商品进货销售系统 的项目文件, 在此项目中创建名为 商品管理 的数据库文件 1) 在 D 盘中新建文件夹 vfp 2) 进入 VFP 系统环境, 在 命令 窗口中输入 :set default to d:\vfp, 设置 vfp 文件夹为默认目录 3) 在 VFP 系统窗口中, 选择 文件 菜单下的 新建, 在 新建 对话框中选择 项 目 单选按钮, 单击 新建文件 按钮, 打开 创建 对话框 在 保存类型 下拉列表中选择 项目, 在 项目文件 文本框中输入 商品进货销售系统, 如图 5-1 所示 科学出版社职教技术出版中心 图 5-1 项目管理器

26 第一部分实验项目 21 4) 在项目管理器中选择 数据 选项卡, 再选择 数据库, 单击 新建 按钮 在弹 出的 创建 对话框中输入数据库名为 商品管理, 单击 确定 按钮后进入 数据库设计器 窗口, 如图 5-2 所示 至此, 数据库创建完成 图 5-2 数据库设计器实验 5-2 创建 商品 供应商 订购单 3 个表 (1) 商品 表 1) 创建 商品 表结构, 如图 5-3 所示 图 5-3 商品 表结构 2) 为 商品 表输入具体记录, 如图 5-4 所示 图 5-4 商品 表 (2) 供应商 表 1) 创建 供应商 表结构, 如图 5-5 所示 图 5-5 供应商 表结构 2) 为 供应商 表输入具体记录, 如图 5-6 所示

27 22 Visual FoxPro 6.0 程序设计实践教程 (3) 订购单 表 图 5-6 供应商 表 1) 创建 订购单 表结构, 如图 5-7 所示 图 5-7 订购单 表结构 2) 为 订购单 表输入具体记录, 如图 5-8 所示 图 5-8 订购单 表 实验 5-3 创建表之间的永久联系并设置参照完整性 1) 创建 商品 表和 订购单 表之间的联系 1 打开 商品管理 数据库设计器 科学出版社职教技术出版中心 2 在数据库设计器中选中 商品 表中的主索引 商品编号, 按住鼠标左键, 拖动鼠 标到 订购单 表的 商品编号 索引上 ( 鼠标箭头会变成小矩形状 ), 最后释放鼠标, 两表间的联系就创建好了 2) 用同样的方法, 可以创建 供应商 表和 订购单 表之间的联系, 如图 5-9 所示 1 打开 商品管理 数据库设计器 2 在数据库设计器中选中 供应商 表中的主索引 供应商编号, 按住鼠标左键, 拖动鼠标到 订购单 表的 供应商编号 索引上 ( 鼠标箭头会变成小矩形状 ), 最后释放鼠标, 两表间的联系就建立好了

28 第一部分实验项目 23 图 5-9 商品管理 数据库 实验 5-4 分别为 商品 表 订购单 表和 供应商 表进行参照完整性设置 1) 打开数据库设计器窗口, 选择菜单中的 数据库 编辑参照完整性, 打开 参照完整性生成器 对话框, 如图 5-10 所示 图 5-10 参照完整性生成器 对话框 2) 对父表 商品 表和子表 订购单 表, 设置其更新规则为 级联 删除规则为 限制 插入规则为 限制 3) 对父表 供应商 表和子表 订购单 表, 设置其更新规则为 级联 删除规则为 级联 插入规则为 忽略 4) 单击 确定 按钮, 保存设置 5) 关闭数据库设计器, 关闭 商品管理 数据库 实验 5-5 为 订购单 表的 订购数量 字段设置有效性规则等, 要求有效性规则为 订购数量 >=100 ; 提示信息为 数量必须超过 100 ; 默认值为 100 1) 打开数据库设计器窗口, 在 订购单 表 (xsda) 上单击鼠标右键, 在弹出的快捷菜单中选择 修改, 打开表设计器 2) 单击 订购数量 字段, 然后在字段有效性的 规则 文本框中输入 : 数量 >=100; 在 信息 文本框中输入 : 数量必须超过 100( 注意提示信息用字符定界符括起来 ); 在 默认值 文本框中输入 :100 3) 单击 确定 按钮保存设置, 关闭表设计器

29 24 Visual FoxPro 6.0 程序设计实践教程 练习题 按要求完成下列操作 1) 按图 5-11~ 图 5-15 所示表的信息创建 5 个自由表 : 学生.dbf 选课.dbf 课程.dbf 授课.dbf 教师.dbf, 每个表的字段属性及宽度可根据实际需要自行定义, 并分别为各个表输入一定数量的记录数据 2) 创建 学生成绩管理 (xscjgl).dbc 数据库 3) 将所创建的 5 个自由表添加到数据库中 4) 在 xscjgl.dbc 数据库中为所添加的表创建如图 5-16 所示的永久关系 5) 把表 授课.dbf 和 教师.dbf 从数据库中移出 6) 为 选课 表中的 成绩 字段设置有效性规则为 成绩 >=0 and 成绩 <=100, 提示信息为 成绩应该是不大于 100 的正整数, 该字段默认值为 0 7) 为 学生 表和 选课 表之间创建的联系指定参照完整性, 其中插入规则为 限制 更新规则和删除规则为 级联 图 5-11 学生.dbf 图 5-12 选课.dbf 图 5-13 课程.dbf 图 5-14 授课.dbf 图 5-15 教师.dbf 科学出版社职教技术出版中心 图 5-16 为数据库中表之间创建永久关系

30 第一部分实验项目 25 8) 将移出的 教师.dbf 表和 授课.dbf 表重新添加到数据库中, 并为这两个表之间创建联系 9) 将 教师.dbf 表的字段标题改为缩写的英文字符 10) 修改 授课.dbf 表中的 学生人数 字段属性, 使其输入值范围为 40~200 当超出这个范围时, 提示 学生人数在 40~200 之间, 该字段默认值为 0 11) 修改 选课.dbf 表中的 成绩 字段属性, 使其不允许出现空值 12) 为 教师 表和 授课 表之间创建的联系指定参照完整性, 其中插入规则为 限制 更新规则为 级联 删除规则为 限制

31 26 Visual FoxPro 6.0 程序设计实践教程 实验六 查询和视图 1. 理解视图的概念与作用 2. 掌握使用查询设计器创建查询的方法 3. 掌握使用视图设计器创建视图的方法 1. 复习 Visual FoxPro 查询与视图的概念及创建方法 2. 复习表的创建 显示 修改与维护等操作方法 实验 6-1 用 查询设计器 创建查询, 查询商品的商品编号和商品名称 1) 打开 项目管理器, 选中 商品管理 数据库 2) 在 项目管理器 的 数据 选项卡中选择 查询, 然后单击 新建 按钮, 如 图 6-1 所示 3) 弹出 新建查询 对话框, 单击 新建查询 按钮, 如图 6-2 所示 图 6-1 项目管理器 图 6-2 新建查询 对话框 4) 弹出 添加表或视图 对话框, 选择 数据库中的表 列表框内的 商品, 单击 添 加 按钮, 如图 6-3 所示 科学出版社职教技术出版中心 5) 单击 添加表或视图 对话框中的 关闭 按钮, 弹出图 6-4 所示的 查询设计器 窗口 ( 其中 字段 选项卡用来选择需要包含在查询结果中的字段 ; 如果想改变信息行的排序, 可以选择 排序依据 选项卡 )

32 第一部分实验项目 27 图 6-3 添加表或视图 对话框 图 6-4 在查询设计器中添加表 6) 在 字段 选项卡中, 可以单击 全部添加 按钮, 也可以选择字段 ( 这里只选择 商品编号 和 商品名称 ) 后单击 添加 按钮, 在 选定字段 列表框中会显示查询输 出的字段, 如图 6-5 所示 图 6-5 选取查询字段 7) 在 查询设计器 中, 单击 查询去向 按钮, 弹出如图 6-6 所示的对话框 图 6-6 查询去向 对话框

33 28 Visual FoxPro 6.0 程序设计实践教程 8) 选择 输出去向 为 浏览 窗口, 然后单击 确定 按钮, 返回到图 6-5 中 9) 关闭 查询设计器 窗口, 在打开的对话框中单击 是 按钮, 在 保存文档为 框内输入文件名为 商品查询, 然后单击 保存 按钮 10) 返回到 项目管理器 中, 选择 商品查询, 然后单击 运行 按钮 11) 屏幕上显示查询结果, 如图 6-7 所示 图 6-7 查询结果 实验 6-2 由 销售.dbf 和 订购单.dbf 查询销售利润 (1) 创建查询设计器打开 项目管理器, 选择 数据 选项卡, 单击 新建 按钮, 在弹出的对话框中单击 新建查询 按钮 (2) 添加表在弹出的 添加表或视图 对话框中选择 数据库中的表 列表框中的 销售 和 订购单, 单击 添加 按钮 (3) 选取显示字段在弹出的 查询设计器 - 利润 窗口中, 将要查询的字段添加到 选定字段 列表框中, 如图 6-8 所示 科学出版社职教技术出版中心 图 6-8 查询设计器 - 利润 窗口

34 第一部分实验项目 29 (4) 设置表的关联 在 查询设计器 中选择 联接 选项卡, 并进行相应的设置, 如图 6-9 所示 (5) 设置筛选记录的条件 ( 见图 6-10) 图 6-9 联接 选项卡 图 6-10 筛选 选项卡 (6) 运行查询在完成了查询的设计工作并指定结果输出去向后, 可通过以下 5 种方式之一运行查询 在查询设计器区域内单击鼠标右键, 在弹出的快捷菜单中选择 运行查询 命令 在 项目管理器 中选定查询的名称, 然后单击 运行 按钮 在 查询 菜单中选择 运行查询 命令 在 命令 窗口中输入 :DO 查询名.qpr 单击系统常用工具栏上的 运行 按钮 (7) 查询结果的输出单击 查询设计器 工具中的 查询去向 按钮, 或者从 查询 菜单中选择 查询去向, 可弹出 查询去向 对话框 选定一个去向, 按一定的步骤设置属性, 然后单击 确定 按钮, 系统就将按设计意图放置查询结果, 如图 6-11 所示

35 30 Visual FoxPro 6.0 程序设计实践教程 图 6-11 查询结果实验 6-3 创建商品 - 订购视图 分析 : 本题可直接通过编写命令, 也可通过设计器创建视图 ( 创建视图的基本步骤类似于查询 ), 结果如图 6-12 所示 图 6-12 视图结果 1) 创建视图设计器 打开 项目管理器, 选择 数据 选项卡, 单击 新建 按钮, 在弹出的对话框中单击 新建视图 按钮 2) 添加表 在弹出的对话框中按照添加查询表的方式, 添加视图表 3) 选择显示字段 在 视图设计器 中选择 字段 选项卡, 然后从 可用字段 列 表框中选择视图中应包含的字段, 添加到 选定字段 列表框中 4) 设置表的关联 5) 设置筛选记录条件 6) 运行视图 7) 视图结果的输出 科学出版社职教技术出版中心 实验 6-4 修改图 6-12 所示的视图, 设置更新条件如图 6-13 所示 保存视图后再次浏 览, 并把视图中的 夹心饼干 改为 饼干 关闭视图后, 打开 商品 表, 观察商品名称是否发生了变化

36 第一部分实验项目 31 图 6-13 设置更新条件 1) 创建视图设计器 打开 项目管理器, 选择 数据 选项卡, 单击 新建 按钮, 在弹出的对话框中单击 新建视图 按钮 2) 添加表 3) 选择显示字段 4) 设置表的关联 5) 设置筛选记录条件 6) 设置更新条件 ( 见图 6-13) 7) 运行视图 8) 视图结果的输出

37 32 Visual FoxPro 6.0 程序设计实践教程 实验七 SQL 的应用 ( 一 ) 1. 掌握数据操纵语句 SQL-INSERT SQL-UPDATE SQL-DELETE 的功能与语法 2. 掌握数据定义语句 SQL-ALTER 的功能与语法 1. 复习数据操纵语句 2. 复习数据定义语句 实验 7-1 使用 CREATE TABLE 命令, 在 成绩 数据库中创建 STUD.DBF 表结构 ( 见 图 7-1) STUD ( 学号 C(8), 姓名 C(8), 性别 C(2), 出生日期 D,; 少数民族否 L, 籍贯 C(10), 入学成绩 N(5,1), 简历 M, 照片 G) 图 7-1 STUD 表 OPEN DATABASE 成绩 CREATE TABLE STUD ( 学号 C(8), 姓名 C(8), 性别 C(2), 出生日期 D,; 少数民族否 L, 籍贯 C(10), 入学成绩 N(5,1), 简历 M, 照片 G) 实验 7-2 使用 ALTER TABLE 命令, 在 STUD.DBF 表结构中添加一个 专业 字段, 字段的类型为字符型, 宽度为 8 ALTER TABLE STUD ADD 专业 C(8) 科学出版社职教技术出版中心 实验 7-3 为 STUD.DBF 表添加有效性规则, 使字段 入学成绩 的值 >460, 出错信息为 入学成绩必须 >460

38 第一部分实验项目 33 ALTER TABLE STUD SET CHECK 入学成绩 >460 ERROR " 入学成绩必须 >460" 实验 7-4 使用 SQL-INSERT 命令, 在 STUD.DBF 表中添加一条记录 : 王蕾 男 否 470 会计学 会计学 ") INSERT INTO STUD VALUES("200415" " 王蕾 "," 男 ",DTOC("04/01/90"),.f.,470," 实验 7-5 将 STUD.DBF 表中所有 专业 用 经济与贸易 更新 UPDATE STUD SET 专业 =" 经济与贸易 " WHERE 专业 ="" 实验 7-6 将 STUD.DBF 表中所有 入学成绩 <480 的记录进行逻辑删除 DELETE FROM STUD WHERE 入学成绩 <480

39 34 Visual FoxPro 6.0 程序设计实践教程 实验八 SQL 的应用 ( 二 ) 1. 理解 SQL 语言的概念和作用 2. 掌握查询语句 SQL-SELECT 的功能与语法 复习查询语句 SQL-SELECT 的功能与语法 使用 STUD.DBF 表和 成绩.DBF 表的数据 ( 见表 8-1 和表 8-2), 完成以下实验 表 8-1 STUD.DBF 表 学号班级姓名性别出生日期专业代码入学成绩简历照片 李红玉女 12/11/91 机械 530 Memo Gen 希望男 11/23/91 机械 548 Memo Gen 欧阳东男 10/11/92 会计学 529 memo Gen 文晓红女 12/11/92 会计学 550 memo Gen 王晓红女 06/15/92 应用数学 524 memo Gen 王红女 06/23/93 经济与贸易 570 memo Gen 刘江男 02/28/91 应用数学 539 memo Gen 刘长江男 03/09/92 会计学 528 memo Gen 张强男 02/01/93 经济与贸易 549 memo Gen 李文玲女 10/23/92 机械 546 memo Gen 赵天明男 06/08/93 会计学 552 memo Gen 希望男 07/08/93 会计学 560 memo Gen 表 8-2 成绩.DBF 表 学号课程代码平时期中期末总评 科学出版社职教技术出版中心

40 第一部分实验项目 35 学号课程代码平时期中期末总评 实验 8-1 使用 SQL-SELECT 命令显示 STUD.DBF 表 SELECT * FROM STUD 实验 8-2 使用 SQL-SELECT 命令显示 STUD.DBF 表中所有记录的 姓名 班级 学号 专业 和 入学成绩 数据 SELECT 姓名, 班级, 学号, 专业, 入学成绩 FROM STUD 实验 8-3 使用 SQL-SELECT 命令, 求出 应用数学 专业学生 入学成绩 的平均分 SELECT 专业, AVG( 入学成绩 ) FROM STUD; WHERE 专业 =" 应用数学 " 实验 8-4 使用 SQL-SELECT 命令, 列出非 会计学 专业的学生名单 续表 SELECT 专业, 姓名 FROM WHERE 专业 =" 会计学 " STUD; 实验 8-5 使用 SQL-SELECT 命令, 列出 入学成绩 在 580~650 分的学生名单 SELECT 姓名, 入学成绩 FORM STUD; WHERE 入学成绩 >580 AND 入学成绩 <650 实验 8-6 使用 SQL-SELECT 命令, 列出所有姓 李 学生的 姓名 班级 学号 专业 和 入学成绩 SELECT 姓名, 班级, 学号, 专业, 入学成绩 FROM STUD ; WHERE ALLTRIM(LEFT( 姓名,2)=" 李 " 实验 8-7 根据 STUD.DBF 和 成绩.DBF 数据库表, 使用 SQL-SELECT 命令列出所有学生的 姓名 学号 性别 入学成绩 和 平时 期中 期末 和 平均 成绩

41 36 Visual FoxPro 6.0 程序设计实践教程 SELECT 姓名, 学号, 性别, 入学成绩, 平时, 期中, 期末,; AVG(( 平时 + 期中 + 期末 )/3) AS 平均成绩 ; FROM STUD INNER JOIN 成绩 ; ON STUD. 学号 = 成绩. 学号 实验 8-8 使用 SQL-SELECT 命令查询并输出 会计学 和 经济与贸易 专业学生的 姓名 性别 和 入学成绩 SELECT 姓名, 性别, 入学成绩 FROM STUD; WHERE 专业 =" 会计学 " OR 专业 =" 经济与贸易 " 实验 8-9 使用 SQL-SELECT 命令按 专业 排序列出学生的 姓名 学号 专业 入学成绩, 同一专业的按 入学成绩 由大到小排序后, 再按 学号 由大到小排序 SELECT SELECT 姓名, 学号, 专业, 入学成绩 FROM STUD ; ORDER BY 专业, 入学成绩 DESC, 学号 DESC 练习题 按要求完成下列操作 1) 列出 STUD.DBF 表中所有女生的信息, 只显示 学号 姓名 入学成绩 字段 2) 列出 STUD.DBF 表中 入学成绩 在 600~610 分的学生名单 3) 列出 STUD.DBF 表中所有姓 李 的学生名单 4) 对 学生管理 数据库, 列出学生的 学号 姓名 性别 入学成绩, 先按 性别 升序, 再按 入学成绩 降序排序 5) 在 STUD 表中, 分别统计男 女生的人数 6) 列出表中 入学成绩 最高的 3 项, 并将结果输出到表 maxcj.dbf 中 科学出版社职教技术出版中心

42 第一部分实验项目 37 实验九 程序的创建 1. 掌握程序文件的创建和修改 2. 掌握程序文件的运行 3. 掌握顺序结构程序的设计 1. 理解 VFP 的两种工作方式 : 交互方式和程序执行方式 2. 掌握程序文件的创建 保存 调用方法和注释语句的使用方法 实验 9-1 程序文件的创建 保存 修改及运行 (1) 程序文件的创建程序文件的创建, 可使用以下 3 种方法 1) 通过 项目管理器 创建程序 1 在项目管理器中, 选择 代码 选项卡中的 程序 项 2 单击 新建 按钮 2) 通过命令菜单创建程序 1 在 文件 菜单中选择 新建 命令 2 在 新建 对话框中选择 程序 单选按钮 3 单击 新建文件 按钮 3) 在 命令 窗口中输入 :MODIFY COMMAND 命令 (2) 程序文件的保存保存程序, 可以通过以下两种方式 1) 通过 项目管理器 保存程序 如果是保存由 项目管理器 创建的程序, 则该程序被加入项目中 ; 如果保存的是尚未命名的程序, 系统会打开 另存为 对话框, 提示用户在其中为程序指定程序名并保存它 2) 通过命令菜单保存程序 可以通过选择 文件 菜单的 保存 命令, 或者单击常用快捷工具栏上相应的按钮 如果关闭的是尚未保存的程序, 系统会弹出相应的对话框, 提示用户是保存还是放弃已做的修改 (3) 程序文件的修改修改程序, 可以通过以下 3 种方式

43 38 Visual FoxPro 6.0 程序设计实践教程 1) 通过 项目管理器 修改程序 1 打开 项目管理器, 选择要修改的文件 2 单击 修改 按钮 2) 通过菜单命令修改程序 1 在 文件 菜单中选择 打开 命令, 弹出 打开 对话框 2 在 文件类型 对话框中选择 程序 项, 在文件列表框中选择要修改的程序, 单击 确定 按钮 3) 在 命令 窗口中输入 :MODIFY COMMAND [ 文件名 ] 命令 (4) 程序文件的运行运行程序, 可以通过以下 3 种方式 1) 通过 项目管理器 运行程序 1 打开 项目管理器, 选择要运行的文件 2 单击 运行 按钮 2) 通过菜单命令运行程序 1 在 程序 菜单中选择 运行 命令, 弹出 运行 对话框 2 选择 运行 项, 在文件列表框中选择要运行的程序, 单击 确定 按钮 3) 通过 命令 窗口运行程序 在 命令 窗口中输入 :DO < 文件名 > 命令 实验 9-2 创建程序, 功能是统计 STUD.DBF 表中专业为 DQO1, 性别为 男 的学生人数 MODIFY COMMAND PROG2 USE STUD COUNT TO SS FOR 专业代码 ="DQO1"AND 性别 =" 男 "?" 专业为 DQO1 男生人数为 ",SS USE 实验 9-3 编写程序, 实现输入一个华氏温度, 输出摄氏温度 计算公式 C=5 (F-32) 9 set talk off input " 请输入一个华氏温度 :" to f c=5*(f-32)/9?" 摄氏温度为 :",c cancel 实验 9-4 已知圆半径 r 为 10cm, 编程求圆的周长和面积 set talk off clear r=10 l=2*3.14*r s=3.14*r*r 科学出版社职教技术出版中心

44 第一部分实验项目 39 v=4*.014*r*r*r/3?" 周长是 ",l?" 面积是 ",s set talk off return 实验 9-5 求一元二次方程 ax 2 +bx+c=0 的根 INPUT " 请输入二次项系数 a:" TO a INPUT " 请输入一次项系数 b:" TO b INPUT " 请输入常数项 c:" TO c delta=b^2-4*a*c re=-b/2*a x1=re+sb x2=re-sb? "x1=",x1, " x2=",x2

45 40 Visual FoxPro 6.0 程序设计实践教程 实验十结构化程序设计 1. 掌握分支结构程序的设计 2. 掌握循环结构程序的设计 1. 复习分支结构的几种类型 ( 如单分支 双分支 多分支 ) 2. 复习循环结构的几种方法 实验 10-1 编写程序, 求 S=1!+2!+3!+4!+5! 的值 S=0 Y=1 FOR X=1 TO 5 Y=Y*X S=S+Y ENDFOR? "S=",S 实验 10-2 从键盘上输入两个数, 并按从小到大的顺序输出 clear input " 请输入第一个数 " to a input " 请输入第二个数 " to b if a>b t=a a=b b=t endif?" 两个数从小到大依次为 :"a,b set talk on return 科学出版社职教技术出版中心 实验 10-3 设计程序计算电费 : 不超过 50kW 时, 每千瓦时 0.5 元 ; 超过 50kW 时, 超出部分每千瓦时 1 元

46 第一部分实验项目 41 set talk off clear input " 请输入用电量 " to x if x<50 y=x*0.5 else y=(x-50)*1+50*0.5 endif?" 用电量是 ",y set talk off return 实验 10-4 在学生信息表中查找任意学生的记录 学生信息表的结构为 ( 专业编号 CHAR(3), 学号 CHAR(9), 姓名 CHAR(6), 性别 CHAR(2), 出生日期 DATE(8), 毕业学校 CHAR(20)) set talk off clear use 绥化学院学生信息表 accept " 请输入姓名 " to xm locate for 姓名 =xm if not found()?" 对不起, 没有此人 " else disp endif set talk on return 实验 10-5 从键盘输入 10 个数, 编程找出其中的最大值和最小值 set talk off clear input " 请从键盘输入一个数 :" to a store a to max,min for i=2 to 10 input " 请从键盘输入一个数 :" to a if max<a max=a endif if min>a min=a endif endfor

47 42 Visual FoxPro 6.0 程序设计实践教程?" 最大值为 :",max?" 最小值为 :",min set talk on return 实验 10-6 求 1~100 之间全部奇数的和 set talk off clear s=0 i=1 do while i<=100 s=s+i i=i+2 enddo?"1~100 之间全部奇数的和为 :",s set talk on return 实验 10-7 对学生表分别统计少数民族男 女学生的人数, 学生表的结构为 ( 学号 CHAR(9), 姓名 CHAR(6), 性别 CHAR(2), 民族 CHAR(6), 成绩 NUM(3)) set talk off clear store 0 to x,y use 学生表 scan for 民族!=" 汉 " if 性别 =" 男 " x=x+1 else y=y+1 enbif endscan?" 少数民族男生有 :"+str(x,2)+" 人 "?" 少数民族女生有 :"+str(y,2)+" 人 " use set talk on return 实验 10-8 编写程序, 根据用户输入的考试成绩, 输出相应的等级 等级划分标准 : 90~100 分为 优秀 ;80~89 分为 良好 ;70~79 分为 中等 ;60~69 分为及格 ;<60 分为 不及格 SET TALK OFF INPUT " 请输入成绩 :" TO XX 科学出版社职教技术出版中心

48 第一部分实验项目 43 DO CASE CASE XX>=90?' 优秀 ' CASE XX>=80?' 优良 ' CASE XX>=70?' 良好 ' CASE XX>=60?' 及格 ' OTHER?' 不及格 ' ENDCASE SET TALK ON 练习题 根据 student.dbf 中的数据, 输入任意学生的姓名后, 如果找到, 则显示该学生的记录 ; 否则, 显示 对不起, 找不到此人

49 44 Visual FoxPro 6.0 程序设计实践教程 实验十一子程序和自定义函数 1. 掌握用户自定义函数及过程的定义 2. 掌握用户自定义函数及过程的创建方法 3. 掌握子程序的创建和调用方法 4. 理解调用过程和函数时参数传递的意义和功能 1. 复习自定义函数及过程的定义 2. 复习调用过程和函数时参数传递的意义和功能 实验 11-1 设计自定义函数 ABS(X), 返回 X 的绝对值 * 主程序 :PROG8.PRG CLEAR X=-3 Y=ABS(X)?Y RETURN * 自定义函数 :ABS FUNCTION ABS PARAMETERS X S=X IF X<0 S=-X ENDIF RETURN S ENDFUNC 科学出版社职教技术出版中心 实验 11-2 编写自定义函数, 求自然数 x 的阶乘 ; 在主程序中调用函数, 计算 s=a!+ b!+c! 实验要求 1) 由键盘输入 3 个数, 分别存放在变量 a b 和 c 中 2) 设计一个自定义函数 FAC( ), 用它来求 x!

50 第一部分实验项目 45 3) 由主程序调用 3 次函数, 即求得结果 CLEAR SET TALK OFF INPUT " 请输入 a" TO a INPUT " 请输入 b" TO b INPUT " 请输入 c" TO c s=fac(a)+fac(b)+fac(c)? " 三个数的阶乘之和为 ",s SET TALK ON RETURN FUNCTION FAC() PARAMETERS n f=1 FOR i=1 to n f=f*i ENDFOR RETURN f 实验 11-3 验证以下过程程序, 并检查输出结果 SET TALK OFF x=15 y=7 DO SUB WITH x,(y)? x,y SET TALK ON RETURN PROCEDURE SUB PARAMETERS a,b a=a+b b=a-b RETURN 保存该程序文件并运行, 输出结果为 22,7 因为 x 为按地址传递, 其值会随着形参的变化而变化 ;y 为值传递, 不管形参如何变化, 实参 y 的值不变 实验 11-4 创建一个程序文件, 程序代码如下 SET TALK OFF x=9 y=13 z=fu(x,y)? z SET TALK ON RETURN

51 46 Visual FoxPro 6.0 程序设计实践教程 FUNCTION FU PARAMETERS a,b a=a*b RETURN (a) 保存该程序文件并运行, 输出结果为 117 实验 11-5 变量的作用域 认真分析如下程序中变量发生作用的范围 * 主程序 :cx.prg CLEAR CLEAR ALL a1=10 a2=10 a3=10 LIST MEMO LIKE a? do cx1 LIST MEMO LIKE a? CLEAR ALL RETURN * 子程序 :cx1.prg PRIVATE a1 LOCAL a2 a1=5 a2=5 LIST MEMO LIKE a? DO cx2 LIST MEMO LIKE a? RETURN * 子程序 :cx2.prg PUBLIC a4 a4=20 LIST MEMO LIKE a? RETURN 实验 11-6 编写求立方数的函数 CLEAR FOR i=1 TO 10? i, cube1(i) ENDFOR RETURN 科学出版社职教技术出版中心 FUNCTION cube1 PARAMETERS v RETURN v*v*v

52 第一部分实验项目 47 练习题 1) 分析下列程序的执行, 写出运行结果 * 主程序 :main.prg Clear r=100 p=10 DO sub? p RETURN * 子程序 :sub.prg p=2*3.14*r RETURN 2) 分析下列程序的执行, 写出运行结果 * 主程序 :main2.prg clear public x private y,k x=1 y=2 do sub1? "x=",x, "y=",y k=3 do sub2? "y=", y, " k= ",k * 过程 1 procedure sub1 local y y=3 x=x*y y=x+y return * 过程 2 procedure sub2 k=k+y y=k*y return

53 48 Visual FoxPro 6.0 程序设计实践教程 实验十二用向导快速生成表单 1. 掌握对象 类的概念 2. 掌握用表单向导为单个表创建表单的基本步骤 3. 掌握用表单向导创建一对多表单的基本步骤 4. 了解如何用编写程序的方法制作表单 1. 准备实验中的相关数据 :Ckgl 数据库及 CK 表 ZG 表 2. 设置默认目录 D:\vfp 表单 实验 12-1 在 项目管理器 -Ckgl 中使用表单向导创建一个名称为 myform12_1 的 实验要求 1) 选择 CK 表中所有字段 2) 表单样式为 阴影式 3) 按钮类型为 图片按钮 4) 排序字段为 仓库号 ( 升序 ) 5) 表单标题为 仓库信息表 1) 打开 项目管理器 -Ckgl, 如图 12-1 所示 在项目管理器的 文档 选项卡中选择 表单, 再单击 新建 按钮 科学出版社职教技术出版中心 图 12-1 项目管理器

54 第一部分实验项目 49 2) 在 新建表单 对话框中单击 表单向导 图标按钮, 如图 12-2 所示 3) 在 向导选取 对话框中选择 表单向导, 单击 确定 按钮, 如图 12-3 所示, 启动表单向导 图 12-2 新建表单 图 12-3 选择使用的向导 4) 在表单向导的 步骤 1- 字段选取 界面的 数据库和表 列表框下选中 CK 表, 将 可用字段 中的字段全部添加到 选定字段 中, 单击 下一步 按钮, 如图 12-4 所示 图 12-4 在表单向导中选取字段 5) 在表单向导的 步骤 2- 选择表单样式 界面的 样式 列表框下选中 阴影式, 在 按钮类型 组下选择 图片按钮 单选按钮, 单击 下一步 按钮, 如图 12-5 所示 图 12-5 在表单向导中选择表单样式

55 50 Visual FoxPro 6.0 程序设计实践教程 6) 在表单向导的 步骤 3- 排序次序 界面中, 双击 可用的字段或索引标识 中的 仓 库号 字段到 选定字段 列表框中, 再选择 升序 单选按钮, 单击 下一步 按钮, 如图 12-6 所示 图 12-6 在表单向导中设置排序次序 7) 在表单向导的 步骤 4- 完成 界面中的 请键入表单标题 文本框中输入 仓库信息表, 单击 完成 按钮, 如图 12-7 所示 图 12-7 在表单向导中输入标题 科学出版社职教技术出版中心 8) 在 另存为 对话框的 保存表单为 框中输入表单文件名为 myform12_1, 单击 保存 按钮 实验 12-2 使用一对多表单向导选择 CK 表和 ZG 表, 生成一个名为 myform12_2 的表单 实验要求 1) 从父表 CK 中选择所有字段, 从子表 ZG 中选择 工资 字段, 使用 仓库号 创建两表之间的关系, 样式为 阴影式 2) 按钮类型为 图片按钮 3) 按字段 仓库号 ( 来自 CK 表 ) 的升序排序

56 第一部分实验项目 51 4) 表单标题为 仓库职工信息表 1) 选择 文件 新建 命令, 或单击常用工具栏的 新建 按钮, 在弹出的 新建 对话框中选中 表单 单选按钮, 然后单击 向导 图标按钮, 系统弹出 向导选取 对话框 选中 一对多表单向导 项, 单击 确定 按钮, 启动表单向导, 如图 12-8 所示 2) 在表单向导的 步骤 1- 从父表中选定字段 界面中单击按钮, 在 打开 对话框中选择 CK 表, 单击 确定 按钮 ( 这时,CK 表和它所在数据库中的所有表都会出现在 数据库和表 列表框中, 并且 CK 表处于被选中状态 ) 将 可用字段 中的字段全部添加到 选定字段 中, 单击 下一步 按钮, 如图 12-9 所示 图 12-8 选择一对多表单向导 图 12-9 从父表中选定字段 3) 在表单向导的 步骤 2- 从子表中选定字段 界面的 数据库和表 列表框下选中 ZG 表, 双击 可用字段 中的 工资 字段, 将其添加到 选定字段 中, 单击 下一步 按钮, 如图 所示 图 从子表中选定字段 4) 在表单向导的 步骤 3- 建立表之间的关系 界面中系统自动创建两个表的联系, 单击 下一步 按钮, 如图 所示 5) 在表单向导的 步骤 4- 选择表单样式 界面的 样式 列表框下选中 阴影式, 在 按钮类型 组下选择 图片按钮 单选按钮, 单击 下一步 按钮, 如图 所示

57 52 Visual FoxPro 6.0 程序设计实践教程 图 创建表之间的关系 图 选择表单样式 6) 在表单向导的 步骤 5- 排序次序 界面中, 双击 可用的字段或索引标识 中的 仓 库号 字段到 选定字段 列表框中, 再选择 升序, 单击 下一步 按钮 7) 在表单向导的 步骤 6- 完成 界面中的 请键入表单标题 文本框中输入 仓库职 工信息, 单击 完成 按钮 8) 在 另存为 对话框的 保存表单为 框中输入表单文件名为 myform12_2, 单击 保 存 按钮 9) 运行表单, 如图 所示 图 表单运行界面 实验 12-3 分析下列程序的运行结果并上机调试, 将运行结果与分析结果相比较 shipper=createobject('shipform') shipper.show(1) define class shipform as form dimension choices[2] caption=' 类定义示例 ' scalemode=0 width=40 height=8 科学出版社职教技术出版中心

58 第一部分实验项目 53 add object choices[1] as commandbutton; with top=1,; height=2,; caption=' 第一个命令按钮 ' left=12 width=35 add object choices[2] as commandbutton; with top=5,; height=2,; caption=' 第二个命令按钮 ' left=12 width=35 procedure choices.click parameter index do case case index=1 messagebox(" 您单击了第一个命令按钮 ") case index=2 messagebox(" 您单击了第二个命令按钮 ") endcase endproc enddefine 运行结果如图 所示 图 两个命令按钮 实验 12-4 分析下列程序的运行结果并上机调试, 将运行结果与分析结果相比较 myform=createobject('myform') myform.show read events define class myform as form caption=" 圆和正方形 " autocenter=.t. width=300 height=300 add object shape1 as shape with; left=90,; top=60,; width=120,; height=120,; visible=.t. add object command1 as; commandbutton with;

59 54 Visual FoxPro 6.0 程序设计实践教程 caption=" 圆 ",; left=50,; top=240,; width=50,; height=25 add object command2 as; commandbutton with; caption=" 正方形 ",; left=130,; top=240,; width=50,; height=25 add object command3 as commandbutton with; caption=" 关闭 ",; left=210,; top=240,; width=50,; height=25 procedure command1.click thisform.shape1.backcolor=rgb(255,0,0) thisform.shape1.curvature=99 thisform.shape1.visible=.t. endproc procedure command2.click thisform.shape1.backcolor=rgb(0,0,255) thisform.shape1.curvature=0 thisform.shape1.visible=.t. endproc procedure command3.click release frmform clear events endproc enddefine 运行结果如图 所示 科学出版社职教技术出版中心 图 显示圆和正方形

60 第一部分实验项目 55 实验 12-5 分析下列程序的运行结果并上机调试, 将运行结果与分析结果相比较 myform=createobject("myform") myform.show read events define class myform as form caption=" 色彩 " autocenter=.t. width=400 height=400 backcolor=rgb(255,0,0) add object optioncolor as optiongroup with; left=30,; top=90,; width=40,; height=150,; visible=.t.,; buttoncount=7,; option1.autosize=.t.,; option2.autosize=.t.,; option3.autosize=.t.,; option4.autosize=.t.,; option5.autosize=.t.,; option6.autosize=.t.,; option7.autosize=.t.,; option1.caption=" 赤 ",; option2.caption=" 橙 ",; option3.caption=" 黄 ",; option4.caption=" 绿 ",; option5.caption=" 青 ",; option6.caption=" 蓝 ",; option7.caption=" 紫 ",; autosize=.t. value=0 procedure optioncolor.destroy clear events endproc procedure optioncolor.click do case case this.value=1 thisform.backcolor=rgb(255,0,0) case this.value=2 thisform.backcolor=rgb(255,100,0) case this.value=3 thisform.backcolor=rgb(255,255,0) case this.value=4 thisform.backcolor=rgb(0,255,0) case this.value=5

61 56 Visual FoxPro 6.0 程序设计实践教程 thisform.backcolor=rgb(0,0,0) case this.value=6 thisform.backcolor=rgb(0,0,255) case this.value=7 thisform.backcolor=rgb(255,0,255) endcase endproc enddefine 运行结果如图 所示 图 显示表单背景颜色 练习题 1) 使用表单向导创建一个可维护学生档案数据表 stud.dbf 的表单, 如图 所示 科学出版社职教技术出版中心 图 STUD 表单

62 第一部分实验项目 57 2) 使用表单向导创建一个可维护学生档案的数据表 STUD.DBF 和学生成绩 XSCJ.DBF 的表单, 如图 所示 图 学生成绩