说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Delphi3的DBGrid中的下拉列表和查找字段编程方法

HTML文档下载 WORD文档下载 PDF文档下载
Delphi3的DBGrid中的下拉列表和查找字段编程方法

---- 数 据 网 格 是 非 常 流 行 的 数 据 输 入 和 显 示 形 式, 像 大 家 熟 悉 的Excel97、VFP 中 的 功 能 强 大 的BROWS 等, 为 广 大 程 序 员 乐 于 采 用。 在 用Delphi3 开 发 数 据 库 应 用 系 统 时, 利 用 数 据 网 格DBGrid 输 入 数 据 时, 有 些 字 段 只 允 许 某 几 个 固 定 的 字 符 串, 像 档 案 案 卷 的 保 管 期 限, 只 有“ 永 久”、“ 长 期” 和“ 短 期” 三 种, 可 否 从 一 个 下 拉 列 表 中 进 行 选 择, 从 而 方 便 输 入 和 避 免 输 入 错 误 呢 ? 还 有 一 些 字 段, 例 如 职 工 信 息 库 中 的 单 位 编 号( 在 另 外 的 单 位 库 中 保 存 着 单 位 的 详 细 信 息), 在 输 入 和 显 示 职 工 数 据 时, 能 否 不 对 单 位 编 号 进 行 操 作, 而 代 之 于 更 加 直 观 的 单 位 库 中 的 单 位 名 称 呢 ? 答 案 是 肯 定 的,Delphi3 的 数 据 网 格 控 件DBGrid, 支 持 下 拉 列 表 和 查 找 字 段 的 编 程, 而 且, 编 程 的 过 程 都 是 可 视 化 的, 不 需 要 写 一 行 语 句。

一、DBGrid 中 的 下 拉 列 表

---- 在DBGrid 网 格 中 实 现 下 拉 列 表, 设 置 好DBGrid 中 该 字 段 的PickList 字 符 串 列 表、 初 始 的 序 号 值DropDownRows 即 可。 以 职 工 信 息 库 中 的 籍 贯 字 段( 字 符 串 类 型) 为 例, 具 体 设 计 步 骤 如 下:

---- 1、 在 窗 体 上 放 置Table1、DataSource1、DBGrid1、DBNavigator1 等 控 件 对 象, 按 下 表 设 置 各 个 对 象 的 属 性:

---------------------------------------

对象 属性 设定值

---------------------------------------

Table1 DataBase sy1

Table zgk.dbf //职工信息库

DataSource1 DataSet Table1

DbGrid1 DataSource DataSource1

DBNavigator1 DataSource Datasource1

-------------------------------------------

---- 2、 双 击Table1

在 弹 出 的Form1.Table1 窗 口 中, 用 右 键 弹 出 快 捷 菜 单, 单 击Add Fields 菜 单 项; 选 择 所 有 的 字 段 后, 按OK 按 钮。

---- 3、 修 改 第2 步 新 增 字 段 的DisplayLabel 属 性。 以Table1ZGBH 字 段 为 例, 在Object Inspector 窗 口 中 选 择Table1ZGBH

修 改 属 性DisplayLabel= 职 工 编 号, 其 余 字 段 类 似。

---- 4、 双 击DBGrid1

在 弹 出 的Editing DBGrid1.Columns 窗 口 中, 单 击Add all Fields 按 钮, 增 加Table1 的 所 有 字 段。

---- 5、 在Editing DBGrid1.Columns 窗 口, 选 择jg 这 一 行, 切 换 到Object Inspector 窗 口, 修 改 它 的PickList.Strings 为“ 湖 北 枝 江 市( 换 行) 北 京 市( 换 行) 河 南 平 顶 山 市( 换 行) 浙 江 德 清 市”

---- 6、 在Form1.Oncreate 事 件 中 写 入 语 句:

---- Table1.Open;

---- 7、F9 运 行, 用 鼠 标 点 击 某 个 记 录 的 籍 贯 字 段, 右 边 即 出 现 一 个 按 钮, 点 击 这 个 按 钮, 可 出 现 一 个 下 拉 列 表, 包 含 第5 步 中 输 入 的 四 行 字 符 串, 可 用 鼠 标 进 行 选 择。 当 然 也 可 以 自 行 输 入 一 个 并 不 属 下 拉 列 表 中 的 字 符 串。

二、DBGrid 中 的 查 找 字 段

---- 所 谓 查 找 字 段(LookUp Field), 即DBGrid 中 的 某 个 关 键 字 段 的 数 值 来 源 于 另 外 一 个 数 据 库 的 相 应 字 段。 运 用 查 找 字 段 技 术, 不 仅 可 以 有 效 的 避 免 输 入 错 误, 而 且DBGrid 的 显 示 方 式 更 为 灵 活, 可 以 不 显 示 关 键 字 段, 而 显 示 源 数 据 库 中 相 对 应 的 另 外 一 个 字 段 的 数 据。

---- 例 如, 我 们 在DBGrid 中 显 示 和 编 辑 职 工 信 息, 包 括 职 工 编 号、 职 工 姓 名、 籍 贯、 所 在 单 位 编 号, 而 单 位 编 号 来 源 于 另 一 个 数 据 库 表 格 — — 单 位 库, 称“ 单 位 编 号” 为 关 键 字 段。 如 果 我 们 直 接 显 示 和 编 辑 单 位 编 号 的 话, 将 会 面 对1、2、3 等 非 常 不 直 观 的 数 字, 编 辑 时 极 易 出 错。 但 是 如 果 显 示 和 编 辑 的 是 单 位 库 中 对 应 的 单 位 名 称 话, 将 非 常 直 观。 这 就 是DBGrid 的 所 支 持 的 查 找 字 段 带 来 的 好 处。

---- 实 现DBGrid 的 查 找 字 段 同 样 不 需 要 任 何 语 句, 具 体 设 计 步 骤 如 下:

---- 1、 在 窗 体 上 放 置Table1、Table2、DataSource1、DBGrid1、DBNavigator1 等 控 件 对 象, 按 下 表 设 置 各 个 对 象 的 属 性:

---------------------------------------

对象 属性 设定值

---------------------------------------

Table1 DataBase sy1

Table zgk.dbf //职工信息库

Table2 DataBase sy1

Table dwk.dbf //单位信息库

DataSource1 DataSet Table1

DbGrid1 DataSource DataSource1

DBNavigator1 DataSource Datasource1

------------------------------------------

---- 2、 双 击Table1

在 弹 出 的Form1.Table1 窗 口 中, 用 右 键 弹 出 快 捷 菜 单, 单 击Add Fields 菜 单 项; 选 择 所 有 的 字 段 后, 按OK 按 钮。

---- 3、 修 改 第2 步 新 增 字 段 的DisplayLabel 属 性。 以Table1ZGBH 字 段 为 例, 在Object Inspector 窗 口 中 选 择Table1ZGBH

修 改 属 性DisplayLabel= 职 工 编 号, 其 余 字 段 类 似。

---- 4、 设 置Table1DWBH.Visible=False。

---- 5、 在Form1.Table1 窗 口, 用 右 键 弹 出 快 捷 菜 单, 单 击New Field 菜 单 项, 新 增 一 个 查 找 字 段DWMC, 在 弹 出 的 窗 口 设 置 相 应 的 属 性

按OK 按 钮 确 认; 在Object Inspector 窗 口, 设 置Table1DWMC.DisplayLabel= 单 位 名 称。

---- 6、 在Form1.Oncreate 事 件 中 写 入 语 句:

---- Table1.Open;

---- 7、 按F9 运 行, 当 光 标 移 至 某 个 记 录 的 单 位 名 称 字 段 时, 用 鼠 标 点 击 该 字 段, 即 出 现 一 个 下 拉 列 表, 点 击 右 边 的 下 箭 头, 可 在 下 拉 列 表 中 进 行 选 择。 在 这 里 可 以 看 出, 下 拉 列 表 的 内 容 来 自 于 单 位 信 息 库, 并 且 不 能 输 入 其 他 内 容。

三、DBGrid 中 的 下 拉 列 表 和 查 找 字 段 的 区 别

---- 虽 然DBGrid 中 的 下 拉 列 表 和 查 找 字 段, 都 是 以 下 拉 列 表 的 形 式 出 现 的, 但 两 者 有 很 大 的 差 别。

---- 1、 用PickList 属 性 设 置 的 下 拉 列 表, 它 的 数 据 是 手 工 输 入 的, 虽 然 也 可 以 在 程 序 中 修 改, 但 动 态 特 性 显 然 不 如 直 接 由 另 外 数 据 库 表 格 提 取 数 据 的 查 找 字 段。

---- 2、 用PickList 属 性 设 置 的 下 拉 列 表, 允 许 输 入 不 属 于 下 拉 列 表 中 的 数 据, 但 查 找 字 段 中 只 能 输 入 源 数 据 库 中 关 键 字 段 中 的 数 据, 这 样 更 能 保 证 数 据 的 完 整 性。

---- 3、 用PickList 属 性 设 置 的 下 拉 列 表 设 计 较 为 简 单。

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘