2 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 窗 口 的 组 成 及 辅 助 设 计 工 具 等 实 训 内 容 与 步 骤 例 1.1 启 动 Visual FoxPro 6.0, 浏 览 Visual FoxPro 6.0 的 菜 单 操 作 步 骤 如 下 : (

Transcription

1 第 一 部 分 实 训 第 1 章 数 据 库 系 统 与 Visual FoxPro 基 础 本 章 是 这 门 课 程 的 基 础, 介 绍 了 数 据 库 系 统 的 基 本 知 识 Visual FoxPro 6.0 的 集 成 开 发 环 境 Visual FoxPro 6.0 的 命 令 格 式 Visual FoxPro 6.0 的 数 据 及 其 运 算 一 知 识 体 系 数 据 库 系 统 基 本 概 念 : 数 据 数 据 库 数 据 库 管 理 系 统 数 据 库 系 统 数 据 库 系 统 与 Visual FoxPro 基 础 数 据 库 系 统 的 基 本 知 识 Visual FoxPro 操 作 基 础 Visual FoxPro 数 据 及 运 算 基 本 数 据 模 型 : 层 次 模 型 网 状 模 型 关 系 模 型 和 面 向 对 象 模 型 关 系 数 据 库 的 基 本 概 念 : 关 系 元 组 属 性 域 关 键 字 关 系 的 运 算 : 选 择 投 影 和 联 接 Visual FoxPro 的 启 动 与 退 出 窗 口 组 成 : 标 题 栏 菜 单 栏 工 具 栏 主 窗 口 命 令 窗 口 和 状 态 栏 Visual FoxPro 配 置 : 使 用 选 项 对 话 框 和 SET 命 令 进 行 环 境 配 置 辅 助 设 计 工 具 : 向 导 设 计 器 和 生 成 器 工 作 方 式 : 单 命 令 执 行 方 式 程 序 执 行 方 式 和 菜 单 命 令 执 行 方 式 Visual FoxPro 的 命 令 格 式 常 量 : 字 符 型 常 量 数 值 型 常 量 逻 辑 型 常 量 日 期 型 常 量 日 期 时 间 型 常 量 和 货 币 型 常 量 变 量 : 内 存 变 量 字 段 变 量 和 数 组 变 量 表 达 式 : 算 术 表 达 式 字 符 表 达 式 日 期 和 日 期 时 间 表 达 式 关 系 表 达 式 和 逻 辑 表 达 式 等 函 数 : 数 值 函 数 字 符 函 数 日 期 和 时 间 函 数 转 换 函 数 和 测 试 函 数 本 章 重 点 :Visual FoxPro 6.0 的 常 量 与 变 量 的 使 用 Visual FoxPro 6.0 的 数 据 及 其 运 算 本 章 难 点 :Visual FoxPro 6.0 表 达 式 的 组 成 及 其 运 算 二 实 训 环 节 实 训 1.1 熟 悉 Visual FoxPro 6.0 集 成 开 发 环 境 任 务 目 标 本 实 训 的 目 的 是 熟 悉 Visual FoxPro 6.0 集 成 开 发 环 境, 包 括 Visual FoxPro 的 启 动 与 退 出,

2 2 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 窗 口 的 组 成 及 辅 助 设 计 工 具 等 实 训 内 容 与 步 骤 例 1.1 启 动 Visual FoxPro 6.0, 浏 览 Visual FoxPro 6.0 的 菜 单 操 作 步 骤 如 下 : (1) 单 击 开 始 菜 单, 将 鼠 标 指 针 指 向 程 序 选 项 (2) 将 鼠 标 指 针 指 向 Microsoft Visual FoxPro 6.0 选 项 (3) 将 鼠 标 指 针 指 向 新 弹 出 菜 单 的 Microsoft Visual FoxPro 6.0 选 项 并 单 击 即 可 启 动 (4) 浏 览 Visual FoxPro 6.0 的 各 个 菜 单, 熟 悉 其 作 用 例 1.2 浏 览 Visual FoxPro 提 供 的 常 用 工 具 设 计 器 操 作 步 骤 如 下 : (1) 单 击 显 示 菜 单 (2) 单 击 工 具 栏 命 令, 弹 出 工 具 栏 对 话 框 (3) 查 看 提 供 了 哪 些 设 计 器 关 键 知 识 点 1.Visual FoxPro 6.0 的 菜 单 栏 2.Visual FoxPro 6.0 的 辅 助 设 计 工 具 拓 展 与 思 考 1. 可 以 使 用 哪 些 方 法 打 开 设 计 器? 2. 退 出 Visual FoxPro 6.0 有 哪 些 常 用 方 法? 实 训 1.2 常 量 变 量 及 表 达 式 的 使 用 使 用 任 务 目 标 本 实 训 的 目 的 是 掌 握 Visual FoxPro 6.0 的 数 据 及 其 运 算, 主 要 包 括 常 量 变 量 及 表 达 式 的 实 训 内 容 与 步 骤 例 1.3 在 命 令 窗 口 中 输 入 下 面 的 命 令 并 观 察 结 果 1.STORE 2*3 TO al,a2? al?? a2 SAVE TO ABC ALL LIKE a* RELEASE al,a2? al,a2 RESTORE FROM ABC? al,a2 2.?3+5*6/2 6^2 a=" 大 学 "

3 第 一 部 分 实 训 3 b=" 校 园 "?a+b?a b? " 中 央 "$" 中 央 电 视 台 " 3.?{^2011/09/01}+20?{^2011/09/01} 20?{^2011/09/01} {^2011/08/01} 4.a=5 a= a+1? a b=4? a>b? a*b>20.and..not. a>b 5.DIMENSION a(3,4)? a(1,1) a=2? a(1,1) 关 键 知 识 点 1. 内 存 变 量 赋 值 命 令 输 出 命 令 保 存 命 令 释 放 命 令 恢 复 命 令 2. 数 组 变 量 的 创 建 及 赋 值 命 令 拓 展 与 思 考 1. 刚 创 建 好 一 个 数 组 时, 数 组 元 素 的 初 始 值 是 什 么? 2. 思 考 5 种 表 达 式 的 优 先 级 实 训 1.3 常 用 函 数 的 使 用 任 务 目 标 本 实 训 的 目 的 是 掌 握 Visual FoxPro 6.0 中 函 数 的 一 般 形 式 常 用 函 数 的 参 数 类 型 及 返 回 值 实 训 内 容 与 步 骤 例 1.4 在 命 令 窗 口 中 输 入 下 面 的 命 令 并 观 察 结 果 1.STORE 10 TO X?ABS(5 X),ABS(X 5),SIGN(5 X),SIGN(X 10) 2.?SQRT(2*SQRT(2)) 3.STORE 5.8 TO Y?INT(Y),INT( Y) 4.X= ?ROUND(X,2),ROUND(X,1),ROUND(X,0),ROUND(X, 1) 5.? MOD(50,7),MOD( 50, 7)MOD(50, 7),MOD( 50,7)

4 4 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 6.x=" 中 文 Visual FoxPro 6.0"?LEN(x) 7.?AT("student"," I am a student!") 8.?LEFT(" ",LEN(" 数 据 库 "))?RIGHT(" ",LEN(" 数 据 库 ")) 9.?SUBSTR(" 中 华 人 民 共 和 国 ",5,4) 10.STORE TO n?"n="+str(n,8,3)?str(n,9,2),str(n,6,2),str(n,3),str(n,6),str(n) 11.?DATE()? TIME()? YEAR(DATE()) a=day(date())?a STORE DATETIME() TO t?t 12.?VAL("234.56") S="56DEF"?VAL(S)*2?VAL(A3)?CHR(97)?ASC("ffgghjh") 13.A=" 张 强 "?" 欢 迎 &A. 同 学 " y="5"? 6+&y 关 键 知 识 点 符 号 等 常 用 函 数 的 格 式 及 功 能 拓 展 与 思 考 1. 数 值 函 数 的 参 数 和 返 回 值 类 型 是 否 都 是 数 值 型? 2. 函 数 是 否 可 以 没 有 参 数? 三 常 见 错 误 和 难 点 分 析 1.Visual FoxPro 6.0 的 命 令 书 写 错 误, 如 拼 写 错 误 各 命 令 子 句 间 没 有 空 格 中 文 标 点 2. 输 出 结 果 的 格 式 不 对, 如 空 格 换 行 3. 在 对 数 组 变 量 赋 值 之 前 没 有 使 用 数 组 创 建 命 令 4. 混 合 表 达 式 的 结 果 易 出 错 5. 对 个 别 函 数 掌 握 得 不 好, 如 求 余 函 数 取 子 串 函 数 数 值 转 换 成 字 符 串 函 数

5 第 一 部 分 实 训 5 第 2 章 Visual FoxPro 表 与 数 据 库 操 作 本 章 主 要 介 绍 数 据 表 的 建 立 表 结 构 的 修 改 记 录 的 追 加 显 示 修 改 查 询 删 除 和 统 计 等 操 作, 以 及 数 据 库 的 建 立 和 多 表 操 作 数 据 库 表 的 数 据 完 整 性 等 内 容 一 知 识 体 系 创 建 表 菜 单 方 式 建 立 表 结 构 命 令 方 式 立 即 输 入 输 入 记 录 追 加 输 入 表 的 打 开 与 关 闭 记 录 显 示 自 由 表 记 录 定 位 记 录 修 改 记 录 插 入 记 录 删 除 与 恢 复 表 及 表 结 构 复 制 表 基 本 操 作 排 序 创 建 表 单 索 引 复 合 索 引 查 询 顺 序 查 询 快 速 查 询 数 据 库 表 统 计 计 数 求 和 求 平 均 数 汇 总 创 建 菜 单 方 式 命 令 方 式 数 据 库 基 本 操 作 数 据 完 整 性 打 开 与 关 闭 添 加 表 移 除 表 永 久 关 系 临 时 关 系 实 体 完 整 性 域 完 整 性 参 照 完 整 性

6 6 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 本 章 重 点 : 表 的 创 建 基 本 操 作 ; 数 据 的 排 序 索 引 查 询 和 统 计 方 法 ; 数 据 库 的 创 建 及 相 关 操 作 本 章 难 点 : 多 表 操 作 表 间 关 系 的 建 立 数 据 的 完 整 性 设 置 二 实 训 环 节 在 教 学 管 理 项 目 中 设 计 一 个 名 为 JXGL.DBC 的 教 学 管 理 数 据 库, 该 数 据 库 中 含 有 3 个 数 据 表 : 学 生 表 (XS.DBF) 成 绩 表 (CJ.DBF) 课 程 表 (KC.DBF), 如 表 2.1 至 表 2.3 所 示 本 实 训 就 以 教 学 管 理 项 目 中 所 涉 及 的 数 据 表 为 例 来 介 绍 表 和 数 据 库 的 基 本 操 作 表 2.1 学 生 表 表 2.2 成 绩 表 表 2.3 课 程 表 实 训 2.1 表 的 建 立 与 修 改 任 务 目 标 本 实 训 的 目 的 是 掌 握 表 的 创 建 和 相 关 修 改 操 作, 具 体 包 括 以 下 内 容 : (1) 熟 练 掌 握 数 据 表 结 构 的 建 立 修 改 等 操 作 (2) 熟 练 掌 握 数 据 表 记 录 的 追 加 显 示 修 改 查 询 和 删 除 等

7 第 一 部 分 实 训 7 实 训 内 容 与 步 骤 例 2.1 创 建 如 表 2.1 所 示 的 自 由 表 建 立 一 个 自 由 表 有 多 种 方 法 : 可 以 使 用 系 统 菜 单 方 式 建 立, 也 可 以 使 用 命 令 方 式 建 立 根 据 表 2.1 可 以 确 定 该 表 的 表 结 构 如 表 2.4 所 示 表 2.4 XS 表 结 构 字 段 名 类 型 宽 度 小 数 位 数 学 号 字 符 型 10 姓 名 字 符 型 8 性 别 字 符 型 2 出 生 日 期 日 期 型 8 籍 贯 字 符 型 12 民 族 字 符 型 20 专 业 字 符 型 20 入 学 成 绩 数 值 型 5 1 班 级 字 符 型 20 院 系 代 码 字 符 型 10 是 否 党 员 逻 辑 型 1 个 人 简 历 备 注 型 4 照 片 通 用 型 4 (1) 使 用 系 统 菜 单 建 立 步 骤 1: 单 击 文 件 菜 单, 选 择 新 建 菜 单 项 步 骤 2: 在 新 建 对 话 框 中 选 择 表, 如 图 2 1 所 示, 单 击 新 建 文 件 按 钮 步 骤 3: 在 创 建 对 话 框 中, 选 择 保 存 路 径 为 E:\jxglxt, 输 入 表 名 XS.DBF 或 XS, 如 图 2 2 所 示, 单 击 保 存 按 钮, 打 开 表 设 计 器 对 话 框 图 2 1 新 建 对 话 框 图 2 2 创 建 对 话 框

8 8 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 步 骤 4: 选 择 字 段 选 项 卡, 按 表 2.4 依 次 输 入 字 段 名 选 择 字 段 类 型 设 置 宽 度 和 小 数 位 数 等 属 性, 如 图 2 3 所 示 图 2 3 在 字 段 选 项 卡 中 输 入 字 段 步 骤 5: 单 击 确 定 按 钮 保 存 表 结 构, 此 时 将 出 现 如 图 2 4 所 示 的 对 话 框 单 击 是 按 钮 可 以 输 入 记 录 数 据, 单 击 否 按 钮 结 束 输 入 数 据 操 作 图 2 4 是 否 立 即 输 入 数 据 的 提 示 信 息 (2) 使 用 命 令 方 式 建 立 自 由 表 在 命 令 窗 口 中 输 入 命 令 : SET DEFAULT TO E:\JXGLXT CREATE XS 打 开 表 设 计 器, 创 建 表 结 构 的 方 法 步 骤 同 菜 单 方 式 例 2.2 修 改 表 结 构 表 结 构 设 计 好 以 后, 可 以 显 示 表 结 构, 也 可 以 修 改 表 结 构 步 骤 1: 显 示 表 结 构 在 命 令 窗 口 中 输 入 : LIST STRUCTURE 将 显 示 刚 建 立 的 数 据 表 的 结 构, 对 照 表 2.1 仔 细 观 察 是 否 满 足 要 求 或 是 否 有 错 误 步 骤 2: 修 改 表 结 构 如 果 不 满 足 要 求 或 发 现 错 误, 使 用 MODIFY STRUCTURE 命 令 可 以 修 改 表 结 构 在 命 令 窗 口 中 输 入 : MODIFY STRUCTURE 将 打 开 表 设 计 器, 利 用 表 设 计 器 可 以 对 表 结 构 进 行 修 改, 例 如 单 击 插 入 按 钮 可 以 插 入 一 个 新 的 字 段, 单 击 删 除 按 钮 可 以 删 除 一 个 字 段

9 在 XS 表 中 增 加 一 个 字 段 联 系 电 话, 字 符 型, 宽 度 为 15 第 一 部 分 实 训 9 修 改 完 毕, 按 Ctrl+W 组 合 键 将 保 存 表 结 构, 此 时 将 出 现 如 图 2 5 所 示 的 对 话 框 单 击 是 按 钮 保 存 表 结 构 图 2 5 更 改 结 构 确 认 对 话 框 注 意 : 表 结 构 的 显 示 和 修 改 可 以 多 次 交 替 使 用, 直 至 可 以 熟 练 掌 握 表 结 构 的 修 改 和 表 结 构 的 显 示 例 2.3 数 据 表 的 基 本 操 作 (1) 录 入 记 录 步 骤 1: 打 开 XS 表, 在 命 令 窗 口 中 输 入 : USE XS 步 骤 2: 在 命 令 窗 口 中 输 入 : APPEND 按 照 表 2.1 所 示 录 入 记 录 录 入 完 毕 后, 按 Ctrl+W 组 合 键 存 盘 退 出 (2) 显 示 记 录 步 骤 1: 在 命 令 窗 口 中 输 入 : LIST 或 DISPLAY ALL 将 显 示 刚 才 录 入 的 所 有 记 录, 仔 细 观 察 是 否 有 误 步 骤 2: 在 命 令 窗 口 中 输 入 : LIST FIELDS 学 号, 姓 名, 入 学 成 绩 NEXT 8 将 显 示 前 8 条 记 录 的 学 号 姓 名 入 学 成 绩 记 录 (3) 修 改 编 辑 记 录 在 命 令 窗 口 中 输 入 : EDIT 或 BROWSE 修 改 记 录, 将 吴 梅 的 出 生 日 期 改 为 {^06/01/90}, 将 张 志 明 的 民 族 改 为 汉 族 (4) 记 录 定 位 步 骤 1: 打 开 学 生 表 XS.DBF, 在 命 令 窗 口 中 输 入 : USE XS 步 骤 2: 查 看 当 前 记 录 号, 输 入 命 令 :?RECNO() 步 骤 3: 查 看 记 录 指 针 是 否 到 了 表 头, 在 命 令 窗 口 中 输 入 :?BOF() 步 骤 4: 在 命 令 窗 口 中 输 入 : SKIP 1?BOF()

10 10 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导?RECNO() 查 看 记 录 指 针 是 否 到 了 表 头 和 当 前 记 录 号 步 骤 5: 在 命 令 窗 口 中 输 入 : SKIP 100?BOF()?RECNO() 步 骤 6: 将 记 录 指 针 移 动 到 末 记 录, 查 看 是 否 到 了 表 尾, 在 命 令 窗 口 中 输 入 : GO BOTTOM?EOF() 步 骤 7: 在 命 令 窗 口 中 输 入 : SKIP 100?EOF()?RECNO() 查 看 记 录 指 针 是 否 到 了 表 尾 和 当 前 记 录 号 (5) 记 录 删 除 与 恢 复 1) 将 第 一 条 记 录 和 最 后 一 条 记 录 删 除 步 骤 1: 在 命 令 窗 口 中 输 入 : USE XS GO TOP 步 骤 2: 在 命 令 窗 口 中 输 入 : DELETE 步 骤 3: 在 命 令 窗 口 中 输 入 : GO BOTTOM 步 骤 4: 在 命 令 窗 口 中 输 入 : DELETE 步 骤 5: 在 命 令 窗 口 中 输 入 : PACK 步 骤 6: 在 命 令 窗 口 中 输 入 : LIST 或 DISPLAY ALL 查 看 是 否 删 除 成 功 2) 删 除 张 姓 学 生 的 记 录 在 命 令 窗 口 中 输 入 : DELETE FOR SUBSTR( 姓 名,1,2)=" 张 " 3) 在 XS.DBF 中 对 出 生 日 期 在 1989 年 之 前 的 记 录 作 删 除 标 记 在 命 令 窗 口 中 输 入 : 或 DELETE FOR 出 生 日 期 <{^1989 / 01/01} DELETE FOR YEAR( 出 生 日 期 )<1989 4) 恢 复 逻 辑 删 除 的 记 录 在 命 令 窗 口 中 输 入 :

11 第 一 部 分 实 训 11 RECALL FOR YEAR( 出 生 日 期 )<1989 5) 恢 复 全 部 逻 辑 删 除 的 记 录 在 命 令 窗 口 中 输 入 : RECALL ALL (6) 记 录 的 替 换 1) 将 表 CJ.DBF 中 课 程 号 为 1002 成 绩 大 于 75 分 的 学 生 成 绩 增 加 10% 步 骤 1: 在 命 令 窗 口 中 输 入 : REPLACE ALL 成 绩 WITH 成 绩 *1.1 FOR 课 程 号 ="1002".AND. 成 绩 >75 步 骤 2: 在 命 令 窗 口 中 输 入 : LIST 或 DISPLAY ALL 查 看 替 换 结 果 2) 将 表 CJ.DBF 中 不 及 格 的 成 绩 加 上 5 分 在 命 令 窗 口 中 输 入 : REPLACE ALL 成 绩 WITH 成 绩 +5 FOR 成 绩 <60 (7) 记 录 的 插 入 1) 在 打 开 的 表 文 件 3 号 记 录 之 前 插 入 一 条 记 录 在 命 令 窗 口 中 输 入 : GO 3 INSERT BEFORE 2) 在 6 号 记 录 之 后 插 入 一 条 空 白 记 录 在 命 令 窗 口 中 输 入 : GO 6 INSERT BLANK 关 键 知 识 点 数 据 库 的 建 立, 表 结 构 的 创 建 与 修 改, 数 据 的 输 入 追 加 显 示 修 改 和 删 除 等 操 作 拓 展 与 思 考 1. 创 建 一 个 数 据 表, 确 定 表 结 构 时 需 要 考 虑 哪 些 方 面 的 问 题? 2. 表 中 已 有 数 据 时, 更 改 表 的 结 构 会 带 来 怎 样 的 后 果? 实 训 2.2 表 的 复 制 任 务 目 标 本 实 训 的 目 的 是 掌 握 表 及 表 结 构 的 复 制 方 法 实 训 内 容 与 步 骤 例 2.4 利 用 复 制 任 何 类 型 文 件 命 令 复 制 表 步 骤 1: 在 命 令 窗 口 中 输 入 : CLOSE ALL COPY FILE XS.DBF TO XS2.DBF

12 12 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 USE XS2 如 果 XS.DBF 表 中 带 有 备 注 文 件, 看 看 此 时 能 否 打 开, 如 果 不 能 打 开 XS2.DBF, 试 着 进 行 步 骤 2 步 骤 2: 在 命 令 窗 口 中 输 入 : COPY FILE XS.FPT TO XS2. FPT USE XS2 再 打 开 XS2.DBF 例 2.5 仅 复 制 表 结 构 步 骤 1: 在 命 令 窗 口 中 输 入 : USE XS COPY TO XS3 STRUCTURE 步 骤 2: 在 命 令 窗 口 中 输 入 : USE XS3 LIST STRUCTURE 显 示 XS3.DBF 的 表 结 构, 看 和 XS.DBF 的 表 结 构 是 否 一 致 例 2.6 从 Visual FoxPro 6.0 的 数 据 表 复 制 出 表 或 其 他 类 型 的 文 件 (1) 将 表 XS.DBF 中 出 生 日 期 在 1990 年 以 前 的 所 有 男 生 的 记 录 复 制 到 新 的 表 文 件 XS4.DBF 中,XS4.DBF 中 有 姓 名 出 生 年 月 性 别 3 个 字 段 在 命 令 窗 口 中 输 入 : COPY TO XS4 FIELDS 姓 名, 出 生 年 月, 性 别 FOR YEAR( 出 生 年 月 )<1990.AND. 性 别 =" 男 " USE XS4 LIST (2) 将 XS.DBF 的 前 5 个 记 录 复 制 到 Excel 文 件 USE XS GO TOP COPY TO TEXT3 XLS NEXT 5 (3) 以 系 统 数 据 格 式 将 XS.DBF 的 前 10 个 记 录 复 制 到 文 本 文 件 步 骤 1: 在 命 令 窗 口 中 输 入 : CLOSE ALL USE XS COPY TO TEXT1 NEXT 10 SDF 步 骤 2: 在 命 令 窗 口 中 输 入 : GO TOP COPY TO TEXT2 NEXT 10 DELIMITED 可 以 打 开 TEXT2.TXT 和 TEXT1.TXT 文 件 比 较 两 者 的 区 别 关 键 知 识 点 3 种 复 制 表 的 方 法 拓 展 与 思 考 这 3 种 复 制 表 的 方 法 有 什 么 异 同?

13 第 一 部 分 实 训 13 实 训 2.3 排 序 与 索 引 任 务 目 标 本 实 训 的 目 的 是 掌 握 排 序 与 索 引 的 建 立 和 使 用 方 法, 学 会 快 速 查 找 的 一 般 方 法, 具 体 包 括 以 下 内 容 : (1) 掌 握 排 序 的 一 般 方 法 (2) 掌 握 索 引 的 建 立 和 使 用 方 法 (3) 掌 握 快 速 查 找 的 一 般 方 法 实 训 内 容 与 步 骤 例 2.7 排 序 练 习 (1) 在 学 生 表 中 按 入 学 成 绩 升 序 排 序, 生 成 数 据 表 RXCJ.DBF 步 骤 1: 打 开 XS 表, 在 命 令 窗 口 中 输 入 : USE XS 步 骤 2: 在 命 令 窗 口 中 输 入 : SORT ON 入 学 成 绩 TO RXCJ 步 骤 3: 打 开 RXCJ.DBF 表, 在 命 令 窗 口 中 输 入 : USE RXCJ 步 骤 4: 显 示 排 序 后 的 结 果, 在 命 令 窗 口 中 输 入 : LIST 或 DISPLAY ALL 步 骤 5: 关 闭 数 据 表, 在 命 令 窗 口 中 输 入 : USE (2) 在 表 XS.DBF 中 按 专 业 升 序 排 列, 专 业 相 同 的 按 入 学 成 绩 降 序 排 列 生 成 表 文 件 ZYRX.DBF 步 骤 1: 打 开 XS 表, 在 命 令 窗 口 中 输 入 : USE XS 步 骤 2: 在 命 令 窗 口 中 输 入 : SORT ON 专 业, 入 学 成 绩 /D TO ZYRX 步 骤 3: 打 开 ZYRX.DBF 表, 在 命 令 窗 口 中 输 入 : USE ZYRX 步 骤 4: 显 示 排 序 后 的 结 果, 在 命 令 窗 口 中 输 入 : LIST 或 DISPLAY ALL 步 骤 5: 关 闭 数 据 表, 在 命 令 窗 口 中 输 入 : USE 例 2.8 建 立 索 引 练 习 (1) 在 学 生 表 中 按 学 号 建 立 单 索 引 步 骤 1: 打 开 XS 表, 在 命 令 窗 口 中 输 入 : USE XS

14 14 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 步 骤 2: 按 学 号 建 立 索 引, 在 命 令 窗 口 中 输 入 : INDEX ON 学 号 TO XH 步 骤 3: 显 示 按 学 号 索 引 后 的 结 果, 在 命 令 窗 口 中 输 入 : LIST 或 DISPLAY ALL (2) 在 XS 表 中 按 姓 名 降 序 排 列, 建 立 结 构 复 合 索 引 文 件 XS.CDX, 索 引 标 识 为 XM 在 结 构 化 复 合 索 引 文 件 XS.CDX 中 建 立 索 引 标 识 为 XB, 按 性 别 排 序 的 唯 一 索 引 步 骤 1: 在 命 令 窗 口 中 输 入 : CLOSE ALL USE XS INDEX ON 姓 名 TAG XM DESCENDING LIST 步 骤 2: 在 命 令 窗 口 中 输 入 : INDEX ON 性 别 TAG XB UNIQUE 步 骤 3: 在 命 令 窗 口 中 输 入 : LIST 查 看 显 示 结 果 有 什 么 改 变 例 2.9 快 速 查 找 步 骤 1: 在 命 令 窗 口 中 输 入 : SEEK " " 步 骤 2: 在 命 令 窗 口 中 输 入 : DISPLAY 例 2.10 在 成 绩 表 CJ.DBF 中 按 课 程 号 字 段 和 成 绩 字 段 建 立 索 引 标 识 KCCJ 的 复 合 索 引 步 骤 1: 打 开 成 绩 表, 在 命 令 窗 口 中 输 入 : USE XSCJ 步 骤 2: 按 课 程 号 字 段 和 成 绩 字 段 建 立 索 引 标 识 KCCJ 的 复 合 索 引, 在 命 令 窗 口 中 输 入 : INDEX ON 课 程 号 +STR( 成 绩,3) TAG KCCJ 步 骤 3: 在 命 令 窗 口 中 输 入 : DISPLAY ALL 查 看 显 示 结 果 有 什 么 改 变 体 包 括 : 关 键 知 识 点 排 序 和 索 引 建 立 命 令 的 使 用, 以 及 建 立 索 引 后 如 何 实 现 快 速 查 询 等, 具 (1) 利 用 SORT ON 命 令 实 现 数 据 的 排 序 (2) 利 用 INDEX ON 命 令 建 立 单 索 引 和 复 合 索 引 (3) 使 用 SEEK 命 令 实 现 快 速 查 找 拓 展 与 思 考 1. 排 序 和 索 引 有 何 异 同? 2. 单 索 引 和 复 合 索 引 在 使 用 时 有 哪 些 区 别?

15 第 一 部 分 实 训 15 实 训 2.4 查 询 任 务 目 标 本 实 训 的 目 的 是 掌 握 顺 序 查 询 和 索 引 查 询 的 使 用 方 法, 具 体 包 括 以 下 内 容 : (1)LOCATE FOR CONTINUE 命 令 的 使 用 (2)SEEK 的 使 用 方 法 实 训 内 容 与 步 骤 例 2.11 在 XS 表 中 按 顺 序 查 找 所 有 女 党 员 的 记 录, 找 到 就 显 示 该 记 录 步 骤 1: 打 开 数 据 库 表 XS 在 命 令 窗 口 中 输 入 : CLOSE ALL USE XS 步 骤 2: 顺 序 查 找 所 有 女 党 员 的 记 录, 查 看 是 否 找 到 以 及 当 前 记 录 号 在 命 令 窗 口 中 输 入 : LOCATE FOR 性 别 =" 女 ". AND. 是 否 党 员 =.T.?FOUND()?RECNO() 步 骤 3: 显 示 找 到 的 记 录, 在 命 令 窗 口 中 输 入 : DISPLAY 步 骤 4: 继 续 查 找 并 显 示, 在 命 令 窗 口 中 输 入 : CONTINUE?FOUND()?RECNO() DISPLAY 步 骤 5: 继 续 查 找 并 显 示, 在 命 令 窗 口 中 输 入 : CONTINUE?FOUND()?RECNO()?EOF() CONTINUE 例 2.12 在 XS 表 中 按 姓 名 和 出 生 日 期 分 别 建 立 复 合 索 引, 查 找 姓 名 为 杨 小 凡 的 同 学 记 录 并 显 示, 查 找 出 生 日 期 为 的 同 学 记 录 并 显 示 步 骤 1: 打 开 数 据 库 表 XS, 在 命 令 窗 口 中 输 入 : CLOSE ALL CLEAR USE XS 步 骤 2: 按 姓 名 和 出 生 日 期 建 立 索 引, 在 命 令 窗 口 中 输 入 : INDEX ON 姓 名 TAG XM INDEX ON 出 生 日 期 TAG CSRQ

16 16 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 输 入 : 步 骤 3: 确 定 当 前 索 引 为 XM, 查 找 杨 小 凡 的 同 学 记 录 在 命 令 窗 口 中 输 入 : SET ORDER TO XM SEEK" 杨 小 凡 "?RECNO() DISPLAY 步 骤 4: 确 定 当 前 索 引 为 CSRQ, 查 找 出 生 日 期 为 的 同 学 记 录 在 命 令 窗 口 中 SET ORDER TO CSRQ SEEK{^ }?RECNO() DISPLAY 关 键 知 识 点 顺 序 查 找 和 索 引 查 找 的 方 法, 包 括 : (1)LOCATE FOR CONTINUE 命 令 的 使 用 (2)SEEK 的 使 用 方 法 拓 展 与 思 考 1. 在 数 据 表 中 使 用 顺 序 查 找 和 索 引 查 找 有 哪 些 区 别? 2. 进 行 快 速 查 找 时, 需 要 注 意 哪 些 事 项? 实 训 2.5 统 计 任 务 目 标 本 实 训 的 目 的 是 掌 握 数 据 统 计 汇 总 命 令 的 使 用 方 法, 具 体 包 括 SUM AVERAGE COUNT 和 TOTAL 命 令 的 使 用 方 法 实 训 内 容 与 步 骤 例 2.13 在 成 绩 表 中 统 计 课 程 号 为 的 总 分 步 骤 1: 打 开 CJ 表, 在 命 令 窗 口 中 输 入 : USE CJ 步 骤 2: 求 各 门 课 程 成 绩 总 和, 在 命 令 窗 口 中 输 入 : SUM 成 绩 FOR 课 程 号 ="1001" SUM 成 绩 FOR 课 程 号 ="1002" SUM 成 绩 FOR 课 程 号 ="1003" 步 骤 3: 在 命 令 窗 口 中 输 入 : SUM 成 绩 FOR 课 程 号 ="1001" TO X SUM 成 绩 FOR 课 程 号 ="1002" TO Y SUM 成 绩 FOR 课 程 号 ="1003" TO Z 步 骤 4: 在 命 令 窗 口 中 输 入 :?X, Y, Z 比 较 两 者 之 间 的 区 别

17 第 一 部 分 实 训 17 例 2.14 在 成 绩 表 中 统 计 课 程 号 为 的 平 均 分 步 骤 1: 打 开 CJ 表, 在 命 令 窗 口 中 输 入 : USE CJ 步 骤 2: 求 各 门 课 程 成 绩 的 平 均 值, 在 命 令 窗 口 中 输 入 : AVERAGE 成 绩 FOR 课 程 号 ="1001" AVERAGE 成 绩 FOR 课 程 号 ="1002" AVERAGE 成 绩 FOR 课 程 号 ="1003" 步 骤 3: 在 命 令 窗 口 中 输 入 : AVERAGE 成 绩 FOR 课 程 号 ="1001" TO A AVERAGE 成 绩 FOR 课 程 号 ="1002" TO B AVERAGE 成 绩 FOR 课 程 号 ="1003" TO C 步 骤 4: 在 命 令 窗 口 中 输 入 :?A, B, C 比 较 两 者 之 间 的 区 别 例 2.15 在 学 生 表 中 统 计 男 生 人 数 步 骤 1: 打 开 XS 表, 在 命 令 窗 口 中 输 入 : USE XS 步 骤 2: 在 命 令 窗 口 中 输 入 : COUNT FOR 性 别 =" 男 " 例 2.16 对 XS 表 按 性 别 分 类 统 计 男 女 学 生 的 入 学 成 绩 总 分 步 骤 1: 打 开 XS 表, 在 命 令 窗 口 中 输 入 : CLOSE ALL USE XS 步 骤 2: 按 性 别 建 立 索 引, 在 命 令 窗 口 中 输 入 : INDEX ON 性 别 TAG XB 步 骤 3: 按 性 别 分 类 汇 总, 在 命 令 窗 口 中 输 入 : TOTAL ON 性 别 TO XSRXCJ FIELDS 入 学 成 绩 步 骤 4: 打 开 XSRXCJ 表 查 看 汇 总 结 果, 在 命 令 窗 口 中 输 入 : USE XSRXCJ LIST FIELDS 学 号, 姓 名, 性 别, 出 生 日 期, 籍 贯, 民 族, 专 业, 入 学 成 绩, 班 级, 院 系 代 号, 是 否 党 员 查 看 显 示 的 数 据 有 什 么 不 同 关 键 知 识 点 求 和 求 平 均 数 统 计 和 分 类 汇 总 命 令, 具 体 包 括 : (1) 利 用 SUM 命 令 对 数 据 表 中 的 数 值 型 记 录 求 和 (2) 利 用 AVERAGE 命 令 对 数 据 表 中 的 数 值 型 记 录 求 平 均 数 (3) 利 用 COUNT 命 令 对 数 据 表 中 的 记 录 进 行 统 计 (4) 利 用 TOTAL 命 令 对 数 据 表 中 的 数 值 型 按 条 件 进 行 分 类 汇 总 拓 展 与 思 考 1. 求 的 总 和 平 均 数 和 统 计 的 结 果 如 何 存 储 到 数 据 表 中? 2. 分 类 汇 总 中 非 数 值 型 字 段 是 如 何 处 理 的?

18 18 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 实 训 2.6 数 据 库 及 多 表 操 作 任 务 目 标 本 实 训 的 目 的 是 熟 练 掌 握 命 令 方 式 和 菜 单 方 式 下 创 建 数 据 库 和 数 据 库 表 的 方 法, 以 及 多 个 数 据 表 的 打 开 使 用 关 联 和 关 闭, 具 体 包 括 以 下 内 容 : (1) 创 建 数 据 库 和 数 据 库 表 (2) 在 数 据 库 中 添 加 移 除 数 据 表 (3) 建 立 数 据 表 间 的 永 久 性 关 系 和 临 时 性 关 系 (4) 在 不 同 工 作 区 中 打 开 不 同 的 数 据 表 实 训 内 容 与 步 骤 例 2.17 数 据 库 的 建 立 建 立 一 个 数 据 库 有 许 多 方 法, 可 以 使 用 命 令 方 式, 也 可 以 使 用 系 统 菜 单 方 式 (1) 使 用 命 令 方 式 建 立 数 据 库 在 命 令 窗 口 中 输 入 : SET DEFAULT TO E:\JXGLXT CREATE DATABASE JXGL 在 E:\JXGLXT 文 件 夹 里 生 成 一 个 名 为 JXGL.DBC 的 文 件 (2) 使 用 系 统 菜 单 方 式 建 立 数 据 库 步 骤 1: 单 击 文 件 菜 单, 然 后 选 择 新 建 选 项, 弹 出 新 建 对 话 框 步 骤 2: 在 文 件 类 型 区 域 中 选 择 数 据 库, 然 后 单 击 新 建 文 件 按 钮, 弹 出 创 建 对 话 框, 如 图 2 6 所 示 图 2 6 创 建 对 话 框 步 骤 3: 在 数 据 库 名 文 本 框 中 输 入 新 建 数 据 库 的 文 件 名, 例 如 输 入 JXGL 作 为 该 新 建 数 据 库 的 文 件 名, 单 击 保 存 按 钮 即 可 打 开 数 据 库 设 计 器 对 话 框, 利 用 该 对 话 框 即 可 创 建 一 个 名 为 JXGL.DBC 的 数 据 库

19 例 2.18 数 据 库 的 打 开 与 关 闭 第 一 部 分 实 训 19 当 数 据 库 建 好 后, 要 对 数 据 库 进 行 操 作, 例 如 要 往 数 据 库 中 添 加 数 据 表 等, 必 须 先 打 开 相 应 的 数 据 库 (1) 使 用 命 令 方 式 打 开 与 关 闭 数 据 库 步 骤 1: 在 命 令 窗 口 中 输 入 : OPEN DATABASES JXGL 即 可 打 开 刚 刚 建 立 的 名 为 JXGL.DBC 的 数 据 库 步 骤 2: 在 命 令 窗 口 中 输 入 : 或 CLOSE DATABASES CLOSE ALL 即 可 关 闭 所 打 开 的 数 据 库 (2) 使 用 菜 单 方 式 打 开 或 关 闭 数 据 库 步 骤 1: 单 击 文 件 菜 单, 然 后 选 择 打 开 选 项, 弹 出 打 开 对 话 框 在 文 件 类 型 下 拉 列 表 框 中 选 择 数 据 库 (*.dbc) 选 项, 选 择 要 打 开 的 数 据 库 文 件 名 或 在 文 件 名 文 本 框 中 输 入 要 打 开 的 数 据 库 文 件 名, 再 单 击 打 开 按 钮 即 可 打 开 数 据 库 设 计 器 步 骤 2: 关 闭 数 据 库 单 击 文 件 菜 单, 然 后 选 择 关 闭 选 项, 即 可 关 闭 数 据 库 设 计 器 例 2.19 将 XS.DBF CJ.DBF KC.DBF 三 个 数 据 表 添 加 到 JXGL.DBC 数 据 库 中 (1) 用 菜 单 方 式 添 加 表 步 骤 1: 打 开 数 据 库 设 计 器, 在 其 中 右 击, 在 弹 出 的 快 捷 菜 单 中 选 择 添 加 表 选 项, 如 图 2 7 所 示 图 2 7 在 数 据 库 设 计 器 中 添 加 表 步 骤 2: 在 弹 出 的 对 话 框 中 选 择 要 添 加 的 表, 单 击 确 定 按 钮, 如 图 2 8 所 示 重 复 操 作, 将 成 绩 表 CJ.DBF 和 课 程 表 KC.DBF 添 加 到 数 据 库 JXGL.DBF 中 (2) 用 命 令 方 式 添 加 表 到 数 据 库 中 步 骤 1: 在 命 令 窗 口 中 输 入 : OPEN DATABASE JXGL.DBC ADD TABLE XS.DBF NAME 学 生 表 ADD TABLE CJ.DBF NAME 成 绩 表 ADD TABLE KC.DBF NAME 课 程 表

20 20 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 步 骤 2: 在 命 令 窗 口 中 输 入 : MODIFY DATABASE 打 开 数 据 库 设 计 器 查 看 表 添 加 是 否 成 功 图 2 8 在 打 开 对 话 框 中 选 择 要 添 加 的 表 例 2.20 在 学 生 表 XS.DBF 中 为 性 别 字 段 设 置 有 效 性 规 则 步 骤 1: 在 性 别 字 段 有 效 性 规 则 文 本 框 中 输 入 : 性 别 =" 男 " or 性 别 =" 女 " 步 骤 2: 在 性 别 字 段 有 效 性 信 息 文 本 框 中 输 入 :" 性 别 必 须 为 男 或 女 " 步 骤 3: 在 性 别 字 段 有 效 性 默 认 值 文 本 框 中 输 入 :" 男 ", 如 图 2 9 所 示 图 2 9 字 段 的 有 效 性 规 则 设 置 例 2.21 学 生 管 理 项 目 中 的 JXGL.DBC 数 据 库 已 建 好, 内 含 XS.DBF CJ.DBF KC.DBF 三 个 数 据 表 数 据 表 XS.DBF 按 学 号 升 序 建 立 主 索 引, 其 标 记 名 为 学 号 ; 数 据 表 KC.DBF 按 课 程 代 号 升 序 建 立 主 索 引, 其 标 记 名 为 课 程 号 ; 数 据 表 CJ.DBF 中 按 学 号 和 课 程 号 升 序 建 立 普 通 索 引, 标 记 为 学 号 和 课 程 号 分 别 在 不 同 的 工 作 区 中 打 开 XS.DBF CJ.DBF KC.DBF 三 个 数 据 表

21 第 一 部 分 实 训 21 步 骤 1: 在 菜 单 方 式 下 的 操 作 选 择 窗 口 数 据 工 作 期 命 令, 弹 出 数 据 工 作 期 窗 口, 如 图 2 10 所 示, 单 击 打 开 按 钮, 弹 出 打 开 对 话 框, 如 图 2 11 所 示, 选 择 数 据 表 ( 如 XS), 单 击 确 定 按 钮 返 回 数 据 工 作 期 窗 口 步 骤 2: 在 命 令 窗 口 中 的 操 作 SELECT A USE XS SELECT B USE CJ SELECT C USE KC 图 2 10 数 据 工 作 期 窗 口 图 2 11 打 开 对 话 框 步 骤 3: 连 接 学 生 表 和 成 绩 表 输 出 学 号 姓 名 课 程 号 成 绩 并 显 示 在 命 令 窗 口 中 输 入 : SELECT A JOIN WITH B TO KCCJ FOR 学 号 =B. 学 号 FIELDS 学 号, 姓 名,B. 课 程 号,B. 成 绩 USE KCCJ DISPLAY ALL 例 2.22 建 立 XS.DBF CJ.DBF KC.DBF 三 个 数 据 表 的 永 久 性 关 系 步 骤 1: 打 开 数 据 库 文 件, 进 入 数 据 库 设 计 器 窗 口 OPEN DATABASE JXGL MODIFY DATABASE 步 骤 2: 建 立 索 引 首 先 确 定 父 表 和 子 表 如 XS.DBF 作 为 父 表,CJ.DBF 作 为 子 表, 通 过 相 同 的 关 键 字 学 号 可 以 建 立 一 对 多 关 系 ;KC.DBF 作 为 父 表,CJ.DBF 作 为 子 表, 通 过 相 同 的 关 键 字 课 程 号 也 可 以 建 立 一 对 多 关 系 利 用 表 设 计 器 把 父 表 中 与 子 表 同 名 的 字 段 定 义 为 主 索 引, 把 子 表 中 与 父 表 同 名 的 字 段 定 义 为 普 通 索 引 主 索 引 标 识 前 有 一 钥 匙 形 状 的 图 案 步 骤 3: 建 立 表 间 关 系 在 数 据 库 设 计 器 窗 口 中, 首 先 选 中 父 表 中 的 主 索 引 字 段, 然 后 按 下 鼠 标 左 键 并 拖 动 至 与 其 建 立 关 系 的 子 表 中 的 对 应 字 段 处, 再 松 开 鼠 标 左 键, 数 据 库 中 的 两 个 表 间 就 有 了 一 个 连 线, 其 一 对 多 关 系 建 立 完 成, 如 图 2 12 所 示

22 22 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 图 2 12 建 立 表 间 的 一 对 多 关 系 步 骤 4: 编 辑 表 之 间 的 永 久 关 系 若 在 建 立 关 系 时 操 作 有 误, 可 以 通 过 编 辑 关 系 对 话 框 进 行 修 改 方 法 是 : 将 鼠 标 指 针 指 向 表 的 关 系 连 线, 单 击 鼠 标 左 键 使 连 线 变 粗, 然 后 单 击 鼠 标 右 键, 在 弹 出 的 快 捷 菜 单 中 选 择 编 辑 关 系 选 项, 如 图 2 13 所 示, 弹 出 编 辑 关 系 对 话 框, 如 图 2 14 所 示 用 户 可 以 通 过 下 拉 列 表 框 选 择 子 表 索 引 标 识 实 际 上, 直 接 双 击 表 的 关 系 连 线 也 可 以 打 开 该 对 话 框 图 2 13 选 择 编 辑 关 系 选 项 图 2 14 编 辑 关 系 对 话 框 例 2.23 建 立 XS.DBF CJ.DBF KC.DBF 三 个 数 据 表 的 临 时 关 系, 并 显 示 CJ.DBF 中 学 生 的 姓 名 所 选 课 程 的 名 称 信 息 (1) 在 菜 单 方 式 下 的 操 作 步 骤 1: 在 数 据 工 作 期 窗 口 中 打 开 XS.DBF CJ.DBF KC.DBF 步 骤 2: 指 定 XS.DBF 的 主 控 索 引 为 学 号, 指 定 CJ.DBF 的 主 控 索 引 为 学 号 在 数 据 工 作 期 窗 口 中 选 中 XS, 单 击 属 性 按 钮, 弹 出 工 作 区 属 性 对 话 框, 如 图 2 15 所 示, 在 索 引 顺 序 下 拉 列 表 框 中 选 择 XS. 学 号, 单 击 确 定 按 钮 返 回 时 关 系 指 定 CJ.DBF 的 主 控 索 引 为 学 号 的 过 程 同 上 步 骤 3:XS.DBF 与 CJ.DBF 按 学 号 建 立 临 时 关 系,KC.DBF 与 CJ.DBF 按 课 程 代 号 建 立 临

23 第 一 部 分 实 训 23 图 2 15 工 作 区 属 性 对 话 框 在 数 据 工 作 期 窗 口 中 选 中 CJ, 单 击 关 系 按 钮, 再 选 中 XS, 弹 出 表 达 式 生 成 器 对 话 框, 如 图 2 16 所 示, 双 击 字 段 列 表 框 中 的 学 号, 单 击 确 定 按 钮 返 回 图 2 16 表 达 式 生 成 器 对 话 框 CJ.DBF 与 KC.DBF 按 课 程 代 号 建 立 临 时 关 系 的 过 程 同 上, 结 果 如 图 2 17 所 示 图 2 17 数 据 表 关 联 步 骤 4: 显 示 结 果, 如 图 2 18 所 示

24 24 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 图 2 18 关 联 结 果 在 命 令 窗 口 中 输 入 : LIST 学 号,XS. 姓 名, 课 程 号,KC. 课 程 名, 成 绩 (2) 在 命 令 窗 口 中 输 入 : SELECT 1 USE CJ SELECT 2 USE XS ORDER TAG 学 号 SELECT 3 USE KC ORDER TAG 课 程 号 SELECT 1 SET RELATION TO 学 号 INTO XS SET RELATION TO 课 程 号 INTO KC ADDITIVE LIST 学 号,XS. 姓 名, 课 程 号,KC. 课 程 名, 成 绩 SET RELATION TO CLOSE DATA 关 键 知 识 点 在 不 同 工 作 区 中 打 开 不 同 的 数 据 表 在 多 个 数 据 表 间 建 立 永 久 性 关 系 和 临 时 性 关 系 的 方 法 拓 展 与 思 考 建 立 永 久 性 关 系 和 临 时 性 关 系 有 什 么 区 别? 三 常 见 错 误 和 难 点 分 析 1. 在 表 设 计 器 对 话 框 中, 确 定 按 钮 插 入 按 钮 和 删 除 按 钮 不 起 作 用 出 错 原 因 : 当 前 数 据 表 为 共 享 方 式 或 当 前 数 据 表 为 只 读 方 式 解 决 方 法 : 在 Windows 环 境 下 修 改 数 据 表 的 属 性, 取 消 只 读 方 式, 以 独 占 方 式 打 开 数 据 表 在 命 令 窗 口 中 输 入 : 或 SET EXCLUSIVE ON USE XS USE XS EXCLUSIVE 2. 文 件 正 在 使 用 出 错 原 因 : 当 前 要 打 开 的 数 据 表 在 其 他 工 作 区 已 经 打 开 了 运 行 程 序 时 常 发 生 此 类 错 误

25 第 一 部 分 实 训 25 因 为 缺 少 关 闭 数 据 表 的 命 令 或 者 尚 未 执 行 到 此 类 命 令 程 序 就 被 中 断 了, 使 许 多 数 据 表 仍 处 于 打 开 状 态, 当 再 次 执 行 程 序 时 发 生 该 类 错 误 解 决 方 法 : 在 命 令 窗 口 中 输 入 : 或 CLEAR ALL CLOSE ALL 3. 修 改 表 结 构 后 无 法 从 表 设 计 器 对 话 框 中 退 出 出 错 原 因 : 当 设 置 字 段 校 验 规 则 后, 单 击 确 定 按 钮 保 存 修 改 时 系 统 将 按 设 定 的 规 则 校 验 每 个 记 录, 如 果 有 不 符 合 校 验 规 则 的 记 录, 将 不 准 退 出 解 决 方 法 : 在 系 统 弹 出 对 话 框 中, 单 击 复 选 框 取 消 设 置, 不 用 校 验 规 则 校 验 已 有 记 录 4. 在 数 据 库 中 不 能 添 加 加 入 这 个 表 出 错 原 因 : 将 属 于 某 个 数 据 库 的 数 据 表 添 加 到 另 一 个 数 据 库 时, 会 发 生 该 类 错 误 解 决 方 法 : 将 该 数 据 表 移 出 原 数 据 库, 再 进 行 添 加 5. 文 件 XXX 不 存 在 出 错 原 因 : 当 前 盘 无 此 文 件 或 者 输 错 了 文 件 名 解 决 方 法 : 指 定 当 前 工 作 目 录 或 者 输 入 正 确 的 文 件 名 6. 文 件 必 须 以 独 占 方 式 打 开 出 错 原 因 : 数 据 表 以 共 享 方 式 打 开 后, 执 行 PACK 永 久 删 除 时 将 发 生 该 类 错 误 解 决 方 法 : 以 独 占 方 式 打 开 数 据 表 7. 变 量 找 不 到 出 错 原 因 : 变 量 名 写 错 ; 当 前 数 据 表 中 无 此 字 段 ; 使 用 别 区 字 段 时 未 加 别 区 名 解 决 方 法 : 输 入 正 确 的 变 量 名 称 ; 使 用 当 前 表 中 已 有 的 字 段 名 ; 在 字 段 前 加 上 别 区 名 8. 逻 辑 错 误 : 分 类 汇 总 结 果 不 正 确 出 错 原 因 :TOTAL 语 句 执 行 前 数 据 表 未 按 指 定 关 键 字 排 序 解 决 方 法 : 按 分 类 汇 总 字 段 建 立 索 引 9. 逻 辑 错 误 : 关 联 不 成 功 出 错 原 因 : 父 表 与 子 表 关 联 字 段 的 类 型 不 同 或 宽 度 不 同 ; 子 表 未 在 关 联 字 段 上 索 引 或 未 指 定 关 联 字 段 为 主 控 索 引 ; 数 据 表 名 与 工 作 区 名 冲 突, 如 数 据 表 名 为 A.DBF 与 第 一 工 作 区 名 冲 突 解 决 方 法 : 修 改 父 表 和 子 表 的 关 联 字 段 使 其 字 段 类 型 宽 度 一 致 ; 用 关 联 字 段 对 子 表 建 立 索 引, 并 确 定 为 主 控 索 引 ; 修 改 数 据 表 名, 使 其 不 与 工 作 区 名 相 同

26 26 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 第 3 章 结 构 化 查 询 语 言 本 实 训 的 目 的 是 掌 握 Visual FoxPro 所 支 持 的 SQL 语 言, 主 要 包 括 数 据 定 义 功 能 数 据 操 纵 功 能 和 数 据 查 询 功 能 一 知 识 体 系 SQL 数 据 定 义 功 能 数 据 操 纵 功 能 数 据 查 询 功 能 表 创 建 CREATE TABLE 表 修 改 ALTER TABLE 表 撤 消 DROP TABLE 数 据 添 加 INSERT 数 据 修 改 UPDATE 数 据 删 除 DELETE 简 单 查 询 联 接 查 询 分 组 统 计 查 询 嵌 套 查 询 查 询 去 向 设 置 本 章 重 点 : 数 据 查 询 本 章 难 点 : 分 组 统 计 查 询 联 接 查 询 嵌 套 查 询 二 实 训 环 节 实 训 供 选 用 的 表 参 见 主 教 材 中 的 表 2.1 至 表 2.3 实 训 3.1 数 据 定 义 功 能 任 务 目 标 掌 握 表 的 创 建 (CREATE TABLE) 修 改 (ALTER TABLE) 和 撤 消 (DROP TABLE) 的 SQL 命 令 实 训 内 容 与 步 骤 例 3.1 创 建 表 结 构, 利 用 SQL 语 言 创 建 如 表 3.1 所 示 的 院 系 表 表 3.1 院 系 表 结 构 字 段 名 类 型 宽 度 院 系 代 号 C 18 院 系 名 称 C 20

27 第 一 部 分 实 训 27 打 开 主 教 材 第 2 章 所 建 的 学 生 管 理 数 据 库, 在 命 令 窗 口 中 输 入 : CREATE TABLE 院 系 表 ( 院 系 代 号 C(18), 院 系 名 称 C(20) ) 上 述 命 令 运 行 后, 可 以 在 相 应 的 文 件 目 录 下 找 到 新 建 的 院 系 表 例 3.2 修 改 表 结 构 : 向 院 系 表 中 添 加 一 个 新 字 段 系 主 任, 字 符 型, 宽 度 为 10 在 命 令 窗 口 中 输 入 : ALTER TABLE 院 系 表 ADD 系 主 任 C(10) 命 令 执 行 后, 在 表 设 计 器 对 话 框 中 可 以 看 到 院 系 表 结 构 例 3.3 撤 消 表 结 构 : 创 建 一 个 新 表 TABLE1, 包 含 ID1 C(10) 和 ID2 C(20) 两 个 字 段, 然 后 再 撤 消 该 表 步 骤 1: 创 建 新 表 TABLE1, 在 浏 览 窗 口 中 输 入 如 下 命 令 :CREATE TABLE TABLE1 (ID1 C(10),ID2 C(20)), 命 令 执 行 后, 在 表 设 计 器 对 话 框 中 可 以 看 到 表 TABLE1 的 结 构, 如 图 3 1 所 示 图 3 1 TABLE1 表 结 构 步 骤 2: 撤 消 表 TABLE1, 在 浏 览 窗 口 中 输 入 如 下 命 令 :DROP TABLE TABLE1, 命 令 执 行 后, 在 表 文 件 存 储 目 录 下 新 建 的 TABLE1 表 被 删 除 关 键 知 识 点 SQL 语 言 数 据 定 义 功 能 :CREATE TABLE ALTER TABLE DROP TABLE 拓 展 与 思 考 利 用 SQL 语 句 实 现 表 定 义 与 Visual FoxPro 自 身 的 表 定 义 实 现 方 式 有 什 么 不 同? 实 训 3.2 数 据 操 纵 功 能 任 务 目 标 掌 握 数 据 添 加 (INSERT) 数 据 修 改 (UPDATE) 和 数 据 删 除 (DELETE) 的 SQL 命 令 实 训 内 容 与 步 骤 1. 添 加 记 录 例 3.4 利 用 SQL 语 句 向 院 系 表 中 添 加 10 条 记 录

28 28 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 在 命 令 窗 口 中 输 入 : INSERT INTO 院 系 表 VALUES('A',' 中 医 临 床 学 院 ',' 张 义 ') INSERT INTO 院 系 表 VALUES('B',' 针 灸 骨 伤 临 床 学 院 ',' 张 亮 ') INSERT INTO 院 系 表 VALUES('C',' 药 学 院 ',' 李 宁 ') INSERT INTO 院 系 表 VALUES('D',' 中 西 医 结 合 临 床 学 院 ',' 李 一 山 ') INSERT INTO 院 系 表 VALUES('E',' 医 药 信 息 管 理 学 院 ',' 王 宁 ') INSERT INTO 院 系 表 VALUES('F',' 护 理 学 院 ',' 李 娜 ') INSERT INTO 院 系 表 VALUES('G',' 人 文 学 院 ',' 谷 凡 ') INSERT INTO 院 系 表 VALUES('H',' 医 药 信 息 工 程 学 院 ',' 吴 西 ') INSERT INTO 院 系 表 VALUES('I',' 国 际 交 流 学 院 ',' 刘 义 阳 ') INSERT INTO 院 系 表 VALUES('J',' 体 育 学 院 ',' 刘 敏 珊 ') 命 令 执 行 完 成 后, 浏 览 院 系 表 查 看 结 果 例 3.5 利 用 SQL 语 句 向 课 程 表 (KC.DBF) 中 添 加 一 条 记 录 在 命 令 窗 口 中 输 入 : INSERT INTO KC VALUES('1009',' 计 算 机 编 程 基 础 ',36) 命 令 执 行 完 成 后, 浏 览 KC 表 可 以 在 表 尾 看 到 新 添 加 的 数 据 记 录, 如 图 3 2 所 示 图 3 2 在 KC 表 中 添 加 记 录 例 3.6 利 用 SQL 语 句 向 成 绩 表 (CJ.DBF) 中 添 加 一 条 记 录 在 命 令 窗 口 中 输 入 : INSERT INTO CJ VALUES(' ','1002',87) 命 令 执 行 完 成 后, 浏 览 CJ 表 可 以 在 表 尾 看 到 新 添 加 的 数 据 记 录 2. 修 改 记 录 例 3.7 将 CJ 表 中 学 号 为 的 学 生 1002 号 课 程 的 成 绩 加 2 分 在 命 令 窗 口 中 输 入 : UPDATE CJ SET 成 绩 = 成 绩 +2 WHERE 课 程 号 ='1002' AND 学 号 =' ' 命 令 执 行 完 成 后, 浏 览 CJ 表 可 以 看 到 修 改 后 CJ 表 的 内 容 例 3.8 修 改 KC 表 中 计 算 机 编 程 基 础 的 学 时 数 为 54 在 命 令 窗 口 中 输 入 : UPDATE KC SET 学 时 数 =54 WHERE 课 程 名 =' 计 算 机 编 程 基 础 ' 命 令 执 行 完 成 后, 浏 览 KC 表, 数 据 记 录 如 图 3 3 所 示

29 第 一 部 分 实 训 29 图 3 3 KC 表 数 据 修 改 例 3.9 修 改 院 系 表 中 人 文 学 院 的 系 主 任 为 吴 歌 在 命 令 窗 口 中 输 入 : UPDATE 院 系 表 SET 系 主 任 =' 吴 歌 ' WHERE 院 系 名 称 =' 人 文 学 院 ' 命 令 执 行 完 成 后, 浏 览 院 系 表, 如 图 3 4 所 示 图 3 4 院 系 表 数 据 修 改 3. 删 除 记 录 例 3.10 逻 辑 删 除 CJ 表 中 学 号 为 的 学 生 的 成 绩 记 录 在 命 令 窗 口 中 输 入 : DELETE FROM CJ WHERE 学 号 =' ' 命 令 执 行 完 成 后, 浏 览 CJ 表, 可 以 看 到 学 号 为 的 学 生 的 成 绩 记 录 打 上 了 删 除 标 记 例 3.11 逻 辑 删 除 院 系 表 中 体 育 学 院 的 相 应 记 录 在 命 令 窗 口 中 输 入 : DELETE FROM 院 系 表 WHERE 院 系 名 称 =' 体 育 学 院 ' 命 令 执 行 完 成 后, 使 用 浏 览 菜 单 可 以 看 到 院 系 表 中 体 育 学 院 的 相 应 记 录 打 上 了 删 除 标 记 关 键 知 识 点 SQL 语 言 的 数 据 操 纵 功 能 :INSERT UPDATE DELETE 拓 展 与 思 考 利 用 SQL 语 句 实 现 表 数 据 的 添 加 修 改 和 删 除 操 作 的 方 式 与 Visual FoxPro 自 身 的 相 关 实 现 方 式 有 什 么 不 同?

30 30 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 实 训 3.3 数 据 查 询 功 能 任 务 目 标 1. 掌 握 SQL 语 言 的 数 据 查 询 命 令, 主 要 包 括 简 单 查 询 联 接 查 询 ( 内 联 接 左 联 接 右 联 接 全 联 接 ) 嵌 套 查 询 分 组 查 询 2. 掌 握 SQL 查 询 的 SELECT FROM WHERE GROUP BY ORDER BY 等 短 语 的 使 用 实 训 内 容 与 步 骤 1. 简 单 查 询 例 3.12 查 询 KC 表 中 的 所 有 信 息 在 命 令 窗 口 中 输 入 : SELECT * FROM KC 例 3.13 查 询 2009 药 学 1 班 所 有 学 生 的 学 号 姓 名 和 专 业 在 命 令 窗 口 中 输 入 : SELECT 学 号, 姓 名, 专 业 FROM XS WHERE 班 级 ='2009 药 学 1' 查 询 结 果 如 图 3 5 所 示 图 3 5 指 定 班 级 学 生 查 询 结 果 例 3.14 查 询 所 有 非 汉 族 的 女 生 学 号 姓 名 专 业 民 族 和 班 级 信 息 在 命 令 窗 口 中 输 入 : SELECT 学 号, 姓 名, 专 业, 民 族, 班 级 FROM XS WHERE 民 族!=' 汉 ' AND 性 别 =' 女 ' 查 询 结 果 如 图 3 6 所 示 图 3 6 少 数 民 族 女 生 信 息 查 询 结 果 例 3.15 查 询 CJ 表 中 所 有 考 试 学 生 的 学 号 ( 不 过 滤 重 复 记 录 ) 在 命 令 窗 口 中 输 入 : SELECT ALL 学 号 FROM CJ 查 询 结 果 如 图 3 7 所 示

31 第 一 部 分 实 训 31 例 3.16 查 询 CJ 表 中 所 有 考 试 学 生 的 学 号 ( 过 滤 重 复 记 录 ) 在 命 令 窗 口 中 输 入 : SELECT DISTINCT 学 号 FROM CJ 查 询 结 果 如 图 3 8 所 示 图 3 7 所 有 考 试 学 号 图 3 8 考 试 学 号 ( 过 滤 重 复 ) 例 3.17 查 询 课 程 号 为 1004 的 课 程 成 绩 在 60~70 分 之 间 的 记 录 在 命 令 窗 口 中 输 入 : SELECT * FROM CJ WHERE 成 绩 BETWEEN 60 AND 70 AND 课 程 号 ='1004' 查 询 结 果 如 图 3 9 所 示 图 3 9 成 绩 查 询 本 例 命 令 也 可 以 写 成 : SELECT * FROM CJ WHERE 成 绩 >=60 AND 成 绩 <=70 例 3.18 查 询 所 有 姓 李 的 学 生 信 息 在 命 令 窗 口 中 输 入 : SELECT * FROM XS WHERE 姓 名 LIKE ' 李 %' 查 询 结 果 如 图 3 10 所 示 图 3 10 学 生 姓 名 模 糊 查 询 结 果

32 32 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 例 3.19 查 询 所 有 1003 号 课 程 成 绩 信 息, 并 按 成 绩 降 序 显 示 前 3 名 的 成 绩 在 命 令 窗 口 中 输 入 : SELECT * FROM CJ WHERE 课 程 号 ='1003' ORDER BY 成 绩 DESC TOP 3 查 询 结 果 如 图 3 11 所 示 图 3 11 成 绩 降 序 排 列 查 询 结 果 2. 联 接 查 询 例 3.20 查 询 参 加 1004 号 课 程 考 试 的 学 生 的 学 号 姓 名 班 级 课 程 号 和 成 绩 ( 内 联 接 ) 在 命 令 窗 口 中 输 入 : SELECT XS. 学 号, 姓 名, 班 级, 课 程 号, 成 绩 ; FROM CJ JOIN XS ON CJ. 学 号 =XS. 学 号 WHERE 课 程 号 ='1004' 查 询 结 果 如 图 3 12 所 示 图 3 12 内 联 接 查 询 结 果 例 3.21 查 询 所 有 院 系 的 学 生 情 况, 要 求 查 询 结 果 显 示 院 系 代 号 院 系 名 称 学 号 姓 名 专 业 和 班 级 信 息 ( 外 联 接 ) 在 命 令 窗 口 中 输 入 ( 左 外 联 接 ): SELECT 院 系 表. 院 系 代 号, 院 系 名 称, 学 号, 姓 名, 专 业, 班 级 ; FROM 院 系 表 LEFT JOIN XS ON 院 系 表. 院 系 代 号 =XS. 院 系 代 号 查 询 结 果 如 图 3 13 所 示 本 例 命 令 也 可 以 写 成 ( 右 外 联 接 ): SELECT 院 系 表. 院 系 代 号, 院 系 名 称, 学 号, 姓 名, 专 业, 班 级 ; FROM XS RIGHT JOIN 院 系 表 ON XS. 院 系 代 号 = 院 系 表. 院 系 代 号

33 第 一 部 分 实 训 33 图 3 13 左 外 联 接 查 询 结 果 3. 分 组 与 统 计 查 询 例 3.22 统 计 XS 表 中 中 医 专 业 的 学 生 人 数 在 命 令 窗 口 中 输 入 : SELECT COUNT( 学 号 ) FROM XS WHERE 专 业 =' 中 医 ' 查 询 结 果 如 图 3 14 所 示 图 3 14 中 医 专 业 人 数 统 计 结 果 例 3.23 统 计 1004 号 课 程 的 总 成 绩 和 平 均 成 绩 在 命 令 窗 口 中 输 入 : SELECT SUM( 成 绩 ),AVG( 成 绩 ) FROM CJ WHERE 课 程 号 ='1004' 查 询 结 果 如 图 3 15 所 示 图 3 15 课 程 总 成 绩 和 平 均 成 绩 查 询 结 果 例 3.24 查 询 CJ 表 中 1003 号 课 程 成 绩 的 最 高 分 和 最 低 分 在 命 令 窗 口 中 输 入 : SELECT MAX( 成 绩 ),MIN( 成 绩 ) FROM CJ WHERE 课 程 号 ='1003'

34 34 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 查 询 结 果 如 图 3 16 所 示 图 3 16 课 程 成 绩 最 高 分 与 最 低 分 查 询 结 果 例 3.25 分 组 统 计 XS 表 中 每 个 院 系 的 学 生 人 数 在 命 令 窗 口 中 输 入 : SELECT 院 系 代 号,COUNT(*) FROM XS GROUP BY 院 系 代 号 查 询 结 果 如 图 3 17 所 示 图 3 17 各 院 系 人 数 分 组 统 计 查 询 结 果 例 3.26 统 计 每 位 学 生 的 考 试 总 成 绩 和 考 试 科 目 数 在 命 令 窗 口 中 输 入 : SELECT 学 号,SUM( 成 绩 ),COUNT(*) FROM CJ GROUP BY 学 号 查 询 结 果 如 图 3 18 所 示 图 3 18 学 生 总 分 与 科 目 数 分 组 统 计 结 果

35 第 一 部 分 实 训 35 例 3.27 统 计 查 询 考 试 科 目 在 2 门 以 上 的 学 生 的 平 均 成 绩 和 考 试 科 目 数 在 命 令 窗 口 中 输 入 : SELECT 学 号,AVG( 成 绩 ),COUNT(*) FROM CJ; GROUP BY 学 号 HAVING COUNT(*)>=2 查 询 结 果 如 图 3 19 所 示 图 3 19 分 组 统 计 查 询 结 果 4. 嵌 套 查 询 例 3.28 查 询 护 理 学 院 的 学 生 的 学 号 姓 名 和 籍 贯 在 命 令 窗 口 中 输 入 : SELECT 学 号, 姓 名, 籍 贯 FROM XS WHERE 院 系 代 号 =; (SELECT 院 系 代 号 FROM 院 系 表 WHERE 院 系 名 称 =' 护 理 学 院 ') 查 询 结 果 如 图 3 20 所 示 图 3 20 学 生 信 息 嵌 套 查 询 结 果 例 3.29 查 询 课 程 计 算 机 基 础 的 所 有 考 试 成 绩 信 息 在 命 令 窗 口 中 输 入 : SELECT * FROM CJ WHERE 课 程 号 =; (SELECT 课 程 号 FROM KC WHERE 课 程 名 =' 计 算 机 基 础 ') 查 询 结 果 如 图 3 21 所 示 图 3 21 课 程 成 绩 信 息 嵌 套 查 询 结 果

36 36 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 5. 查 询 结 果 去 向 设 置 例 3.30 查 询 所 有 1002 号 课 程 成 绩, 并 将 查 询 结 果 保 存 到 新 表 大 学 英 语 成 绩 中 在 命 令 窗 口 中 输 入 : SELECT * FROM CJ WHERE 课 程 号 ='1002' INTO DBF 大 学 英 语 成 绩 USE 大 学 英 语 成 绩 BROW 命 令 执 行 结 果 如 图 3 22 所 示 图 3 22 查 询 结 果 去 向 设 置 关 键 知 识 点 1. 简 单 查 询 :SELECT FROM WHERE ORDER BY TOP n 2. 联 接 查 询 :INNER JOIN LEFT OUTER JOIN RIGHT OUTER JOIN FULL JOIN 3. 分 组 统 计 查 询 :COUNT SUM AVG MAX MIN GROUP BY HAVING 4. 嵌 套 查 询 : 内 查 询 外 查 询 5. 查 询 去 向 设 置 : TO SCREEN TO FILE TO PRINTER INTO CURSOR INTO TALBE INTO ARRAY 拓 展 与 思 考 利 用 SQL 语 句 实 现 数 据 查 询 与 Visual FoxPro 的 数 据 查 询 有 什 么 不 同? 三 常 见 错 误 和 难 点 分 析 1. 简 单 查 询 中, 多 重 条 件 表 达 AND OR 连 接 符 号 的 使 用 2. 多 表 联 接 查 询, 容 易 遗 漏 联 接 条 件 3. 分 组 统 计 查 询, 分 组 依 据 列 容 易 判 断 错 误, 并 且 分 组 统 计 查 询 SELECT 短 语 中 只 能 是 分 组 依 据 列 或 统 计 函 数, 不 可 以 是 其 他 列 加 注 意 4. 嵌 套 查 询 使 用 过 程 中, 内 外 层 嵌 套 之 间 的 衔 接, 关 键 谓 词 如 IN = 等 的 使 用, 需 要 多

37 第 一 部 分 实 训 37 第 4 章 查 询 与 视 图 本 章 的 主 要 内 容 是 查 询 和 视 图 的 概 念, 详 细 介 绍 了 查 询 的 创 建 方 法 查 询 设 计 器 的 使 用 ; 简 要 介 绍 了 视 图 的 建 立 方 法, 视 图 设 计 器 与 查 询 设 计 器 的 区 别, 查 询 视 图 与 表 的 区 别 一 知 识 体 系 查 询 设 计 器 的 构 成 查 询 的 创 建 查 询 与 视 图 查 询 视 图 查 询 的 修 改 查 询 的 保 存 执 行 查 询 本 地 视 图 视 图 的 概 念 远 程 视 图 使 用 视 图 设 计 器 创 建 本 地 视 图 创 建 视 图 修 改 视 图 删 除 视 图 重 命 名 视 图 使 用 命 令 操 作 本 地 视 图 使 用 视 图 本 章 重 点 : 查 询 设 计 器 及 创 建 查 询 本 章 难 点 : 命 令 方 式 建 立 视 图 二 实 训 环 节 实 训 4.1 查 询 的 创 建 任 务 目 标 1. 掌 握 利 用 查 询 设 计 器 创 建 查 询 2. 掌 握 查 询 设 计 器 各 选 项 卡 的 功 用 与 使 用 方 法 实 训 内 容 与 步 骤 实 训 供 选 用 的 表 参 见 主 教 材 中 的 表 2.1 至 表 2.3 例 4.1 查 询 高 等 数 学 课 程 的 成 绩 情 况, 要 求 列 出 学 号 课 程 名 成 绩, 并 按 成 绩 降 序 排 列 显 示 结 果

38 38 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 本 题 主 要 考 查 查 询 设 计 器 的 使 用, 包 含 联 接 查 询 筛 选 条 件 排 序 依 据 的 使 用 等 操 作 步 骤 (1) 选 择 文 件 新 建 命 令, 弹 出 新 建 对 话 框, 选 择 查 询, 然 后 单 击 新 建 文 件 按 钮, 即 进 入 了 查 询 设 计 窗 口 (2) 添 加 查 询 所 需 的 数 据 表 KC 和 CJ, 并 按 课 程 号 建 立 联 接, 如 图 4 1 和 图 4 2 所 示 图 4 1 添 加 表 图 4 2 设 置 两 表 联 接 (3) 选 择 字 段 选 项 卡, 设 置 所 要 查 询 的 列 学 号 课 程 名 和 成 绩, 如 图 4 3 所 示 图 4 3 字 段 选 项 卡

39 (4) 选 择 筛 选 选 项 卡, 设 置 筛 选 条 件 : 课 程 名 =" 高 等 数 学 ", 如 图 4 4 所 示 第 一 部 分 实 训 39 图 4 4 筛 选 选 项 卡 (5) 选 择 排 序 依 据 选 项 卡, 设 置 按 成 绩 降 序 排 列, 如 图 4 5 所 示 图 4 5 排 序 依 据 选 项 卡 (6) 保 存 查 询 单 击 工 具 栏 中 的 保 存 按 钮 或 者 按 Ctrl+W 组 合 键, 在 弹 出 的 保 存 对 话 框 中 输 入 查 询 名 QUERY1.QPR (7) 查 询 设 计 完 毕, 单 击 Visual FoxPro 工 具 栏 中 的 运 行 按 钮 查 看 结 果 说 明 : 创 建 查 询 文 件 的 方 法 还 有 以 下 几 种, 详 细 步 骤 省 略 : 选 定 项 目 管 理 器 中 的 数 据 选 项 卡, 选 择 查 询, 单 击 新 建 按 钮, 弹 出 新 建 查 询 对 话 框, 单 击 新 建 查 询 按 钮 即 可 进 入 查 询 设 计 器 窗 口 命 令 CREATE QUERY < 查 询 文 件 名 > 选 择 工 具 向 导 命 令, 选 定 查 询, 利 用 查 询 向 导 完 成 关 键 知 识 点 1. 查 询 设 计 器 的 使 用 2. 筛 选 条 件 的 设 置 3. 查 询 去 向

40 40 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 拓 展 与 思 考 利 用 查 询 设 计 器 实 现 以 下 各 题 中 的 查 询 : (1) 查 询 学 生 童 丽 祥 的 成 绩 信 息, 要 求 列 出 姓 名 课 程 号 和 成 绩 (2) 统 计 每 个 学 生 考 试 成 绩 的 总 分 和 平 均 分, 按 学 号 降 序 排 列 显 示 结 果 (3) 统 计 1004 号 课 程 的 考 试 人 数 和 平 均 分 (4) 查 询 所 有 姓 李 的 学 生 成 绩 信 息, 列 出 姓 名 课 程 号 和 成 绩 实 训 4.2 创 建 视 图 任 务 目 标 1. 了 解 视 图 的 创 建 及 更 新 数 据 的 方 法 2. 了 解 查 询 和 视 图 的 相 同 点 和 不 同 点 实 训 内 容 与 步 骤 例 4.2 建 立 视 图, 显 示 课 程 号 课 程 名 学 号 和 成 绩, 按 成 绩 降 序 排 列, 并 能 修 改 成 绩, 最 终 显 示 前 30% 的 记 录 本 题 考 查 的 知 识 点 是 视 图 设 计 器 的 使 用, 包 括 函 数 表 达 式 分 组 筛 选 条 件 的 使 用 操 作 步 骤 (1) 右 击 数 据 库 设 计 器 窗 口 中 的 空 白 处, 弹 出 快 捷 菜 单, 如 图 4 6 所 示, 然 后 选 定 新 建 本 地 视 图 命 令 也 可 以 单 击 数 据 库 设 计 器 工 具 栏 中 的 新 建 本 地 视 图 按 钮 或 者 选 择 数 据 库 新 建 本 地 视 图 命 令, 再 继 续 步 骤 (2) 图 4 6 新 建 视 图 (2) 在 新 建 本 地 视 图 对 话 框 中 单 击 新 建 视 图 按 钮, 进 入 视 图 设 计 器, 如 图 4 7 所 示 (3) 在 添 加 表 或 视 图 对 话 框 中 选 择 要 添 加 的 CJ 和 KC 表, 并 设 置 表 之 间 的 联 接 条 件, 添 加 完 成 后 单 击 关 闭 按 钮, 此 时 添 加 的 表 已 加 入 到 视 图 设 计 器 中

41 第 一 部 分 实 训 41 图 4 7 建 立 视 图 方 式 选 择 (4) 单 击 字 段 选 项 卡, 在 可 用 字 段 列 表 框 中 选 择 需 要 输 出 的 列, 在 本 例 中 选 择 课 程 号 课 程 名 学 号 和 成 绩 (5) 单 击 排 序 依 据 选 项 卡, 设 置 按 成 绩 字 段 降 序 排 列, 如 图 4 8 所 示 图 4 8 排 序 依 据 设 置 (6) 单 击 更 新 条 件 选 项 卡, 选 择 关 键 字 段 为 课 程 号 和 成 绩, 并 将 成 绩 设 置 为 可 修 改 字 段, 选 定 发 送 SQL 更 新 复 选 框, 如 图 4 9 所 示 图 4 9 更 新 条 件 设 置 (7) 单 击 杂 项 选 项 卡, 选 择 百 分 比 复 选 框, 然 后 输 入 30( 即 按 输 出 记 录 的 30% 输 出 ), 如 图 4 10 所 示

42 42 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 图 4 10 杂 项 选 项 卡 (8) 单 击 工 具 栏 中 的 保 存 按 钮 或 者 按 Ctrl+W 组 合 键, 在 弹 出 的 对 话 框 中 输 入 视 图 名 称 VIEW1, 将 该 视 图 保 存 (9) 单 击 工 具 栏 中 的 运 行 按 钮 查 看 结 果 这 就 实 现 了 视 图 VIEW1 的 主 要 功 能, 即 查 询 所 有 考 试 课 程 的 课 程 号 课 程 名 学 号 和 成 绩, 并 按 成 绩 降 序 排 列, 最 终 显 示 前 30% 的 记 录 (10) 测 试 视 图 VIEW1 的 SQL 更 新 功 能 在 图 4 11 所 示 的 视 图 VIEW1 运 行 结 果 中, 将 课 程 号 为 1004 学 号 为 的 这 条 记 录 的 成 绩 由 原 值 86 修 改 为 90 图 4 11 视 图 VIEW1 的 更 新 修 改 后, 浏 览 原 始 的 CJ 表, 可 以 看 到,CJ 表 中 的 相 应 记 录 也 已 经 更 新, 如 图 4 12 所 示, 这 说 明 视 图 VIEW1 的 更 新 有 效 图 4 12 被 修 改 后 的 CJ 表

43 第 一 部 分 实 训 43 关 键 知 识 点 1. 视 图 的 类 型 分 为 本 地 视 图 和 远 程 视 图 2. 视 图 设 计 器 的 使 用 拓 展 与 思 考 1. 查 询 与 视 图 有 什 么 不 同? 2. 利 用 视 图 设 计 器 实 现 以 下 各 题 : (1) 建 立 视 图, 查 询 CJ 表 中 所 有 成 绩 高 于 80 分 的 记 录 (2) 建 立 视 图, 查 询 所 有 非 汉 族 的 女 生 的 学 号 姓 名 性 别 籍 贯 民 族 专 业 班 级 (3) 建 立 视 图, 查 询 所 有 男 性 党 员 信 息 (4) 建 立 视 图, 查 询 学 时 数 在 60~80 之 间 的 课 程 信 息 (5) 建 立 视 图, 查 询 1990 年 以 后 出 生 的 学 生 信 息 三 常 见 错 误 和 难 点 分 析 1. 在 查 询 设 计 器 和 视 图 设 计 器 的 字 段 选 项 卡 中 将 表 达 式 作 为 选 定 字 段 时, 需 要 使 用 函 数 和 表 达 式 生 成 器 对 话 框 生 成 表 达 式, 再 单 击 添 加 按 钮 将 其 添 加 到 字 段 列 表 中 2. 当 建 立 多 表 联 接 查 询 时, 这 些 表 之 间 一 定 要 有 联 系, 查 询 设 计 器 自 动 根 据 联 系 提 取 联 接 条 件 3. 建 立 的 查 询 如 果 设 置 了 查 询 去 向, 则 一 定 要 执 行 查 询, 否 则 不 能 得 到 所 期 望 的 结 果 4. 用 查 询 设 计 器 建 立 查 询 有 一 定 的 局 限 性, 并 不 能 实 现 所 有 的 查 询 5. 用 命 令 方 式 执 行 查 询 时, 查 询 文 件 的 扩 展 名 不 能 缺 省 6. 建 立 视 图 时, 要 先 指 定 当 前 数 据 库, 否 则 不 能 建 立 视 图

44 44 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 第 5 章 结 构 化 程 序 设 计 一 知 识 体 系 程 序 文 件 的 编 辑 运 行 程 序 文 件 的 基 本 操 作 程 序 文 件 的 创 建 打 开 保 存 输 入 输 出 命 令 程 序 的 顺 序 结 构 单 向 分 支 结 构 结 构 化 程 序 设 计 程 序 文 件 的 三 种 结 构 程 序 的 分 支 结 构 程 序 的 循 环 结 构 双 向 分 支 结 构 多 分 支 结 构 DO WHILE ENDDO 语 句 FOR ENDFOR 语 句 SCAN ENDSCAN 语 句 循 环 的 嵌 套 程 序 文 件 的 模 块 化 设 计 过 程 和 自 定 义 函 数 参 数 传 递 本 章 重 点 : 程 序 设 计 的 三 种 基 本 结 构 的 应 用, 特 别 是 分 支 结 构 和 循 环 结 构 本 章 难 点 : 1. 程 序 设 计 中 循 环 结 构 的 应 用, 特 别 是 循 环 的 嵌 套 2. 程 序 文 件 的 模 块 化 设 计 二 实 训 环 节 实 训 5.1 结 构 化 程 序 设 计 基 础 任 务 目 标 本 实 训 的 目 的 是 掌 握 Visual FoxPro 6.0( 以 下 简 称 VFP) 中 程 序 设 计 的 基 础 知 识, 主 要 包 括 程 序 文 件 的 创 建 打 开 编 辑 和 运 行 操 作,VFP 中 简 单 的 交 互 命 令 的 操 作 1. 掌 握 程 序 文 件 的 创 建 打 开 编 辑 和 运 行 操 作 2. 掌 握 简 单 的 输 入 输 出 命 令 3. 熟 悉 常 用 的 程 序 辅 助 命 令

45 第 一 部 分 实 训 45 实 训 内 容 与 步 骤 实 训 程 序 文 件 的 创 建 打 开 编 辑 和 运 行 操 作 例 5.1 创 建 一 个 程 序 文 件 EX5 1.PRG 并 保 存 程 序 功 能 为 通 过 键 盘 输 入 两 个 数, 计 算 两 个 数 的 和 并 输 出 结 果 (1) 菜 单 方 式 创 建 1 选 择 文 件 新 建 命 令, 或 者 单 击 工 具 栏 中 的 新 建 按 钮, 或 者 按 Ctrl+N 组 合 键, 弹 出 新 建 对 话 框 2 在 其 中 选 择 程 序, 再 单 击 新 建 文 件 按 钮, 弹 出 程 序 编 辑 窗 口 3 在 程 序 编 辑 窗 口 中 录 入 程 序 内 容 4 程 序 录 入 完 毕, 按 Ctrl+W 组 合 键 保 存 文 件 并 关 闭 程 序 编 辑 窗 口, 返 回 VFP 主 窗 口 (2) 命 令 方 式 创 建 在 命 令 窗 口 中 输 入 : MODIFY COMMAND[< 文 件 名 >] 即 可 打 开 一 个 程 序 编 辑 窗 口 ( 如 图 5 1 所 示 ), 建 立 或 修 改 程 序 文 件 图 5 1 程 序 EX5 1.PRG 创 建 图 例 5.2 修 改 EX5 1.PRG 程 序 文 件 : 要 求 增 加 输 出 两 个 数 的 乘 积 并 运 行 (1) 菜 单 方 式 修 改 1 选 择 文 件 打 开 命 令, 或 者 单 击 工 具 栏 中 的 打 开 按 钮, 或 者 按 Ctrl+O 组 合 键, 弹 出 打 开 对 话 框 2 在 文 件 类 型 下 拉 列 表 框 中 选 择 程 序 (*.prg;*.spr;*.mpr;*.qpr), 再 从 查 找 范 围 下 拉 列 表 框 中 找 到 EX5 1.PRG, 单 击 选 中, 再 单 击 确 定 按 钮 在 打 开 的 程 序 编 辑 窗 口 中 可 对 源 程 序 进 行 修 改 3 程 序 修 改 完 毕, 按 Ctrl+W 组 合 键 保 存 文 件 并 关 闭 程 序 编 辑 窗 口, 返 回 VFP 主 窗 口 (2) 命 令 方 式 修 改 在 命 令 窗 口 中 输 入 : MODIFY COMMAND EX5 1.PRG 在 打 开 的 程 序 编 辑 窗 口 中 修 改 源 程 序 即 可

46 46 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 (3) 菜 单 方 式 运 行 1 选 择 程 序 运 行 命 令 ( 或 按 Ctrl+D 组 合 键 ), 弹 出 运 行 对 话 框 2 在 查 找 范 围 下 拉 列 表 框 中 选 择 要 执 行 的 程 序 所 在 的 磁 盘 及 文 件 夹 3 选 择 要 执 行 的 程 序 EX5 1.PRG 4 单 击 运 行 按 钮 (4) 命 令 方 式 运 行 在 命 令 窗 口 中 输 入 : DO EX5 1.PRG 可 以 查 看 结 果 实 训 简 单 的 输 入 输 出 命 令 1. 非 格 式 化 输 入 命 令 例 5.3 利 用 WAIT 命 令 输 入 单 个 字 符 给 变 量 A1 在 命 令 窗 口 中 输 入 : WAIT " 请 输 入 一 个 字 符 :" TO A1 WINDOWS AT 10,20 TIMEOUT 5 AT 10,20 表 示 将 在 主 窗 口 的 第 10 行 第 20 列 位 置 出 现 一 个 提 示 信 息 框, 等 待 用 户 从 键 盘 上 键 入 单 个 字 符 赋 给 变 量 A1;TIMEOUT 5 表 示 若 5 秒 内 没 有 赋 值 操 作, 则 信 息 窗 口 消 失, 光 标 返 回 到 命 令 窗 口 中 例 5.4 利 用 ACCEPT 命 令 输 入 字 符 串 给 变 量 A2 在 命 令 窗 口 中 输 入 : ACCEPT " 请 输 入 字 符 串 :" TO A2 命 令 执 行 情 况 如 图 5 2 所 示 图 5 2 ACCEPT 命 令 执 行 情 况 图 注 意 : 输 入 字 符 串 时 不 要 加 定 界 符 例 5.5 利 用 INPUT 命 令 输 入 字 符 串 给 变 量 A3 在 命 令 窗 口 中 输 入 : INPUT " 请 输 入 字 符 串 :" TO A3 命 令 执 行 情 况 如 图 5 3 所 示 注 意 : 输 入 字 符 串 时 一 定 要 加 定 界 符, 如 中 括 号 [] 双 引 号 " " 或 单 引 号 ' '; 可 以 输 入 任 何 一 个 合 法 的 N C D L 型 表 达 式, 系 统 先 计 算 表 达 式 的 值, 再 赋 值

47 第 一 部 分 实 训 47 图 5 3 INPUT 命 令 执 行 情 况 图 2. 格 式 化 输 入 输 出 命 令 例 5.6 用 格 式 化 输 入 命 令 对 表 KC.DBF 追 加 的 空 记 录 进 行 编 辑, 输 入 新 的 内 容 程 序 EX5 2.PRG 如 下 : USE KC APPNED SAY " 请 输 入 新 课 程 的 信 息 SAY READ BROWSE USE " 课 程 号 :" GET 课 程 号 " 课 程 名 :" GET 课 程 名 " 学 时 数 :" GET 学 时 数 RETURN 程 序 运 行 结 果 如 图 5 4 所 示, 最 后 一 条 记 录 2012 JAVA 程 序 设 计 7 是 通 过 一 GET 命 令 输 入 的 图 5 GET 命 令 执 行 情 况 图

48 48 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 注 意 :READ 语 句 必 须 有, 否 则 只 能 输 出 而 不 能 对 变 量 进 行 输 入 编 辑 实 训 MessageBox 函 数 例 5.7 利 用 MessageBox 函 数 产 生 如 图 5 5 所 示 的 信 息 框 在 命 令 窗 口 中 输 入 : MessageBox(" 禁 止 进 入 ",65," 密 码 错 误 ") 运 行 结 果 如 图 5 5 所 示 图 5 5 MessageBox(" 禁 止 进 入 ",65," 密 码 错 误 ") 函 数 执 行 结 果 函 数 返 回 值 :MessageBox() 函 数 运 行 后, 选 择 不 同 的 按 钮 函 数 返 回 值 不 同 返 回 值 与 选 择 按 钮 的 对 应 关 系 如 表 5.1 所 示 执 行 A=MessageBox(" 禁 止 进 入 ",65," 密 码 错 误 "), 单 击 该 信 息 框 中 的 确 定 按 钮, 结 果 如 图 5 6 所 示 表 5.1 信 息 框 返 回 值 选 择 按 钮 返 回 值 确 定 1 取 消 2 终 止 3 重 试 4 忽 略 5 是 6 否 7 图 5 6 单 击 确 定 按 钮 MessageBox() 函 数 返 回 值 结 果 图 关 键 知 识 点 1. 程 序 文 件 的 创 建 保 存 及 运 行 方 法 2. 简 单 的 格 式 化 非 格 式 化 输 入 输 出 语 句 的 执 行, 重 点 是 三 种 非 格 式 化 输 入 命 令 的 使 用

49 第 一 部 分 实 训 49 拓 展 与 思 考 1. 用 其 他 方 法 能 创 建 程 序 文 件 吗, 例 如 在 项 目 中 创 建? 2. 三 种 非 格 式 化 的 输 入 命 令 有 什 么 区 别? 有 什 么 优 缺 点? 实 训 5.2 分 支 结 构 任 务 目 标 1. 掌 握 顺 序 结 构 的 使 用 2. 掌 握 单 分 支 结 构 的 使 用 3. 掌 握 双 分 支 和 多 分 支 结 构 的 使 用 实 训 内 容 与 步 骤 实 训 程 序 文 件 的 顺 序 结 构 的 使 用 操 作 例 5.8 编 程, 程 序 功 能 为 把 学 生 表 XS.DBF 中 新 入 党 的 学 生 的 是 否 党 员 一 栏 改 为.T. 程 序 EX5 8.PRG 的 代 码 如 下 : *EX5 8.PRG SET TALK OFF CLEAR USE XS ACCEPT " 请 输 入 要 修 改 记 录 的 学 生 姓 名 :" TO XM LOCATE FOR 姓 名 =XM REPLACE 是 否 党 员 USE SET TALK ON WITH.T. RETURN 程 序 运 行 结 果 如 图 5 7 所 示 图 5 7 程 序 EX5 8.PRG 运 行 结 果 图 例 5.9 编 程, 程 序 功 能 为 打 开 一 个 表, 表 名 由 键 盘 输 入, 显 示 该 表 的 前 两 条 记 录, 等 待 3 秒 后 再 显 示 最 后 4 条 记 录

50 50 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 程 序 EX5 9.PRG 的 代 码 如 下 : *EX5 9.PRG SET TALK OFF CLEAR ACCEPT " 请 输 入 表 名 :" TO BM USE &BM LIST NEXT 2 WAIT " 请 等 待 " TIMEOUT 3 GO BOTTOM SKIP 3 LIST REST USE SET TALK ON RETURN 实 训 程 序 文 件 的 分 支 结 构 的 使 用 操 作 例 5.10 编 程, 程 序 功 能 为 通 过 键 盘 输 入 一 个 正 整 数, 判 断 其 是 奇 数 还 是 偶 数 程 序 EX5 10.PRG 的 代 码 如 下 : *EX5 10.PRG SET TALK OFF CLEAR INPUT " 请 输 入 一 个 正 整 数 :" TO X IF INT(X/2)=X/2?X, " 为 偶 数!" ELSE?X, " 为 奇 数!" ENDIF SET TALK ON 程 序 运 行 结 果 如 图 5 8 所 示 图 5 8 程 序 EX5 10.PRG 运 行 结 果 图 例 5.11 编 程, 程 序 功 能 为 计 算 分 段 函 数 的 值 并 显 示 结 果 X 2 +X 1 (X 0) Y= 3X+4 (0<X<10) X 3 +8 (X 10) 分 析 : 此 数 学 问 题 分 三 种 情 况, 所 以 用 双 分 支 语 句 不 能 解 决, 可 以 考 虑 用 分 支 语 句 的 嵌

51 第 一 部 分 实 训 51 套 程 序 EX5 11.PRG 的 代 码 如 下 : *EX5 11.PRG SET TALK OFF CLEAR INPUT "X=" TO X IF X>=10 Y=X^3+8 ELSE IF X>0 Y=3*X+4 ELSE Y=X^2+X 1 ENDIF ENDIF?" 分 段 函 数 值 为 :"+STR(Y,10,2) SET TALK ON 程 序 运 行 结 果 如 图 5 9 所 示 图 5 9 程 序 EX5 11.PRG 运 行 结 果 图 例 5.12 编 程, 程 序 功 能 为 计 算 银 行 存 款 整 存 整 取 的 利 息 分 析 : 此 问 题 有 四 种 情 况, 如 果 用 分 支 语 句 的 嵌 套 比 较 麻 烦, 容 易 出 错, 所 以 考 虑 用 多 分 支 语 句 程 序 EX5 12.PRG 的 代 码 如 下 : *EX5 12.PRG SET TALK OFF CLEAR INPUT " 请 输 入 本 金 ( 元 ):" TO BJ INPUT " 请 输 入 存 期 ( 年 ):" TO CQ DO CASE CASE CQ>=5 RATE=4.5 && 年 利 率 为 4.5% CASE CQ>=3 RATE=3.6 && 年 利 率 为 3.6% CASE CQ>=1 RATE=2.7 && 年 利 率 为 2.7% CASE CQ>=0.5 RATE=1.2 && 年 利 率 为 1.2% ENDCASE LIXI=BJ*CQ*RATE/100

52 52 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导?" 应 得 利 息 为 :"+STR(LIXI,8,2) SET TALK ON 程 序 运 行 结 果 如 图 5 10 所 示 图 5 10 程 序 EX5 12.PRG 运 行 结 果 图 关 键 知 识 点 程 序 的 单 分 支 双 分 支 和 多 分 支 语 句 的 使 用 方 法 拓 展 与 思 考 比 较 IF 语 句 的 嵌 套 和 多 分 支 的 区 别, 并 领 会 多 分 支 语 句 的 便 捷 性 实 训 5.3 循 环 结 构 任 务 目 标 本 实 训 的 目 的 是 掌 握 VFP 中 程 序 设 计 的 循 环 结 构 的 使 用 1. 掌 握 循 环 结 构 中 DO WHILE ENDDO 语 句 的 使 用 2. 掌 握 循 环 结 构 中 FOR ENDFOR/NEXT 语 句 的 使 用 3. 掌 握 循 环 结 构 中 SCAN ENDSCAN 语 句 的 使 用 4. 掌 握 循 环 的 嵌 套 实 训 内 容 与 步 骤 实 训 循 环 结 构 中 DO WHILE ENDDO 语 句 的 操 作 例 5.13 编 程, 程 序 功 能 为 使 用 DO WHILE ENDDO 语 句 依 次 显 示 学 生 表 XS.DBF 中 的 党 员 记 录 程 序 EX5 13.PRG 的 代 码 如 下 : SET TALK OFF CLEA USE XS DO WHILE.NOT. EOF() IF 是 否 党 员 =.T. DISPLAY WAIT ENDIF

53 第 一 部 分 实 训 53 SKIP ENDDO USE SET TALK ON RETURN 程 序 运 行 结 果 如 图 5 11 所 示 图 5 11 程 序 EX5 13.PRG 运 行 结 果 图 例 5.14 编 程, 已 知 数 据 表 CJ.DBF 中 有 学 号 (C) 课 程 号 成 绩 三 个 字 段, 要 求 找 出 成 绩 最 高 的 记 录 并 显 示 程 序 EX5 14.PRG 的 代 码 如 下 : SET TALK OFF CLEA USE CJ MCJ= 成 绩 DO WHILE.NOT. EOF() IF MCJ< 成 绩 MCJ= 成 绩 ENDIF SKIP ENDDO LOCATE FOR 成 绩 =MCJ DISPLAY USE SET TALK ON RETURN 例 5.15 编 程, 程 序 功 能 为 使 用 DO WHILE ENDDO 语 句 将 前 N 个 自 然 数 的 完 全 平 方 数 累 加, 当 累 加 和 超 过 100 时 停 止 累 加 要 求 显 示 每 次 的 累 加 和 及 最 后 累 加 到 哪 个 自 然 数 程 序 EX5 15.PRG 的 代 码 如 下 : SET TALK OFF CLEAR STORE 0 TO I,S DO WHILE.T. IF S>100 EXIT ELSE

54 54 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 S=S+I^2 ENDIF?" 完 全 平 方 数 累 加 和 为 :"+STR(S,6) I=I+1 ENDDO?I 1 SET TALK ON RETURN 程 序 运 行 结 果 如 图 5 12 所 示 图 5 12 程 序 EX5 15.PRG 运 行 结 果 图 实 训 循 环 结 构 中 FOR ENDFOR/NEXT 语 句 的 操 作 例 5.16 编 程, 程 序 功 能 为 使 用 FOR ENDFOR 语 句 求 出 1~100 之 间 所 有 既 是 3 的 倍 数 又 是 5 的 倍 数 的 自 然 数 的 和 程 序 EX5 16.PRG 的 代 码 如 下 : SET TALK OFF CLEA S=0 FOR I=1 TO 100 IF MOD(I,3)=0 AND MOD(I,5)=0 S=S+I ENDIF ENDFOR?"1~100 之 间 3 和 5 的 倍 数 的 和 为 :",S SET TALK ON RETURN 例 5.17 编 程, 程 序 功 能 为 使 用 FOR ENDFOR 语 句 逐 条 显 示 学 生 表 XS.DBF 中 女 生 的 记 录 程 序 EX5 17.PRG 的 代 码 如 下 : SET TALK OFF CLEA USE XS N=RECCOUNT()

55 第 一 部 分 实 训 55 FOR I=1 TO N IF 性 别 =" 女 " DISPLAY WAIT ENDIF SKIP ENDFOR RETURN 实 训 循 环 结 构 中 SCAN ENDSCAN 语 句 的 操 作 例 5.18 编 程, 程 序 功 能 为 使 用 SCAN ENDSCAN 语 句 统 计 学 生 表 XS.DBF 中 男 生 和 女 生 的 人 数 分 析 : 对 于 表 的 循 环 用 SCAN ENDSCAN 语 句 更 方 便 一 些 程 序 EX5 18.PRG 的 代 码 如 下 : SET TALK OFF CLEA USE XS M=0 W=0 COUNT TO N SCAN IF 性 别 =" 男 " LOOP ENDIF W=W+1 ENDSCAN M=N W?"M=",M,"W=",W SET TALK ON RETURN 实 训 循 环 嵌 套 的 应 用 例 5.19 编 程, 要 求 用 循 环 打 印 如 图 5 13 所 示 的 图 形 * * 图 5 13 * * * 打 印 图 形 解 题 思 路 : 用 两 重 循 环 分 别 控 制 星 号 行 和 列 的 位 置 程 序 EX5 19.PRG 的 代 码 如 下 : SET TALK OFF CLEA I=1

56 56 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 DO WHILE I<=5 K=1 J=1 DO WHILE J<= SAY "*" K=K+1 J=J+1 ENDDO I=I+1 ENDDO SET TALK ON RETURN 程 序 运 行 结 果 如 图 5 14 所 示 思 考 : 使 用 其 他 方 法 求 解 本 题 例 5.20 编 程, 求 1!+2!+ +20! 图 5 14 程 序 EX5 19.PRG 运 行 结 果 图 解 题 思 路 : 需 要 两 重 循 环, 内 层 循 环 是 计 算 一 个 数 的 阶 乘, 外 层 循 环 是 控 制 1~20 程 序 EX5 20.PRG 的 代 码 如 下 : SET TALK OFF CLEA S=0 FOR I=1 TO 20 P=1 FOR J=1 TO P=P*J ENDFOR S=S+P ENDFOR?S SET TALK ON RETURN 关 键 知 识 点 1. 程 序 的 三 种 循 环 语 句 的 使 用 方 法 I 2. 循 环 和 分 支 语 句 的 嵌 套 循 环 和 循 环 语 句 的 嵌 套

57 第 一 部 分 实 训 57 拓 展 与 思 考 循 环 结 构 的 三 种 语 句 能 互 换 使 用 吗? 它 们 各 有 什 么 优 缺 点? 实 训 5.4 过 程 及 自 定 义 函 数 任 务 目 标 本 实 训 的 目 的 是 熟 悉 VFP 中 模 块 化 的 程 序 设 计 方 法 1. 熟 悉 过 程 和 过 程 文 件 的 应 用 2. 熟 悉 自 定 义 函 数 的 应 用 3. 熟 悉 参 数 调 用 实 训 内 容 与 步 骤 实 训 过 程 的 应 用 例 5.21 编 程, 要 求 利 用 主 程 序 调 用 子 程 序 实 现 程 序 功 能 即 输 入 圆 的 半 径 R 值, 求 圆 的 面 积 程 序 代 码 如 下 : *EX5 21.PRG && 主 程 序 SET TALK OFF CLEA MJ=0 INPUT " 请 输 入 圆 的 半 径 " TO BJ DO SUB1 WITH BJ,MJ && 调 用 子 程 序 SUB1.PRG?" 圆 的 面 积 =",MJ && 显 示 圆 的 面 积 DO SUB2 WITH BJ,MJ && 调 用 子 程 序 SUB2.PRG?" 圆 的 周 长 =",MJ && 显 示 圆 的 周 长 RETURN ****** 计 算 圆 面 积 ****** *SUB1.PRG PARAMETERS R,S S=PI()*R*R RETURN && 子 程 序 && 返 回 主 程 序 ****** 计 算 圆 的 周 长 ****** *SUB2.PRG PARAMETERS R,S S=2*PI()*R RETURN 执 行 主 程 序 :DO EX5 21, 查 看 计 算 结 果 例 5.22 编 程, 要 求 利 用 主 程 序 调 用 过 程 文 件 中 的 过 程 实 现 程 序 功 能 即 计 算 两 个 数 的 加 减 乘 除 的 运 算 结 果

58 58 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 程 序 代 码 如 下 : *EX5 22.PRG SET TALK OFF CLEA SET PROC TO SUB2 && 主 程 序 && 打 开 过 程 文 件 SUB2.PRG X=100 Y=200 S=0 DO JIA WITH X,Y,S && 调 用 过 程 文 件 中 的 JIA 过 程?S DO JIAN WITH X,Y,S && 调 用 过 程 文 件 中 的 JIAN 过 程?S DO CHENG WITH X,Y,S && 调 用 过 程 文 件 中 的 CHENG 过 程?S DO CHU WITH X,Y,S && 调 用 过 程 文 件 中 的 CHU 过 程?S SET PROC TO && 关 闭 过 程 文 件 *SUB2.PRG PROCEDURE JIA PARA X,Y,S S=X+Y ENDPROC PROCEDURE JIAN PARA X,Y,S S=X Y ENDPROC PROCEDURE CHENG PARA X,Y,S S=X*Y ENDPROC PROCEDURE CHU PARA X,Y,S S=X/Y ENDPROC RETURN 程 序 运 行 结 果 如 图 5 15 所 示 && 过 程 文 件 && 返 回 主 程 序 图 5 15 程 序 EX5 22.PRG 运 行 结 果 图

59 第 一 部 分 实 训 59 实 训 自 定 义 函 数 的 应 用 例 5.23 编 程, 要 求 利 用 主 程 序 调 用 自 定 义 函 数 实 现 程 序 功 能 : 输 出 由 数 字 符 号 构 成 的 三 角 形, 如 图 5 16 所 示 图 5 16 打 印 三 角 形 程 序 代 码 如 下 : * 主 程 序 EX5 23.PRG SET TALK OFF CLEAR SS="" FOR J=1 TO 4 DO TX1 WITH J,SS?SPACE(4 J)+SS ENDFOR * 自 定 义 函 数 TX1.PRG PARA N,CC CC="" FOR I=1 TO 2*N 1 CC=CC+STR(N,1) ENDFOR RETURN CC 执 行 主 程 序 查 看 运 行 结 果 例 5.24 参 数 传 递 的 应 用 程 序 代 码 如 下 : *EX5 24.PRG CLEAR X=3 Y=4 && 返 回 值 给 主 程 序 && 主 程 序 DO SUB3 WITH X,(Y),X+Y?X,Y,X+Y RETURN * 子 程 序 SUB3.PRG PARAMETERS A,B,C A=B+C B=C+A C=A+B RETURN 程 序 运 行 结 果 如 图 5 17 所 示 分 析 : 实 参 是 变 量, 默 认 是 按 地 址 传 递, 即 双 向 传 递 ; 实 参 是 表 达 式 或 常 量, 则 是 按 值

60 60 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 传 递, 即 单 向 传 递 题 中 三 个 实 参 中 X 是 变 量,(Y) 和 X+Y 都 是 表 达 式, 所 以 子 程 序 中 A 的 值 改 变 后 能 传 回 给 X, 但 B 和 C 的 值 就 不 能 传 回 给 (Y) 和 X+Y 图 5 17 程 序 EX5 24.PRG 运 行 结 果 图 关 键 知 识 点 1. 模 块 化 程 序 设 计 的 思 想 2. 过 程 和 自 定 义 函 数 的 应 用 3. 参 数 的 传 递 拓 展 与 思 考 1. 过 程 和 自 定 义 函 数 分 别 在 什 么 条 件 下 使 用 方 便? 各 有 什 么 优 缺 点? 2. 参 数 按 值 传 递 和 按 地 址 传 递 有 什 么 区 别? 三 常 见 错 误 和 难 点 分 析 1.IF 语 句 的 嵌 套 容 易 出 错, 要 注 意 不 要 交 叉 嵌 套, 最 好 使 用 多 分 支 语 句 DO CASE ENDCASE 2. 循 环 的 嵌 套 是 难 点, 初 学 可 以 先 分 析 题 目, 画 出 流 程 图, 再 解 题 格 式 上 注 意 语 句 的 匹 配 3. 程 序 设 计 的 模 块 化 设 计 是 难 点, 要 分 清 过 程 和 自 定 义 函 数 的 区 别, 参 数 的 传 递 要 注 意 按 值 传 递 和 按 地 址 传 递 的 区 别

61 第 一 部 分 实 训 61 第 6 章 面 向 对 象 的 程 序 设 计 一 知 识 体 系 本 章 主 要 介 绍 面 向 对 象 程 序 设 计 的 基 本 概 念, 如 何 利 用 表 单 向 导 和 表 单 设 计 器 设 计 表 单, 表 单 中 各 种 常 用 控 件 的 使 用 方 法 ; 结 合 例 题 介 绍 了 表 单 及 其 控 件 的 属 性 事 件 和 方 法 的 调 用 方 法 ; 最 后 介 绍 了 表 单 集 的 基 本 操 作 面 向 对 象 程 序 设 计 方 法 用 表 单 向 导 设 计 表 单 表 单 设 计 用 表 单 设 计 器 设 计 表 单 面 向 对 象 的 程 序 设 计 表 单 控 件 表 单 的 高 级 设 计 表 单 属 性 事 件 和 方 法 输 出 类 控 件 : 标 签 列 表 框 组 合 框 图 像 线 条 形 状 输 入 类 控 件 : 文 本 框 编 辑 框 微 调 按 钮 控 制 类 控 件 : 命 令 按 钮 命 令 按 钮 组 复 选 框 计 时 器 选 项 按 钮 组 容 器 类 控 件 : 表 格 页 框 表 单 集 用 户 定 义 属 性 和 方 法 程 序 控 制 类 控 件 本 章 重 点 : 1. 对 象 及 其 属 性 事 件 和 方 法 的 概 念 2. 类 及 其 特 征 3. 表 单 以 及 各 种 控 件 的 属 性 设 置, 特 别 是 在 程 序 中 对 控 件 的 属 性 设 置 4. 表 单 以 及 各 种 控 件 的 常 用 事 件 的 代 码 编 写 5. 表 单 以 及 各 种 控 件 的 常 用 方 法 的 调 用 本 章 难 点 : 1. 常 用 事 件 的 代 码 编 写 2. 常 用 方 法 的 调 用 二 实 训 环 节 实 训 6.1 与 表 无 关 的 表 单 设 计 任 务 目 标 1. 掌 握 表 单 设 计 的 方 法

62 62 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 2. 掌 握 对 象 的 常 见 属 性 的 设 置 3. 掌 握 对 象 事 件 的 代 码 编 写 方 法 实 训 内 容 与 步 骤 实 训 文 字 滚 动 的 效 果 例 6.1 文 字 从 右 至 左 在 表 单 上 循 环 滚 动, 同 时 文 字 的 颜 色 也 在 变 化 操 作 步 骤 如 下 : (1) 界 面 设 计 打 开 表 单 设 计 器, 在 表 单 上 添 加 标 签 Label1 计 时 器 Timer1 命 令 按 钮 Command1, 表 单 设 计 界 面 如 图 6 1 所 示 图 6 1 表 单 设 计 初 始 界 面 (2) 属 性 设 置 各 对 象 属 性 设 置 如 表 6.1 所 示 表 6.1 对 象 属 性 设 置 对 象 名 属 性 名 属 性 值 Form1 Caption 文 字 滚 动 Label1 Caption 欢 迎 学 习 VFP Timer1 Interval 100 Command1 Caption 关 闭 (3) 编 写 代 码 1 表 单 的 Init 事 件 代 码 : Public I I=0 2 计 时 器 的 Timer 事 件 代 码 : IF ThisForm.Label1.Left+ThisForm.Label1.Width=0 ThisForm.Label1.Left=ThisForm.Width ELSE ThisForm.Label1.Left=ThisForm.Label1.Left 1 ENDIF I=I+10 IF I>=255*2 ThisForm.Timer1.Enabled=.T. I=0

63 第 一 部 分 实 训 63 ENDIF IF I>=255 ThisForm.Label1.ForeColor=Rgb(255*2 I,50,110) ELSE ThisForm.Label1.ForeColor=Rgb(I,80,170) ENDIF 3 命 令 按 钮 Command1 的 Click 事 件 代 码 : ThisForm.Release (4) 调 试 并 运 行 表 单, 界 面 如 图 6 2 所 示 图 6 2 表 单 运 行 界 面 关 键 知 识 点 1. 计 时 器 控 件 Interval 属 性 的 掌 握 2. 全 局 变 量 定 义 的 位 置 拓 展 与 思 考 1. 计 时 器 控 件 Interval 属 性 值 的 大 小 与 文 字 移 动 快 慢 的 关 系 是 什 么? 2. 如 何 实 现 循 环 文 字 滚 动 3. 如 何 实 现 文 字 颜 色 的 变 化? 实 训 模 拟 抽 奖 程 序 例 6.2 设 计 一 个 简 单 的 模 拟 抽 奖 程 序, 用 于 随 机 抽 取 中 奖 号 码 操 作 步 骤 如 下 : (1) 界 面 设 计 打 开 表 单 设 计 器, 在 表 单 上 添 加 标 签 Label1 和 Label2 组 合 框 Combo1 文 本 框 Text1 4 个 命 令 按 钮 Command1~Command4 计 时 器 Timer1, 表 单 设 计 界 面 如 图 6 3 所 示 图 6 3 表 单 设 计 界 面

64 64 Visual FoxPro 程 序 设 计 实 训 与 考 试 指 导 (2) 属 性 设 置 各 对 象 属 性 设 置 如 表 6.2 所 示 表 6.2 对 象 属 性 设 置 对 象 名 属 性 名 属 性 值 Form1 Caption 模 拟 抽 奖 Label1 Caption 输 入 抽 奖 人 数 Label2 Caption 空 Text1 Value 0 Timer1 Interval 100 Enabled Command1 Caption 开 始 Command2 Caption 停 止 Command3 Caption 重 置 Command4 Caption 关 闭 (3) 编 写 代 码 1 时 钟 Timer1 的 Timer 事 件 代 码 : N=ThisForm.Text1.Value ThisForm.Label2.Caption= STR(Int(Rand()*(N 1))+1) 2 开 始 按 钮 Command1 的 Click 事 件 代 码 : ThisForm.Timer1.Enabled=.T. 3 停 止 按 钮 Command2 的 Click 事 件 代 码 : Thisform.Timer1.Enabled=.F. =MessageBox(" 抽 奖 结 束, 中 奖 号 码 是 :"+ALLTRIM(ThisForm.Label2.Caption)," 抽 奖 结 果 ") 4 重 置 按 钮 Command3 的 Click 事 件 代 码 : ThisForm.Text1.Value=0 ThisForm.Label2.Caption='' ThisForm.Text1.Setfocus 5 关 闭 按 钮 Command4 的 Click 事 件 代 码 : ThisForm.Release (4) 调 试 并 运 行 表 单, 界 面 如 图 6 4 所 示.F. 图 6 4 表 单 运 行 界 面