Microsoft Word - FY.doc

Transcription

1 高 等 职 业 教 育 电 子 信 息 类 贯 通 制 教 材 ( 计 算 机 技 术 专 业 ) Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 高 职 高 专 贯 通 制 教 材 编 写 组 编 写 Publishing House of Electronics Industry 北 京 BEIJING

2 内 容 简 介 本 书 是 在 Visual FoxPro 6.0 程 序 设 计 教 程 的 基 础 上 编 写 的 配 套 教 材, 其 中 包 含 一 定 数 量 的 实 验 系 统 开 发 程 序 笔 试 模 拟 试 题 及 上 机 模 拟 试 题 书 中 的 实 验 部 分 主 要 根 据 Visual FoxPro 6.0 程 序 设 计 教 程 各 章 节 配 套 上 机 实 验 练 习, 这 一 部 分 主 要 是 使 读 者 提 高 Visual FoxPro 的 实 际 操 作 水 平 ; 系 统 开 发 部 分 介 绍 了 一 个 完 整 的 教 学 管 理 数 据 库 系 统 的 程 序 开 发, 希 望 读 者 通 过 教 材 的 学 习 可 以 独 立 开 发 出 数 据 库 管 理 系 统 软 件 ; 笔 试 及 上 机 模 拟 试 题 主 要 是 为 读 者 参 加 全 国 计 算 机 等 级 考 试 ( 二 级 ) 做 准 备 本 书 适 合 于 高 职 院 校 学 生 作 为 学 习 Visual FoxPro 6.0 的 上 机 实 验 用 书, 同 样 适 合 作 为 全 国 计 算 机 等 级 考 试 二 级 Visual FoxPro 语 言 的 辅 导 教 材 未 经 许 可, 不 得 以 任 何 方 式 复 制 或 抄 袭 本 书 之 部 分 或 全 部 内 容 版 权 所 有, 侵 权 必 究 图 书 在 版 编 目 (CIP) 数 据 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 / 高 职 高 专 贯 通 制 教 材 编 写 组 编 写. 北 京 : 电 子 工 业 出 版 社, 高 等 职 业 教 育 电 子 信 息 类 贯 通 制 教 材. 计 算 机 技 术 专 业 ISBN Ⅰ. V Ⅱ. 于 Ⅲ. 关 系 数 据 库 - 数 据 库 管 理 系 统,Visual FoxPro 6.0- 高 等 学 校 : 技 术 学 校 - 教 学 参 考 资 料 Ⅳ. TP 中 国 版 本 图 书 馆 CIP 数 据 核 字 (2004) 第 号 责 任 编 辑 : 刘 文 杰 柴 灿 印 刷 : 出 版 发 行 : 电 子 工 业 出 版 社 北 京 市 海 淀 区 万 寿 路 173 信 箱 邮 编 经 销 : 各 地 新 华 书 店 开 本 : /16 印 张 :13 字 数 :326 千 字 印 次 :2004 年 3 月 第 1 次 印 刷 印 数 :6000 册 定 价 :17.00 元 凡 购 买 电 子 工 业 出 版 社 的 图 书, 如 有 缺 损 问 题, 请 向 购 买 书 店 调 换 若 书 店 售 缺, 请 与 本 社 发 行 部 联 系 联 系 电 话 :( 010 ) 质 量 投 诉 请 发 邮 件 至 zlts@phei.com.cn, 盗 版 侵 权 举 报 请 发 邮 件 至 dbqq@phei.com.cn

3 前 言 Visual FoxPro 程 序 设 计 的 学 习 很 大 程 度 上 是 通 过 上 机 练 习 和 实 际 操 作 来 掌 握 的 在 教 学 过 程 中, 广 大 师 生 迫 切 地 需 要 有 与 教 材 相 配 套 并 且 具 有 较 高 实 用 价 值 的 实 验 指 导 与 习 题 练 习 方 面 的 教 材, 以 促 进 教 学, 取 得 更 好 的 教 学 效 果, 为 此 我 们 编 写 了 本 教 学 用 书 在 编 写 本 书 的 过 程 中, 我 们 本 着 以 职 业 能 力 培 养 为 主, 知 识 与 能 力 并 重 的 编 写 原 则, 在 编 写 内 容 上 既 考 虑 到 如 何 使 学 生 顺 利 通 过 计 算 机 等 级 考 试, 又 力 求 体 现 以 职 业 活 动 为 导 向, 以 职 业 技 能 为 核 心 的 指 导 思 想, 以 突 出 职 业 培 训 特 色 本 书 是 与 Visual FoxPro 6.0 程 序 设 计 教 程 一 书 配 套 的 上 机 实 验 指 导 与 习 题 练 习 用 书, 内 容 紧 扣 原 教 材, 根 据 原 教 材 的 进 度, 针 对 各 章 节 中 的 重 点 和 难 点 知 识, 设 计 了 相 应 的 上 机 实 验 和 模 拟 试 题 本 书 分 为 四 部 分, 第 一 部 分 为 实 验 部 分, 有 多 个 精 选 的 实 验, 力 求 突 出 代 表 性 典 型 性 和 实 用 性, 每 个 实 验 都 给 出 了 详 尽 的 解 答 和 程 序 代 码, 同 时 还 增 加 了 想 一 想 做 一 做 提 示 思 考 题 小 结 等 模 块, 既 有 利 于 初 学 者 尽 快 掌 握 必 备 知 识, 又 有 利 于 今 后 进 一 步 提 高 ; 第 二 部 分 为 系 统 开 发 程 序, 是 一 个 教 学 管 理 数 据 库 系 统 软 件, 给 出 了 详 尽 的 设 计 原 理 编 程 思 路 和 程 序 源 代 码 希 望 读 者 可 以 通 过 一 个 完 整 的 程 序 开 发 实 例 独 立 了 解 掌 握 数 据 库 程 序 开 发 ; 第 三 部 分 为 笔 试 模 拟 试 题, 其 中 共 有 10 套 模 拟 试 题, 它 们 是 学 习 Visual FoxPro 必 须 掌 握 的 内 容, 可 加 强 学 生 基 本 功 的 训 练, 为 掌 握 Visual FoxPro 打 下 扎 实 的 基 础, 同 时 也 为 读 者 参 加 全 国 计 算 机 等 级 考 试 做 好 准 备 ; 第 四 部 分 为 上 机 模 拟 试 题, 这 一 部 分 内 容 主 要 使 读 者 熟 悉 一 下 全 国 计 算 机 等 级 考 试 Visual FoxPro 上 机 操 作 题 的 题 型 书 中 所 给 出 的 实 例 全 部 在 Visual FoxPro 6.0 环 境 下 调 试 通 过 本 书 适 合 于 高 职 院 校 学 生 作 为 学 习 Visual FoxPro 6.0 的 上 机 实 验 用 书, 同 样 适 合 作 为 全 国 计 算 机 等 级 考 试 二 级 Visual FoxPro 语 言 的 辅 导 教 材 本 书 由 青 岛 酒 店 管 理 职 业 技 术 学 院 于 鹏 副 教 授 主 编, 刘 焱 吴 永 琢 胡 晓 燕 杨 东 邱 海 燕 王 俊 美 李 娜 曹 静 张 梅 王 冬 冬 钟 娟 赵 晓 燕 韩 晓 惠 胡 焉 娜 刘 俊 萍 孙 授 卿 栾 泽 玉 栾 泽 成 黄 登 纪 玉 峰 袁 照 波 于 秋 平 温 雪 等 同 志 参 加 了 本 书 的 编 写 工 作 青 岛 科 技 大 学 隋 树 林 教 授 对 本 书 的 内 容 进 行 了 审 阅, 并 对 所 涉 及 的 技 术 性 问 题 提 出 了 宝 贵 的 意 见 本 书 在 编 写 过 程 中, 得 到 了 各 级 领 导 和 专 家 的 指 导, 谨 在 此 表 示 诚 挚 的 谢 意 编 者 意 在 奉 献 给 读 者 一 本 实 用 并 具 有 特 色 的 教 材, 但 由 于 水 平 有 限, 仍 难 免 存 在 错 误 和 不 妥 之 外, 殷 切 希 望 广 大 读 者 能 够 根 据 自 己 的 观 点 给 我 们 提 出 宝 贵 意 见 为 了 方 便 教 师 教 学, 本 书 还 配 有 笔 试 模 拟 试 题 的 答 案, 请 有 此 需 要 的 教 师 与 电 子 工 业 出 版 社 联 系, 我 们 将 免 费 提 供 ve@phei.com.cn 编 者 2003 年 8 月

4 目 录 第 一 部 分 Visual FoxPro 实 验 1 上 机 实 验 安 排 1 上 机 实 验 的 目 的 和 要 求 1 实 验 1 Visual FoxPro 启 动 与 设 置 3 一 实 验 目 的 3 二 实 验 内 容 3 实 验 2 创 建 自 由 表 5 一 实 验 目 的 5 二 实 验 内 容 6 实 验 3 创 建 数 据 库 及 表 的 关 联 9 一 实 验 目 的 9 二 实 验 内 容 9 实 验 4 创 建 表 单 12 一 实 验 目 的 12 二 实 验 内 容 12 实 验 5 创 建 查 询 18 一 实 验 目 的 18 二 实 验 内 容 18 实 验 6 创 建 视 图 24 一 实 验 目 的 24 二 实 验 内 容 24 实 验 7 简 单 程 序 设 计 26 一 实 验 目 的 26 二 实 验 内 容 26 实 验 8 高 级 表 单 的 创 建 与 应 用 33 一 实 验 目 的 33 二 实 验 内 容 33 实 验 9 创 建 菜 单 40 一 实 验 目 的 40 二 实 验 内 容 41 实 验 10 报 表 设 计 45 一 实 验 目 的 45 二 实 验 内 容 45 III

5 第 二 部 分 教 学 管 理 数 据 库 应 用 系 统 开 发 简 例 53 一 开 发 VFP 数 据 库 应 用 系 统 的 一 般 步 骤 53 二 系 统 总 体 规 划 54 三 教 学 管 理 数 据 库 系 统 57 四 教 学 管 理 数 据 库 项 目 组 装 105 五 建 造 分 发 应 用 程 序 107 六 制 作 分 发 磁 盘 107 第 三 部 分 笔 试 模 拟 试 题 109 模 拟 试 题 ( 一 ) 109 模 拟 试 题 ( 二 ) 114 模 拟 试 题 ( 三 ) 119 模 拟 试 题 ( 四 ) 123 模 拟 试 题 ( 五 ) 129 模 拟 试 题 ( 六 ) 135 模 拟 试 题 ( 七 ) 141 模 拟 试 题 ( 八 ) 148 模 拟 试 题 ( 九 ) 156 模 拟 试 题 ( 十 ) 162 第 四 部 分 上 机 考 试 模 拟 试 题 169 模 拟 试 题 ( 一 ) 169 模 拟 试 题 ( 二 ) 179 模 拟 试 题 ( 三 ) 184 模 拟 试 题 ( 四 ) 186 模 拟 试 题 ( 五 ) 188 模 拟 试 题 ( 六 ) 190 模 拟 试 题 ( 七 ) 192 模 拟 试 题 ( 八 ) 195 IV

6 第 一 部 分 Visual FoxPro 实 验 上 机 实 验 安 排 上 机 实 验 的 目 的 和 要 求 Visual FoxPro 是 可 视 化 程 序 设 计 语 言, 其 程 序 设 计 是 一 门 实 践 性 非 常 强 的 课 程 从 某 种 程 度 上 来 说, 要 真 正 掌 握 Visual FoxPro 程 序 设 计 没 有 上 机 实 验 是 不 可 能 的 因 此, 与 学 习 面 向 过 程 的 程 序 设 计 不 同, 学 习 Visual FoxPro 程 序 设 计 必 须 重 视 实 践 环 节 一 般 来 说, 上 机 时 间 和 讲 课 时 间 之 比 应 不 小 于 1:1 1. 上 机 实 验 的 目 的 上 机 实 验 主 要 是 为 了 验 证 自 己 所 编 写 的 程 序 的 正 确 性, 巩 固 学 习 的 内 容, 进 一 步 理 解 教 材 和 课 堂 授 课 中 介 绍 的 知 识 等 内 容 总 的 来 看, 上 机 实 验 的 目 的 有 以 下 几 个 方 面 : (1) 掌 握 程 序 调 试 技 术 在 实 际 的 软 件 开 发 中, 程 序 调 试 是 十 分 重 要 的 方 面, 因 为 程 序 错 误 是 无 法 避 免 的, 而 且 随 着 应 用 程 序 代 码 量 的 增 加, 出 现 错 误 的 概 率 会 成 倍 增 加 为 了 发 现 和 改 正 程 序 中 的 错 误, 各 种 程 序 设 计 语 言 都 提 供 了 自 己 的 调 试 手 段, 利 用 这 些 手 段, 可 以 方 便 地 发 现 程 序 错 误 而 要 掌 握 某 种 语 言 的 程 序 调 试 技 术, 上 机 实 验 是 惟 一 的 途 径 与 其 他 语 言 相 比,Visual FoxPro 的 程 序 调 试 技 术 全 面 方 便 而 且 实 用, 只 有 通 过 多 次 上 机 实 验, 才 能 真 正 掌 握 ; 而 只 有 掌 握 了 调 试 技 术, 才 能 及 时 发 现 程 序 中 的 错 误, 并 且 能 很 快 排 除 这 些 错 误, 使 程 序 能 够 正 确 运 行 当 编 译 时 出 现 出 错 信 息 时, 经 验 丰 富 的 人 能 很 快 的 判 断 出 错 误 位 置 和 错 误 原 因 计 算 机 技 术 是 实 践 性 很 强 的 技 术, 要 求 从 业 人 员 不 仅 要 了 解 和 熟 悉 有 关 理 论 和 方 法, 而 且 要 能 够 动 手 实 践 对 于 程 序 设 计 人 员 必 须 会 编 制 程 序 并 能 够 上 机 调 试 通 过 因 此, 调 试 程 序 本 身 是 程 序 设 计 课 程 的 一 个 重 要 内 容 和 基 本 要 求, 应 充 分 重 视 程 序 调 试 固 然 可 以 借 鉴 他 人 的 现 成 经 验, 但 更 重 要 的 是 通 过 自 己 的 直 接 实 践 来 积 累, 而 且 有 些 经 验 只 能 意 会, 不 能 言 传 (2) 加 深 课 堂 讲 授 和 书 本 内 容 的 理 解 课 堂 讲 授 主 要 介 绍 语 言 的 一 些 基 本 语 法 规 则 和 注 意 事 项, 这 些 内 容 都 很 重 要, 但 枯 燥 无 味, 而 且 很 难 记 住 实 践 证 明, 通 过 上 机 来 掌 握 语 法 规 则 是 行 之 有 效 的 方 法 在 多 次 上 机 实 验 的 过 程 中, 可 以 逐 步 加 深 对 语 法 规 则 的 理 解, 掌 握 程 序 设 计 方 法 (3) 熟 悉 Visual FoxPro 的 程 序 开 发 环 境 一 个 程 序 必 须 在 一 定 的 环 境 下 运 行, 这 里 的 环 境 指 的 是 所 使 用 的 计 算 机 系 统 的 硬 件 和 软 件 条 件 为 了 运 行 一 个 Visual FoxPro 应 用 程 序, 主 要 应 了 解 它 所 运 行 的 软 件 环 境 Visual FoxPro 应 用 程 序 的 界 面 设 计 代 码 编 写 以 及 调 试 编 译 运 行 等 都 是 在 这 个 环 境 下 完 成 的 只 有 通 过 上 机 实 验, 才 能 熟 悉 和 掌 握 这 个 环 境, 从

7 2 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 而 可 以 提 高 程 序 开 发 效 率 (4) 提 高 程 序 的 健 壮 性 提 高 程 序 的 健 壮 性 是 程 序 设 计 的 重 要 标 准 之 一 计 算 机 程 序 必 须 能 够 正 确 地 操 作 才 有 价 值 但 是 对 一 个 程 序 来 说, 仅 仅 当 提 供 正 确 的 输 入 时 才 能 产 生 正 确 的 输 出 是 不 够 的 一 个 好 的 程 序 必 须 能 在 任 何 条 件 下, 即 在 它 运 行 过 程 中 可 能 遇 到 的 各 种 情 况 下 都 能 够 正 确 地 操 作 应 当 把 计 算 机 程 序 设 计 的 能 够 重 复 运 行 或 连 续 运 行 ; 它 必 须 很 耐 用, 能 够 经 得 起 偶 然 的 或 故 意 的 错 误 使 用 对 于 初 学 者 来 说, 所 编 写 的 程 序 不 是 实 用 系 统, 对 健 壮 性 的 要 求 不 是 很 高, 但 有 必 要 把 它 作 为 一 个 基 本 标 准, 以 便 从 一 开 始 就 养 成 良 好 的 程 序 设 计 习 惯 而 要 提 高 程 序 的 健 壮 性, 就 必 须 通 过 上 机 操 作 进 行 试 验 2. 上 机 实 验 的 基 本 要 求 (1) 上 机 前 的 准 备 工 作 在 上 机 实 验 之 前, 应 充 分 做 好 以 下 准 备 工 作 : 1 复 习 和 掌 握 与 本 次 实 验 有 关 的 教 学 内 容 2 根 据 本 次 试 验 的 内 容, 在 纸 上 编 写 好 准 备 上 机 的 程 序, 并 初 步 检 查 无 误 3 准 备 好 对 程 序 的 测 试 数 据 4 对 每 种 测 试 数 据, 给 出 预 期 的 程 序 运 行 结 果 5 预 习 实 验 步 骤, 对 实 验 步 骤 中 提 出 的 一 些 问 题 进 行 思 考, 并 给 出 初 步 的 解 决 方 案 (2) 上 机 实 验 的 过 程 一 般 来 说, 上 机 实 验 应 包 括 以 下 几 个 步 骤 : 步 骤 1 启 动 Visual FoxPro6.0 集 成 开 发 环 境 2 根 据 需 要 打 开 不 同 的 窗 口 例 如, 如 果 要 试 验 函 数 或 表 达 式 的 输 出 结 果, 可 打 开 立 即 窗 口 ; 如 果 要 设 计 界 面, 可 打 开 窗 口 设 计 器 窗 口 ; 如 果 要 编 写 事 件 过 程, 可 打 开 窗 口 代 码 窗 口 ; 如 果 要 编 写 标 准 模 块 的 代 码, 可 执 行 工 程 菜 单 中 的 添 加 模 块 命 令, 打 开 标 准 模 块 代 码 窗 口 等 在 大 多 数 情 况 下, 需 要 打 开 窗 体 设 计 器 窗 口, 设 计 界 面, 然 后 打 开 窗 体 代 码 窗 口, 编 写 事 件 过 程 3 调 试 程 序, 观 察 运 行 结 果 是 否 与 预 期 的 结 果 相 符 如 果 不 符, 应 检 查 程 序 有 无 错 误, 并 逐 个 修 正 4 根 据 准 备 好 的 测 试 数 据, 对 程 序 进 行 必 要 的 测 试 5 在 程 序 调 试 和 测 试 完 毕 后, 正 式 运 行 程 序, 并 将 程 序 和 运 行 结 果 打 印 在 纸 上, 以 备 检 查 6 按 照 实 验 步 骤 中 的 要 求, 对 程 序 作 必 要 的 改 动, 或 者 增 加 一 些 功 能 等 例 如 改 变 程 序 中 某 些 对 象 ( 窗 体 或 控 件 ) 的 属 性 或 增 加 不 同 的 事 件 过 程, 然 后 观 察 运 行 结 果, 从 而 进 一 步 理 解 对 象 的 操 作 (3) 整 理 实 验 报 告 上 机 实 验 结 束 后, 要 写 出 实 验 报 告 实 验 报 告 的 主 要 内 容 包 括 : 1 实 验 目 的 和 内 容 2 程 序 设 计 说 明 ( 包 括 程 序 结 构 界 面 设 计 使 用 模 块 等 ) 3 经 调 试 正 确 的 源 程 序 ( 包 括 界 面 设 计 和 代 码 )

8 第 一 部 分 Visual FoxPro 实 验 3 4 程 序 的 运 行 情 况 ( 包 括 对 不 同 测 试 数 据 的 运 行 结 果 ) 5 对 运 行 结 果 的 分 析, 并 针 对 实 验 步 骤 中 提 出 的 问 题, 写 出 解 决 方 案 注 意 在 以 下 的 实 验 中, 若 有 划 横 线 处 请 读 者 补 充 完 整 实 验 1 Visual FoxPro 启 动 与 设 置 一 实 验 目 的 (1) 掌 握 Visual FoxPro 启 动 / 退 出 的 操 作 (2) 了 解 Visual FoxPro 选 项 的 用 法 (3) 掌 握 文 件 默 认 目 录 的 设 置 二 实 验 内 容 1. 建 立 启 动 Visual FoxPro 的 快 捷 方 式 实 验 要 求 建 立 启 动 Visual FoxPro 的 快 捷 方 式 实 验 步 骤 第 1 步 : 启 动 Windows(95/98/NT/XP), 打 开 资 源 管 理 器, 在 Visual FoxPro 的 安 装 目 录 下 找 到 VFP6.exe 第 2 步 : 在 图 标 上 按 住 鼠 标 右 键, 把 该 图 标 拖 到 桌 面 上, 松 开 鼠 标 后, 出 现 弹 出 式 菜 单, 如 图 所 示 第 3 步 : 单 击 在 当 前 位 置 创 建 快 捷 方 式, 即 可 在 桌 面 上 建 立 启 动 Visual FoxPro 的 快 捷 方 式, 如 图 所 示 图 弹 出 式 菜 单 图 快 捷 方 式 2. 启 动 和 退 出 Visual FoxPro 分 别 用 以 下 几 种 方 式 启 动 Visual FoxPro: (1) 用 开 始 菜 单 中 的 程 序 命 令 (2) 用 我 的 电 脑, 单 击 Visual FoxPro 安 装 目 录 下 的 VFP6.exe 图 标 想 一 想 :Visual FoxPro 的 安 装 路 径 是 什 么? 分 别 用 以 下 几 种 方 式 退 出 Visual FoxPro: (1) 单 击 主 窗 口 右 上 角 的 关 闭 按 钮 (2) 在 命 令 窗 口 中 键 入 退 出 命 令 :Quit

9 4 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 思 考 题 : 请 列 举 其 他 启 动 与 退 出 Visual FoxPro 的 方 法 3. 制 作 一 个 用 户 自 己 的 工 具 栏 启 动 Visual FoxPro6.0 观 察 其 主 窗 口, 逐 一 将 其 主 菜 单 栏 打 开 进 行 观 察 制 作 一 个 用 户 自 己 的 工 具 栏 实 验 步 骤 第 1 步 : 打 开 显 示 菜 单 中 的 工 具 栏, 弹 出 如 图 所 示 的 工 具 栏 对 话 框 图 工 具 栏 对 话 框 第 2 步 : 选 择 新 建 按 钮, 弹 出 对 话 框 第 3 步 : 在 工 具 栏 名 称 中 输 入 所 要 创 建 的 工 具 栏 的 名 称 自 定 义 工 具 栏 单 击 确 定 按 钮 弹 出 定 制 工 具 栏 对 话 框 第 4 步 : 在 按 钮 中 选 中 所 需 要 的 图 标, 按 住 鼠 标 左 键, 将 其 拖 动 到 自 定 义 工 具 栏 中 如 图 所 示 图 定 制 工 具 栏 对 话 框

10 第 一 部 分 Visual FoxPro 实 验 5 注 意 拖 放 时 要 小 心, 否 则 容 易 出 现 多 个 工 具 栏 第 5 步 : 单 击 关 闭 按 钮, 即 可 创 建 一 个 用 户 自 定 义 的 工 具 栏 想 一 想 : 将 用 户 自 定 义 的 工 具 栏 关 闭 后, 使 用 时 如 何 调 用? 做 一 做 : 创 建 一 个 如 图 所 示 的 工 具 栏 4. 选 项 菜 单 的 用 法 思 考 题 : 图 自 定 义 工 具 栏 (1) 在 数 据 标 签 中, 以 独 占 方 式 打 开 的 含 义 ; 字 符 串 比 较 的 含 义 (2) 在 常 规 标 签 中, 有 哪 些 内 容? (3) 在 文 件 位 置 标 签 中, 有 哪 些 内 容, 含 义 是 什 么, 如 何 设 置 文 件 默 认 目 录? 如 图 所 示 实 验 2 创 建 自 由 表 图 选 项 对 话 框 一 实 验 目 的 (1) 掌 握 自 由 表 的 创 建 (2) 掌 握 表 结 构 的 修 改

11 6 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 (3) 掌 握 表 记 录 的 输 入 修 改 添 加 / 删 除 和 编 辑 (4) 掌 握 索 引 文 件 的 建 立 和 使 用 二 实 验 内 容 1. 创 建 表 结 构 及 录 入 数 据 实 验 要 求 (1) 创 建 订 单 表 和 订 单 明 细 表 2 个 表 结 构 实 验 步 骤 第 1 步 : 从 文 件 菜 单 中 选 择 新 建 命 令, 打 开 新 建 对 话 框 第 2 步 : 在 新 建 对 话 框 中 选 择 表, 然 后 选 择 新 建 文 件 如 图 所 示 第 3 步 : 图 新 建 对 话 框 第 4 步 : 在 表 设 计 器 中, 选 择 选 项 卡, 如 图 所 示 依 照 表 1-1 和 表 1-2 创 建 表 结 构 图 表 设 计 器 对 话 框 表 1-1 订 单 表 结 构 字 段 名 类 型 长 度 索 引 订 单 代 号 字 符 型 5 客 户 字 符 型 10 雇 员 字 符 型 8 订 购 日 期 日 期 型 8 到 货 日 期 日 期 型 8 发 货 日 期 日 期 型 8 运 货 商 字 符 型 10 运 货 费 货 币 型 8 货 主 名 称 字 符 型 10 货 主 地 址 字 符 型 30 邮 政 编 码 字 符 型 10

12 第 一 部 分 Visual FoxPro 实 验 7 表 1-2 订 单 明 细 表 结 构 字 段 名 类 型 长 度 索 引 订 单 代 号 字 符 型 5 产 品 代 号 字 符 型 2 单 价 货 币 型 8 数 量 数 值 型 8 折 扣 数 值 型 10 当 表 结 构 建 立 完 成 后, 系 统 会 弹 出 如 图 所 示 的 提 示 框, 选 择 是, 开 始 输 入 记 录 图 输 入 记 录 提 示 框 想 一 想 : 若 选 择 否, 下 一 次 如 何 给 自 由 表 录 入 数 据? (2) 在 2 个 表 中 分 别 输 入 记 录, 内 容 如 图 所 示 图 1.2.4(a) 订 单 表 记 录 内 容 图 1.2.4(b) 订 单 明 细 表 记 录 内 容

13 8 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 注 意 给 数 据 表 追 加 记 录 还 可 以 选 择 工 具 栏 中 的 表 追 加 新 记 录 想 一 想 : 两 种 给 表 增 加 记 录 的 方 法 有 何 不 同? 思 考 题 : (1) 打 开 订 单 表, 要 求 将 订 单 日 期 在 2003 年 07 月 1 日 之 前 的 记 录 加 删 除 标 记 (2) 对 刚 才 加 删 除 标 记 的 记 录, 将 订 单 日 期 为 2003 年 07 月 8 日 的 记 录 恢 复, 其 余 的 作 物 理 删 除 (3) 在 订 单 代 号 = 记 录 后 面 插 入 一 条 记 录, 记 录 内 容 为 刚 才 删 除 订 单 代 号 = 的 记 录 (4) 以 命 令 的 形 式 完 成 以 上 3 题 2. 索 引 文 件 的 建 立 和 使 用 思 考 题 : (1) 对 订 单 表 创 建 结 构 复 合 索 引, 分 别 取 订 单 代 号 客 户 和 订 购 日 期 作 为 标 识 符, 创 建 结 果 如 图 所 示 ( 建 立 结 构 复 合 索 引, 对 于 数 据 表 记 录 排 序 有 何 种 影 响?) 图 创 建 订 单 表 结 构 复 合 索 引 (2) 对 订 单 明 细 表 创 建 结 构 复 合 索 引, 分 别 用 订 单 代 号 和 产 品 代 号 作 为 标 识, 创 建 结 果 如 图 所 示 ( 为 什 么 不 能 定 义 两 个 字 段 的 索 引 类 型 为 候 选 索 引?) (3) 以 命 令 的 形 式 完 成 以 上 2 题 (4) 删 除 订 单 表 中 的 索 引 标 识 客 户 (5) 对 订 单 明 细 表 按 照 订 单 代 号 建 立 一 个 单 一 索 引 文 件, 并 打 开 索 引 文 件 对 订 单 明 细 表 进 行 浏 览

14 第 一 部 分 Visual FoxPro 实 验 9 想 一 想 : 记 录 的 排 列 顺 序 有 何 不 同? 图 创 建 订 单 明 细 表 结 构 复 合 索 引 实 验 3 创 建 数 据 库 及 表 的 关 联 一 实 验 目 的 (1) 掌 握 数 据 库 的 创 建 (2) 掌 握 数 据 库 中 的 表 的 添 加 方 法 (3) 掌 握 数 据 库 中 表 的 属 性 (4) 掌 握 数 据 库 中 表 的 多 种 关 系 的 创 建 二 实 验 内 容 1. 在 项 目 管 理 器 中 创 建 数 据 库 实 验 要 求 在 创 建 的 项 目 1 管 理 器 中, 创 建 名 为 订 单 管 理 数 据 库 实 验 步 骤 第 1 步 : 从 文 件 菜 单 中 选 择 新 建 命 令, 打 开 新 建 对 话 框 第 2 步 : 在 新 建 对 话 框 中 选 择 项 目, 然 后 输 入 文 件 名 存 按 钮 第 3 步 : 选 择 数 据 库, 再 单 击 新 建 按 钮, 得 到 对 话 框 第 4 步 : 单 击 新 建 数 据 库 按 钮, 得 到 保 存 数 据 库 文 件 的 对 话 框 第 5 步 : 输 入 数 据 库 名, 即 完 成 数 据 库 的 创 建 工 作 想 一 想 : 如 何 利 用 命 令 方 式 创 建 数 据 库?, 单 击 保 2. 在 数 据 库 中 添 加 / 删 除 数 据 表 实 验 要 求 在 订 单 管 理 数 据 库 中 添 加 自 由 表 订 单 表 订 单 明 细 表, 新 建 产 品 数 据 表, 删 除 产 品 数 据 表

15 10 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 实 验 步 骤 第 1 步 : 从 文 件 菜 单 中 选 择 打 开 命 令, 选 择 订 单 管 理.dbc 数 据 库, 打 开 数 据 库 窗 口 第 2 步 : 第 3 步 : 照 上 述 方 法, 可 将 其 他 数 据 表 一 一 添 入 其 中 第 4 步 : 单 击 鼠 标 右 键, 选 择 新 建 表, 创 建 产 品 数 据 表, 表 结 构 如 表 1-3 所 示, 并 输 入 记 录, 如 图 所 示 表 1-3 产 品 表 结 构 字 段 名 类 型 长 度 索 引 备 注 产 品 代 号 字 符 型 2 产 品 名 称 字 符 型 20 供 应 商 字 符 型 2 类 别 字 符 型 1 单 位 数 量 字 符 型 20 单 价 货 币 型 8 库 存 量 数 值 型 8 小 数 位 :0 订 购 量 数 值 型 8 小 数 位 :0 图 产 品 表 记 录 内 容 想 一 想 : 如 何 通 过 命 令 方 式 将 数 据 表 添 加 到 数 据 库 中? 第 5 步 : 在 数 据 库 设 计 器 中 选 中 产 品 数 据 表, 选 择 数 据 库 工 具 栏 中 的 移 去, 弹 出 第 6 步 : 选 择 移 去 数 据 表 / 选 择 删 除 数 据 表 3. 添 加 数 据 库 中 表 的 属 性 实 验 要 求 为 产 品 表 设 置 字 段 属 性 实 验 步 骤 第 1 步 : 在 项 目 管 理 器 中 选 择 产 品 表, 单 击 修 改, 弹 出 表 设 计 器 对 话 框, 如 图 所 示 第 2 步 : 在 字 段 有 效 性 规 则 中, 单 击, 打 开 表 达 式 生 成 器 第 3 步 : 在 有 效 性 规 则 文 本 框 中, 输 入 如 图 所 示 的 表 达 式

16 第 一 部 分 Visual FoxPro 实 验 11 图 表 设 计 器 对 话 框 图 有 效 性 规 则 对 话 框 第 4 步 : 单 击 确 定, 完 成 有 效 性 规 则 的 设 置 第 5 步 : 在 字 段 有 效 性 信 息 中, 单 击, 打 开 表 达 式 生 成 器 输 入 如 图 所 示 的 出 错 信 息 图 有 效 性 说 明 第 6 步 : 单 击 确 定, 完 成 字 段 有 效 性 和 出 错 信 息 的 设 置 想 一 想 : 设 置 字 段 属 性 后, 产 品 代 号 字 段 值 限 定 在 什 么 范 围 内? 4. 建 立 永 久 关 系 实 验 目 的 为 产 品 订 单 订 单 明 细 三 个 表 创 建 一 对 多 索 引 实 验 步 骤

17 12 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 第 1 步 : 在 数 据 库 设 计 器 中, 利 用 表 设 计 器 将 两 个 表 打 开, 同 时 分 别 做 好 主 索 引 和 普 通 索 引 设 产 品 表 中 产 品 代 号 为 主 索 引 ; 订 单 表 中 订 单 代 号 为 主 索 引 ; 订 单 明 细 表 中 订 单 代 号 和 产 品 代 号 为 普 通 索 引, 如 图 所 示 图 数 据 库 设 计 器 对 话 框 第 2 步 : 在 图 中 将 表 订 单 表 中 主 索 引 订 单 代 号 拖 曳 到 表 订 单 明 细 中 的 普 通 索 引 订 单 代 号 处, 这 样 就 完 成 了 两 个 表 之 间 的 永 久 关 系 的 创 建 同 理 可 以 创 建 产 品 表 和 订 单 明 细 表 之 间 的 永 久 关 系 图 建 立 索 引 做 一 做 : 请 用 命 令 的 方 式 完 成 上 述 一 对 多 关 系 的 创 建 实 验 4 创 建 表 单 一 实 验 目 的 (1) 理 解 面 向 对 象 的 概 念 (2) 掌 握 Visual FoxPro 基 本 控 件 的 使 用 (3) 掌 握 表 单 的 创 建 与 使 用 (4) 掌 握 表 单 设 计 器 的 运 用 二 实 验 内 容 1. 确 定 考 试 成 绩 是 否 优 秀 实 验 要 求

18 第 一 部 分 Visual FoxPro 实 验 13 考 试 5 门 课 程, 符 合 下 列 条 件 之 一 的 为 优 秀 成 绩 5 门 课 成 绩 总 分 超 过 450 分 ; 每 门 课 成 绩 都 在 88 分 以 上 ; 前 3 门 ( 主 课 ) 的 成 绩 都 在 95 分 以 上, 其 他 两 门 ( 非 主 课 ) 成 绩 在 80 分 以 上 请 输 入 学 生 姓 名 及 每 门 课 程 的 成 绩, 单 击 计 算 并 输 出 判 断 成 绩 是 否 优 秀, 并 输 出 总 分 与 平 均 成 绩 其 预 期 效 果 如 图 所 示 图 确 定 考 试 成 绩 优 秀 实 验 预 期 效 果 实 验 步 骤 第 1 步 : 打 开 表 单 设 计 器, 在 表 单 上 添 加 1 个 形 状 控 件 9 个 标 签,6 个 文 本 框,2 个 命 令 按 钮, 如 图 所 示 图 确 定 考 试 成 绩 优 秀 实 验 界 面 设 计

19 14 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 第 2 步 : 分 别 设 置 各 控 件 的 属 性, 如 表 1-4 所 示 表 1-4 考 试 成 绩 优 秀 实 验 各 控 件 属 性 表 对 象 属 性 值 caption 请 输 入 学 生 姓 名 : label1 fontbold.t. fontsize 11 label2 caption 输 入 考 试 成 绩 label3 caption 课 程 1 成 绩 label4 caption 课 程 2 成 绩 label5 caption 课 程 3 成 绩 label6 caption 课 程 4 成 绩 label7 caption 课 程 5 成 绩 shape1 specialeffect 0-3 维 command1 caption 计 算 并 输 出 command2 caption 退 出 第 3 步 : 编 写 代 码 (1) 计 算 并 输 出 按 钮 Command1 的 Click 事 件 : s1=val(thisform.text2.value) s2=val(thisform.text3.value) s3=val(thisform.text4.value) s4=val(thisform.text5.value) s5=val(thisform.text6.value) s=s1+s2+s3+s4+s5 cont1=s1>=88.and. s2>=88.and. s3>=88.and. s4>=88.and. s5>=88 cont2=s1>=95.and. s2>=95.and. s3>=95.and. s4>=80.and. s5>=80 if thisform.label9.caption = rtrim(thisform.text1.value)+" 的 成 绩 为 优 秀 " else endif aver=s/5 thisform.label8.caption=" 学 生 "+rtrim(thisform.text1.value)+" 的 总 分 为 "+str(s)+" 平 均 分 为 "+str(aver) (2) 退 出 按 钮 Command2 的 Click 事 件 : release thisform 第 4 步 : 在 命 令 窗 口 中 输 入 命 令, 运 行 表 单, 即 可 看 到 如 图 所 示 的 结 果 2. 格 式 化 编 辑 框 字 体 实 验 要 求

20 第 一 部 分 Visual FoxPro 实 验 15 在 编 辑 框 中 可 以 改 变 文 本 的 字 号 大 小 名 称 颜 色 以 及 字 体 外 观 等, 可 以 通 过 工 具 栏 改 变, 也 可 以 通 过 表 单 上 的 复 选 框 和 单 选 按 钮 改 变 字 号 的 大 小 通 过 微 调 器 来 改 变 其 预 期 效 果 如 图 所 示 图 文 本 框 格 式 化 运 行 结 果 实 验 步 骤 第 1 步 : 进 入 表 单 设 计 器, 在 表 单 中 添 加 2 个 列 表 框 4 个 标 签 控 件 2 个 命 令 按 钮 1 个 微 调 器 控 件 1 个 图 形 控 件 2 个 选 项 按 钮 组 6 个 复 选 框 按 钮, 其 中 3 个 复 选 框 在 形 状 控 件 中 其 布 局 如 图 所 示 图 文 本 框 格 式 化 界 面 设 计 第 2 步 : 设 置 各 控 件 属 性, 如 表 1-5 所 示

21 16 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 表 1-5 文 本 框 格 式 化 各 控 件 属 性 表 对 象 属 性 值 form1 caption 文 本 框 格 式 化 caption 字 号 大 小 (12-60) label1 fontsize 12 fontbold.t. label2 caption 字 体 外 观 fontbold.t. label3 caption 字 体 名 称 fontbold.t. label4 caption 字 体 颜 色 fontbold.t. combo1 style 2-dropdown list combo2 style 2-dropdown list value 1 caption B check1 fontbold.t. style 1-graphical caption I check2 fontbold.t. fontitalic.t. Style 1-graphical caption \<U check3 fontbold.t. style 1-graphical check4 caption 粗 体 check5 caption 斜 体 check6 caption 下 划 线 shape1 specialeffect 0-3 维 optiongroup1 buttoncount 4 option1 caption 魏 碑 option2 caption 行 楷 option3 caption 隶 书 option4 caption 幼 圆 optiongroup2 buttoncount 4 option1 caption 红 色 option2 caption 蓝 色 option3 caption 绿 色 option4 caption 黑 色 keyboardlowvalue 12 keyboardhighvalue 60 spinner1 spineerhighvalue 60 spineerlowvalue 12 inputmask 99 command1 caption 清 除 fontbold.t. command2 caption 退 出 fontbold.t.

22 第 一 部 分 Visual FoxPro 实 验 17 第 3 步 : 编 写 代 码 (1) 编 写 form1 的 ativate 事 件 : this.edit1.setfocus (2) 编 写 下 拉 列 表 框 combo1 的 init 事 件 : dimension x[1] =afont(x) for i=1 to alen(x) this.additem(x[i]) endfor this.displayvalue=" 宋 体 " (3) 编 写 下 拉 列 表 框 combol 的 interactivechange 事 件 : thisform.edit1.fontname=this.displayvalue (4) 编 写 下 拉 列 表 框 combo2 的 init 事 件 : this.additem(" 颜 色 ") this.additem(" 设 置 前 景 色...") this.additem(" 设 置 背 景 色...") this.listindex=1 (5) 编 写 下 拉 列 表 框 combo2 的 interactivechange 事 件 : do case case this.value = 1 return case this.value = 2 n1=getcolor() if n1 >-1 endif case this.value = 3 endcase n2=getcolor() if n2>-1 endif thisform.edit1.forecolor = n1 thisform.edit1.backcolor = n2 this.value = 1 (6) 编 写 复 选 框 check1 与 check4 的 click 事 件 : thisform.edit1.fontbold=this.value (7) 编 写 复 选 框 check2 与 check5 的 click 事 件 : thisform.edit2.fontitalic=this.value (8) 编 写 复 选 框 check3 与 check6 的 click 事 件 : (9) 编 写 容 器 container2 中 check1 check2 check3 的 click 事 件 :

23 18 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 (10) 编 写 optiongroup1 中 option1 option2 option3 和 option4 的 click 事 件 : thisform.edit1.fontname=this.caption (11) 编 写 optiongroup2 中 option1 的 click 事 件 : thisform.edit1.forecolor=rgb(255,0,0) (12) 编 写 optiongroup2 中 option2 的 click 事 件 : thisform.edit1.forecolor=rgb(0,128,0) (13) 编 写 optiongroup2 的 option3 的 click 事 件 : thisform.edit1.forecolor=rgb(0,0,255) (14) 编 写 optiongroup2 中 option4 的 click 事 件 : (15) 编 写 清 除 按 钮 command1 的 click 事 件 : (16) 编 写 退 出 按 钮 command2 的 click 事 件 : release thisform (17) 编 写 微 调 器 spinner1 的 interactivechange 事 件 : r=this.value thisform.edit1.fontsize=r 件 代 码? 想 一 想 : 上 题 中 若 要 使 字 体 大 小 的 可 调 范 围 为 1~100, 则 应 如 何 更 改 微 调 器 的 属 性 与 事 实 验 5 创 建 查 询 一 实 验 目 的 (1) 熟 练 掌 握 利 用 向 导 创 建 查 询 (2) 熟 练 掌 握 利 用 查 询 设 计 器 创 建 查 询 (3) 熟 练 掌 握 多 表 查 询 的 创 建 (4) 熟 练 掌 握 利 用 SQL 语 句 创 建 查 询 二 实 验 内 容 1. 利 用 向 导 创 建 查 询 实 验 要 求 查 询 订 单 管 理 库 的 产 品 表 中 单 价 在 20 元 以 下 的 产 品, 输 出 时 按 库 存 量 字 段 排 序 并 将 查 询 结 果 保 存 在 产 品 查 询.qpr 中 其 预 期 效 果 如 图 所 示

24 第 一 部 分 Visual FoxPro 实 验 19 图 产 品 查 询 预 期 效 果 实 验 步 骤 第 1 步 : 打 开 文 件 菜 单, 选 择 新 建 命 令, 在 新 建 对 话 框 中 选 择 文 件 类 型 中 的 查 询, 然 后 单 击 向 导 按 钮, 出 现 向 导 选 取 对 话 框 第 2 步 ; 在 向 导 选 取 对 话 框 中 选 择 查 询 向 导, 单 击 确 定 进 入 查 询 向 导 对 话 框 第 3 步 : 在 查 询 向 导 对 话 框 的 步 骤 1- 字 段 选 取 中 将 产 品 表 中 所 需 的 字 段 添 加 到 选 定 字 段 中, 如 图 所 示 单 击 下 一 步 图 字 段 选 取 第 4 步 : 进 入 步 骤 3- 筛 选 记 录, 在 此 对 话 框 的 字 段 框 中 选 择 产 品. 单 价, 在 操 作 符 框 中 选 择 小 于, 在 值 中 输 入 20 如 图 所 示 第 5 步 : 单 击 下 一 步, 进 入 步 骤 4- 排 序 记 录, 在 可 用 字 段 中 选 择 添 加 到 选 定 字 段 中 第 6 步 : 在 步 骤 5- 完 成 中, 单 击 预 览 按 钮 可 看 到 如 图 所 示 的 预 期 效 果, 单 击 完 成, 在 相 应 的 位 置 保 存 为 产 品 查 询.qpr

25 20 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 图 筛 选 记 录 2. 利 用 SQL 语 言 创 建 查 询 实 验 要 求 查 询 所 有 订 单 代 号 为 的 订 单 所 订 购 的 产 品 的 产 品 名 称 类 别 和 单 价 实 验 步 骤 第 1 步 : 在 命 令 窗 口 中 输 入 命 令, 进 入 程 序 编 辑 窗 口 第 2 步 : 在 程 序 编 辑 窗 口 中 输 入 以 下 代 码 : SELECT 订 单 明 细. 订 单 代 号, 产 品. 产 品 名 称, 产 品. 类 别, 订 单 明 细. 单 价 ; FROM 产 品, 订 单 明 细 ; WHERE 订 单 明 细. 订 单 代 号 = "10248";.AND. 产 品. 产 品 代 号 = 订 单 明 细. 产 品 代 号 第 3 步 : 按 Ctrl+W 保 存 为 订 单 查 询.prg, 再 在 命 令 窗 口 中 输 入, 即 可 看 到 查 询 结 果 想 一 想 : 如 何 利 用 查 询 设 计 器 完 成 上 述 查 询? 3. 利 用 查 询 设 计 器 创 建 查 询 实 验 要 求 查 询 订 单 明 细 表 中 数 量 大 于 25 小 于 50 的 记 录 并 将 结 果 保 存 在 订 单 明 细 查 询 1.pqr 中, 如 图 所 示 注 意 输 出 时 按 产 品 表 中 的 产 品 代 号 排 序, 并 按 产 品 表 中 的 产 品 代 号 字 段 分 组

26 第 一 部 分 Visual FoxPro 实 验 21 图 产 品 明 细 查 询 2 预 期 效 果 实 验 步 骤 第 1 步 : 打 开 文 件 菜 单, 选 择 新 建 命 令, 在 新 建 对 话 框 中 选 择 文 件 类 型 中 的 查 询, 然 后 单 击 新 建 文 件 按 钮, 出 现 添 加 表 或 视 图 对 话 框 想 一 想 : 如 何 用 命 令 方 式 创 建 查 询? 第 2 步 : 在 添 加 表 或 视 图 对 话 框 中 选 择 产 品 表, 单 击 添 加 按 钮, 再 选 择 订 单 明 细 表, 单 击 添 加 按 钮, 出 现 联 接 条 件 对 话 框, 如 图 所 示 图 联 接 条 件 对 话 框 第 3 步 : 单 击 确 定 按 钮, 再 单 击 添 加 表 和 视 图 对 话 框 中 的 关 闭 按 钮, 进 入 查 询 设 计 器 窗 口, 这 时, 可 以 看 到 两 表 之 间 自 动 用 细 线 连 接, 表 明 两 者 之 间 的 关 系 已 经 建 立 第 4 步 : 在 查 询 设 计 器 窗 口 中 单 击 字 段 选 项 卡, 出 现 选 择 输 出 字 段 对 话 框 在 此 对 话 框 的 可 用 字 段 框 中 依 次 双 击 产 品 和 订 单 明 细 表 中 的 相 应 字 段, 将 其 添 加 到 选 定 字 段 框 中, 如 图 所 示

27 22 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 图 字 段 选 项 卡 想 一 想 : 选 定 字 段 对 应 SQL 语 句 的 哪 一 部 分? 第 5 步 : 在 查 询 设 计 器 窗 口 中 单 击 筛 选 选 项 卡, 出 现 设 置 筛 选 条 件 对 话 框 第 6 步 : 在 查 询 设 计 器 窗 口 字 段 名 框 中 选 择 订 单 明 细 表 中 的 数 量 字 段, 在 条 件 框 中 选 择 >, 在 实 例 框 中 输 入 25, 在 逻 辑 中 选 择 AND, 在 下 一 个 字 段 名 框 中 选 择 订 单 明 细 中 的 数 量 字 段, 在 条 件 框 中 选 择 <, 在 实 例 框 中 输 入 50, 如 图 所 示 图 筛 选 选 项 卡 想 一 想 : 筛 选 条 件 对 应 SQL 语 句 的 哪 一 部 分? 该 如 何 书 写? 第 7 步 : 在 查 询 设 计 器 窗 口 中 单 击 排 序 依 据 选 项 卡, 出 现 设 置 排 序 依 据 对 话 框, 在 此 对 话 框 的 选 定 字 段 框 中 选 择 产 品 表 中 的 产 品 代 号 字 段, 单 击 添 加 按 钮, 使 之 添 加 到 排 序 条 件 框 中, 如 图 所 示 图 排 序 依 据 选 项 卡

28 第 一 部 分 Visual FoxPro 实 验 23 想 一 想 : 排 序 依 据 对 应 SQL 语 句 的 哪 一 部 分? 该 如 何 书 写? 第 8 步 : 在 查 询 设 计 器 窗 口 中 单 击 分 组 依 据 选 项 卡, 出 现 设 置 分 组 依 据 对 话 框, 在 此 对 话 框 的 可 用 字 段 框 中 选 择 产 品 表 中 的 产 品 代 号 字 段, 单 击 添 加 按 钮, 使 之 添 加 到 分 组 字 段 框 中, 如 图 所 示 图 分 组 依 据 选 项 卡 想 一 想 : 分 组 依 据 对 应 SQL 语 句 的 哪 一 部 分? 该 如 何 书 写? 第 9 步 : 单 击 工 具 栏 的 按 钮, 即 可 看 到 查 询 结 果 想 一 想 : 在 创 建 多 表 查 询 之 前, 数 据 表 之 间 应 进 行 什 么 操 作? 思 考 题 : 请 读 者 创 建 查 询, 要 求 查 询 订 单 明 细 表 中 数 量 大 于 20 小 于 50 的 记 录 输 出 字 段 为 订 单 明 细 表 中 的 订 单 代 号 单 价 数 量 和 订 单 表 中 的 货 主 名 称 和 货 主 地 址 字 段 输 出 时 按 订 单 明 细 表 中 的 订 单 代 号 字 段 排 序 并 将 查 询 结 果 保 存 在 产 品 明 细 查 询 2 中 运 用 SQL 语 言 完 成 以 下 查 询 (1) 查 询 订 单 表 中 的 所 有 元 组 (2) 查 询 产 品 表 中 所 有 产 品 的 单 价, 并 去 掉 重 复 值 (3) 查 询 折 扣 为 15% 的 产 品 的 名 称 (4) 查 询 被 运 货 商 1 运 送 的 产 品 的 代 号 (5) 查 询 到 货 日 期 为 2003 年 8 月 8 号 的 产 品 的 名 称 单 价 (6) 查 询 雇 员 5 所 经 手 的 产 品 的 所 有 信 息, 并 按 产 品 代 号 升 序 排 序 (7) 查 询 出 客 户 运 货 商 的 个 数 (8) 查 询 出 发 货 日 期 在 2003 年 7 月 17 到 2003 年 8 月 1 日 之 间 的 所 有 产 品 的 名 称 (9) 查 询 订 购 了 猪 肉 的 货 主 的 邮 编 (10) 查 询 运 送 牛 肉 干 的 运 货 商 的 名 称 (11) 查 询 产 品 表 中 所 有 类 别 为 3 的 产 品 信 息 (12) 查 询 住 在 上 清 路 16 号 的 货 主 所 订 购 产 品 的 名 称 及 到 货 日 期 (13) 统 计 运 货 费 的 总 额 (14) 查 询 有 两 个 运 货 商 的 产 品 名 称, 并 放 到 数 组 TMP 中

29 24 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 (15) 查 询 桂 花 糕 的 运 费 总 额 实 验 6 创 建 视 图 一 实 验 目 的 (1) 熟 练 掌 握 用 本 地 视 图 向 导 创 建 本 地 视 图 (2) 熟 练 掌 握 用 视 图 设 计 器 创 建 本 地 视 图 (3) 掌 握 多 表 视 图 的 创 建 二 实 验 内 容 1. 用 本 地 视 图 向 导 创 建 本 地 视 图 实 验 要 求 要 求 利 用 订 单 管 理 数 据 库 中 的 订 单 明 细 表 创 建 订 单 明 细 1_view 的 本 地 视 图, 该 视 图 中 只 包 含 产 品 数 量 小 于 40 大 于 或 等 于 25 的 记 录, 输 出 时 以 订 单 代 号 字 段 降 序 排 列 查 询 结 果 如 图 所 示 图 订 单 明 细 1_view 查 询 结 果 实 验 步 骤 第 1 步 : 打 开 订 单 管 理 数 据 库, 打 开 数 据 库 菜 单, 选 择 新 建 本 地 视 图 命 令, 出 现 新 建 本 地 视 图 对 话 框 第 2 步 : 在 新 建 本 地 视 图 对 话 框 中, 单 击 视 图 向 导 按 钮, 进 入 本 地 视 图 向 导 的 步 骤 1- 字 段 选 取 第 3 步 : 在 此 对 话 框 中 的 数 据 库 和 表 中 选 择 订 单 明 细 表 中 的 字 段, 将 可 用 字 段 中 的 字 段 全 部 添 加 到 选 定 字 段 中 第 4 步 : 单 击 下 一 步, 进 入 本 地 视 图 向 导 的 步 骤 3: 筛 选 记 录, 在 此 对 话 框 中 输 入 查 询 记 录 的 条 件 : 第 5 步 : 单 击 下 一 步, 进 入 本 地 视 图 向 导 的 步 骤 4: 排 序 记 录, 其 具 体 操 作 为 : 第 6 步 : 进 入 本 地 视 图 向 导 的 步 骤 5, 单 击 完 成 按 钮, 出 现 视 图 名 对 话 框, 在 此 对 话 框 中 输 入 订 单 明 细 _view, 单 击 确 定, 完 成 创 建 视 图 操 作 2. 利 用 视 图 设 计 器 创 建 视 图 实 验 目 的

30 第 一 部 分 Visual FoxPro 实 验 25 在 订 单 管 理 数 据 库 中 查 询 所 有 运 货 商 2 所 运 送 的 产 品 名 称 发 货 日 期 到 货 日 期 实 验 步 骤 第 1 步 : 打 开 订 单 管 理 数 据 库, 在 命 令 窗 口 中 输 入 命 令, 进 入 视 图 设 计 器 对 话 框 想 一 想 : 还 可 以 用 什 么 方 法 创 建 视 图? 第 2 步 : 在 添 加 表 或 视 图 对 话 框 中, 依 次 将 产 品 订 单 明 细 订 单 表 添 加 到 视 图 设 计 器 中, 如 图 所 示 添 加 表 后 的 视 图 设 计 器 第 3 步 : 在 字 段 选 项 卡 中, 将 各 表 中 的 相 应 字 段 添 加 到 选 定 字 段 中, 如 图 所 示 图 字 段 选 项 卡 第 4 步 : 在 筛 选 选 项 卡 中, 输 入 筛 选 条 件, 如 图 所 示 图 筛 选 选 项 卡

31 26 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 第 5 步 : 单 击 工 具 栏 上 的, 即 可 看 到 查 询 结 果 想 一 想 : (1) 此 题 若 用 SQL 语 言 如 何 实 现 其 功 能? (2) 创 建 视 图 和 创 建 查 询 有 何 异 同? 思 考 题 : (1) 请 读 者 参 照 实 验 五, 使 用 视 图 设 计 器 创 建 本 地 视 图 要 求 利 用 订 单 管 理 数 据 库 中 的 订 单 表 订 单 明 细 表, 创 建 一 个 查 询 数 量 为 35 的 订 单 记 录 的 本 地 视 图 订 单 明 细 2_view, 按 订 单 明 细 表 中 的 订 单 代 号 字 段 排 序 输 出 订 单 表 中 的 订 购 日 期 到 货 日 期 发 货 日 期 字 段 及 订 单 明 细 表 中 的 订 单 代 号 产 品 代 号 字 段 (2) 将 实 验 5 中 的 15 道 思 考 题 创 建 成 视 图 (3) 视 图 与 数 据 表 有 何 区 别? (4) 创 建 视 图 的 主 要 作 用 是 什 么? 实 验 7 简 单 程 序 设 计 图 新 建 对 话 框 第 3 步 : 在 程 序 编 辑 窗 口 中 输 入 如 下 代 码 : SET TALK OFF A=1 B=0 DO WHILE A<=100 IF.NOT. A/2=INT(A/2) B=B+A ENDIF A=A+1 一 实 验 目 的 (1) 掌 握 命 令 文 件 的 建 立 与 运 行 (2) 掌 握 结 构 化 程 序 设 计 的 运 用 二 实 验 内 容 (1) 求 1 到 100 之 间 的 奇 数 之 和 实 验 要 求 求 1 到 100 之 间 的 奇 数 之 和 实 验 步 骤 第 1 步 : 从 文 件 菜 单 中 选 择 新 建 命 令, 打 开 新 建 对 话 框 第 2 步 : 从 新 建 对 话 框 中 选 择 程 序 单 选 按 钮, 并 单 击 新 建 文 件 命 令 按 钮, 如 图 所 示

32 第 一 部 分 Visual FoxPro 实 验 27 ENDDO?B SET TALK ON RETURN 第 4 步 : 从 文 件 菜 单 中 选 择 保 存 命 令, 然 后 在 另 存 为 对 话 框 中 指 定 程 序 文 件 的 存 放 位 置 和 文 件 名, 在 此 我 们 指 定 为 JS.PRG 第 5 步 : 从 程 序 菜 单 中 选 择 运 行 命 令, 打 开 运 行 对 话 框, 如 图 所 示 选 择 JS.PRG 后 单 击 运 行 按 钮, 将 在 屏 幕 上 显 示 出 运 行 结 果 2500 图 运 行 对 话 框 (2) 从 键 盘 输 入 一 个 自 然 数, 判 断 是 否 为 质 数 第 1 步 : 在 命 令 窗 口 中 输 入 命 令 MODIFY COMMAND, 进 入 文 本 编 辑 窗 口 第 2 步 : 在 程 序 编 辑 窗 口 中 输 入 如 下 代 码 : SET TALK OFF INPUT " 请 输 入 一 个 大 于 1 的 自 然 数 " TO N K =0 J=2 DO WHILE N<N IF MOD(N,J)<>0 LOOP ELSE K=1 EXIT ENDIF ENDDO IF K=0?STR(N)+" 是 质 数 "

33 28 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 ELSE?STR(N)+" 不 是 质 数 " ENDIF SET TALK ON RETURN (3) 由 键 盘 输 入 一 个 年 份, 然 后 判 断 该 年 是 否 是 闰 年 判 断 闰 年 的 条 件 是 符 合 下 面 的 二 者 之 一 : 能 被 4 整 除, 但 不 能 被 100 整 除 能 被 4 整 除, 又 能 被 400 整 除 在 程 序 编 辑 窗 口 中 输 入 如 下 代 码 : SET TALK OFF INPUT "ENTER THE YEAR: " TO YEAR IF MOD(YEAR,4)=0 IF MOD(YEAR,100)=0 IF ELSE LEAP=1 ELSE ENDIF ELSE ENDIF LEAP=0 LEAP=0 ENDIF?STR(YEAR,4)+ "IS"+IIF(LEAP=1, "A LEAP YEAR. ","NOT A LEAP YEAR. ") SET TALK OFF 第 4 步 : 按 Ctrl+W 键 存 盘 并 在 另 存 为 对 话 框 中 输 入 文 件 名 RN 第 5 步 : 在 命 令 窗 口 中 输 入 命 令 DO RN, 在 屏 幕 上 显 示 出 提 示 信 息 ENTER THE YEAR:, 任 意 输 入 一 年 份 后 回 车, 即 可 判 断 该 年 是 否 是 闰 年 (4) 计 算 如 下 公 式 2X X > 0 2 Y = X X < 0 2X + 1X = 0 在 程 序 编 辑 区 中 输 入 如 下 代 码 : SET TALK OFF INPUT " 请 输 入 X 的 值 : " TO X DO CASE CASE X>0

34 第 一 部 分 Visual FoxPro 实 验 29 Y=2*X CASE X<0 Y= CASE X=0 ENDCASE? "Y=",Y SET TALK OFF 想 一 想 : 请 读 者 自 己 利 用 IF ENDIF 语 句 实 现 上 述 功 能 (5) 任 意 输 入 一 字 符 串, 系 统 将 该 字 符 串 倒 过 来 显 示 例 如, 输 入 ABC, 系 统 将 显 示 CBA 在 程 序 编 辑 区 中 输 入 如 下 代 码 : SET TALK OFF ST2=SPACE(0) ACCEPT " 请 输 入 一 个 字 符 串 :" TO ST1 L=LEN(ST1) I=1 DO WHILE I<=L C= ST2= I=I+1 ENDDO?ST2 SET TALK ON (6) 打 印 如 下 所 示 的 图 形 * *** ***** ****** 在 程 序 编 辑 区 中 输 入 如 下 代 码 : SET TALK OFF I=1 DO WHILE I<=4 J=1 DO WHILE J<= ENDDO SAY "*" J=J+1

35 30 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 SET TALK ON (7) 求 出 任 意 一 个 二 维 数 组 中 某 个 元 素, 此 元 素 在 所 在 行 上 最 大, 在 所 在 列 上 最 小 在 程 序 编 辑 区 中 输 入 如 下 代 码 : SET TALK OFF CLEAR INPUT "M=" TO M INPUT "N=" TO N DIMENSION DA(M,N) FOR I=1 TO M FOR J=1 TO N ENDFOR ENDFOR NUM=0 INPUT "DA("+STR(1,2)+","+STR(J,2)+")= " TO DA(I,J) FOR I=1 TO M FOR J=1 TO N FOR K=1 TO N IF DA(I,J)<DA(I,K) EXIT ENDIF ENDFOR IF K<=N LOOP ENDIF FOR L=1 TO M IF EXIT ENDIF ENDFOR IF L<=M ENDIF? "DA("+STR(1,2)+","+STR(J,2)+")=",DA(I,J) NUM=NUM+1 ENDFOR ENDFOR? " 共 有 "+STR(NUM,2)+" 个 元 素 符 合 条 件 " SET TALK ON RETURN (8) 输 入 一 行 字 符 ( 不 超 过 60 个 ), 统 计 其 中 英 文 字 母 的 个 数 数 字 的 个 数 空 格 的 个

36 第 一 部 分 Visual FoxPro 实 验 31 数 和 其 他 字 符 的 个 数 在 程 序 编 辑 区 中 输 入 如 下 代 码 : SET TALK OFF SAY "C=" GET C DEFAULT SPACE(60) READ DO SUB WITH C,A1,A2,A3,A4? " 英 文 字 母 个 数 ",STR(A1,3)? " 数 字 个 数 ",STR(A2,3)? " 空 格 个 数 ",STR(A3,3)? " 其 他 字 符 个 数 ",STR(A4,3) SET TALK ON PROCEDURE SUB PARAMETER C,B1,B2,B3,B4 FOR J=1 TO LEN(C) DO CASE CASE "A"<=CH.AND.CH<="Z".OR. "a"<=ch.and.ch<="z" B1=B1+1 CASE "0"<=CH.AND.CH<="9" B2=B2+1 CASE CH="" B3=B3+1 OTHERWISE B4=B4+1 ENDCASE ENDFOR RETURE (9) 在 订 单 管 理 数 据 库 中, 查 询 所 有 与 雇 员 6 有 关 的 产 品 信 息, 并 存 放 到 表 雇 员 中 在 程 序 编 辑 区 中 输 入 如 下 代 码 : set talk off open data 订 单 管 理 use 订 单 locate for trim( 雇 员 )= if found() dddh= 订 单 代 号

37 32 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 endif use 订 单 明 细 endif if found() cpdh=trim( 产 品 代 号 ) use 产 品 locate for trim( 产 品 代 号 )=cpdh if found() delete endif continue continue copy to 雇 员 for close all set talk on (10) 在 订 单 管 理 数 据 库 中, 查 询 类 别 为 3 的 产 品 的 订 购 日 期 到 货 日 期 发 货 日 期 在 程 序 编 辑 区 中 输 入 如 下 代 码 : set talk off open data 订 单 管 理 select 1 use 订 单 select 2 use 订 单 明 细 select 3 use 产 品 loca for trim( 类 别 )="3" if found() cpdh= 产 品 代 号 locate for trim( 产 品 代 号 )=cpdh if found() endif dddh= 订 单 代 号 select 1 if found() disp fields 订 购 日 期, 到 货 日 期, 发 货 日 期 continue

38 第 一 部 分 Visual FoxPro 实 验 33 endif close all continue endif set talk on 思 考 题 : (1) 编 写 程 序 : 从 键 盘 中 输 入 三 个 数, 求 出 最 大 值 和 最 小 值 (2) 编 写 程 序, 要 求 输 入 一 组 数,0 为 结 束 输 出 其 中 的 正 数 和 负 数 的 个 数, 并 输 出 所 有 平 均 数 和 正 数 平 均 值, 负 数 平 均 值 例 如 : 输 入 一 组 数 5,-5,6,6,0 则 输 出 6,6,0 (3) 在 订 单 管 理 数 据 库 中 查 询 所 有 订 购 日 期 为 2003 年 7 月 23 号 以 前 的 产 品 信 息 (4) 在 订 单 管 理 数 据 库 中 查 询 客 户 为 VICTE 的 客 户 所 订 购 产 品 的 信 息 实 验 8 高 级 表 单 的 创 建 与 应 用 一 实 验 目 的 (1) 掌 握 Visual FoxPro 中 的 各 种 控 件 的 运 用 (2) 掌 握 与 数 据 库 相 关 联 表 单 的 运 用 二 实 验 内 容 1. 用 表 单 向 导 创 建 表 单 实 验 要 求 创 建 产 品 表 单 其 预 期 效 果 如 图 所 示 图 产 品 表 单 预 期 结 果 实 验 步 骤 第 1 步 : 从 文 件 菜 单 中 选 择 新 建 命 令, 打 开 新 建 对 话 框 第 2 步 : 在 新 建 对 话 框 中 选 择 表 单, 然 后 选 择 向 导, 弹 出 对 话 框, 如 图 所 示

39 34 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 图 向 导 选 取 对 话 框 第 3 步 : 在 向 导 选 取 对 话 框 中 选 择 表 单 向 导, 并 单 击 确 定 按 钮, 进 入 表 单 向 导 对 话 框 第 4 步 : 在 步 骤 1- 字 段 选 取 中 单 击 表 单 向 导 对 话 框 数 据 库 和 表 右 侧 的, 如 图 1.8.3(a) 所 示 第 5 步 : 在 弹 出 的 打 开 对 话 框 中 选 择 产 品.dbf 第 6 步 : 在 表 单 向 导 对 话 框 中 单 击, 即 可 把 产 品.dbf 中 所 有 字 段 添 加 到 选 定 字 段 文 本 框 中, 如 图 1.8.3(b) 所 示 想 一 想 : 若 要 有 选 择 地 添 加 字 段 应 单 击 哪 一 个 按 钮? 第 7 步 : 在 步 骤 2- 选 择 表 单 样 式 中 选 择 需 要 的 样 式 标 准 式 第 8 步 : 进 入 步 骤 3- 排 序 次 序, 在 可 用 字 段 和 索 引 标 识 列 表 框 中 选 择 想 要 排 序 的 字 段, 添 加 到 选 定 字 段 中, 在 这 里 我 们 选 择 产 品 代 码 作 为 排 序 字 段 升 序 作 为 想 要 排 序 的 方 式 第 9 步 : 在 步 骤 4- 完 成 中 的 请 键 入 表 单 标 题 中 输 入 表 单 的 名 称 产 品 图 1.8.3(a) 表 单 向 导 对 话 框

40 第 一 部 分 Visual FoxPro 实 验 35 图 1.8.3(b) 表 单 向 导 对 话 框 第 10 步 : 若 想 要 查 看 效 果 可 单 击 预 览, 否 则 单 击 完 成 按 钮, 将 表 单 保 存 到 相 应 位 置 第 11 步 : 运 行 产 品 表 单, 结 果 如 图 所 示 2. 用 手 动 方 法 创 建 表 单 实 验 要 求 创 建 一 个 产 品 编 辑 浏 览 器, 使 其 包 含 一 个 页 面 控 件, 第 1 页 可 编 辑, 第 2 页 可 浏 览 其 预 期 效 果 如 图 所 示 图 1.8.4(a) 表 单 编 辑 浏 览 器

41 36 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 图 1.8.4(b) 表 单 编 辑 浏 览 器 实 验 步 骤 第 1 步 : 在 命 令 窗 口 中 输 入 命 令 进 入 表 单 设 计 器 第 2 步 : 在 表 单 上 添 加 相 应 的 控 件, 如 图 所 示 图 表 单 浏 览 器 初 始 界 面 第 3 步 : 为 表 单 中 各 控 件 设 置 属 性 如 表 1-6 所 示 表 1-6 表 单 编 辑 浏 览 器 各 控 件 属 性 表 对 象 属 性 值 form1 caption 表 单 浏 览 器 caption 产 品 编 辑 浏 览 器 label1 fontname 隶 书 fontsize 20 fontbold.t.

42 第 一 部 分 Visual FoxPro 实 验 37 续 表 对 象 属 性 值 line1 Borderwidth 4 page1 caption 编 辑 page2 caption 浏 览 commandgroup1 borderstytle 1- 固 定 单 线 ( 默 认 ) buttoncount 9 command1 caption 第 一 条 command2 caption 上 一 条 command3 caption 下 一 条 command4 caption 最 后 一 条 commandgroup1 command5 caption 新 增 command6 caption 修 改 command7 caption 删 除 command8 caption 保 存 command9 caption 退 出 第 3 步 : 在 表 单 的 任 意 处 单 击 鼠 标 右 键, 在 弹 出 的 快 捷 菜 单 中 选 择 数 据 环 境 后 会 出 现 添 加 表 或 视 图 对 话 框, 如 图 所 示 图 添 加 表 或 视 图 对 话 框 第 4 步 : 在 数 据 库 中 的 表 中 选 择 产 品 表, 单 击 添 加 将 产 品 表 添 加 到 数 据 环 境 设 计 器 窗 口 中 第 5 步 : 依 次 将 表 中 产 品 代 号 产 品 名 称 供 应 商 等 字 段 用 鼠 标 拖 拉 至 表 单 中 表 单 中 出 现 相 应 的 标 签 和 文 本 框 第 6 步 : 选 中 被 拖 拉 至 表 单 的 所 有 标 签 和 文 本 框, 按 Ctrl+X 剪 切 第 7 步 : 编 辑 第 1 页 : 在 页 面 控 件 的 任 意 处 单 击 鼠 标 右 键, 在 弹 出 的 快 捷 菜 单 中 选 择 编 辑, 页 框 周 围 出 现 浅 色 边 界, 在 编 辑 菜 单 中 选 择 粘 贴, 将 剪 贴 板 中 内 容 粘 贴 到 第 1 页 上, 如 图 所 示

43 38 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 图 编 辑 第 一 页 第 8 步 : 将 txt 产 品 代 号 txt 产 品 名 称 txt 供 应 商 txt 类 别 txt 单 位 数 量 txt 单 价 txt 订 购 量 的 ReadOnly 属 性 设 置 为.T. 第 9 步 : 编 辑 第 2 页 : 选 择 浏 览 页 面 单 击 工 具 栏 上 的 数 据 环 境 按 钮, 打 开 数 据 环 境 设 计 器 窗 口 将 鼠 标 指 针 指 向 表 文 件 名 产 品, 然 后 按 下 鼠 标 左 键, 将 其 拖 至 第 2 页 中, 如 图 所 示 图 编 辑 第 二 页 第 10 步 : 将 grd 产 品 的 ReadOnly 属 性 改 为.T. 第 11 步 : 编 写 代 码 (1)Commandgroup1 中 第 一 条 按 钮 Command1 的 Click 事 件 :

44 第 一 部 分 Visual FoxPro 实 验 39 go top thisform.commandgroup1.command2.enabled=.f. thisform.refresh (2)Commandgroup1 中 上 一 条 按 钮 Command2 的 Click 事 件 : thisform.commandgroup1.command1.enabled=.t. thisform.commandgroup1.command4.enabled=.t. thisform.commandgroup1.command3.enabled=.t. if bof() else endif go top this.enabled=.f. thisform.commandgroup1.command1.enabled=.f. skip -1 thisform.refresh (3)Commandgroup1 中 下 一 条 按 钮 Command3 的 Click 事 件 : thisform.commandgroup1.command1.enabled=.t. thisform.commandgroup1.command2.enabled=.t. thisform.commandgroup1.command4.enabled=.t. skip 1 if eof() else endif go bottom this.enabled=.f. thisform.commandgroup1.command4.enabled=.f. thisform.refresh (4)Commandgroup1 中 最 后 一 条 按 钮 Command4 的 Click 事 件 : thisform.commandgroup1.command1.enabled=.t. thisform.commandgroup1.command3.enabled=.t. thisform.commandgroup1.command4.enabled=.f. go bottom thisform.refresh (5)Commandgroup1 中 新 增 按 钮 Command5 的 Click 事 件 : select 1 use 产 品.dbf go bottom append blank thisform.refresh thisform.pageframe1.page1.txt 产 品 代 号.setfocus

45 40 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 想 一 想 : 如 何 用 SQL 语 言 为 产 品 表 增 加 新 记 录? (6)Commandgroup1 中 修 改 按 钮 Command6 的 Click 事 件 : THISFORM.pageframe1.page1.txt 产 品 代 号.READONLY=.f. THISFORM.pageframe1.page1.txt 产 品 名 称.READONLY=.f. THISFORM.pageframe1.page1.txt 供 应 商.READONLY=.f. THISFORM.pageframe1.page1.txt 类 别.READONLY=.f. THISFORM.pageframe1.page1.txt 单 位 数 量.READONLY=.f. THISFORM.pageframe1.page1.txt 单 价.READONLY=.f. THISFORM.pageframe1.page1.txt 库 存 量.READONLY=.f. THISFORM.pageframe1.page1.txt 订 购 量.READONLY=.f. (7)Commandgroup1 中 删 除 按 钮 Command7 的 Click 事 件 : YN=MESSAGEBOX(" 是 否 确 认 删 除?",4+48," 确 认 删 除 ") IF YN=6 DELE pack =TABLEUPDATE(.T.) ENDIF thisform.refresh 想 一 想 : 如 何 用 SQL 语 言 为 产 品 表 删 除 记 录? (8)Commandgroup1 中 保 存 按 钮 Command8 的 Click 事 件 : THISFORM.pageframe1.page1.txt 产 品 代 号.READONLY=.t. THISFORM.pageframe1.page1.txt 产 品 名 称.READONLY=.t. THISFORM.pageframe1.page1.txt 供 应 商.READONLY=.t. THISFORM.pageframe1.page1.txt 类 别.READONLY=.t. THISFORM.pageframe1.page1.txt 单 位 数 量.READONLY=.t. THISFORM.pageframe1.page1.txt 单 价.READONLY=.t. THISFORM.pageframe1.page1.txt 库 存 量.READONLY=.t. THISFORM.pageframe1.page1.txt 订 购 量.READONLY=.t. (9)Commandgroup1 中 退 出 按 钮 Command9 的 Click 事 件 : release thisform 实 验 9 创 建 菜 单 一 实 验 目 的 (1) 掌 握 菜 单 设 计 器 的 应 用 (2) 掌 握 下 拉 式 菜 单 的 设 计 (3) 掌 握 快 捷 菜 单 的 设 计

46 第 一 部 分 Visual FoxPro 实 验 41 二 实 验 内 容 1. 创 建 快 捷 菜 单 实 验 要 求 创 建 快 捷 菜 单, 其 运 行 结 果 如 图 所 示 (a) 图 快 捷 菜 单 运 行 结 果 (b) 实 验 步 骤 第 1 步 : 打 开 文 件 菜 单 中 的 新 建 命 令, 在 弹 出 的 新 建 对 话 框 的 文 件 类 型 中 选 择 菜 单, 单 击 新 建 文 件 进 入 新 建 菜 单 对 话 框 第 2 步 : 在 新 建 菜 单 对 话 框 中 选 择 快 捷 菜 单 按 钮, 进 入 快 捷 菜 单 设 计 器, 如 图 所 示 图 快 捷 菜 单 设 计 器 对 话 框 第 3 步 : 在 快 捷 菜 单 设 计 器 的 菜 单 名 称 中 输 入 信 息 输 入, 在 结 果 中 选 择 子 菜 单, 单 击 创 建 按 钮, 创 建 子 菜 单 第 4 步 : 在 菜 单 名 称 中 输 入 产 品 表 输 入, 在 结 果 中 选 择 过 程 后 单 击 创 建, 在 其 过 程 窗 口 中 输 入 命 令 : use 产 品 append 第 5 步 : 在 第 2 行 中 输 入 订 单 明 细 表 输 入, 在 结 果 中 选 择 过 程 后 单 击 创 建, 在 其 过 程 窗 口 中 输 入 命 令 : use 订 单 明 细 表 append 第 6 步 : 在 第 3 行 中 输 入 人 事 表 输 入, 在 结 果 中 选 择 过 程 后 单 击 创 建, 在 其 过 程 窗 口 中 输 入 命 令 : use 人 事 表

47 42 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 append 第 7 步 : 在 菜 单 级 中 选 择 快 捷 菜 单, 在 快 捷 菜 单 设 计 器 的 第 2 行 中 输 入 信 息 编 辑, 其 余 步 骤 同 上 其 第 一 个 子 菜 单 名 称 为 产 品 表 编 辑, 其 过 程 为 : use 产 品 edit 第 2 个 子 菜 单 名 称 为 订 单 表 编 辑, 其 过 程 为 : use 订 单 表 edit 第 3 个 子 菜 单 名 称 为 人 事 表 编 辑, 其 过 程 为 : use 人 事 edit 第 8 步 : 在 菜 单 级 框 中 选 择 快 捷 菜 单, 继 续 输 入 第 三 个 菜 单 名 称 退 出, 在 结 果 中 选 择 过 程, 在 过 程 窗 口 中 输 入 命 令 : quit 第 9 步 : 打 开 菜 单, 选 择 保 存 命 令, 在 出 现 的 另 存 为 对 话 框 中 输 入 文 件 名 mm.mnx, 单 击 保 存 按 钮 第 10 步 : 选 择 菜 单 中 的 生 成 命 令, 在 出 现 的 生 成 菜 单 对 话 框 中, 单 击 生 成 按 钮 系 统 将 生 成 mm.mpr 文 件, 双 击 此 文 件 将 会 得 到 如 图 所 示 的 结 果 2. 利 用 菜 单 设 计 器 创 建 菜 单 实 验 要 求 创 建 一 个 标 题 式 菜 单, 要 求 菜 单 运 行 时 在 最 顶 部 显 示 其 所 实 现 的 功 能 如 图 所 示 图 标 题 菜 单 预 期 效 果 实 验 步 骤 第 1 步 : 在 命 令 窗 口 中 输 入 命 令, 在 弹 出 的 新 建 菜 单 对 话 框 中 单 击 菜 单 按 钮 进 入 菜 单 设 计 器 窗 口, 如 图 所 示 第 2 步 : 在 菜 单 设 计 器 的 菜 单 名 称 中 输 入 文 件 \<F, 在 结 果 中 选 择 子 菜 单 后, 单 击 创 建 按 钮 编 辑 子 菜 单, 如 图 所 示 图 编 辑 子 菜 单

48 第 一 部 分 Visual FoxPro 实 验 43 第 3 步 : 在 菜 单 级 框 中 选 择 菜 单 栏 返 回 主 菜 单 创 建 区 域, 依 次 输 入 如 图 所 示 的 内 容 图 编 辑 主 菜 单 第 4 步 : 为 文 件 主 菜 单 下 的 各 子 菜 单 定 义 快 捷 键 : 在 菜 单 名 称 栏 中, 选 择 新 建 \<N, 单 击 选 项 按 钮, 出 现 提 示 选 项 对 话 框, 在 此 对 话 框 的 快 捷 方 式 中 的 键 标 签 栏 中, 按 下 组 合 键 Ctrl+N, 如 图 所 示 图 提 示 选 项 对 话 框 第 5 步 : 同 上 为 打 开 保 存 子 菜 单 定 义 快 捷 键, 分 别 为 Ctrl+O Ctrl+S 其 预 期 效 果 如 图 所 示 图 文 件 菜 单 的 子 菜 单

49 44 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 第 6 步 : 为 各 主 菜 单 创 建 子 菜 单, 主 菜 单 所 对 应 的 子 菜 单 如 表 1-7 所 示 表 1-7 主 菜 单 与 子 菜 单 的 对 应 关 系 主 菜 单 子 菜 单 新 建 \<N 文 件 \<F 打 开 \<O 保 存 \<S 关 闭 \<C 撤 消 \<U 编 辑 \<E 重 做 \<R 剪 切 \<T 复 制 \<C 显 示 \<V 常 规 选 项 \<G 菜 单 选 项 \<D 工 具 \<T 向 导 \<W 表 查 询 表 单 报 表 标 签 宏 \<A 退 出 \<Q 第 7 步 : 从 菜 单 菜 单 栏 中 选 择 生 成 命 令, 在 弹 出 的 生 成 菜 单 对 话 框 中, 单 击 生 成 按 钮 如 图 所 示 系 统 生 成 标 题 菜 单.mpr 文 件 图 生 成 菜 单 对 话 框 第 8 步 : 打 开 标 题 菜 单.mpr 文 件 后, 即 可 看 到 如 图 所 示 的 效 果 思 考 题 : 请 读 者 制 作 编 辑 子 菜 单 的 快 捷 键, 如 图 所 示 图 编 辑 菜 单 子 菜 单

50 第 一 部 分 Visual FoxPro 实 验 45 实 验 10 报 表 设 计 一 实 验 目 的 (1) 掌 握 利 用 报 表 向 导 创 建 简 单 表 单 的 过 程 (2) 熟 练 掌 握 快 速 报 表 的 生 成 (3) 掌 握 分 组 分 栏 报 表 的 创 建 过 程 二 实 验 内 容 1. 利 用 报 表 向 导 创 建 简 单 的 报 表 实 验 要 求 对 订 单 表 利 用 表 向 导 生 成 订 单 报 表, 文 件 名 为 订 单, 其 预 期 效 果 如 图 所 示 图 报 表 订 单.frx 预 期 效 果 实 验 步 骤 第 1 步 : 打 开 文 件 菜 单 中 的 新 建 命 令, 在 弹 出 的 新 建 对 话 框 中 选 择 报 表 单 选 按 钮, 然 后 单 击 向 导 按 钮, 进 入 向 导 选 取 对 话 框 第 2 步 : 在 向 导 选 取 对 话 框 中 选 择 报 表 向 导 后 单 击 确 定 按 钮 第 3 步 : 在 报 表 向 导 对 话 框 步 骤 1- 字 段 选 取 中 选 择 订 单 表, 并 将 可 用 字 段 中 的 相 应 字 段 依 次 添 加 到 选 定 字 段 中, 如 图 所 示 单 击 下 一 步 第 4 步 : 在 步 骤 2- 分 组 记 录 中 再 单 击 下 一 步 进 入 步 骤 3- 选 择 报 表 样 式 在 样 式 中 选 择 账 务 式, 如 图 所 示 第 5 步 : 进 入 步 骤 5- 排 序 记 录 将 订 单 代 号 从 可 用 的 字 段 或 索 引 标 识 添 加 到 选 定 字 段 中 去, 并 选 中 升 序 单 选 按 钮, 如 图 所 示

51 46 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 图 字 段 选 取 图 选 择 报 表 样 式 图 选 取 排 序 字 段

52 第 一 部 分 Visual FoxPro 实 验 47 第 6 步 : 单 击 下 一 步 进 入 步 骤 6, 单 击 预 览 则 可 以 看 到 如 图 所 示 预 期 效 果, 否 则 单 击 完 成, 在 适 当 的 位 置 保 存 为 订 单.frx 想 一 想 : 如 何 显 示 已 做 好 的 报 表 订 单.frx? 2. 创 建 分 组 分 栏 统 计 报 表 实 验 要 求 对 订 单 管 理 库 的 订 单 表 创 建 一 个 按 订 购 日 期 分 组 的 报 表, 要 求 报 表 分 两 栏 显 示 文 件 名 为 分 组 分 栏.frx 预 期 效 果 如 所 示 注 意 已 对 订 单 表 中 的 运 货 商 字 段 设 置 了 索 引 图 报 表 订 单 分 组.frx 预 期 效 果 实 验 步 骤 第 1 步 : 在 命 令 窗 口 中 执 行 命 令, 生 成 一 个 空 白 报 表 第 2 步 : 从 文 件 菜 单 中 选 择 页 面 设 置, 在 页 面 设 置 对 话 框 中 把 列 数 微 调 器 设 置 为 2 在 报 表 设 计 器 中 将 添 加 占 页 面 二 分 之 一 的 一 对 列 标 头 带 区 和 列 注 脚 带 区, 如 图 所 示 图 占 布 面 二 分 之 一 的 列 标 头 和 列 注 脚 带 区

53 48 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 第 3 步 : 在 报 表 设 计 器 窗 口, 打 开 显 示 菜 单, 选 择 命 令, 启 动 数 据 环 境 设 计 器, 如 图 所 示 图 数 据 环 境 设 计 器 第 4 步 : 在 中, 单 击 鼠 标 右 键, 在 弹 出 的 快 捷 菜 单 中 选 择 添 加 命 令, 出 现 添 加 表 或 视 图 对 话 框 第 5 步 : 在 添 加 表 或 视 图 对 话 框 中, 选 择 订 单 表, 单 击 添 加 按 钮 后, 单 击 关 闭 按 钮, 订 单 表 就 被 添 加 到 数 据 环 境 设 计 器 中, 如 图 所 示 将 数 据 环 境 设 计 器 关 闭 图 添 加 订 单 表 后 的 数 据 环 境 设 计 器 第 6 步 : 激 活 窗 口, 打 开 报 表 菜 单, 选 择 数 据 分 组 命 令, 出 现 数 据 分 组 对 话 框, 如 图 所 示 图 数 据 分 组 对 话 框

54 第 一 部 分 Visual FoxPro 实 验 49 第 7 步 : 单 击 数 据 分 组 对 话 框 的 分 组 表 达 式 框 右 边 的 按 钮, 出 现 表 达 式 生 成 器 对 话 框, 在 字 段 框 中 双 击 订 单. 订 购 日 期, 则 订 单. 订 购 日 期 就 被 添 加 到 按 表 达 式 分 组 记 录 中, 如 图 所 示 图 表 达 式 生 成 器 对 话 框 第 8 步 : 将 订 购 日 期 从 数 据 环 境 设 计 器 中 拖 到 组 标 头 带 区, 将 字 段 拖 到 细 节 带 区 第 9 步 : 激 活 窗 口, 选 取 订 单 表, 单 击 鼠 标 右 键, 在 弹 出 的 快 捷 菜 单 中 选 择 属 性 命 令, 出 现 属 性 对 话 框, 在 数 据 选 项 卡 的 Order 属 性 栏 的 下 拉 列 表 框 中 选 择 订 购 日 期, 如 图 所 示 图 属 性 对 话 框

55 50 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 第 10 步 : 选 择 报 表 控 件 工 具 栏 的 域 控 件, 将 光 标 定 位 于 组 注 脚 带 区, 出 现 报 表 表 达 式 对 话 框, 单 击 表 达 式 框 右 边 的 按 钮, 出 现 表 达 式 生 成 器 对 话 框, 将 字 段 框 中 的 运 货 费 添 加 到 报 表 字 段 的 表 达 式 中, 如 图 所 示 图 表 达 式 生 成 器 对 话 框 第 11 步 : 单 击 确 定 按 钮 后 返 回 到 报 表 表 达 式 对 话 框, 单 击 计 算 按 钮, 在 计 算 字 段 对 话 框 的 计 算 中 选 中 计 数 单 选 按 钮, 如 图 所 示 图 计 算 字 段 第 12 步 : 打 开 报 表 菜 单, 选 择 标 题 / 总 结 命 令, 出 现 标 题 / 总 结 对 话 框 选 择 标 题 带 区, 单 击 确 定 按 钮, 在 报 表 设 计 器 窗 口 中 增 加 了 一 个 标 题 带 区 第 13 步 : 单 击 报 表 控 件 工 具 栏 的 标 签 按 钮, 然 后 分 别 在 标 题 带 区 列 标 头 带 区, 键

56 第 一 部 分 Visual FoxPro 实 验 51 入 如 图 所 示 内 容, 再 用 格 式 菜 单 修 改 标 题 带 区 中 的 字 体, 文 本 对 齐 方 式 为 居 中, 将 字 形 设 置 为 粗 体, 字 号 设 置 为 11 图 设 计 报 表 布 局 第 14 步 : 单 击 报 表 控 件 工 具 栏 上 的 线 条 按 钮, 在 标 题 带 区 底 部 画 一 条 线, 从 格 式 菜 单 下 选 择 绘 图 笔, 从 子 菜 单 中 选 择 4 磅 第 15 步 : 同 上 在 组 注 脚 带 区 底 部 画 一 条 线, 从 格 式 菜 单 下 选 择 绘 图 笔, 从 子 菜 单 中 选 择 点 线, 如 图 所 示 设 计 报 表 布 局 第 16 步 : 打 开 显 示 菜 单 栏 中 的 预 览, 可 以 看 到 如 图 所 示 的 的 预 期 效 果 思 考 题 : 创 建 订 单 明 细 快 速 报 表, 报 表 采 用 列 布 局 生 成 订 单 明 细.frx 报 表 文 件, 预 览 报 表 结 果 如 图 所 示

57 52 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 图 快 速 报 表 预 览 结 果 想 一 想 : 在 创 建 分 组 报 表 之 前, 应 先 做 什 么 操 作?

58 第 二 部 分 教 学 管 理 数 据 库 应 用 系 统 开 发 简 例 数 据 库 应 用 系 统 有 两 个 中 心 : 一 个 是 数 据, 一 个 是 处 理 数 据 的 提 供 与 数 据 的 处 理 方 式 是 数 据 库 应 用 系 统 开 发 过 程 中 紧 密 环 绕 的 中 心 环 节 本 章 将 以 教 学 管 理 数 据 库 应 用 系 统 的 开 发 为 例, 对 数 据 库 应 用 系 统 的 开 发 作 简 要 介 绍 一 开 发 VFP 数 据 库 应 用 系 统 的 一 般 步 骤 想 要 设 计 有 效 性 的 数 据 库 应 用 系 统, 必 须 用 系 统 工 程 的 观 点 来 考 虑 问 题, 一 方 面 是 数 据 需 求, 一 方 面 是 处 理 功 能 从 数 据 来 源 需 求 及 用 户 对 数 据 信 息 的 处 理 要 求 出 发, 进 行 准 确 的 了 解 与 分 析 判 断 首 先 要 清 晰 地 了 解 正 在 设 计 中 的 数 据 库 最 后 使 用 的 数 据 将 关 系 到 哪 些 工 作 部 门, 每 个 部 门 的 数 据 来 源, 它 们 是 按 照 怎 样 的 原 则 及 其 方 式 方 法 来 处 理 这 些 数 据 的, 在 处 理 完 毕 后 要 输 出 哪 些 信 息 到 其 他 部 门 ; 其 次 要 确 定 系 统 的 边 界, 确 定 计 算 机 的 数 据 处 理 范 围 ; 最 后 要 弄 清 楚 信 息 流 程 图 及 其 结 构 模 式 一 般 地 说, 软 件 开 发 有 分 析 设 计 调 试 实 施 维 护 等 几 个 阶 段 (1) 分 析 阶 段 进 行 数 据 库 系 统 的 设 计 首 先 要 准 确 地 了 解 与 分 析 用 户 需 求, 通 过 对 开 发 项 目 信 息 的 收 集, 确 定 系 统 目 标 形 成 开 发 构 思 (2) 设 计 阶 段 数 据 库 应 用 系 统 设 计 阶 段 可 以 分 为 概 念 结 构 设 计 逻 辑 结 构 设 计 与 物 理 设 计 在 概 念 结 构 设 计 阶 段, 通 过 综 合 归 纳 与 抽 象, 形 成 一 个 独 立 于 具 体 DBMS 的 概 念 模 型 ( 实 体 模 型 ); 逻 辑 结 构 设 计 是 将 概 念 结 构 转 换 为 某 个 DBMS 所 支 持 的 数 据 模 型 ( 关 系 模 型 ), 并 对 其 进 行 优 化 ; 物 理 设 计 是 为 逻 辑 数 据 模 型 选 取 一 个 最 适 合 应 用 环 境 的 包 括 存 储 结 构 和 存 储 方 法 的 物 理 结 构 (3) 调 试 实 施 阶 段 在 这 个 阶 段 进 行 具 体 的 设 计 运 用 编 制 调 试 运 行 实 施 等 工 作 (4) 运 行 维 护 阶 段 数 据 库 应 用 系 统 经 过 试 运 行 即 可 投 入 正 式 运 行, 不 断 进 行 评 价 调 整 修 改

59 54 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 二 系 统 总 体 规 划 数 据 需 求 与 功 能 需 要 分 析, 为 数 据 库 应 用 系 统 的 开 发 设 计 提 供 了 重 要 的 基 础 1. 教 学 管 理 系 统 分 析 在 进 行 数 据 库 应 用 系 统 开 发 之 前, 我 们 首 先 需 要 对 该 系 统 的 数 据 需 求 和 使 用 功 能 进 行 分 析 (1) 数 据 需 求 分 析 教 学 管 理 工 作 的 要 求 主 要 是 : 能 够 很 好 地 安 排 课 程, 包 括 时 间 地 点 教 学 人 员 及 其 学 员 使 用 的 教 材 设 备 及 其 方 式, 还 要 找 出 其 相 互 之 间 的 关 系, 在 这 种 复 杂 的 关 系 中 进 行 有 关 主 题 的 提 炼, 用 这 些 既 独 立 又 相 互 关 联 的 主 题 每 一 个 主 题 所 表 达 的 有 单 一 信 息 价 值 内 涵 的 数 据 项 集 合 及 其 处 理 方 式 来 构 造 一 个 数 据 库 系 统 框 架 结 构 教 学 所 需 的 数 据 信 息 主 要 有 : 班 级 学 生 情 况 学 生 成 绩 情 况 班 级 教 材 情 况 教 师 情 况 教 室 情 况 数 据 需 求 调 研 的 结 果 应 归 纳 出 系 统 应 该 包 括 的 数 据, 对 这 些 数 据 进 行 分 析 归 纳, 从 中 找 出 规 律, 排 除 冗 余 数 据 (2) 功 能 分 析 教 学 管 理 系 统 的 功 能 主 要 是 : 可 以 录 入 查 询 修 改 和 打 印 与 教 学 有 关 的 数 据 信 息, 既 包 含 教 师 基 本 信 息 及 任 课 安 排, 也 有 学 生 基 本 信 息 及 学 习 安 排, 还 有 教 学 成 绩 信 息 及 与 之 有 关 的 数 据 的 统 计 计 算 2. 系 统 功 能 结 构 教 学 管 理 系 统 的 任 务 是 利 用 计 算 机 数 据 库 管 理 系 统 提 供 和 完 成 日 常 教 学 管 理 工 作 的 内 容 这 些 工 作 主 要 包 括 : (1) 将 与 教 学 有 关 的 课 程 安 排 合 理, 具 体 包 括 如 下 内 容 : 任 课 的 教 师 进 行 该 课 程 学 习 的 学 生 该 课 程 的 教 材 使 用 情 况 上 课 的 教 室 (2) 与 教 学 有 关 的 信 息 资 料, 具 体 内 容 为 : 与 教 学 课 程 有 关 的 信 息 资 料, 如 : 专 业 课 程 名 称 等 教 师 与 学 生 的 基 本 信 息 教 材 教 室 基 本 信 息 (3) 教 学 进 程 教 学 效 果 信 息, 具 体 就 是 学 生 学 习 成 绩 为 实 现 上 述 要 求, 教 学 管 理 数 据 库 系 统 应 包 含 以 下 功 能 : 可 以 录 入 教 师 学 生 信 息 可 以 录 入 课 程 安 排 学 生 学 习 成 绩 教 材 教 师 及 教 室 的 信 息

60 第 二 部 分 教 学 管 理 数 据 库 应 用 系 统 开 发 简 例 55 保 证 教 材 教 室 设 备 的 正 常 使 用 必 要 时 可 以 进 行 查 询 和 修 改 可 以 进 行 必 要 的 统 计 计 算 分 析 和 排 序 3. 教 学 管 理 数 据 库 系 统 结 构 构 成 由 以 上 的 分 析 和 归 纳, 我 们 可 以 找 到 既 相 互 关 联 又 独 立 的 主 题, 并 以 此 为 基 础 创 建 不 同 的 数 据 表 教 学 管 理 数 据 库 系 统 至 少 由 以 下 数 据 表 组 成 : 课 程 表 学 生 表 教 师 表 分 数 表 教 室 表 教 材 表 (1) 数 据 表 1 课 程 表.DBF 该 表 用 于 存 储 与 课 程 安 排 有 关 的 数 据, 其 结 构 如 下 : 字 段 字 段 名 类 型 宽 度 小 数 位 数 索 引 1 课 程 号 数 值 型 4 0 升 序 2 课 程 字 符 型 10 升 序 3 教 师 号 数 值 型 4 0 升 序 4 教 室 号 数 值 型 4 0 升 序 5 教 材 号 数 值 型 4 0 升 序 6 学 时 数 值 型 学 生 表.DBF, 其 结 构 为 : 字 段 字 段 名 类 型 宽 度 小 数 位 数 索 引 1 学 号 字 符 型 8 升 序 2 姓 名 字 符 型 8 升 序 3 性 别 字 符 型 2 4 出 生 日 期 日 期 型 8 5 班 级 字 符 型 6 升 序 6 电 话 数 值 型 10 7 身 体 状 况 字 符 型 4 8 爱 好 字 符 型 8 9 特 长 字 符 型 家 庭 地 址 字 符 型 30 3 分 数 表.DBF, 用 于 存 放 学 生 成 绩, 结 构 为 : 字 段 字 段 名 类 型 宽 度 小 数 位 数 索 引 1 学 号 字 符 型 8 升 序 2 课 程 号 数 值 型 4 0 升 序 3 成 绩 数 值 型 4 0

61 56 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 4 教 师 表.DBF, 其 结 构 为 : 字 段 字 段 名 类 型 宽 度 小 数 位 数 索 引 1 教 师 号 数 值 型 4 0 升 序 2 教 师 名 字 符 型 8 升 序 3 性 别 字 符 型 2 4 出 生 日 期 日 期 型 8 5 专 业 字 符 型 8 6 职 称 字 符 型 20 7 系 别 字 符 型 20 5 教 材 表.DBF, 其 结 构 为 : 字 段 字 段 名 类 型 宽 度 小 数 位 数 索 引 1 教 材 号 数 值 型 4 0 升 序 2 书 名 字 符 型 20 升 序 3 价 钱 数 值 型 数 量 数 值 型 适 用 专 业 字 符 型 16 6 出 版 单 位 字 符 型 30 6 教 室 表.DBF, 其 结 构 为 : 字 段 字 段 名 类 型 宽 度 小 数 位 数 索 引 1 教 室 号 数 值 型 4 升 序 2 教 室 位 置 字 符 型 30 3 座 位 数 数 值 型 3 (2) 数 据 表 之 间 的 相 互 关 系 关 联 是 数 据 信 息 之 间 相 互 关 系 的 结 构 参 数 为 使 数 据 结 构 体 系 完 善, 在 本 数 据 库 中 既 建 立 了 表 间 关 联 又 在 表 内 建 立 了 自 我 连 接 课 程 表 与 分 数 表 使 用 课 程 号 建 立 关 联, 学 生 表 与 分 数 表 使 用 学 号 建 立 关 联, 课 程 表 与 教 师 表 使 用 教 师 号 建 立 关 联, 课 程 表 与 教 室 表 使 用 教 室 号 建 立 关 联, 课 程 表 与 教 材 表 使 用 教 材 号 建 立 关 联 每 一 个 表 最 好 有 这 个 表 的 主 题 标 识, 其 他 字 段 几 乎 都 与 其 相 关, 有 的 甚 至 不 可 分 隔 比 如, 一 个 学 号 必 须 是 某 一 个 同 学 的, 不 能 错, 否 则 就 会 造 成 混 淆 因 此 在 课 程 表 中 使 用 课 程 号 与 课 程 自 我 连 接, 在 学 生 表 使 用 学 号 与 姓 名 建 立 自 我 连 接, 在 教 材 表 使 用 教 材 号 与 数 量 自 我 连 接, 在 教 师 表 使 用 教 师 号 与 姓 名 自 我 连 接 教 学 管 理 数 据 库 系 统 中 数 据 表 之 间 的 关 系 如 图 2.1 所 示, 从 图 中 可 以 看 出 课 程 表 是 整 个 数 据 库 的 核 心

62 第 二 部 分 教 学 管 理 数 据 库 应 用 系 统 开 发 简 例 57 图 2.1 教 学 管 理 数 据 库 与 各 数 据 表 之 间 的 相 互 关 联 4. 系 统 主 要 部 分 教 学 管 理 数 据 库 系 统 主 要 由 以 下 部 分 组 成 : (1) 系 统 主 程 序 : 用 来 调 用 本 系 统 的 系 统 登 录 表 单 (2) 欢 迎 界 面 : 为 了 增 加 本 系 统 的 亲 和 力, 在 系 统 执 行 主 程 序 之 后, 将 调 用 欢 迎 界 面 (3) 系 统 登 录 表 单 : 在 本 系 统 中 进 行 工 作 时 必 须 保 证 使 用 者 的 可 靠 性, 因 此 添 加 了 用 来 控 制 使 用 权 限 及 限 制 非 法 操 作 人 员 的 口 令 输 入 窗 口, 即 登 录 表 单 (4) 系 统 主 表 单 : 包 含 了 本 系 统 的 全 部 功 能 (5) 系 统 菜 单 : 为 用 户 方 便 快 捷 地 使 用 本 系 统 提 供 了 控 制 系 统 操 作 的 菜 单 其 功 能 同 于 系 统 主 表 单 (6) 录 入 与 修 改 表 单 : 录 入 与 修 改 表 单 是 用 来 提 供 输 入 或 修 改 与 教 学 有 关 记 录 的 表 单 可 以 录 入 与 修 改 的 表 主 要 有 课 程 表 成 绩 表 学 生 表 教 师 表 教 室 表 教 材 表 (7) 查 询 与 统 计 表 单 : 查 询 与 统 计 表 单 是 为 数 据 信 息 检 索 提 供 的, 可 以 对 课 程 成 绩 班 级 教 师 教 室 与 教 材 等 进 行 查 询 与 统 计 (8) 报 表 : 为 很 好 地 反 映 信 息, 可 以 使 用 报 表 打 印 输 出 (9) 数 据 备 份 : 为 了 防 止 数 据 信 息 的 丢 失, 随 时 对 数 据 进 行 备 份 (10) 数 据 资 源 : 本 系 统 的 数 据 资 源 采 用 的 是 前 面 介 绍 的 教 学 管 理 数 据 库 中 的 6 张 表, 各 表 之 间 的 关 系 也 已 在 前 面 叙 说 三 教 学 管 理 数 据 库 系 统 以 下 将 以 教 学 管 理 数 据 库 系 统 为 示 范, 介 绍 数 据 库 应 用 系 统 开 发 的 主 要 内 容 主 体 框 架 1. 主 引 导 程 序 主 程 序 是 系 统 首 先 要 运 行 的 引 导 程 序 在 主 程 序 中 一 般 要 具 有 以 下 功 能 模 块 :

63 58 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 初 始 化 界 面 设 置 部 分 运 行 起 始 条 件 部 分 现 场 恢 复 部 分 教 学 管 理 数 据 库 系 统 的 主 程 序 main.prg 如 下 : CLEAR ALL CLOSE ALL SET TALK OFF SET SYSMENU OFF SET STATUS BAR ON DO FORM bd1.scx READ EVENTS 2. 欢 迎 界 面 在 本 系 统 中 执 行 主 程 序 main.prg 后, 首 先 调 用 欢 迎 界 面 bd1.scx,1 秒 钟 后 系 统 自 动 弹 出 系 统 登 录 表 单 步 骤 欢 迎 界 面 bd1.scx 的 设 计 步 骤 如 下 : 第 1 步 : 新 建 表 单 第 2 步 : 设 计 用 户 界 面 在 表 单 中 添 加 5 个 控 件, 分 别 为 Label1 Label2 Label3 Command1 Timer1, 如 图 2.2 所 示 第 3 步 : 修 改 对 象 属 性, 如 表 2-1 所 示 图 2.2 表 单 bd1.scx 初 始 界 面 表 2-1 表 单 bd1.scx 各 控 件 属 性 值 对 象 属 性 属 性 值 Caption 教 学 管 理 系 统 Form1 Picture azul.jpg( 用 户 自 定 义 图 片 ) Timer1 Interval 1000

64 第 二 部 分 教 学 管 理 数 据 库 应 用 系 统 开 发 简 例 59 对 象 属 性 属 性 值 续 表 AutoSize.T.- 真 Caption 教 学 管 理 系 统 V1.0 Label1 FontName 隶 书 FontSize 50 BackStyle AutoSize 0- 透 明.T.- 真 Caption 版 权 所 有 (C) 2003 Label2 FontName 宋 体 FontSize 14 Label3 BackStyle AutoSize Caption FontName 0- 透 明.T.- 真 研 制 人 : 刘 焱 胡 晓 燕 隶 书 FontSize 14 Command1 BackStyle Caption FontName 0- 透 明 退 出 楷 体 _GB2312 FontSize 11 修 改 后 界 面 如 图 2.3 所 示 第 4 步 : 编 写 事 件 代 码 编 写 Form1 的 LostFocus 事 件 : 图 2.3 表 单 bd1.scx 修 改 后 界 面

65 60 Visual FoxPro 6.0 上 机 指 导 与 等 级 考 试 模 拟 试 题 clear events 编 写 Form1 的 UnLoad 事 件 : set talk on set safety on 编 写 Command1 的 Click 事 件 : thisform.release 编 写 Timer1 的 Init 事 件 : public login1 login1=1 编 写 Timer1 的 Timer 事 件 : IF login1>=1 ENDIF THISFORM.timer1.ENABLED=.T. DO FORM login login1=0 THISFORM.timer1.ENABLED=.F. THISFORM.timer1.INTERVAL=0 RETURN 3. 系 统 登 录 表 单 系 统 登 录 表 单 的 主 要 任 务 是 检 验 用 户 输 入 的 操 作 密 码, 如 果 密 码 正 确, 可 调 用 系 统 主 菜 单, 进 入 系 统 环 境 步 骤 系 统 登 录 表 单 设 计 步 骤 如 下 : 第 1 步 : 新 建 表 单 第 2 步 : 设 计 用 户 界 面 在 表 单 中 添 加 7 个 控 件, 分 别 为 Label1 Label2 Command1 Command2 Combo1 Text1 和 Image1, 如 图 2.4(a) 所 示 第 3 步 : 修 改 对 象 属 性, 如 表 2-2 所 示 图 2.4(a) 表 单 login 初 始 界 面

66 第 二 部 分 教 学 管 理 数 据 库 应 用 系 统 开 发 简 例 61 表 2-2 表 单 login 各 控 件 属 性 对 象 属 性 属 性 值 Movable.F.- 假 Form1 Name Appform1 time 1 Label1 AutoSize.T.- 真 Caption 用 户 名 称 Label2 AutoSize.T.- 真 Caption 用 户 密 码 Caption 登 录 (\<D) Command1 Name Ok ToolTipText 开 始 进 入 系 统 Caption 退 出 (\<E) Command2 Name ESC ToolTipText 我 要 退 出 系 统! Text1 Name TXTPASS PasswordChar * ControlSource Ma. 用 户 名 Combo1 RowSource Ma. 用 户 名 RowSourceType 6- 字 段 ToolTipText 在 此 下 拉 框 中 选 择 您 的 身 份 Image1 BackStyle 0- 透 明 Picture ok.ico 修 改 后 界 面 如 图 2.4(b) 所 示 第 4 步 : 编 写 事 件 代 码 编 写 Appform1 的 Init 事 件 : THISFORM.TXTPASS.SETFOCUS APPLICATION.VISIBLE=.F. 编 写 ok 按 钮 的 Click 事 件 : 图 2.4(b) 表 单 login.scx 修 改 后 界 面 MAIN=ALLTRIM(THISFORM.COMBO1.VALUE) LOCAT FOR 用 户 名 =MAIN IF UPPER(ALLTRIM(THISFORM.TXTPASS.VALUE))=UPPER(ALLTRIM(ma. 密 码 ))