使用Foxpro在网络环境下开发数据库管理软件经验点滴

摘 要 本 文 将 笔 者 利 用 FoxPro 在 网 络 环 境 下 开 发 数 据 库 管 理 软 件 时 ， 对 于 实 现 数 据 共 享 与 独 占 、 提 高 系 统 安 全 性 和 性 能 的 一 些 经 验 进 行 了 总 结 。 关 键 词 FoxPro 数 据 库 管 理 软 件 随 着 计 算 机 技 术 的 发 展 ， 特 别 是 网 络 技 术 和 数 据 库 技 术 的 日 渐 成 熟 ， 信 息 管 理 系 统 已 成 为 实 现 科 研 、 生 产 、 经 营 管 理 活 动 高 效 运 行 的 关 键 环 节 。 虽 然 有 ORACLE 、 SYBASE 等 优 秀 的 数 据 库 管 理 系 统 可 作 为 开 发 平 台 ， 但 对 于 在 小 型 网 络 环 境 下 ， 开 发 规 模 不 大 的 数 据 库 管 理 软 件 而 言 , 从 其 性 能 价 格 比 考 虑 ， FoxPro 不 失 为 一 个 合 适 的 选 择 。 现 将 笔 者 利 用 FoxPro 在 网 络 环 境 下 开 发 数 据 库 管 理 软 件 的 一 些 经 验 总 结 如 下 ，供 大 家 参 考 。


1 、 多 用 户 环 境 下 文 件 的 共 享 和 独 占 的 实 现


（ 1 ） 、当 你 要 访 问 的 文 件 或 记 录 不 想 再 让 其 他 用 户 访 问 时 ( 一 般 是 对 数 据 库 的 更 新 操 作 ) ， 可 在 真 正 访 问 前 地 对 其 进 行 “ 加 锁 ” ， 访 问 结 束 后 再 立 即 “ 解 锁 ” ； 或 者 以 独 占 方 式 打 开 该 数 据 库 文 件 进 行 访 问 。 笔 者 在 此 以 数 据 追 加 入 库 为 例 , 简 述 采 用 按 钮 形 式 实 现 “ 加 锁 ”- “ 解 锁 ” 的 方 法 。 此 方 法 的 优 点 在 于 ： 当 加 锁 失 败 后 ， 程 序 可 自 动 返 回 数 据 编 辑 屏 幕 （ 不 需 要 编 程 干 预 ） ， 这 样 用 户 可 根 据 需 要， 再 适 时 地 单 击 “ 追 加 ” 按 钮 继 续 其 工 作 。 “ 追 加 入 库 ” 按 钮 的代 码 片 段 如 下 : ... set exclusive off use(locfile("z:\message\scxx\hytz","dbF","Where is hytz.dbf?")); AGAIN ALIAS hytz; ORDER 0 set reprocess to 0 ok=flock() && 加 锁 if ok && 成 功 锁 住 append from hytzi wait " 数 据 追 加 成 功 ! 按 任 意 键 继 续 !" window
unlock 　 　 　 && 解 锁 else && 加 锁
失 败 wait " 文 件 已 被 其 他 用 户 使 用 ， 请 稍 候 再 试 ！ " window endif use set exclusive on ... 其 中 ： hytz.dbf -- 服 务 器 上 的 目 标 数 据 库 表 hytzi.dbf -- 临 时 数 据 库 表


（ 2 ） 、 当 你 要 访 问 的 文 件 或 记 录 允 许 其 他 用 户 访 问 时 （ 一般 为 数 据 库 的 检 索 操 作 ） ， 以 共 享 方 式 打 开 该 数 据 库 文 件 即 可 。
以 检 索 hytz.dbf 数 据 为 例 。 打 开 hytz 的 数 据 查 询 屏 幕 ， 在 SCREEN 的 Layout 项 中 ， 点 取 Code 按 钮 ， 在 Screen Setup Code 中 加 入 如 下 代 码 段
： ... 　 　 SELECT 0 USE (LOCFILE("hytz","DBF","Where is hytz?")); AGAIN ALIAS hytz ; shared; && 共 享 方 式 打 开 ORDER 0 ... 建 议 将 系 统 的 数 据 检 索 与 数 据 更 新 分 为 两 个 子 系 统 进 行 设 计 和 编 码 ， 这 样 便 于 在 程 序 中 对 EXCLUSIVE 的 值 进 行 设 置 （ 使 用 SET EXCLUSIVE 命 令 和 USE { EXCLUSIVE

关键词：运用Foxpro在网络环境下开发数据库管理软件经验点滴