内容简介 本书是针对 Visual FoxPro 程序设计 ( 张高亮主编, 科学出版社出版 ) 和全国高等学校非计算机专业学生计算机等级考试教学大纲要求编写的配套教材 本书共分两篇, 上篇是 Visual FoxPro 程序设计实验, 包括 Visual FoxPro 语言基础 数据库与表操作 面

Transcription

1 普通高等教育 十二五 规划教材中国科学院教材建设专家委员会规划教材 Visual FoxPro 程序设计实践 张高亮主编谭华山郑志华蒋明宇刘云杰余平王化祥主审 副主编 科学出版社职教技术出版中心 北 京

2 内容简介 本书是针对 Visual FoxPro 程序设计 ( 张高亮主编, 科学出版社出版 ) 和全国高等学校非计算机专业学生计算机等级考试教学大纲要求编写的配套教材 本书共分两篇, 上篇是 Visual FoxPro 程序设计实验, 包括 Visual FoxPro 语言基础 数据库与表操作 面向对象程序设计 表单操作 报表与菜单操作等共 20 个验证型和设计型实验, 对读者学习和掌握相应知识与技能具有极大的帮助 下篇是例题分析及习题, 以 Visual FoxPro 程序设计 内容为主轴, 围绕相应知识要点进行讲解和练习, 以利于对所学内容的掌握及巩固, 同时有利于读者参加全国高等院校 ( 各考区 ) 非计算机专业学生计算机等级考试 本书最后还附有全国高等学校 ( 重庆考区 ) 非计算机专业学生计算机等级考试 VFP 笔试与上机考试试题 本书内容丰富 文字通俗易懂, 包含大量的上机操作实验 例题分析和丰富的习题内容 本书紧扣教学内容和教学大纲, 内容取舍得当, 既可作为各类高等院校的 Visual FoxPro 程序设计课程的学习指导用书, 也可用作参加全国高等学校非计算机专业学生计算机等级考试的参考教材 本书提供丰富的网络教学资源, 请访问网站 计算机基础教学网站 ( 图书在版编目 CIP 数据 Visual FoxPro 程序设计实践 / 张高亮主编. 北京 : 科学出版社,20112 ( 普通高等教育 十二五 规划教材 中国科学院教材建设专家委员会规划教材 ) ISBN Ⅰ.1 V Ⅱ. 1 张 Ⅲ. 1 关系数据库 - 数据库管理系统,Visual Foxpro- 程序设计 - 高等学校 - 教材 Ⅳ. 1TP 中国版本图书馆 CIP 数据核字 (2011) 第 号责任编辑 : 吕燕新李太铼艾冬冬 / 责任校对 : 刘玉靖责任印制 : 吕春珉 / 封面设计 : 耕者设计工作室 科学出版社发行 各地新华书店经销 * 2011 年 2 月第一版 开本 : / 年 2 月第一次印刷 印张 :17 3/4 字数 : 定价 :28.00 元 ( 如有印装质量问题, 我社负责调换 双青 ) 销售部电话 编辑部电话 版权所有, 侵权必究举报电话 : ; ;

3 人类社会已迈入信息处理与知识经济时代, 如何高效地进行信息处理是摆在人们面 前的首要课题 数据是信息最形象 最直观的表现形式 现代社会对于信息的处理, 直接体现为数据处理 数据库技术作为专门进行数据处理的技术, 是研究如何科学 有效地组织数据, 搜集 处理 检索和管理数据信息的有力工具 Visual FoxPro 是一个集数据库技术与可视化程序设计为一体的小型关系数据库系统开发软件, 在众多数据库系统软件中有着不可替代的作用, 长期以来享有 大众数据库 的美誉 Visual FoxPro 系统具有操作界面友好 功能完善 简单易学, 辅助开发工具丰富 便于实现快速开发应用系统等特点 它提供了交互式操作方式 支持面向过程和面向对象的可视化编程技术, 为广大数据库开发人员提供了强有力的数据库技术支持, 也为非计算机专业的计算机基础教学提供了一个非常优秀的数据库程序设计教学软件 为使读者更好地理解和掌握 Visual FoxPro 系统的知识和技能, 达到设计和开发小型数据库应用系统的能力, 针对于 Visual FoxPro 程序设计 内容和全国高等院校非计算机专业学生计算机等级考试教学大纲要求, 作者编写了本教材 本书共分为两篇, 上篇是 Visual FoxPro 程序设计实验, 是根据教学内容精心组织和设计的 20 个实验项目, 包括实验目的 实验内容和实验要求, 有大量的操作性和设计性实验内容, 对读者学习相应知识和掌握相应技能具有极大的帮助 下篇是 Visual FoxPro 例题讲解及习题内容, 以 Visual Fox 程序设计 内容为主轴, 围绕相应知识要点进行练习, 以利于对所学内容的掌握及巩固, 同时有利于读者参加全国高等学校非计算机专业学生计算机等级考试 本书还附有全国高等学校 ( 重庆考区 ) 非计算机专业学生计算机等级考试 VFP 笔试与上机考试试题 全书所有命令和程序均在 Visual FoxPro 6.0 系统中调试通过 本书内容丰富 文字通俗易懂, 包含大量的上机操作实验 例题分析和丰富的习题内容 本书紧扣教学内容和教学大纲, 内容取舍得当, 既可作为各类高等学校的 Visual FoxPro 程序设计课程的学习指导用书, 也可用作参加全国高等学校非计算机专业学生计算机等级考试的参考教材 本书上篇实验 1 和下篇练习 1 由郑志华编写, 上篇实验 2~8 1l~13 和下篇练习 2 练习 3 练习 6 及附录由张高亮编写, 上篇实验 9 实验 10 和下篇练习 4 练习 5 由蒋明宇和余平编写, 上篇实验 14~ 实验 17 实验 20 和下篇练习 7 由谭华山编写, 上篇实验 18 实验 19 和下篇练习 8 练习 9 由刘云杰编写 全书由重庆师范大学的张高亮主编并负责组织 策划 统稿等工作 本书在编写过程中, 得到了重庆师范大学同仁和科学出版社的大力支持, 在此表示最衷心的感谢! 由于编者水平有限, 书中难免存在不足或疏漏之处, 欢迎广大读者批评指正 科学出版社职教技术出版中心 编者 2011 年 11 月于重庆

4

5 上篇 VFP 程序设计实验 实验 1 VFP 工作环境及项目管理器 实验目的 实验内容 实验要求 6 实验 2 常量 变量及表达式 实验目的 实验内容 实验要求 10 实验 3 常用函数使用 实验目的 实验内容 实验要求 14 实验 4 建立自由表 实验目的 实验内容 实验要求 18 实验 5 数据表的基本操作 实验目的 实验内容 实验要求 23 实验 6 数据表的基本操作 实验目的 24 科学出版社职教技术出版中心 实验内容 实验要求 27 实验 7 多表操作 实验目的 实验内容 实验要求 29 实验 8 数据库的基本操作 实验目的 实验内容 实验要求 34

6 iv 目 录 实验 9 数据库的查询和视图 实验目的 实验内容 实验要求 39 实验 10 SQL 语言操作 实验目的 实验内容 实验要求 44 实验 11 程序控制结构 实验目的 实验内容 实验要求 49 实验 12 程序控制结构 实验目的 实验内容 实验要求 56 实验 13 模块化程序设计 实验目的 实验内容 实验要求 59 实验 14 常用表单控件 实验目的 实验内容 实验要求 70 实验 15 常用表单控件 实验目的 实验内容 实验要求 84 实验 16 常用表单控件 实验目的 实验内容 实验要求 95 实验 17 表单控件综合设计 实验目的 实验内容 实验要求 103 实验 18 报表的设计 实验目的 实验内容 105 Visual FoxPro 程序设计实践

7 目 录 v 18.3 实验要求 110 实验 19 菜单的设计 实验目的 实验内容 实验要求 114 实验 20 综合实验 实验目的 实验内容 实验要求 120 下篇 VFP 例题分析及习题 练习 1 数据库基础 例题分析 习题 125 练习 2 VFP 语言基础 例题分析 习题 132 练习 3 表与数据库 例题分析 习题 146 练习 4 数据库的查询和视图 例题分析 习题 166 练习 5 关系数据库标准语言 SQL 例题分析 习题 172 练习 6 结构化程序设计 184 科学出版社职教技术出版中心 例题分析 习题 188 练习 7 可视化程序设计 例题分析 习题 231 练习 8 报表与标签 例题分析 习题 245 练习 9 菜单与工具栏 例题分析 习题 250

8 vi 目 录 附录 1 Visual FoxPro 程序模拟试题 笔试试题 ( 一 ) 252 附录 2 Visual FoxPro 程序模拟试题 笔试试题 ( 二 ) 260 附录 3 Visual FoxPro 程序模拟试题 上机试题 ( 一 ) 267 附录 4 Visual FoxPro 程序模拟试题 上机试题 ( 二 ) 269 附录 5 Visual FoxPro 程序模拟试题 上机试题 ( 三 ) 271 主要参考文献 273 Visual FoxPro 程序设计实践

9 1.1 实验目的 1) 熟悉 VFP 窗口工作界面 2) 熟悉 VFP 中菜单系统 常用工具的使用 3) 熟练掌握 VFP 中工作环境设置方法 4) 掌握创建项目文件的方法 步骤 5) 认知和使用项目管理器 1.2 实验内容 选择 1.VFP 6.0 的启动及退出 启动 Visual FoxPro 6.0 常用方法有两种 方法 1: 双击 Windows 桌面上的 Visual FoxPro 6.0 图标 方法 2: 单击 开始 按钮, 选择 所有程序 下的 选项, 则进入 VFP 系统的工作界面 Visual FoxPro 6.0 系统使用完毕, 可采用以下方法之一退出 方法 1: 选择 文件 菜单下的 退出 功能 方法 2: 单击 Visual FoxPro 6.0 窗口右上角的 关闭 按钮 方法 3: 在命令窗口中输入 QUIT 命令后按 Enter 键 方法 4: 按组合键 Alt+F4 2.VFP 6.0 的工作界面 进入其工作界面 Visual FoxPro 6.0 主窗口界面如实验图 1.1 所示, 主要构成及功能如下 选项, 再 科学出版社职教技术出版中心 实验图 1.1 VFP 6.0 工作界面

10 4 上篇 VFP 程序设计实验 系统窗口 : 显示命令执行结果或程序运行结果 命令窗口 : 输入 VFP 系统命令 函数 变量等实现相应功能 菜单栏 : 为用户操作 VFP 系统的功能 工具栏 :VFP 系统中常用命令的快捷操作方式 浏览窗口 : 以浏览形式查看当前打开的数据表的内容 程序窗口 : 供用户输入程序文件使用 状态栏 : 用来显示当前操作的相应状态或结果 3. 设置 VFP 中常用的工作环境为了在 VFP 系统中操作更快捷方便, 可以设置一个保存和打开文件的默认目录, 每次直接从默认目录中存取文件, 其菜单设置方法如下 : 第 1 步, 选择 工具 菜单中的 选项 功能, 打开 选项 对话框, 单击 文件位置 选项卡, 如图 1-2 所示 第 2 步, 单击文件类型列表框中的 默认目录 栏, 再单击 修改 命令按钮, 则弹出 更改文件位置 对话框, 如实验图 1.2 所示 第 3 步, 在 定位 (L) 默认目录 处的文本框中输入 D:\VFP ( 可以是用户自己保存文件的其他目录路径 ), 或单击文本框右边的 按钮, 在弹出的 选择目录 对话框中选择存取文件的目录路径 第 4 步, 单击 更改文件位置 对话框中的 确定 按钮返回 选项 对话框 第 5 步, 单击 设置为默认值 按钮, 再单击 确定 按钮, 则默认目录设置完毕 也可使用命令来设置默认目录 方法是 : 在命令窗口中输入并执行如下命令 : SET DEFAULT TO D:\VFP 实验图 1.2 利用 VFP 6.0 选项 对话框设置默认目录 4. 设置系统日期及时间的显示格式 请参照以上方法, 在 选项 对话框的 区域 选项卡中, 设置系统日期及时间的 Visual FoxPro 程序设计实践

11 实验 1 VFP 工作环境及项目管理器 5 显示格式 要求 : 1 设置日期的中文显示格式为 yy/mm/dd( 系统默认显示月 / 日 / 年 ) 2 设置年份用 4 位显示 ( 系统默认两位年份显示 ) 提示完成选择设置后须单击 选项 对话框中 设置为默认值 按钮, 再单击 确定 按钮 5. 创建项目文件 1) 命令方式在 VFP 命令窗口中输入并执行如下命令, 则弹出 项目管理器, 如实验图 1.4 所示 CREATE PROJECT 学生档案管理系统 2) 菜单方式第 1 步, 选择 文件 菜单中的 新建 功能, 弹出 新建 对话框, 如实验图 1.3 所示 第 2 步, 在 文件类型 中选择 项目 选项, 单击 新建文件 按钮, 在弹出的 创建 对话框中指定项目文件的保存位置, 比如 D:\VFP 第 3 步, 在 项目文件 文本框中输入文件名, 比如 学生档案管理系统.pjx, 单击 保存 按钮, 则弹出 项目管理器, 如实验图 1.4 所示 实验图 1.3 新建 对话框 实验图 1.4 项目管理器 要打开已有的项目文件, 可选择 文件 菜单中的 打开 功能实现, 也可以在 VFP 命令窗口输入如下命令形式打开 : MODIFY PROJECT 学生档案管理系统 6. 项目管理器的使用在项目管理器中, 可以完成以下工作 : (1) 建立 编辑 管理数据库文件 (2) 建立 浏览 编辑数据库表及自由表文件 科学出版社职教技术出版中心

12 6 上篇 VFP 程序设计实验 (3) 建立 编辑 运行程序文件 (4) 建立 运行视图及查询文件 (5) 建立 编辑 管理 运行菜单文件 (6) 建立 编辑 管理 运行报表文件 以上操作可以在后续学习中逐渐完成, 请同学们参照 Visual FoxPro 程序设计 教材中 项目管理器 相关内容, 完成项目管理器的移动 缩放 折叠 拆分操作, 熟悉项目管理器中各选项卡及按钮的功能 1.3 实验要求请完成以下要求 : 1 在 我的电脑 中,D 盘根目录下建立名称为 VFP 的子目录, 在 VFP 环境中将其设置为今后操作的默认目录 2 将 VFP 系统的显示日期格式设置为 年 / 月 / 日 ( 年份为 4 位 ) 3 建立一个名称为 学生档案管理系统.pjx 的空项目文件 Visual FoxPro 程序设计实践

13 2.1 实验目的 1) 认识常量 变量掌握不同数据类型常量的表示方法 2) 掌握内存变量的赋值 输出, 区分常量与变量的不同 3) 掌握数组的定义及赋值方法 4) 掌握各类运算符的功能 运算规则以及运算优先顺序 5) 理解表达式的概念 含义和书写方法 6) 掌握各种类型表达式的计算方法 计算结果 7) 学会使用输出命令输出常量 变量 数组 表达式的值及格式控制 2.2 实验内容 1. 常量的含义 数据类型 表示方法及输出 在 VFP 命令窗口中, 正确输入并执行以下系列命令 每执行一条命令, 请仔细观察系统窗口中的显示结果 ( 包括常量的值 显示位置等 ), 并正确理解其含义 提示 在 VFP 命令窗口中, 若某命令执行时出错, 可将光标定位到该命令, 改正错误之处后, 按 Enter 键重新执行 对于每条命令, 均可多次执行 说明? 256 && 输出数值型常量?? -88, ? "Abc", 'Visual FoxPro 6.0',100 && 输出字符型常量?? "I'm student!'', [ China]? ' 美丽的山城 ', " 重庆 " AT 20, [ 是我家,], " 需要我们共同爱护她!" AT 25? " 今天的日期是 :",{^ } && 输出日期及时间型常量?? " 现在的时间是 :",{^ :30:35} SET CENTURY ON? {^ },DATE() SET CENTURY OFF? " 逻辑真可表示为 :",.T.,.t.,.Y.,.y.? " 逻辑假可表示为 :",.F.,.f.,.N.,.n. 1 一条命令输入完毕, 按 Enter 键则立即执行, 若输入出错, 可光标定位于该修改出错字符后, 按 Enter 键再次执行, 而不必重新输入整条命令 科学出版社职教技术出版中心

14 8 上篇 VFP 程序设计实验 2 && 为注释内容, 解释该命令的功能, 用户输入命令时可以省略 ( 不输入 ) 3 命令窗口中的标点符号必须使用英文方式输入, 否则会发出错误警告并拒绝执行 4 在 VFP 系统中, 英文字母只有出现在字符型常量中时, 要区别大小写, 其他情况均不区分大小写 ( 即作用相同 ), 比如, 英文字母出现在变量名 表达式 文件名中 5 一个英文字符存储时占 1B( 字节 ) 显示时占 1 个位置, 而一个中文字符存储时占 2B 显示时占 2 个位置 6 每执行一条命令, 应观察屏幕的输出结果, 以便于正确学习和理解相应知识点 2. 内存变量的含义 值 赋值和输出在 VFP 命令窗口中, 正确输入并执行以下系列命令 每执行一条命令, 请仔细观察系统窗口中的显示结果, 并正确理解其含义 x=100 && 一次只能给一个内存变量赋值 m1=" 重庆 " m2=" 大学城 " t={^ :30:25} store to y,z? x,y,z && 一次可给多个内存变量赋值? x,y,z at 21 && 请注意输出结果与上一条命令的区别, 请分析原因? m1," 我向往的地方 ",m1+m2 AT 21," 梦开始的地方!"? " 现在的时间是 :",t x=" 五个 "? x+m1 && 请注意变量 x 前后值的变化, 体会 变 的真正含义 LIST MEMO DISP MEMO && 滚动显示当前内存中各内存变量的值 && 分屏显示当前内存中各内存变量的值 3. 数组的应用在命令窗口中输入以下系列命令, 建立两个数组变量 A 和 B, 观察不同情况下数组中各个元素的赋值 数据类型和值的变化情况 DIMENSION a(5),b(2,4) DISP MEMO LIKE a* && 显示字母 A 开头的内存变量 CLEAR && 清除屏幕 ( 系统窗口 ) 原有显示信息 a=10 && 将数组 A 所有元素重新赋值为 10 m=2 a(1)=" 计算机 " a(m)=a(2)+ " 程序设计 " b(1,1)=200 B(2,m)= "Computer" && 给数组元素赋值 && 数组名的字母大小写等效 Visual FoxPro 程序设计实践

15 实验 2 常量 变量及表达式 9 b(m+3)=99 b(7)=.t. && 通过一维数组形式引用二维数组元素? a(1),a(2),a(3),a(4),a(5) && 观察各数组元素值的变化? b(1,1),b(1,2),b(1,3),b(4),b(5),b(2,2),b(2,3),b(8)? b(2,5) && 观察为什么出错 DISP MEMO && 观察所有内存变量的值 4. 变量的保存 清除及恢复 SAVE TO temp1 ALL && 将所有内存变量保存到文件 temp1.mem 中 SAVE TO temp2 ALL LIKE a*.* RELEASE ALL && 清除当前内存中的所有内存变量? x,m1,a(3),b(2,3) && 看看这些变量在当前内存中是否还存在 DISP MEMO LIKE m* RESTORE FROM TEMP2 && 看看是否还有字母 m 开头的内存变量 && 恢复内存变量文件 temp2.mem? a(1),a(2),a(3),a(4),a(5) && 看看这些变量是否恢复 5. 表达式的计算 输出 在 VFP 命令窗口中输入以下系列命令, 观察其执行结果与你推算的是否一致, 思考其中缘由 注意其数据类型及运算符的先后顺序 CLEAR && 清除屏幕 ( 系统窗口 ) 原有显示信息 x=23 k1=x+10 k2=x*x-k/3 k3=x*3%7? k1,k2,k3? x%7,x%-7,-x%7,-x%-7 && 观察并分析显示结果 s=" 计算 " t=" 机 "? s,t,s+t,s-t,"***" && 观察并分析显示结果? s+" "+t,s+" "-t+"***" && 观察并分析显示结果? 5>3,5<3,5<=3?? s>t? s=" 计算机 ",t=" 机 ",s+t=s,s+t==s&& 显示结果 :.F..F..T..F. 请分析原因 科学出版社职教技术出版中心 SET EXACT ON && 设置字符串精确比较? s=" 计算机 ",t=" 机 ",s+t=s,s+t==s && 显示结果 :.F..F..F..F. 请分析原因 SET EXACT OFF? s$s+t,t$(s+t),s+t$s && 设置字符串模糊比较, 系统默认为 OFF k="*" i="2"

16 10 上篇 VFP 程序设计实验 2.3 实验要求 a12=12 a22=" 计算机 "? 12&k.3, a1&i, a&i.2 && 宏替换运算的使用? {^ }>{^ }? {^ }+45, {^ }-45? {^ }-{^ } SET CENTURY ON && 设置 4 位年份 SET MARK TO "-" && 设置分隔符为 - SET DATE TO YMD && 设置为 年 / 月 / 日 格式? {^ } SET CENTURY OFF && 还原为默认格式 (2 位年份 ) SET MARK TO && 恢复系统默认的斜杠分隔符 SET DATE TO AMERICAN && 还原为默认格式 月 / 日 / 年 a=3 b=4 c=5? a>=b+c AND b<=c && 逻辑运算符的使用? a>=8 AND b>=8 AND c>=a? a=10 OR b>=0 AND c=5? a=10 OR b>=0 OR c=5 请完成以下要求 ( 上机前应事先写出命令序列 ): 1 清屏, 清除所有内存变量 2 用赋值号 = 给变量 a b c d e 分别赋值为数值 10 字符串 ABC 重庆 今天日期 逻辑真; 用 STORE 命令给 x y z 均赋值为 10 3 换行输出 a b c d e a*2 a**2 的值, 换行输出 b+c b-c 的值, 不换行 ( 当前行 ) 输出 x y z 的值 4 输出变量 e 和字符串 "e" 的值, 注意二者的区别 5 将以下代数式转换为 VFP 的合法表达式, 输出其结果 x -10 y 3 a+ + y x+ xy +y x ( 假设 x=3.3,y=8) 2 Visual FoxPro 程序设计实践

17 3.1 实验目的 1) 体会函数的三要素, 即函数名 函数值 数据类型 2) 掌握常用函数的格式和参数的含义 3) 初步掌握常用函数的功能及用法 4) 学会灵活运用函数解决一些基本问题 3.2 实验内容 在 VFP 系统中, 通过以下操作, 先体会各类函数的格式及功能 注意函数格式 函数参数的选用及对应的数据类型 函数值及数据类型 表达式的值及数据类型 然后, 根据实际问题的需要, 运用所学的常量 变量 运算符 函数 表达式等有关知识, 解决提出的问题 提示 正确的学习方法是 : 上机操作前, 应该先考虑各条命令的作用, 推算并写出其运算结果, 然后在 VFP 命令窗口中输入以下命令, 观察其执行结果与你推算的结果是否一致, 思考其中缘由 在命令窗口中, 正确输入并执行以下系列命令 每执行一条命令, 请仔细观察系统窗口中的显示结果, 并正确理解其含义 1. 常用数值处理函数 m=100 n= ? ABS(-m),ABS(m),SQRT(n),SIGN(-n)? LOG(m),LOG10(n)? EXP(3),MAX(m,n,100),MIN(m,n,100)? INT(n),INT(-n),INT(m/3)? MOD(n,m),MOD(n,-m),n%m? ROUND(n,2),INT(n* )/100 =RAND(-1) && 随机函数初始化? RAND() && 随机产生一个 0~1 的纯小数, 请多次执行? INT(100+RAND()*900) && 随机产生一个三位自然数, 请多次执行 a=100+int(rand()*900) b=100+int(rand()*900)? a,b,a+b && 观察系统窗口显示结果 科学出版社职教技术出版中心

18 12 上篇 VFP 程序设计实验 ***** 以下 8 行命令序列为 : 输入任一五位自然数, 反序输出及按位求和 请重复执行 3 次, 输入 三个五位数, 看看显示结果是否符合要求?***** INPUT " 请输入任意一个五位自然数 :" TO n && 键盘输入任一五位自然数 a1=n%10 a5=int(n/10000) a2=int(n%100/10) a3=mod(int(n/100),10) a4=(n-a5*10000)%1000? " 自然数 "+STR(n,5)+" 的反序数为 :", a1*10000+a2*1000+a3*100+a4*10+a5?? " 自然数 "+STR(n,5)+" 的各数位之和为 :",a1+a2+a3+a4+a5 2. 常用字符处理函数 _SCREEN.FONTSIZE=16 && 设置屏幕显示字号 STORE "My Computer" TO c? LEN(c) a=" 宜居重庆 畅通重庆 森林重庆 平安重庆和健康重庆 " t=substr(a,5,4)? SUBSTR(c,4,8)? REPL("*",10)+" 五个 "+b FONT " 隶书 ",20 style 'BI' AT 6 && 设置当前显示字符的字体 字号 字型?? LEFT(a,4)+" "+SUBSTR(a,11,4) +" " FONT " 隶书 ",20 style 'BI'?? SUBSTR(a,21,4) +" "+SUBSTR(a,31,4) FONT " 隶书 ",20 style 'BI'?? " "+LEFT(RIGHT(a,8),4)+REPL("*",10) FONT " 隶书 ",20 style 'BI'? AT(t,a), AT(t,a,3), AT(a,t)? REPL("*",5)+STUFF(LEFT(a,8),1,4," 五个 ")+REPL("*",5) _SCREEN.FONTSIZE=12 3. 常用日期和时间函数? DATE(),TIME(),DATETIME() d=date() t=datetime()? YEAR(d),MONTH(d),DAY(d)? hour(t),minute(t),sec(t)? dow(d),cdow(d) 4. 常用数据类型转换函数 STORE TO s? "s="+str(s,8,2),str(-s,9,3),str(-s,3),str(s,6),str(s)? VAL("Computer"),VAL("-255.3abc"), VAL("12.3e2abc") Visual FoxPro 程序设计实践

19 实验 3 常用函数使用 13? " 内存变量 s 的值为 ",s? " 内存变量 s 的值为 ",alltrim(str(s)) && 请注意与上一行命令的区别, 作? " 内存变量 s 的值为 "+alltrim(str(s))? LOWER("Computer"),UPPER("Computer" ) 用是控制格式? CTOD("10/20/11")+30? " 今天的日期是 :"+DTOC(DATE())? " 今年是 "+RIGHT(DTOC(DATE()),2)+" 年!"? " 今年是 "+LEFT(DTOC(DATE(),1),4)+" 年!" *** 以下 10 行命令序列是利用字符串处理及转换函数实现 : 输入任一五位自然数, 反序输出及按位求和 请仍然输入 , 与之前显示结果对比 *** CLEAR INPUT " 请输入任一个五位自然数 :" TO x k=alltrim(str(x)) a1=substr(k,1,1) a2=substr(k,2,1) a3=substr(k,3,1) a4=substr(k,4,1) a5=substr(k,5,1)? " 自然数 "+k+" 的反序数为 :",VAL(a5+a4+a3+a2+a1)? " 自然数 "+k+" 各数位之和为 :,VAL(a1)+VAL(a2)+VAL(a3)+VAL(a4)+ VAL(a5) 5. 测试函数及系统对话框函数 m=89 a="vfp" c=3>5? VARTYPE(m), VARTYPE(c), VARTYPE(a), VARTYPE(date())? " 自然数 "+ALLTRIM(STR(m))?? IIF(m%2=0," 是偶数!"," 是奇数!") k=int(rand()*1000)? " 自然数 "+ALLTRIM(STR(m))?? IIF(m%2=0," 是偶数!"," 是奇数!") *** 请将以上 3 行命令序列重复执行多次, 观察得到的不同显示结果 *** MESSAGEBOX(" 排序后的学生成绩表已生成!",0+48," 学生成绩数据 ") yes= MESSAGEBOX(" 是否删除成绩为不及格记录?",4+32," 成绩数据 ")? yes y=getfont()? y 科学出版社职教技术出版中心

20 14 上篇 VFP 程序设计实验 3.3 实验要求 GETCOLOR() k=getfont()? k 请完成以下要求 ( 上机前应事先写出命令序列 ): 1 随机产生 1 个 100 以内的自然数, 判断其奇偶性 要求至少实现 5 次 2 随机产生 1 个 100~500 之间的自然数, 判断是否含有数字 7 要求用两种方法分别实现, 至少操作 5 次 3 利用 IIF 和 RAND 函数实现 : 随机产生 1 个 4 位自然数, 作为年份判断是否是闰年 要求至少实现 5 次 Visual FoxPro 程序设计实践

21 4.1 实验目的 1) 理解数据表的设计 2) 掌握数据表结构的建立方法 3) 掌握数据表中数据输入的方法, 包括备注字段和通用字段 4.2 实验内容请使用 表设计器 新建一个自由表 学生档案表 xsdab.dbf, 表结构如实验表 4.1 所示, 表数据如实验表 4.2 所示 实验表 4.1 学生档案表 xsdab.dbf 的结构设计 字段名 类型 宽度 小数位 字段名 类型 宽度 小数位 学号 字符型 (C) 11 专业 字符型 (C) 12 姓名 字符型 (C) 8 入学成绩 数值型 (N) 6 性别字符型 (C) 2 1 党员否逻辑型 (L) 1 1 出生日期日期型 (D) 8 照片通用型 (G) 4 籍贯字符型 (C) 10 实验表 4.2 学生档案表 xsdab.dbf 简历备注型 (M) 4 学号姓名性别出生日期籍贯专业入学成绩党员否 张曦予女 重庆沙坪坝计算机科学 F 王鑫男 云南昆明汉语言文学 T 刘畅女 重庆渝北艺术设计 F 张璐璐女 四川宜宾计算机科学 528.F. 科学出版社职教技术出版中心 梅心怡女 广西桂林艺术设计 F 王颖女 山东青岛艺术设计 T 粟欣欣女 云南丽江计算机科学 515.F 欧阳云飞男 四川广安计算机科学 T 张煜文女 重庆北碚艺术设计 T 施佳明男 湖北襄樊计算机科学 F. 说明为了今后操作方便, 我们将使用默认目录 请先在 D 盘根目录建立一个名为 VFP 的目录, 然后, 在 VFP 系统中, 使用实验 1 介绍的方法, 将 D:\VFP 设置为今后操作的默认目录, 使得操作时省略路径, 自动将所有文件均保存在该目录中

22 16 上篇 VFP 程序设计实验 操作步骤如下 第 1 步 : 选择 文件 菜单下的 新建 功能, 在弹出的 新建 对话框中选择文件类型为 表 选项, 如实验图 4.1 所示, 单击 新建文件 按钮, 弹出 创建 对话框, 将文件保存在已建好的 D:\VFP 文件夹下, 表文件名为 xsdab.dbf, 如实验图 4.2 所示 实验图 4.1 新建 对话框 实验图 4.2 创建 对话框 第 2 步 : 单击 保存 按钮, 则打开 表设计器, 按学生档案表 xsdab.dbf 的结构 要求, 依次正确输入或选择各字段的名称 类型及宽度, 如实验图 4.3 所示 实验图 4.3 表设计器 对话框第 3 步 : 单击 确定 按钮, 完成表结构的设计 将弹出 是否输入记录 对话框, 单击 是 按钮 第 4 步 : 进入录入数据的编辑窗口, 按实验表 4.2 中记录数据的顺序, 依次录入所有数据, 如实验图 4.4 所示 各记录按字段顺序依次输入实验表 4.2 中的对应数据 输入每条记录的通用型字段数据时, 可双击其 Gen, 弹出 xsdab. 照片 窗口, 然后通过剪贴板粘贴图形, 或选择 编辑 菜单下的 插入对象 功能建立对象, 单击窗口的 关闭 按钮保存 ; 输入备注型字段数据时, 双击其 Memo, 弹出 xsdab. 简历 窗口, 在此窗口中输入备注信 Visual FoxPro 程序设计实践

23 实验 4 建立自由表 17 息, 单击窗口的 关闭 按钮保存, 如实验图 4.4 所示 实验图 4.4 数据录入窗口 说明 在我们的计算机基础教学网站 中提供的是相应的图片素材, 供读者使用 第 5 步 : 所条记录的数据输入完毕, 单击编辑窗口的 关闭 按钮保存数据表文件 请采用同样的方法, 建立课程表 kcb.dbf 学生成绩表 cjb.dbf 和奖学金表 jxj_1.dbf, 表结构及数据如实验表 4.3 实验表 4.4 和实验表 4.5 所示 说明 1 各表表头中的 学号 /C/11 表示含义为 : 字段名称 类型 宽度 ; 2 奖学金表 jxj_1.dbf 中的 成绩平均分 总评分 和 奖学金等级 数据现在不录入, 留 待今后操作时使用替换命令 REPLACE 完成 实验表 4.3 课程表 kcb.dbf 科学出版社职教技术出版中心 课程代码 /C/3 课程名称 /C/20 学时 /N/3 学分 /N/2 010 大学计算机基础 大学英语 大学语文 程序设计 实验表 4.4 学生成绩表 cjb.dbf 学号 /C/11 课程代码 /C/3 学期 /C/2 成绩 /N/6/1 重考成绩 /N/6/

24 18 上篇 VFP 程序设计实验 续表 学号 /C/11 课程代码 /C/3 学期 /C/2 成绩 /N/6/1 重考成绩 /N/6/ 实验表 4.5 奖学金表 jxj_1.dbf 学号 /C/11 姓名 /C/8 成绩平均分 /N/5/1 社会活动分 /N/5/1 获奖加分 /N/5/1 总评分 /N/5/1 奖学金等级 /C/ 张曦予 王鑫 刘畅 张璐璐 梅心怡 王颖 粟欣欣 欧阳云飞 张煜文 施佳明 实验要求 请正确建立本实验中的 4 张数据表, 供今后操作使用 Visual FoxPro 程序设计实践

25 5.1 实验目的 1) 掌握数据表打开 关闭的基本方法 2) 掌握浏览数据表的操作方法 3) 掌握记录指针定位的操作方法 4) 掌握记录的增加 删除和修改的操作方法 5) 掌握数据表结构复制 记录复制以及数据表结构修改的操作方法 5.2 实验内容在命令窗口中, 正确输入并执行以下各部分的命令 每执行一条命令, 请注意观察显示结果, 并正确理解其含义 1. 数据表的打开 关闭 记录指针定位及浏览操作 说明 1 在 VFP 系统命令窗口中, 输入命令难免会出错 由于 VFP 系统对于命令窗口中输入的命令 具有记忆功能, 若出现这种情形, 可将光标 ( 插入点 ) 定位于出错位置进行修改, 该命令正确部分不必重新输入, 改错完毕按 Enter 键即重新执行该命令 ; 2 对于数据表的操作, 一条命令可多次执行 对于某些命令, 若再次执行, 可能结果会发生变化, 请特别注意当前的操作状态和每条命令的不同功能 比如, 假设一个数据表的当前记录为第 2 条记录, 执行 LIST NEXT 2 命令后, 记录指针已指向第 3 条, 再执行该命令, 显示内容就不同了 ; 3 命令中以符号 && * 开头的部分为注释内容, 不必输入 USE xsdab DISP LIST && 打开学生档案表文件, 默认首记录为当前记录 && 在 VFP 系统窗口中只显示第 1 条记录内容 && 在系统窗口中显示所有记录, 如实验图 5.1 所示 科学出版社职教技术出版中心 实验图 5.1 用 LIST 命令在系统窗口中的显示结果

26 20 上篇 VFP 程序设计实验 BROWSE && 以浏览窗口显示所有记录, 如实验图 5.2 所示 实验图 5.2 用 BROWSE 命令看到的浏览结果 USE cjb && 打开成绩表文件, 自动关闭学生档案表 BROWSE USE kcb && 打开课程表文件, 自动关闭成绩表 BROWSE USE jxj_1 && 打开奖学金表文件, 自动关闭课程表 BROWSE CLEAR USE xsdab && 重新打开学生档案表件 LIST NEXT 3 && 在 VFP 系统窗口中显示前 3 条记录内容 DISP && 显示当前记录 ( 即第 3 条记录 ) 内容 GO 5 && 将第 5 条记录置为当前记录 SKIP 3 && 记录指针移动到第 8 条记录 DISP && 显示当前记录即第 8 条记录内容 SKIP && 记录指针移动到下一条 ( 即第 9 条 ) 记录 DISP && 显示当前记录即第 9 条记录内容? bof(),eof(),recno() && 显示当前记录号 是否文件结束 文件开始 GO top? bof(),eof(),recno() SKIP -1? bof(),eof(),recno() GO bottom? bof(),eof(),recno() SKIP? bof(),eof(),recno()? 学号, 姓名, 出生日期, 专业 && 显示当前记录各字段名变量的值 LIST FOR 姓名 =" 张 " OR 专业 =" 计算机 " && 显示姓张的或专业为计算机科学的所有记录 LIST FOR 姓名 =" 张 " AND 专业 =" 计算机 " Visual FoxPro 程序设计实践

27 实验 5 数据表的基本操作 1 21 LIST FOR 出生日期 >={^ } AND 入学成绩 >=500 && 显示姓张的且专业为计算机科学的所有记录 && 显示 1990 年以后出生的且入学成绩在 500 分以上的记录内容 GO 5 LIST REST OFF FOR 党员否 FIELDS 学号, 姓名, 性别, 出生日期, 党员否 && 显示 5 号记录以后的党员的指定字段内容, 不显示记录号 USE 2. 数据表结构的修改 复制及表记录的复制操作 USE xsdab MODI STRU && 打开表设计器, 可修改表结构 COPY STRU TO xsdab1 FIELDS 学号, 姓名, 性别, 出生日期, 专业, 籍贯 USE xsdab1 LIST STRU && 在 VFP 系统窗口中显示表结构 USE xsdab COPY TO xsdab2 && 复制档案表所有记录生成新表 xsdab2.dbf COPY TO xsdab3 FOR "6"$ 学号 && 复制学号中含有 6 的记录生成新表 xsdab3.dbf COPY TO xsdab4 FOR RIGHT( 学号,1)= "3" && 复制学号中尾数为 3 的记录生成新表 xsdab4.dbf COPY TO xsdab5 FOR 性别 =" 女 " FIELDS 姓名, 性别, 专业, 出生日期 && 复制性别为女的记录的指定字段生成新表 xsdab5.dbf USE xsdab2 LIST USE xsdab3 BROWSE USE xsdab4 BROWSE USE xsdab5 BROWSE CLOSE ALL USE 3. 表记录数据的替换操作 科学出版社职教技术出版中心 *** 请特别注意替换命令的使用 *** USE xsdab2 REPLACE ALL 入学成绩 WITH 入学成绩 *1.1 将刚才复制生成的表 xsdab.dbf 中所有学生的入学成绩增加 10% BROWSE

28 22 上篇 VFP 程序设计实验 REPLACE 姓名 WITH ALLTRIM( 姓名 )+" 鑫 " FOR 姓名 =" 王鑫 " 修改表 xsdab.dbf 中某学生的姓名 REPLACE 学号 WITH STUFF( 学号,5,2,"88") FOR 专业 =" 计算机科学 " 将计算机科学专业学生学号的专业代码修改为 88 BROWSE USE 4. 表记录的增加 删除和修改的操作 USE xsdab2 REPLACE ALL 入学成绩 WITH 入学成绩 /1.1 REPLACE 学号 WITH STUFF( 学号,5,2,"05") FOR 专业 =" 计算机科学 " *** 上面 2 条命令为还原刚才修改的数据 *** APPEND && 弹出表记录编辑窗口, 在表末尾追回记录 USE cjb USE xsdab GO 9 SCATTER TO k && 将当前记录的字段值传送到一个数组? k(1),k(2),k(3),k(6),k(7) && 将数组元素的值 DIMENSION m(6) && 定义一个数组 m(1)=" " m(2)=" 慕容菲菲 " m(4)={^ } m(5)=" 计算机科学 " APPEND BLANK && 在表尾追加一条空白记录 GATHER FROM m && 将数组 m 各元素值传送到空白记录中 BROWSE && 浏览效果如实验图 5.3 所示 实验图 5.3 数组数据传送到表当前记录的效果 USE xsdab2 DELETE ALL FOR 入学成绩 <500 BROWSE && 逻辑删除入学成绩 500 分以下记录 && 浏览结果如实验图 5.4 所示 Visual FoxPro 程序设计实践

29 实验 5 数据表的基本操作 1 23 实验图 5.4 对满足条件的记录进行逻辑删除后的结果 DELETE ALL FOR NOT 党员否 BROWSE PACK USE xsdab4 ZAP BROWSE CLOSE ALL && 逻辑删除非党员的所有记录 && 物理删除带删除标记的所有记录 && 清空表 xsdab4.dbf && 浏览表, 只有一个空结构, 没有记录 5.3 实验要求 请按以下要求进行操作 ( 请上机前写出命令序列 ): 1 先备份, 建立名为 zgxsdab.dbf 文件 2 对表 zgxsdab.dbf 完成以下操作 : 显示 1991 年以后出生的所有记录 显示女生中年龄为 21 和 22 岁的记录 复制非党员的所有记录, 生成一个新的表文件, 文件名为 zgfdy.dbf 复制 1990 以后出生的所有记录到新表文件 gz1990.dbf 中, 要求只包含姓名 性别 出生日期 籍贯 专业字段 将所有记录的入学成绩加 10 分 在第 5 条记录之后插入一条新记录, 对应各字段数据自定 科学出版社职教技术出版中心

30 6.1 实验目的 1) 掌握数据表记录的物理排序操作方法 2) 理解索引的概念, 掌握建立索引的操作方法 3) 掌握数据表中记录进行查询的方法 4) 掌握对数据表进行统计计算的操作方法 6.1 实验内容在命令窗口中, 正确输入并执行以下各部分的命令 每执行一条命令, 请注意观察显示结果, 并正确理解其含义 1. 数据表的物理排序操作 USE xsdab SORT TO pxsjb ON 专业 /D, 学号 /A && 按专业降序排序, 专业相同时按学号升序排序生成新表 pxsjb.dbf USE pxsjb BROWSE && 打开产生的排序新表 2. 数据表的索引操作 USE xsdab INDEX ON 学号 TO xhdab LIST && 按学号升序建立单索引 *** 所有的非党员记录按专业升序, 专业相同时按出生日期升序建立单索引文件 *** INDEX ON 专业 +DTOC( 出生日期,1) TO zycsrq FOR! 党员否 && 所有非党员记录按专业升序, 专业相同时按出生日期升序建立单索引 LIST CLEAR USE xsdab && 清除系统窗口中原来显示内容 INDEX ON 专业 +STR(100-(YEAR(DATE())-YEAR( 出生日期 )),2)+ 学号 TAG zyrqxh clear LIST disp go top disp && 所有的记录按专业升序 年龄降序 学号升序建立结构复合索引

31 实验 6 数据表的基本操作 2 25 go 1 disp skip disp go bottom disp && 以上 10 行命令执行结果如实验图 6.1 所示, 请注意每条命令功能 CLOSE ALL && 关闭所有的数据表 USE xsdab INDEX xhdab && 打开表及索引,xhdab.idx 自动成主控索引 LIST SET INDEX TO zycsrq && 打开 zycsrq.idx 索引文件, 设置为主控索引 LIST SET ORDER TO zyrqxh && 设置 xsdab.cdx 的索引标识 zyrqxh 为主控索引 LIST USE 3. 数据表的查询操作 实验图 6.1 索引后的显示及记录定位效果图 科学出版社职教技术出版中心 *** 以下为在学生档案表 xsdab.dbf 中找出艺术设计专业的前 3 位学生记录 *** CLEAR USE xsdab LOCATE FOR 专业 =" 艺术设计 " DISPLAY && 显示记录号为 3 的 刘畅 的各项信息? RECNO(),FOUND(),EOF() CONTINUE DISPLAY && 显示记录号为 5 的 梅心怡 的各项信息

32 26 上篇 VFP 程序设计实验? RECNO(),FOUND(),EOF() CONTINUE DISPLAY && 显示记录号为 6 的 王颖 的各项信息? RECNO(),FOUND(),EOF() USE xsdab INDEX ON 姓名 TAG xm && 按姓名建立结构复合索引 FIND 张 && 索引查询姓张的首记录 LIST WHILE 姓名 =" 张 " && 显示姓张的所有记录 (3 条 ) INDEX ON RIGHT( 学号,2) + 性别 TAG xhxb SEEK "88"+" 女 " && 按表达式值进行索引查询 c=" 学号尾数为 88 的女学生记录!"? IIF(FOUND()," 有 "+c," 没有 "+c) && 显示有无满足条件的提示信息 DISPLAY SET NEAR ON *** 当找不到满足条件记录时, 记录指针将定位于索引值大于查找内容的第 1 条记录 ( 升序 ) *** INDEX ON DTOC( 出生日期,1) TAG csrq SEEK "1991" DISPLAY REST && 显示记录号为 的各项信息 SET NEAR OFF USE 4. 数据表的统计操作 *** 以下为统计表 xsdab.dbf 中 1990 年以后出生的人数 党员人数 *** USE xsdab _SCREEN.FONTSIZE=16 && 设置系统窗口显示内容字号为 14 磅 COUNT FOR YEAR( 出生日期 )>=1990 TO n && 状态栏显示 8 记录? "1990 年以后出生的有 "+ALLTRIM(STR(n))+" 人!" COUNT TO m FOR 党员否? " 总共有 ", m, " 个党员!" *** 以下为按入学成绩求和 ; 计算机科学专业学生按年龄求和入学成绩求和 *** SUM SET TALK OFF SUM YEAR(DATE())-YEAR( 出生日期 ), 入学成绩 TO a,b FOR 专业 =" 计算机 "? " 计算机科学专业学生年龄之和为 :"+ALLTRIM(STR(a))? " 计算机科学专业学生入学成绩总和为 :"+LTRIM(STR(b)) SET TALK ON *** 以下为按入学成绩求平均 ; 计算机科学专业学生按年龄求入学成绩求平均值 *** AVERAGE SET TALK OFF Visual FoxPro 程序设计实践

33 实验 6 数据表的基本操作 2 27 AVER YEAR(DATE())-YEAR( 出生日期 ), 入学成绩 TO pa,pb FOR 专业 =" 计算机 "? " 计算机科学专业学生平均年龄为 :"+ALLTRIM(STR(pa))? " 计算机科学专业学生入学成绩平均为 :"+LTRIM(STR(pb)) SET TALK ON *** 以下为求入学成绩的最高分 最低分 平均分 总和 ; 求女学生入学成绩最高分 最低分 平均分 总和 *** k=" 入学成绩 "? " 入学成绩各项值 :" FONT " 楷体 ",20 STYLE "BI" && 设置当前显示内容的字体 字号和字型 CALCULATE MAX(&k),MIN(&k),AVG(&k),SUM(&k)? " 女生入学成绩的各项值 :" FONT " 隶书 ",20 SET TALK OFF CALC MAX(&k),MIN(&k),AVG(&k),SUM(&k) FOR 性别 =" 女 " TO m1,m2,m3,m4? " 最高分 :"+ALLTRIM(STR(m1,10,2)), " 最低分 :"+ALLTRIM(STR(m2,10,2)), " 平均分 :"+ALLTRIM(STR(m3,10,2)), " 总和 :"+ALLTRIM(STR(m4,10,2)) SET TALK ON *** 以下为按专业进行分类汇总, 生成汇总表文件 zyhz.dbf *** INDEX ON 专业 TAG zy TOTAL TO zyhz ON 专业 USE zyhz BROWSE CLOSE ALL 6.3 实验要求 对于学生档案表 xsdab.dbf, 按以下要求进行操作 ( 请上机前写出命令序列 ): 1 按专业建立单索引文件 zydab.idx, 按性别升序 出生日期降序建立结构复合索引, 索引标识为 xbrq 在系统窗口中分别显示建立索引后的所有记录 2 顺序查找 : 所有年龄小于 22 岁的学生记录, 显示查找结果 3 结构复合索引查找 : 查找性别为女 专业代码为 "05" 的所有记录, 显示查找结果 对于学生成绩表 cjb.dbf, 按以下要求进行操作 1 成绩在 80 分以上记录进行降序排序, 生成一个新的表文件 pxcjb.dbf, 要求只有学号 课程代码 学期 成绩字段 浏览新的表文件内容 2 求专业代码为 "05" 的所有记录的成绩的总和 平均值 科学出版社职教技术出版中心

34 7.1 实验目的 1) 理解工作区的概念 2) 掌握选择工作区的命令 3) 掌握数据表之间的关联及多表操作 7.2 实验内容在命令窗口中正确输入并执行以下命令 请注意观察显示结果, 并正确理解其含义 1. 多工作区操作 SELECT 1 USE xsdab GO 5 DISP SELECT B USE cjb SKIP 2 DISP SELECT 0 USE kcb LIST SELECT 4 USE jxj_1 LIST SELECT 1? 学号, xsdab. 姓名, 专业, b. 学期, cjb. 课程代码, cjb-> 成绩, d. 社会活动分 2. 表间的关联及多表操作 *** 以下是使用多工作区及关联, 利用表 jxj_1.dbf cjb.dbf 计算 张曦予 的成绩平均分 总评分和奖学金等级, 并显示所有学生的学号 姓名 出生日期 籍贯 专业 平均成绩分 社会活动分 获奖加分 总评分和奖学金等级数据 其中, 平均成绩分为所选课程的平均值, 总评分为平均成绩分占 50% 社会活动分占 30% 获奖加分占 20%, 奖学金等级写入 :90 分以上为 优秀, 否则为 不优 *** SET TALK OFF CLEAR ALL

35 实验 7 多表操作 29 CLEAR SELECT 1 USE xsdab LOCATE FOR 姓名 =" 张曦予 " xh= 学号 INDEX ON 学号 TAG xhsy SELECT 2 USE cjb AVERAGE 成绩 FOR 学号 =xh TO m SELECT 3 USE jxj_1 REPLACE ALL 成绩平均分 WITH m FOR 学号 =xh REPLACE ALL 总评分 WITH 成绩平均分 *0.5+ 社会活动分 *0.3+ 获奖加分 *0.2 FOR 学号 =xh LOCATE FOR 学号 =xh a=iif(found() AND 总评分 >=90, " 优秀 "," 不优 ") REPLACE ALL 奖学金等级 WITH a FOR 学号 =xh SET RELATION TO 学号 INTO xsdab LIST 学号,a. 姓名,xsdab. 出生日期,a. 籍贯,a. 专业, 成绩平均分, 社会活动分, 获奖加分, 总评分, 奖学金等级 SET RELATION TO CLOSE ALL SET TALK ON 正确执行以上命令后, 系统窗口显示结果如实验图 7.1 所示 7.3 实验要求 实验图 7.1 多表操作关联后的结果 科学出版社职教技术出版中心 请按以下要求进行操作 ( 请上机前写出命令序列 ): 1 分别在 4 个工作区中打开学生档案表 成绩表 课程表和奖学金表, 要求在数据工作期窗口中浏览其所有记录 2 利用多表关联, 参照上述操作命令, 计算出所有学生的成绩平均分 总评分和奖学金等级

36 8.1 实验目的 1) 掌握建立数据库的方法 2) 掌握数据库表之间建立永久关系的方法 3) 掌握数据库表完整性的设置方法 4) 掌握数据库表完整性约束规则 ( 即字段级和记录级有效性规则 ) 的设置方法 5) 掌握数据库表参照完整性约束规则的设置方法 8.2 实验内容 1. 数据库及表间永久关系的创建在已建 学生档案管理系统.pxj 项目中, 设计一个学籍管理数据库, 文件名为 xjglk.dbc 将学生档案表 成绩表 课程表和奖学金表添加到数据库中, 建立表间的永久关系 操作方法如下 : 第 1 步, 打开 学生档案管理系统.pjx 项目文件 第 2 步, 选择 数据 选项卡, 选择 数据库, 单击 新建 按钮, 在弹出的 新建数据库 对话框中单击 新建数据库 按钮, 在弹出的 创建 对话框中输入数据库名为 xjglk.dbc, 单击 保存 按钮, 弹出如实验图 8.1 所示的数据库设计器窗口 实验图 8.1 数据库设计器与建立表间的永久关系第 3 步, 选择 数据库 菜单下的 添加表 功能或单击 数据库设计器 工具栏上的 添加表 按钮, 将 xsdab.dbf 添加到当前数据库设计器中, 同样的方法, 将 cjb.dbf kcb.dbf 和 jxj_1.dbf 添加到当前数据库设计器中, 如实验图 8.1 所示

37 实验 8 数据库的基本操作 31 第 4 步, 右击学生档案表 xsdab.dbf, 选择 修改 功能, 弹出其表设计器, 按学号建立索引, 并在 索引 选项卡中设置为主索引 同样的方法, 对于成绩表 cjb.dbf, 按学号建立普通索引, 对于奖学金表 jxj_1.dbf, 按学号建立普通索引 ( 实验图 8.2) 第 5 步, 数据库设计器中, 拖动表 xsdab.dbf 的主索引标识到 cjb.dbf 表的索引标识处, 则建立了 xsdab.dbf 与 cjb.dbf 表之间的永久关系 同样的方法, 建立 xsdab.dbf 与 jxj_1.dbf 表之间的永久关系, 如实验图 8.1 所示 实验图 8.2 建立奖学金表的普通索引 2. 数据库表的字段属性及字段级规则设置操作 我们以数据库 xjglk.dbc 中的表 xsdab.dbf 为例, 来说明如何设置数据库表的字段属 性及字段级规则 打开如实验图 8.1 所示的 xjglk.dbc 数据库设计器, 按如下方法进行操作 : 第 1 步, 右击表 xsdab.dbf, 选择 修改 功能弹出其表设计器, 如实验图 8.3 所示 第 2 步, 单击 性别 字段项, 在 标题 文本框中输入 学生性别 默认值 文本框中输入 " 女 " 规则 文本框中输入 性别 =" 男 " OR 性别 =" 女 " 信息 文 本框中输入 " 性别只能是男或女, 请重新输入!", 如实验图 8.3 所示 第 3 步, 单击 确定 按钮, 返回实验图 8.1 所示界面, 完成设置 科学出版社职教技术出版中心 实验图 8.3 数据库表的字段属性及字段级规则设置 在如实验图 8.1 所示的 xjglk.dbc 数据库设计器中, 右击表 xsdab.dbf, 选择 浏览

38 32 上篇 VFP 程序设计实验 功能, 在弹出的浏览窗口中看看性别字段的标题变化没有? 修改某记录的性别为其他文字, 看看是否可行? 3. 数据库表的记录级规则及触发器设置操作我们仍然以数据库 xjglk.dbc 中的表 xsdab.dbf 为例, 来说明如何设置数据库表的记录级规则及触发器 打开如实验图 8.1 所示的 xjglk.dbc 数据库设计器, 按如下方法进行操作 : 第 1 步, 右击表 xsdab.dbf, 选择 修改 功能弹出其表设计器, 如实验图 8.3 所示 第 2 步, 选择 表 选项卡, 在 表名 文本框中输入 学生档案表 第 3 步, 在 规则 文本框中输入 IIF(xsdab. 出生日期 <{^ },.T.,.F.) 信息 文本框中输入 " 违反了记录级规则!" 删除触发器 文本框中输入 性别 = " 女 ", 如实验图 8.4 所示 第 4 步, 单击 确定 按钮, 返回实验图 8.1 所示界面, 完成设置 实验图 8.4 数据库表的字段属性及字段级规则设置在如实验图 8.1 所示的 xjglk.dbc 数据库设计器中, 右击表 xsdab.dbf, 选择 浏览 功能, 在弹出的浏览窗口中, 修改某记录的出生日期为 2008 年 5 月 5 日, 看看是否可行? 逻辑删除性别为女的记录, 是否可行? 4. 数据库表的参照完整性设置操作我们仍然以数据库 xjglk.dbc 为例, 来说明如何设置数据库表之间的参照完整性 打开如实验图 8.1 所示的 xjglk.dbc 数据库设计器, 按如下方法进行操作 : 第 1 步, 选择 数据库 菜单下的 清理数据库 功能, 将数据库表中作删除标记的记录清除掉 第 2 步, 选择 数据库 菜单下的 编辑参照完整性 功能, 弹出 参照完整性生成器 对话框, 如实验图 8.5 所示 第 3 步, 选择 更新规则 选项卡, 单击 级联 单选项, 在表格中, 将父表 xsdab.dbf 与子表 cjb.dbf 间的 更新 规则设置为 级联 删除 规则设置为 级 Visual FoxPro 程序设计实践

39 实验 8 数据库的基本操作 33 联 插入 规则设置为 限制, 如实验图 8.5 所示 第 4 步, 采用同样的方法, 设置父表 xsdab.dbf 与子表 jxj_1.dbf 间的 更新 规则 为 级联 删除 规则为 级联 插入 规则为 限制 第 5 步, 单击 确定 按钮, 弹出询问对话框 第 6 步, 单击 是 按钮, 再弹出询问是否生成新的参照完整性代码的对话框时, 也单击 是 按钮, 完成参照完整性的设置 实验图 8.5 设置参照完整性的规则 在 数据库设计器 中, 先双击 xsdab.dbf, 弹出其浏览窗口, 再双击 cjb.dbf, 又弹 出其浏览窗口, 将 xsdab.dbf 中 王颖 的学号由 修改为 欧阳云飞 的学号由 修改为 , 单击 cjb.dbf, 立即可以 看到对应值被自动更新, 如实验图 8.6 所示 若修改 cjb.dbf 中某记录的学号, 单击其浏 览窗口之外, 则系统马上报 触发器失败 错误 科学出版社职教技术出版中心 实验图 8.6 数据库表间的更新级联效果

40 34 上篇 VFP 程序设计实验 请用户看到自动更新效果后, 将数据修正为原来的值 同样的, 若对 xsdab.dbf 进行逻辑删除, 则 cjb.dbf 对应记录也会自动加上删除标记 插入 中的 限制 规则, 是指如果父表中没有相匹配的连接字段值则禁止插入子记录 比如, 在 cjb.dbf 中追加一条新记录, 当离开这条记录时, 插入规则就马上报 触发器失败 错误 8.3 实验要求请按以下要求进行操作 : 1 将成绩表 cjb.dbf 的成绩字段默认值设置为 0 字段有效性规则介于 0~100 范围内 2 将奖学金表 cjb.dbf 的记录有效性规则设置为 : 社会活动分 获奖加分均介于 0~ 100 范围内 Visual FoxPro 程序设计实践

41 9.1 实验目的 1) 掌握使用查询设计器与查询向导创建各种不同类型的查询 2) 掌握使用视图设计器与视图向导创建视图 3) 比较查询与视图的异同之处 4) 学会使用查询与视图的相关设置 9.2 实验内容 1. 使用查询设计器创建并使用查询 (1) 使用查询设计器, 在 xjglk 数据库中, 查询学生姓名 专业和奖学金等级, 并 保存为查询文件 cx1.qpr 请按如下步骤进行操作 : 第 1 步, 使用 查询设计器 创建一个查询, 将数据表 xsdab.dbf 和 jxj_1.dbf 添加 到查询设计器中 第 2 步, 按要求, 选择所需字段, 如实验图 9.1 所示 实验图 9.1 在 字段 选项卡选择字段 第 3 步, 在 联接 选项卡中, 设置两个表的联接条件, 可以看出, 由于表在数据 库中已建立永久关系, 联接条件已设置好, 如实验图 9.2 所示 第 4 步, 查询设计完毕, 在工具栏中单击! 按钮, 或选择 查询 菜单中的 运 行查询 功能, 或在查询保存 ( 第 5 步 ) 后, 在命令窗口中执行 DO QUERY < 查询文件 名 > 查看所设计的查询 科学出版社职教技术出版中心

42 36 上篇 VFP 程序设计实验 实验图 9.2 在 联接 选项卡中设置联接条件 第 5 步, 单击常用工具栏中的 保存 图标, 或单击 文件 菜单中的 另存为 命令, 或直接关闭查询设计器, 根据提示, 将此查询以文件名 cx1qpr 保存 (2) 使用其他方式创建 (1) 中的查询 详细步骤参见主教材 方式 1, 选定 项目管理器 中的 数据 选项卡, 选择 查询, 单击 新建 按钮, 弹出新建查询对话框, 从中选择 新建查询 按钮, 即可进入查询设计器窗口 方式 2, 使用命令 :CREATE QUERY < 查询文件名 > 方式 3, 选择 工具 菜单中 向导 功能下的 查询 功能, 利用查询向导完成 (3) 在 xjglk 数据库中, 查询成绩大于或等于 60 分的同学的姓名 课程名称和成绩 按姓名升序排序, 姓名相同的情况下, 按成绩降序排序 将此查询保存为 cx2.qpr 第 1 步, 使用 查询设计器 创建一个查询, 将数据表 xsdab.dbf kcb 和 cjb 添加到查询设计器中 第 2 步, 根据要求, 在 字段 选项卡中选中所需字段 第 3 步, 在 联接 选项卡中, 可以看到联接已建立, 如实验图 9.3 所示 实验图 9.3 在 联接 选项卡中建立联接 第 4 步, 根据要求, 设置 筛选 选项卡, 如实验图 9.4 所示 第 5 步, 对 排序依据 选项卡进行设置, 如实验图 9.5 所示 第 6 步, 保存并运行此查询 Visual FoxPro 程序设计实践 实验图 9.4 在 筛选 选项卡中设置筛选条件

43 实验 9 数据库的查询和视图 37 实验图 9.5 在 排序依据 选项卡中设置排序条件 (4) 在 xjglk 数据库中, 查询学生姓名 平均成绩和考试科目数 将此查询保存为 cx3.qpr 第 1 步, 创建查询, 并添加表 第 2 步, 设置 字段 选项卡 在 函数和表达式 处输入 AVG( 成绩 ) 后单击 添加, 再输入 COUNT(*) 并添加, 如实验图 9.6 所示 第 3 步, 设置 联接 选项卡 第 4 步, 在 分组依据 选项卡中, 选择 学号 字段并 添加 第 5 步, 保存此查询并运行 实验图 9.6 排序依据 选项卡 (5) 查看文件 cx3.qpr 中, 平均成绩排名前三的学生信息 保存为 cx4.qpr 第 1 步, 使用 文件 菜单中的 打开 功能, 或使用命令 MODIFY QUERY < 查 询文件名 >, 打开 cx3.qpr 第 2 步, 在查询设计器中选择 排序依据 选项卡, 按 AVG( 成绩 ) 降序排序 第 3 步, 设置 杂项 选项卡, 如实验图 9.7 所示 第 4 步, 保存并运行此查询 第 5 步, 在 联接 选项卡中, 可以看到联接已建立, 如实验图 9.3 所示 第 6 步, 根据要求, 设置 筛选 选项卡, 如实验图 9.4 所示 第 7 步, 对 排序依据 选项卡进行设置, 如实验图 9.5 所示 第 8 步, 保存并运行此查询 (6) 打开 cx1.qpr, 将查询结果分别存为同名表文件和文本文件 第 1 步, 打开 cx1.qpr, 选择 查询 菜单中的 查询去向 命令 科学出版社职教技术出版中心 第 2 步, 在弹出的 查询去向 窗口中, 单击 表 按钮, 在表名中输入 cx1, 再单击 确定 按钮, 即可将查询结果保存为 cx1.dbf, 如实验图 9.8 所示

44 38 上篇 VFP 程序设计实验 实验图 9.7 杂项 选项卡 实验图 9.8 将查询结果输出为永久表文件 第 3 步, 在弹出的 查询去向 窗口中, 单击 屏幕 按钮, 在 次级输出 中将 到文本文件 前的单选框选中, 在 到文本文件 后的文本框中输入文本文件名, 再单击 确定 按钮, 即可将查询结果保存为 cx1.txt, 同时屏幕上会输出查询结果, 如实验图 9.9 所示 实验图 9.9 将查询结果输出为文本文件 2. 使用视图设计器创建并使用视图 (1) 在 xjglk 数据库中, 创建名为 st1 的视图 视图中包括学号 姓名 课程代码 课程名称 成绩和重考成绩, 并按成绩降序排序 第 1 步, 选择 文件 菜单中 新建 功能, 或使用命令 CREATE VIEW 创建视图 第 2 步, 视图设计器操作基本与查询设计器操作相同, 按前面创建查询的实验步骤, 完成此视图 第 3 步, 视图不是独立的文件, 而是依赖于数据库而存在, 可在数据库设计器中看到, 如实验图 9.10 所示 在数据库设计器中双击 st1 标题栏, 或右击标题栏, 选择 浏览 功能, 可浏览该视图内容 (2) 设置修改 st1, 使得修改 cjb 和 st1 中任一 成绩 与 重考成绩 字段, 对方的相应字段会自动修改 在数据库设计器中, 右击 t1 标题栏, 选择 修改 功能, 弹出 视图设计器 对 更新条件 选项卡进行设置, 如实验图 9.11 所示 Visual FoxPro 程序设计实践

45 实验 9 数据库的查询和视图 39 实验图 9.10 ST1 视图依赖于数据库而存在 9.3 实验要求 实验图 9.11 设置 更新条件 选项卡 请按以下要求进行操作 ( 请上机前写出命令序列 ): 1 查询 xjglk 数据库中所有计算机专业学生的各项成绩, 包括学号 姓名 课程代 码 课程名称 成绩和重考成绩, 按升序学号排序 2 查询各专业学生的平均成绩, 包括专业名称 学生人数和平均分, 并按平均分 降序排序, 将其保存为永久表 3 查询参考人数大于一人的各门课程的平均分, 包括课程名称 参考人数和平均 分 按课程名称升序排序, 并将其保存为文本文件 4 建立视图, 查询第一学期的成绩, 包括姓名 学期 课程名称 成绩和重考成 绩 除姓名外, 其余字段均可更新 科学出版社职教技术出版中心

46 10.1 实验目的 1) 掌握 SQL 的定义功能, 包括表的定义与修改 2) 掌握 SQL 的操作功能, 包括表数据的插入 修改和删除功能 3) 使用 SQL SELECT 语句完成数据表的各种查询功能 10.2 实验内容本实验将以职工档案数据库 zgda.dbc 及其中的三张数据库表为例进行操作 这三张数据表的结构及数据内容如实验表 10.1~ 实验表 10.3 所示 实验表 10.1 职工信息表 (zgxxb.dbf) 编号 /C/4 姓名 /C/8 性别 /C/2 出生日期 /D 工作日期 /D 党员否 /L 简历 /M 照片 /G 0102 刘润华 男 07/09/53 09/01/73.T. MEMO GEN 0513 聂硕 男 03/16/77 07/01/00.F. MEMO GEN 0108 冉孟权 女 11/06/62 05/30/81.T. MEMO GEN 0216 李宇 女 08/15/70 07/02/92.T. MEMO GEN 0132 张清 男 02/28/75 06/30/96.F. MEMO GEN 0502 郑克 男 09/26/79 07/05/02.T. MEMO GEN 0206 向文莲 女 06/21/60 04/30/80.T. MEMO GEN 0507 周春艳 女 10/10/70 07/01/91.F. MEMO GEN 实验表 10.2 职工工资表 (zggzb.dbf) 编号 /C/4 统计月份 C/6 基本工资 /N/7/2 奖金 /N/7/2 水电 /N/7/2 扣税 /N/7/2 应发合计 /N/7/2 扣款合计 /N/7/2 实发合计 /N/7/

47 实验 10 SQL 语言操作 41 续表 编号 /C/4 统计月份 C/6 基本工资 /N/7/2 奖金 /N/7/2 水电 /N/7/2 扣税 /N/7/2 应发合计 /N/7/2 扣款合计 /N/7/2 实发合计 /N/7/ 实验表 10.3 部门表 (bmb.dbf) 部门代码 /C/2 部门名称 /C/10 01 计算机学院 02 文新学院 05 外语学院 1. 使用 SQL 语句定义表结构 在 VFP 命令窗口中输入如下命令并执行, 创建属于数据库 zgda 的 3 个表结构 CREATE DATABASE zgda MODIFY DATABASE zgda CREATE TABLE zgxxb( 编号 C(4), 姓名 C(8), 性别 C(2), 出生日期 D, 工作日期 D, 党员否 L, 简历 M, 照片 G) CREATE TABLE zggzb( 编号 C(4), 统计月份 C(6), 基本工资 N(7,2), 奖金 N(7,2), 水电 N(7,2), 扣税 N(7,2), 应发合计 N(7,2), 扣款合计 N(7,2), 实发合计 N(7,2),) CREATE TABLE bmb( 部门代码 C(2), 部门名称 C(10)) 2. 使用 SQL 语句插入与更新表记录 科学出版社职教技术出版中心 在 VFP 命令窗口中输入如下命令并执行, 输入表 zgxxb.dbf 中的第一条记录 : INSERT INTO zgxxb( 编号, 姓名, 性别, 出生日期, 工作日期, 党员否 ) VALUES("0102"," 刘润华 "," 男 ",{^ },{^ },T.) 使用同样命令完成表 zgxxb.dbf 中其他记录的输入 使用类似命令完成表 zggzb.dbf 和 bmb.dbf 所有记录的输入 3. 使用 SQL 语句修改表结构 在 VFP 命令窗口中, 请正确输入以下各要求之后的命令, 并按 Enter 键执行 (1) 将表 zgxxb.dbf 中的 性别 字段设置默认值 男, 并设置 字段规则 为 性

48 42 上篇 VFP 程序设计实验 别只能为 " 男 " 或 " 女 " ALTER TABLE zgxxb ALTER 性别 C(2) DEFAULT " 男 " CHECK 性别 =" 男 " OR 性别 =" 女 " (2) 在表 zgxxb.dbf 中添加一个 籍贯 字段, 字符型, 宽度为 20 位 ALTER TABLE zgxxb ADD 籍贯 C(20) (3) 设置表 zgxxb.dbf 中的 编号 为主索引, 索引名为 BH ALTER TABLE zgxxb ADD PRIMARY KEY 编号 TAG BH (4) 修改表 zgxxb.dbf 中的 姓名 字段名称为 职工姓名 ALTER TABLE zgxxb RENAME 姓名 TO 职工姓名 (5) 删除 (1)(2)(3)(4) 中添加或设置的内容 ALTER TABLE zgxxb ALTER 性别 DROP DEFAULT ALTER 性别 DROP CHECK DROP PRIMARY KEY DROP 籍贯 RENAME 职工姓名 TO 姓名 4. 使用 SQL 语句更新数据表根据表 zggzb.dbf 中内容, 更新应发合计 扣款合计和实发合计字段 在 VFP 命令窗口中正确输入并执行如下命令 : UPDATE zggzb SET 应发合计 = 基本工资 + 奖金, 扣款合计 = 水电 + 扣税, 实发合计 = 应发合计 - 扣款合计 5. 使用 SQL 语句查询数据表在 VFP 命令窗口中, 请正确输入以下各要求之后的命令, 并按 Enter 键执行 (1) 在 zgxxb 中, 查询年龄在 40 岁 ( 按年份计算 ) 以上的男性员工信息 SELECT * FROM zgxxb WHERE YEAR(DATE())-YEAR( 出生日期 )>=40 AND 性别 =" 男 " (2) 在 zgxxb 中, 查询出现过的性别 SELECT DISTINCT 性别 FROM zgxxb (3) 在 zggzb 中查询记录数, 最大实发合计 最小实发合计和平均实发合计 SELECT COUNT(*) AS 记录数,MAX( 实发合计 ) AS 最大实发合计,MIN( 实发合计 ) AS 最小实发合计,AVG( 实发合计 ) AS 平均实发合计 FROM zggzb (4) 在 zgxxb 中查询信息 先按性别降序排序, 性别相同按出生日期升序排序 SELECT * FROM zgxxb ORDER BY 性别 DESC, 出生日期 (5) 在 zgxxb 中, 按性别查询平均年龄和工龄 ( 按年份计算 ) SELECT 性别,AVG(YEAR(DATE())-YEAR( 出生日期 )) AS 平均年龄, Visual FoxPro 程序设计实践

49 实验 10 SQL 语言操作 43 AVG(YEAR(DATE())-YEAR( 工作日期 )) AS 平均工龄 FROM zgxxb GROUP BY 性别 (6) 查询 zggzb 中实发合计在 4000 元以上的基本工资等级 SELECT 基本工资 FROM zggzb GROUP BY 基本工资 HAVING 实发合计 >=4000 (7) 在 zggzb 中, 各员工的两月总收入, 并按降序排序 SELECT 编号,SUM( 实发合计 ) AS 总收入 FROM zggzb GROUP BY 编号 ORDER BY 实发合计 DESC (8) 查询姓名, 统计月份和实发合计 编号 SELECT 姓名, 统计月份, 实发合计 FROM zgxxb,zggzb WHERE zggzb. 编号 =zgxxb. (9) 查询 2011 年 9 月的编号 姓名 部门名称与实发合计 SELECT zgxxb. 编号, 姓名,bmb. 部门名称, 实发合计 FROM zgxxb,zggzb,bmb WHERE zggzb. 编号 =zgxxb. 编号 AND LEFT(zggzb. 编号,2)=bmb. 部门代码 AND 统计月份 ="201109" (10) 查询 2011 年 10 月, 各部门人员领取工资的人数和平均工资 SELECT 部门名称,COUNT(*) AS 领取人数,AVG( 实发合计 ) AS 平均工资 FROM zggzb,bmb WHERE LEFT(zggzb. 编号,2)=bmb. 部门代码 AND 统计月份 ="201110" GROUP BY 部门名称 (11) 查询任一个月实发合计高于 4000 元的职工姓名 SELECT 姓名 FROM zgxxb WHERE 编号 IN(SELECT 编号 FROM zggzb WHERE 实发 合计 >=4000) (12) 查询两个月实发合计高于 4000 元的职工姓名 SELECT 姓名 FROM zgxxb WHERE 编号 NOT IN(SELECT 编号 FROM zggzb WHERE 实发合计 <4000) (13) 将查询 (9) 的结果, 分别存为名为 cx9 的永久表 临时表 文本文件和数组 SELECT zgxxb. 编号, 姓名,bmb. 部门名称, 实发合计 FROM zgxxb,zggzb,bmb WHERE zggzb. 编号 =zgxxb. 编号 AND LEFT(zggzb. 编号,2)=bmb. 部门代码 AND 统计月份 ="201109" INTO TABLE cx9 SELECT zgxxb. 编号, 姓名,bmb. 部门名称, 实发合计 FROM zgxxb,zggzb,bmb WHERE zggzb. 编号 =zgxxb. 编号 AND LEFT(zggzb. 编号,2)=bmb. 部门代码 AND 统计月份 ="201109" INTO CURSOR cx9 SELECT zgxxb. 编号, 姓名,bmb. 部门名称, 实发合计 FROM zgxxb,zggzb,bmb WHERE zggzb. 编号 =zgxxb. 编号 AND LEFT(zggzb. 编号,2)=bmb. 部门代码 AND 统计月份 ="201109" TO FILE cx9 科学出版社职教技术出版中心 SELECT zgxxb. 编号, 姓名,bmb. 部门名称, 实发合计 FROM zgxxb,zggzb,bmb WHERE

50 44 上篇 VFP 程序设计实验 zggzb. 编号 =zgxxb. 编号 AND LEFT(zggzb. 编号,2)=bmb. 部门代码 AND 统计月份 ="201109" INTO ARRAY cx 实验要求请按以下要求进行操作 ( 请上机前写出命令序列 ): 1 在 zgxxb 表中添加一条新记录, 数据如下 : 0233 张琳峰男 01/21/ F. 2 查询所有女性职工的姓名 部门 实发合计和统计月份 3 按基本工资档次, 统计各档次人数, 平均实发工资 4 查询计算机学院的姓名 实发合计 统计月份, 并按实发合计升序排序 5 查询男性职工实发工资最高的前三位的姓名 部门 实发合计和统计月份, 并生成文本文件保存 Visual FoxPro 程序设计实践

51 11.1 实验目的 1) 理解计算机算法的基本含义 2) 掌握建立 修改和运行程序的方法 3) 基本掌握程序设计中的一些语句的用法 4) 运用程序顺序和选择结构进行程序设计 11.2 实验内容 1. 程序工作方式的一般过程 VFP 系统的程序方式与命令方式是有很大区别的 命令方式是输入一条命令即执行 一条命令, 同时记忆执行过的每一条命令, 以便于用户修改 而程序方式是从头到尾一次性地执行程序文件中的所有语句, 一旦发现语法错误即停止执行 程序工作方式一般过程如下 : 第 1 步, 新建程序 在 VFP 命令窗口中输入命令 : MODIFY COMMAND < 程序文件名 > 或选择 文件 菜单下的 新建 功能, 在 新建 对话框中选择 程序, 单击 新建文件 按钮 在弹出的 程序 窗口中输入程序 ( 语句序列 ) 第 2 步, 保存程序 一个程序输入完毕, 常用单击工具栏上 保存 按钮, 或选择 文件 菜单下的 保存 功能, 将程序以文件形式保存到磁盘上, 第一次保存时, 需要输入程序文件名 第 3 步, 运行程序 在命令窗口中输入命令 : DO < 程序文件名 > 或选择 程序 菜单下的 运行 功能 若该程序已打开, 也可单击常用工具栏上的 运行 按钮实现 第 4 步, 打开与修改程序 如果在程序运行过程中发现了错误, 可以使用命令 : MODIFY COMMAND < 程序文件名 > 科学出版社职教技术出版中心 打开此文件来修改, 或选择 文件 菜单下的 打开 功能实现 当一个程序运行时, 若 VFP 系统发现语法错误, 一般会自动弹出程序编辑窗口, 并弹出 程序错误 对话框, 提示用户出错原因 单击 取消 按钮, 返回到程序编辑窗口, 光标 ( 插入点 ) 停留在出错位置, 等待用户修改错误 一个程序出错一般分为语法错误和逻辑错误两种 对于语法错误, 计算机语言系统

52 46 上篇 VFP 程序设计实验 能检测到, 一旦系统发现一处语法错误, 则立即停止执行, 等待用户修改, 之后重新发出执行命令才会再运行机制 ; 对于逻辑错误 ( 即程序能正常运行, 但运行结果出错, 一般是算法问题 ), 则需要用户自动检查与修改 提示一般地, 任何一个程序设计人员都不能保证其设计的程序没有错误 要正确运行一个程序, 需要经过以下反复的过程, 一直到该程序运行结果完全正确为止 运行 改错 再运行 再改错 运行 程序工作方式比命令方式具有许多优点, 请用户在实验过程认真体会 2. 顺序结构程序设计编写解决以下各问题的程序, 体会计算机程序的执行过程 解决问题的算法 如何用相应语句描述算法 顺序结构程序设计概念以及调试程序的一般方法 请多次执行每个程序, 看看每次的结果是否正确 (1) 任意输入一个自然数, 判断其奇偶性 程序文件名为 vfp1.prg 参考程序如下: CLEAR INPUT " 请输入一个自然数 :" TO n? IIF(n%2=0,str(n)+" 为偶数!",str(n)+" 为奇数!") RETURN (2) 输入任意一个五位自然数, 要求反序输出, 并按位求和 程序文件名为 fvp2.prg 参考程序如实验图 11.1 所示 实验图 11.1 程序窗口 3. 选择结构程序设计编写解决以下各问题的程序, 体会顺序结构与选择结构程序设计的方法, 以及调试程序的一般方法 请多次执行程序, 看看每次的结果是否正确 (1) 随机产生一个三位自然数, 判断其奇偶性 程序文件名为 fvp3.prg 参考程序如下: Visual FoxPro 程序设计实践

53 实验 11 程序控制结构 1 47 CLEAR _SCREEN.FONTSIZE=16 =RAND(-1) m=int(rand()*900)+100 IF m%2=0 c=" 是偶数!" ELSE && 设置屏幕显示字号 && 随机函数初始化 && 随机产生一个三位自然数 c=" 是奇数!" ENDIF? " 自然数 "+ALLTRIM(STR(m))+c _SCREEN.FONTSIZE=12 RETURN 说明 判断一个整数 m 能否被另一个整数 n 整除, 通常有三种方法可实现 : 若 INT(m/n)=m/n m%n=0 MOD(m,n)=0, 则 m 能被 n 整除 另外, 一些比较简单的条件判断结构, 还可使用条件测试函数 IIF() 来实现, 且更简 便, 程序更优化 对于以上问题, 其程序代码 (fvp3-1.prg) 完全可改写如下 : CLEAR m=int(rand()*900)+100 a=" 自然数 "+ALLTRIM(STR(m))? IIF(m%2<>0, a+" 是奇数!", a+" 是偶数!") RETURN 同样问题, 不同程序 看看二者功能是否相同? (2) 编程实现 : 输入一个年份, 判断是否是闰年 程序文件名为 fvp4.prg 参考程序如下: CLEAR INPUT " 请输入年份 :" TO year IF year%4=0 AND year%100<>0 OR year%400=0? year, " 是闰年!" ELSE? year, " 不是闰年!" ENDIF RETURN 对于以上问题, 也可以使用 IIF 函数来实现, 程序代码 (fvp4-1.prg) 如下 : CLEAR INPUT " 请输入年份 :" TO y 科学出版社职教技术出版中心

54 48 上篇 VFP 程序设计实验 k=(y%4=0 and y%100<>0 OR y%400=0)? IIF(k, STR(y)+" 是闰年!", STR(y)+" 不是闰年!") RETURN 同样问题, 不同程序 看看二者功能是否相同? 输出结果有何细小区别? (3) 编程实现 : 输入姓名和一个百分制的成绩, 输出其等级 其中,90 分以上为优秀 80~90 分为良好 70~80 分为中等 60~70 分为及格 60 分以下为不及格 程序文件名为 fvp5.prg 参考程序如下: CLEAR ACCEPT " 请输入姓名 :" TO name INPUT " 请输入一个百分制成绩 :" TO sc DO CASE CASE sc>=90 k=" 优秀 " CASE sc>=80 k=" 良好 " CASE sc>=70 k=" 中等 " CASE sc>=60 k=" 及格 " OTHERWISE k=" 不及格 " ENDCASE? name+" 的成绩为 "+k RETURN (4) 编程实现 : 对于学生档案表 xsdab.dbf, 从键盘输入学生姓名, 查询其档案信息 程序文件名为 fvp6.prg 参考程序如下: SET TALK OFF CLEAR ACCEPT " 请输入需查询学生的姓名 :" TO name USE xsdab LOCATE FOR 姓名 =name IF NOT EOF() DISP ELSE MESSAGEBOX(" 查无此人!") ENDIF USE Visual FoxPro 程序设计实践

55 实验 11 程序控制结构 1 49 SET TALK ON RETURN 说明通过以上操作, 大家对计算机程序或许有一些认识了 解决同一个问题, 可以编写出多个不同的程序 比如, 判断闰年 问题, 前面我们用了两种风格完全不同的程序来实现, 今后我们还会使用过程 子程序 自定义函数方式来实现 又如, 任意五位自然数反序输出 问题, 我们将采用三种不同算法的程序来实现 学习用计算机程序设计语言来描述解决实际问题的过程, 即编程, 最关键是要有 理 理 字如何理解? 我们可以这样来解释 : 思维要理性 思路要清晰 算法要合理 推理要紧凑 逻辑要清楚 描述要正确等 所以, 编程解决同一个问题, 对于不同的人来说, 采用何种数学方法 使用何种计算机语言 程序结构如何 程序中语句的顺序如何 程序中语句如何描述 ( 使用什么语句 常量 变量 表达式 函数等 ) 都不重要, 关键是编写出现的程序要有 理 符合语法规则就行 希望大家在学习程序设计的过程中, 能够逐渐去体会, 以提高自己的程序设计能力 11.3 实验要求 编程解决如下问题 ( 请上机前先编写出程序 ): 1 输入一个华氏温度, 要求输出摄氏温度 ( 保留 2 位小数 ) 华氏温度 F 与摄氏温 度 F 的关系为 : c= 5 (F - 32) 文件名为 LX1.prg 9 2 任意输入一个五位自然数, 反序输出并按位求和 要求采用字符处理方法实现 文件名为 LX2.prg 3 随机产生 2 个两位整数, 如果都是奇数或都是偶数则相加, 否则相乘 文件名 为 LX3.prg 4 对于学生成绩表, 输入一个学生的学号, 请查询其成绩信息 文件名为 LX4.prg 5 请使用 CASE 语句解决前面问题 3 文件名为 LX5.prg 科学出版社职教技术出版中心

56 12.1 实验目的 1) 掌握三种基本程序结构, 特别是循环结构的思想和实现方法 2) 学会针对实际问题, 灵活运用所学知识进行程序设计 12.2 实验内容 1. 简单程序设计编写解决以下各问题的程序, 学会使用三种基本程序结构, 特别是循环结构进行程序设计的一般能力 请输入不同的数据多次执行程序, 以测试编写程序是否正确 (1) 用 DO 循环实现 : n 程序文件名为 fvp7.prg 参考程序如下: CLEAR INPUT " 请输入 n 的值 :" TO n s=0 i=1 DO WHILE i<=n s=s+i i=i+1 ENDDO? " "+alltrim(str(n))+"=",s RETURN 请仔细分析程序的执行过程及各语句的含义 (2) 用 FOR 循环实现 : n 程序文件名为 fvp7-1.prg 参考程序如下: CLEAR INPUT " 请输入 n 的值 :" TO n s=0 FOR i=1 TO n s=s+i ENDFOR? " "+alltrim(str(n))+ "="+ alltrim(str(s)) RETURN

57 实验 12 程序控制结构 2 51 (3) 用循环结构实现 : 从键盘输入一个任意位数的自然数, 要求将反序输出按位求和 程序文件名为 fvp8.prg 参考程序如下 : CLEAR INPUT " 请输入任意一个自然数 :" TO n h=alltrim(str(n)) c="" m=0 FOR i=len(k) TO 1 STEP -1 c=c+substr(h,i,1) m=m+val(substr(h,i,1)) ENDFOR? " 自然数 "+h+" 的反序为 :"+c? " 自然数 "+h+" 的各数位之和是 :"+ALLTRIM(STR(h)) RETURN 请分析上述程序的执行过程及各语句的含义 (4) 输出由星号组成的任意行数的空心三角形 ( 实验图 12.1) 程序文件名为 fvp9.prg 参考程序如下: * * * CLEAR * * * * INPUT " 请输入行数 :" TO n * *? "*" AT 40 * * * * FOR i=2 TO n-1 * *?"*"+REPL(" ",2*(i-1)-1)+"*" AT 41-i * * ******************* ENDFOR? REPL("*",2*n-1) AT 41-n 实验图 12.1 空心三角形 RETURN (5) 输入一个自然数, 判断是否为素数 程序文件名为 fvp10.prg 参考程序如下: 科学出版社职教技术出版中心 CLEAR INPUT " 请输入一个自然数 :" TO m k=int(sqrt(m)) FOR i=2 TO k IF m%i=0 EXIT && 有一次能整除, 不是素数, 退出循环结构 ENDIF ENDFOR IF i>k && 根据循环变量 i 值的大小判断是否为素数? " 自然数 "+ALLTRIM(STR(m))+ " 是素数!"

58 52 上篇 VFP 程序设计实验 ELSE? " 自然数 "+ALLTRIM(STR(m))+ " 不是素数!" ENDIF RETURN 2. 复杂程序设计比较复杂问题的程序设计, 需要程序设计人员编程时思路清晰 步骤明确 逻辑清楚 方法正确 请编写解决以下问题的程序 (1) 求斐波那契数列的前 30 个数 程序文件名为 fvp11.prg 参考程序如下: CLEAR a=1 b=1? a,b FOR i=3 TO 30 c=a+b?? c a=b b=c ENDFOR RETURN 该问题也可使用下面程序来实现 (fvp11-1.prg): CLEAR f1=1 f2=1? f1,f2 FOR i=1 TO 14 f1=f1+f2 f2=f1+f2?? f1,f2 ENDFOR RETURN (2) 输出乘法九九表 ( 实验图 12.2) 程序文件名为 fvp12.prg 参考程序如下: CLEAR _SCREEN.FONTSIZE=16? " 乘法九九表 " AT 10 FONT ' 隶书 ',24 STYLE 'B' Visual FoxPro 程序设计实践

59 实验 12 程序控制结构 2 53? FOR i=1 TO 9 FOR j=1 TO i?? " "+STR(i,1)+"*"+STR(j,1)+"="+STR(i*j,2) ENDFOR? ENDFOR _SCREEN.FONTSIZE=12 RETURN 实验图 12.2 输出乘法九九表效果 (3) 找出 500 以内的所有素数, 并统计个数 要求每行输出 8 个数 程序文件名为 fvp13.prg 参考程序如下: CLEAR? "500 内的素数有 :" AT 10 FONT ' 隶书 ',24 STYLE 'B'? 2 AT 9 a=1 && 统计素数个数 FOR m=3 TO 500 STEP 2 k=int(sqrt(m)) FOR n=3 TO k IF m%n=0 EXIT ENDIF ENDFOR IF n>k a=a+1?? m IF a%8=0? 科学出版社职教技术出版中心 && 有一次能整除则不是素数, 退出本层循环 && 根据循环变量 n 值的大小判断是否为素数 && 根据素数个数控制换行

60 54 上篇 VFP 程序设计实验 ENDIF ENDIF ENDFOR? "500 内的素数共有 :"+STR(a,3)+ " 个 " RETURN 3. 数据表程序设计对于数据表的程序设计, 是为了按要求查找与统计相应结果, 并按指定格式进行输出 请建立以下对数据表操作的程序 (1) 使用 SCAN 循环来输出学生档案表 xsdab.dbf 中成绩 500 分以上的所有记录 程序文件名为 fvp14.prg 参考程序如下: SET TALK ON CLEAR USE xsdab? " 学号姓名性别入学成绩出生日期籍贯专业党员否 " SCAN FOR 入学成绩 >=500? 学号, 姓名, 性别, 入学成绩, 出生日期, 籍贯, 专业, 党员否 ENDSCAN CLOSE ALL SET TALK ON RETURN (2) 对于学生档案表 xsdab.dbf 奖学金表 jxj_1.dbf 和成绩表 cjb.dbf, 请按以下要求编写程序 : 1 计算所有学生的成绩平均分 ( 所选课程的平均值 ) 总评分和奖学金等级( 一等奖, 90; 二等奖,80~90; 三等奖,70~80;70 分以下无奖 ), 显示所有学生的学号 姓名 出生日期 籍贯 专业 成绩平均分 社会活动分 获奖加分 总评分和奖学金等级数据 2 分别统计一 二 三等奖学金的人数, 并按以下格式输出 获一 二 三等奖学金的学生名单 ******************************************* 学号姓名总评分获奖等级 ******************************************* 总计 : 一等奖人二等奖人三等奖人程序文件名为 fvp15.prg 参考程序如下: SET TALK OFF SET SAFETY OFF Visual FoxPro 程序设计实践

61 实验 12 程序控制结构 2 55 CLEAR _SCREEN.FONTSIZE=11 SELECT 2 USE cjb INDEX ON 学号 TAG xh1 SELECT 1 USE jxj_1 SET RELATION TO 学号 INTO cjb DO WHILE!EOF() SELECT 2 AVERAGE 成绩 TO pjf FOR 学号 =a. 学号 SELECT 1 REPLACE 成绩平均分 WITH pjf REPLACE 总评分 WITH 成绩平均分 *0.5+ 社会活动分 *0.3+ 获奖加分 *0.2 DO CASE CASE 总评分 >=90 REPLACE 奖学金等级 WITH " 一等 " CASE 总评分 >=80 REPLACE 奖学金等级 WITH " 二等 " CASE 总评分 >=70 REPLACE 奖学金等级 WITH " 三等 " OTHERWISE REPLACE 奖学金等级 WITH " 无 " ENDCASE SKIP ENDDO SELECT 3 USE xsdab INDEX ON 学号 TAG xh2 SELECT 1 SET RELATION TO 学号 INTO xsdab LIST 学号,c. 姓名,c. 出生日期,c. 籍贯,c. 专业, 成绩平均分, 社会活动分, 获奖加分, 总评分, 奖学金等级 _SCREEN.FONTSIZE=16? " 获一 二 三等奖学金的学生名单 "? REPL("*",45)? " 学号姓名总评分获奖等级 " STORE 0 TO m1,m2,m3 SCAN 科学出版社职教技术出版中心

62 56 上篇 VFP 程序设计实验 DO CASE CASE 奖学金等级 =" 一等 " m1=m1+1 CASE 奖学金等级 =" 二等 " m2=m2+1 CASE 奖学金等级 =" 三等 " m3=m3+1 OTHERWISE LOOP ENDCASE? " "+ 学号 +" "+c. 姓名 +STR( 总评分,6,1)+" "+ 奖学金等级 ENDSCAN? REPL("*",45)? " 总计 :" FONT ' 隶书 ',30 STYLE 'BI'?? " 一等奖 "+STR(m1,2)+ " 人二等奖 "+STR(m2,2) FONT ' 楷体 ',20 STYLE 'B'?? " 人 "+" 三等奖 "+STR(m3,2)+ " 人 " FONT ' 楷体 ',20 STYLE 'B' SET RELATION TO CLOSE ALL SET SAFETY ON SET TALK ON RETURN 12.3 实验要求编程解决以下问题 ( 请上机前先编写出程序 ): 1 求 : n-1 文件名为 LX4.prg 2 统计 100~200 范围内含 7 和 7 的倍数的整数个数, 输出这些整数, 并求和 文件名为 LX5.prg 3 随机产生 50 个两位整数, 统计其中奇数和偶数的个数 文件名为 LX6.prg 4 输出所有的 水仙花数 所谓 水仙花数, 是指一个 3 位自然数, 其各位数字的立方和等于该数本身 比如,153 是水仙花数, 因为 153= 文件名为 LX7.prg Visual FoxPro 程序设计实践

63 13.1 实验目的 1) 了解模块化程序设计的基本思想 2) 掌握子程序 过程 自定义函数的编写和调用方法 3) 掌握变量的作用域问题 13.2 实验内容 1. 过程 子程序 自定义函数操作 结构化程序设计的基本思想是将一个复杂的问题进行分解成若干个子问题, 再针对于各个子问题编写程序 子程序 过程或自定义函数是解决结构化程序设计的基本方法 请分别使用子程序 过程和自定义函数来编写解决以下同一问题的程序, 体会结构化程序设计的一般方法 (1) 用子程序实现 : 输入年份, 判断是否是闰年 程序文件名为 fvp16.prg 参考程序如下 : *** 主程序 fvp16.prg *** CLEAR INPUT " 请输入年份 :" TO y DO sub1 RETURN *** 子程序 sub1.prg *** h= y%4=0 and y%100<>0 OR y%400=0? IIF(h, STR(y)+" 年是闰年!", STR(y)+" 年不是闰年!") RETURN (2) 用带参子程序实现 : 输入年份, 判断是否是闰年 程序文件名为 fvp17.prg 注意调用时参数传递和回传过程 参考程序如下: *** 主程序 fvp17.prg *** CLEAR INPUT " 请输入年份 :" TO y year="" DO sub2 WITH y,year? STR(y)+year RETURN *** 子程序 sub2.prg *** 科学出版社职教技术出版中心

64 58 上篇 VFP 程序设计实验 PARAMETERS m,n h= m%4=0 and m%100<>0 OR m%400=0 n=iif(h, " 年是闰年!", " 年不是闰年!") RETURN 说明主程序调用子程序时, 实参 y year 的值将依次传递给形参 m n; 返回时, 形参 m n 的值又将依次传递给实参 y year 这是参数的双向传递过程 (3) 用过程实现 : 输入年份, 判断是否是闰年 程序文件名为 fvp18.prg 参考程序如下: *** 主程序 *** CLEAR INPUT " 请输入年份 :" TO y year="" DO jsjsub WITH y,year? STR(y)+year RETURN *** 过程放在主程序后面 *** PROC vfpsub PARAMETERS m,n h= m%4=0 and m%100<>0 OR m%400=0 n=iif(h, " 年是闰年!", " 年不是闰年!") RETURN (4) 用自定义函数实现 : 输入年份, 判断是否是闰年 程序文件名为 fvp19.prg 参考程序如下: PARAMETERS y h=(y%4=0 and y%100<>0 OR y%400=0) n=iif(h, " 年是闰年!", " 年不是闰年!") RETURN ALLTRIM(STR(y))+n 请在 VFP 命令窗口中使用 MODI COMM fvp19 命令来建立一个以程序文件形式存在的自定义函数 建立好后, 在命令窗口中使用不同的年份值, 按如下格式输入命令多次执行, 查看其结果? fvp17(2100) 2. 变量的作用域操作 不同变量在程序中各个模块的作用范围是不相同的 通过以下的示例, 请体会全局 Visual FoxPro 程序设计实践

65 实验 13 模块化程序设计 59 变量 局部变量与私有变量的作用域, 以及变量的屏蔽 请建立如下代码的程序文件, 文件名为 fvp20.prg 13.3 实验要求 *** 主程序 *** CLEAR ALL CLEAR PUBLIC a LOCAL b a=100 c=200? " 主程序调用前输出结果 :"?? "a="+str(a,3),"b=",b,"c="+str(c,3) DO sub1? " 主程序调用后输出结果 :"?? "a="+str(a,3),"b=",b,"c="+str(c,3),"d="+str(d,3) RETURN *** 过程 *** PROC sub1 PUBLIC d PRIVATE a a=10 b=20 c=30 d=40? " 过程中输出结果 : "?? "a="+str(a,3),"b="+str(b,3)," c="+str(c,3),"d="+str(d,3) RETURN 对于问题 : 找出 500 以内的素数 要求 ( 请上机前先编写出程序 ): 1 使用子程序实现 文件名为 LX8.prg 2 使用过程实现 文件名为 LX9.prg 3 使用自定义函数实现 文件名为 LX10.prg 科学出版社职教技术出版中心

66 14.1 实验目的 1) 掌握控件 标签 的常用属性 事件 方法的使用 2) 掌握控件 文本框 的常用属性 事件 方法的使用 3) 掌握控件 命令按钮 的常用属性 事件 方法的使用 4) 掌握为控件的不同事件编写代码的方法 5) 掌握 数据环境 的使用方法 14.2 实验内容 1. 标签 文本框 命令按钮的使用 1 要求 : 设计一个表单, 用于判断一年四季的月份, 如实验图 14.1 左图所示 1 当文本框 Text1 中输入 1 个月份后, 单击 判断 按钮, 根据月份判断是哪一个季节, 在标签 Label2 中显示季节名称 2 在文本框 Text1 中只能输入数字 1~12 3 当 Text1 输入错误时, 显示提示信息 输入月份只能在 1~12 之间! 对话框 4 双击表单结束运行 实验图 14.1 判断四季表单设计界面及运行结果操作步骤如下 : 第 1 步, 创建一个新表单, 以文件名 SL1-1.scx 保存, 按照实验表 14.1 设置表单属性 第 2 步, 在表单中合适位置添加 2 个标签 Label1 Label2,1 个文本框 Text1,1 个命令按钮 Command1, 按照实验表 14.1 设置各控件属性 拖动改变各控件位置和大小, 如实验图 14.1 左图所示 第 3 步, 在文本框 Text1 的 Valid 事件中输入如下程序代码, 完成要求 3 IF VAL(This.value)<1 OR VAL(This.value)>12 && 判断月份是否正确 MESSAGEBOX(" 输入月份只能在 1~12 之间!",16," 输入错误 ") ENDIF

67 实验 14 常用表单控件 1 61 第 4 步, 在命令按钮 Command1 的 Click 事件中输入如下程序代码, 完成要求 1: yue=val(thisform.text1.value) DO CASE CASE yue>=3 AND yue<=5 Thisform.Label2.Caption=" 春 " CASE yue>=6 AND yue<=8 Thisform.Label2.Caption=" 夏 " CASE yue>=9 AND yue<=11 Thisform.Label2.Caption=" 秋 " CASE yue=12 OR yue=1 or yue=2 Thisform.Label2.Caption=" 冬 " ENDCASE 第 5 步, 在表单 Form1 的 DblClick 事件中输入如下程序代码, 完成要求 4: Thisform.Release 第 6 步, 保存 运行表单, 运行结果如实验图 14.1 右图所示 实验表 14.1 SL1-1 属性设置 对象属性属性值描述 Form1 Caption 常用表单控件 1 设置表单标题栏文字 Text1 Label1 TabIndex 1 表单启动获得焦点 InputMask 99 只能输入 2 位数字, 完成要求 2 SelectOnEntry.T. 真内容自动选定 Caption 请输入月份设置标签显示内容 AutoSize.T. 真标签自动改变大小 Label2 AutoSize.T. 真标签自动改变大小 Command1 Caption 判断命令按钮显示内容 2. 标签 文本框 命令按钮的使用 2 科学出版社职教技术出版中心 要求 : 设计一个表单, 用于筛选任意输入的英文字母, 如实验图 14.2 左图所示 : 1 表单运行后, 在文本框 Text1 中输入任意 ASCII 字符串, 单击 筛选字母串 按钮, 找出其中的字母串, 在标签 Label2 中显示出来 ; 2 双击表单空白处可以关闭表单 操作步骤如下 : 第 1 步, 创建一个新表单, 以文件名 SL1-2.scx 保存, 按照实验表 14.2 设置表单属性, 完成要求 1 第 2 步, 在表单中合适位置添加 2 个标签 Label1 Label2,1 个文本框 Text1,1 个命令按钮 Command1, 按实验表 14.2 设置各控件属性 拖动改变各控件位置和大小, 如

68 62 上篇 VFP 程序设计实验 实验图 14.2 左图所示 第 3 步, 在命令按钮 Command1 的 Click 事件中输入如下程序代码, 完成要求 2: 实验图 14.2 筛选字母串表单设计界面及运行结果 Thisform.Label2.caption="" tempstr=alltrim(thisform.text1.value) FOR i=1 TO len(tempstr) x=substr(tempstr,i,1) IF x>="a" AND x<="z" or x>="a" AND x<="z" Thisform.Label2.Caption=Thisform.Label2.Caption+x ENDIF ENDFOR 第 4 步, 在表单 Form1 的 DblClick 事件中输入如下程序代码, 完成要求 3: Thisform.Release 第 5 步, 保存 运行表单, 运行结果如实验图 14.2 右图所示 实验表 14.2 SL1-2 属性设置对象属性属性值描述 Form1 Caption 筛选字母示例设置表单标题栏文字 Caption 输入任意 ASCII 字符串设置标签显示内容 AutoSize.T. - 真标签自动改变大小 Label1 FontName 楷体设置标签字体 FontSize 14 设置标签字号 FontBold.T. 真设置标签显示内容为粗体 Label2 AutoSize.T. 真标签自动改变大小 FontSize 11 设置标签字号 Text1 FontSize 11 设置文本框字号 Caption 筛选字母串命令按钮显示内容 Command1 FontName 华文中宋设置命令按钮字体 ( 如无此字体, 可用相似字体代替 ) FontSize 14 设置命令按钮字号 FontBold.T. 真设置命令按钮显示内容为粗体 Visual FoxPro 程序设计实践

69 实验 14 常用表单控件 标签 文本框 命令按钮的使用 3 要求 : 设计一个表单, 用于显示文字信息, 如实验 图 14.3 所示 : 1 表单运行时在表单的中间位置出现 XXX 大学 学籍管理系统 等文字 2 当单击表单时, 显示或隐藏 2011 年 10 月 3 双击表单时关闭表单, 结束程序运行 实验图 14.3 标签控件设计表单操作步骤如下 : 第 1 步, 建立一个新表单, 以文件名 SL1-3.scx 保存, 属性值设置如实验表 14.3 所示 第 2 步, 在表单合适位置添加 2 个标签控件 Label1 Label2, 属性值设置如实验表 14.3 所示, 完成要求 1 第 3 步, 在表单的 Click 事件中输入如下代码, 完成要求 2 Thisform.Label2.Visible = Not Thisform.Label2.Visible 第 4 步, 在表单的 Dblclick 事件中输入如下代码, 完成要求 3: Thisform.Release 第 5 步, 保存 运行表单, 运行后显示结果如实验图 14.3 所示 实验表 14.3 SL1-3 属性设置 对象属性属性值描述 Form1 Caption 标签控件设计设置表单标题栏文字 Label1 Label2 Caption XXX 大学学籍管理系统设置标签显示的文字 FontName 华文琥珀设置标签文字字体 FontSize 18 设置标签文字大小 AutoSize.T. 真标签根据文字自动改变大小 Caption FontName 2011 年 10 月 楷体 FontSize 16 AutoSize.T. 真 4. 标签 文本框 命令按钮的使用 4 科学出版社职教技术出版中心 要求 : 设计一个表单, 表单中有 3 个命令按钮 Command1( 欢迎光临 ) Command2 和 Command3( 退出 ), 如实验图 14.4 左图所示 1 当鼠标指向 Command1 按钮时, 该按钮上的文字变为 单击我, 其字体变为黑体, 字号变为 12 磅 2 当鼠标单击 Command1 按钮时,Command2 按钮上的文字变为狐狸图标 3 单击 Command3 按钮或按键盘上的 Esc 键结束程序运行

70 64 上篇 VFP 程序设计实验 操作步骤如下 : 实验图 14.4 命令按钮表单设计界面及运行结果 第 1 步, 建立一个新表单, 以文件名 SL1-4.scx 保存, 属性值设置如实验表 14.4 所示 第 2 步, 在表单合适位置添加 3 个命令按钮 Command1 Command2 Command3, 如实验图 14.4 左图所示, 其属性值设置如实验表 14.4 所示 第 3 步, 在 Command1 的 MouseMove 事件中输入如下程序代码, 完成要求 1: Thisform.Command1.Caption=" 单击我 " Thisform.Command1.Fontname=" 黑体 " Thisform.Command1.Fontsize=12 第 4 步, 在 Command1 的 Click 事件中输入如下程序代码, 完成要求 2: 说明 Thisform.Command2.Caption="" Thisform.Command2.Picture="fox.bmp" 第二句程序代码中的 fox.bmp 即为狐狸图标文件的文件名, 如果计算机无此文件, 可以使用其他图形文件代替 在书写文件名时, 可以使用绝对路径, 也可以使用相对路径 ( 本程序中使用的是相对路径 ) 第 5 步, 在 Command3 的 Click 事件中输入如下程序代码, 完成要求 3: Thisform.Release 第 6 步, 保存 运行表单, 运行后显示结果如实验图 14.4 右图所示 实验表 14.4 SL1-4 属性设置 对象 属性 属性值 描述 Form1 Caption 命令按钮示例 设置表单标题栏文字 Command1 Caption 欢迎光临 设置显示文字 Command3 Caption 退出设置显示文字 Cancel.T. 真设置为取消按钮, 完成要求 3 5. 标签 文本框 命令按钮的使用 5 要求 : 设计一个表单, 实现华氏温度 F 与摄氏温度 C 之间的转换, 其关系为 :F= C 9/5+32;C=5/9 (F-32), 如实验图 14.5 左图所示 : Visual FoxPro 程序设计实践