浅谈Excel中的数据库程序设计.docVIP

浅谈Excel中的数据库程序设计 ?? ----在 实 际 工 作 中， 无 论 是 在 单 机 上 还 是 在 网 络 上 运 用 数 据 库 软 件 编 程， 工 作 都 是 相 当 繁 琐 的。 如 果 使 用Microsoft Excel 中Visual Basic 的 简 单 几 条 宏 命 令， 编 制 一 些 小 巧 的 软 件， 也 能 解 决 大 量 数 据 处 理 的 工 作。屏 幕 设 计----在Windows 95 或Windows3.x 下， 启 动Microsoft Excel 程 序， 进 入Excel 工 作 菜 单。 在Sheet 中 设 计 出 满 足 用 户 要 求， 界 面 友 好， 容 易 操 作 的 屏 幕。 比 如 在Sheetl 中 设 计 成 如 右 的 界 面：编 号 姓 名 性 别出 生 年 月 身 份 证 号 码 联 系 电 话籍 贯文 化 程 度 服 务 场 所 职 务职 称 工 种 特 长入 厂 时 间 离 厂 时 间 介 绍 人　数 据 库 设 计----切 换 到Sheet2 中， 在Sheet2 的 第 一 行 建 立 一 个 数 据 库 字 段， 把Sheet2 当 做 数 据 库 使 用。 将 输 入 新 屏 幕 上 的 数 据 以 一 条 记 录 形 式 放 在 数 据 库 中， 该 库 可 以 连 续 存 放 多 条 记 录。 规 定 每 个 字 段 与 输 入 屏 幕 中 的 字 段 相 对 应， 数 据 从 第 二 条( 或 第 三 条) 开 始 存 放， 主 要 决 定 于 字 段 表 头 占 用 记 录 行 的 多 少， 本 例 采 用 一 行 表 头， 屏 幕 设 计 成 如 下 形 式：　编 号 姓名 性别 出 生年 月 身 份 证号 码 联 系 电 话 籍 贯 文 化 程 度　服 务场 所 职务 职称 工 种 特 长 入 厂时 间 离 厂时 间 介 绍 人　宏 设 计----生 成 宏。 首 先 生 成 一 个 将Sheet1 屏 幕 上 的 值， 以 一 条 记 录 存 入Sheet2 的 相 应 字 段 中。 用 鼠 标 右 键 点 取 工 作 标 签， 单 击 弹 出 菜 单 插 入 项， 出 现 一 个 模 板 选 项 对 话 框， 选 取 模 块 表， 按 确 定， 在 模 块 标 签 中 生 成 一 个 标 准 的 空Modulel， 在Modulel 中 写 入 三 个 子 程 序： 传 送 程 序、 查 询 程 序 和 打 印 程 序。　 　cc=2 从 数 据 库 中 的 第 二 行 开 始 计 数　 　aa=Range(c3).Value　 　Do While Worksheets(Sheet2).Cells(cc,1).ValueaaAnd Worksheets(Sheet2).Cells(cc,1).Value　 　cc=cc ＋1 决 定 查 找 数 据 库， 空 为 结 束 条 件　 　Loop　 　If Worksheets(Sheet2).Cells(cc,1).Value=aa Then　 　yn=InputBox( 数 据 已 存 在， 追 加 输 入Y)　 　If ynyAnd yn Y Then　 　End 找 到 不 替 换 结 束 子 程 序　 　End If　 　End If 存 盘 或 替 换　 　Worksheets(Sheet2).Cells(cc,1).Value=Range(c3)　 　Worksheets(Sheet2).Cells(cc,2).Value=Range(e3)　 　Worksheets(Sheet2).Cells(cc,3).Value=Range(g3)---- … … 复 制 多 条 语 句， 建 立 输 入 屏 幕 与 数 据 库 间 的 关 系　---- 以 下 语 句 为 清 除 显 示 屏 幕 有 关 字 段 的 值　　 　Range(c3)=：Range(e3)=：Range(g3)=　 　Range(c4)=：Range(e4)=：Range(g4)=　---- … … 复 制 语 句 清 除 输 入 屏 幕 上 的 字 段 值　　 　End Sub　·Sub 查 询 程 序()　 　cc=1　 　aa=InputBox( 请 输 入 要 查 询 人 员 的 编 号， 按 确 认 键：)　 　If aa= The