运用ActiveX组件技术创建通用的查询控件
：" & CStr(sValue) & "注释："
Exit Function
Case Else
MsgBox
"该项超出查询范围或数据类型不对!", 16, "查询条件:"
CheckType = ""
End Select
End Function
---- 5. 生 成OCX 文 件
---- 在" 工 程 组" 窗 口 里 选 定" 查 询 控 件.VBP" 工 程。 从" 文 件" 菜 单 里 选 择" 生 成 查 询 控 件.OCX", 生 成 工 程 窗 口 打 开, 选 择 好 保 存 控 件 的 路 径 和 文 件 名 后, 按 确 定 按 钮。
---- 至 此," 查 询 控 件" 已 创 建 完 毕。Visual Basic 已 在 您 的 操 作 系 统 注 册 表 里 注 册 了 这 个 控 件。 在Windows 95 中 控 件 的 注 册 位 置 是:HKEY_LOCAL MACHINE\SOFTWARE\CLASSES\CLSID。
控 件 的 使 用 说 明
---- 控 件 创 建 好 后, 就 可 以 提 供 给 他 人 使 用 了。 可 以 通 过 创 建CAB 文 件, 经 国 际 互 连 网 发 行 给 用 户 使 用。 这 里 仅 说 明 在Visual Basic 编 程 环 境 下 的 使 用。
---- 1. 将" 查 询 控 件.OCX"、" 查 询 控 件.EXP"、" 查 询 控 件.LIB" 这 三 个 文 件 复 制 到 您 的 服 务 器 或 工 作 站 的 某 一 路 径 下。 例 如:C:\ 用 户 控 件。
---- 2. 从" 工 程" 菜 单 里, 打 开" 部 件" 窗 口, 选 定" 查 询 控 件"。 如 果 在 选 择 窗 口 中 未 显 示" 查 询 控 件", 则 通 过 浏 览 按 钮 来 选 定。 选 定 好 后, 按 确 定 按 钮 返 回," 查 询 控 件" 图 标 将 显 式 地 显 示 在 工 具 栏 中。
---- 3. 新 建 或 添 加 一 个" 标 准EXE" 工 程, 双 击 或 拖 放" 查 询 控 件" 图 标 到 工 程 的 窗 体 上。
---- 4. 选 中 窗 体 上 的" 查 询 控 件", 在 窗 体 的 属 性 栏 或 代 码 窗 口 "Form_Load" 事 件 中 为 属 性 赋 值。 例 如: Private Sub Form_Load()
---- 查 询 控 件.Connect = "Access"
---- 查 询 控 件.Database = "d:\my documents\access\myweb.mdb"
---- 查 询 控 件.Tablename = "address"
---- End Sub
---- 5. 在 窗 体 代 码 窗 口 的" 查 询 控 件_GetSelectionSql" 自 定 义 事 件 中 获 取 查 询 字 符 串。 将 该 字 符 串 连 接 到 显 示 窗 体 或 需 要 地 方 的SELECT 语 句 上, 即 可 完 成 各 种 情 况 的 组 合 查 询。 例 如:
---- Private Sub 查 询 控 件_GetSelectionSql(ByVal SelectionSql As String)
---- MySelectionSql = SelectionSql
---- End Sub
Exit Function
Case Else
MsgBox
"该项超出查询范围或数据类型不对!", 16, "查询条件:"
CheckType = ""
End Select
End Function
---- 5. 生 成OCX 文 件
---- 在" 工 程 组" 窗 口 里 选 定" 查 询 控 件.VBP" 工 程。 从" 文 件" 菜 单 里 选 择" 生 成 查 询 控 件.OCX", 生 成 工 程 窗 口 打 开, 选 择 好 保 存 控 件 的 路 径 和 文 件 名 后, 按 确 定 按 钮。
---- 至 此," 查 询 控 件" 已 创 建 完 毕。Visual Basic 已 在 您 的 操 作 系 统 注 册 表 里 注 册 了 这 个 控 件。 在Windows 95 中 控 件 的 注 册 位 置 是:HKEY_LOCAL MACHINE\SOFTWARE\CLASSES\CLSID。
控 件 的 使 用 说 明
---- 控 件 创 建 好 后, 就 可 以 提 供 给 他 人 使 用 了。 可 以 通 过 创 建CAB 文 件, 经 国 际 互 连 网 发 行 给 用 户 使 用。 这 里 仅 说 明 在Visual Basic 编 程 环 境 下 的 使 用。
---- 1. 将" 查 询 控 件.OCX"、" 查 询 控 件.EXP"、" 查 询 控 件.LIB" 这 三 个 文 件 复 制 到 您 的 服 务 器 或 工 作 站 的 某 一 路 径 下。 例 如:C:\ 用 户 控 件。
---- 2. 从" 工 程" 菜 单 里, 打 开" 部 件" 窗 口, 选 定" 查 询 控 件"。 如 果 在 选 择 窗 口 中 未 显 示" 查 询 控 件", 则 通 过 浏 览 按 钮 来 选 定。 选 定 好 后, 按 确 定 按 钮 返 回," 查 询 控 件" 图 标 将 显 式 地 显 示 在 工 具 栏 中。
---- 3. 新 建 或 添 加 一 个" 标 准EXE" 工 程, 双 击 或 拖 放" 查 询 控 件" 图 标 到 工 程 的 窗 体 上。
---- 4. 选 中 窗 体 上 的" 查 询 控 件", 在 窗 体 的 属 性 栏 或 代 码 窗 口 "Form_Load" 事 件 中 为 属 性 赋 值。 例 如: Private Sub Form_Load()
---- 查 询 控 件.Connect = "Access"
---- 查 询 控 件.Database = "d:\my documents\access\myweb.mdb"
---- 查 询 控 件.Tablename = "address"
---- End Sub
---- 5. 在 窗 体 代 码 窗 口 的" 查 询 控 件_GetSelectionSql" 自 定 义 事 件 中 获 取 查 询 字 符 串。 将 该 字 符 串 连 接 到 显 示 窗 体 或 需 要 地 方 的SELECT 语 句 上, 即 可 完 成 各 种 情 况 的 组 合 查 询。 例 如:
---- Private Sub 查 询 控 件_GetSelectionSql(ByVal SelectionSql As String)
---- MySelectionSql = SelectionSql
---- End Sub