组 件 将 包 含 一 组 相 关 的 方 法 ( 函 数 ) , 用 来 提 供 脚 本 语 言 所 不 具 有 的 功 能 。 由 于 VBScript 不 提 供 财 务 函 数 , 所 以 您 必 须 通 过 自 己 的 Finance 服 务 器 组 件 来 提 供 对 Visual Basic 财 务 函 数 的 使 用 能 力 。 该 服 务 器 组 件 能 提 供 所 有 的 Visual Ba sic 财 务 函 数 , 包 括 DDB 函 数 ( 双 倍 余 额 递 减 法 ) 、 FV 函 数 ( 未 来 值 ) 、 IPmt 函 数 ( 支 付 利 息 ) 、 IRR 函 数 ( 内 部 回 报 率 ) 以 及 其 他 函 数 。 不 过 , 在 本 教 程 中 , 您 将 只 使 用 FV 函 数 , 基 于 固 定 利 率 及 等 额 定 期 支 付 方 式 , 返 回 一 笔 年 金 。
启 动 Visual Basic
单 击 “ 开 始 ” 按 钮 , 指 向 “ 程 序 ” , 然 后 指 向 “ Microsoft Visual Basic 5.0 ”
单 击 子 菜 单 中 的 “ Visual Basic 5.0 ” , 运 行 编 程 环 境 。
开 始 并 命 名 一 个 工 程
在 “ New Project ” 对 话 框 中 , 双 击 “ ActiveX DLL ” 。
在 “ Project ” 菜 单 上 , 单 击 “ Project1 Properties ” 。
在 “ General ” 属 性 页 的 “ Project Name ” 框 中 , 键 入 “ MS ” 。
选 择 “ Unattended Execution ” 。
注 意 选 择 该 选 项 表 明 这 个 工 程 运 行 时 不 需 要 用 户 交 互 , 并 且 将 不 具 有 用 户 交 互 的 基 础 。
单 击 “ OK ” 。
现 在 工 程 被 命 名 为 “ MS ” 。 以 后 , 您 将 从 ASP 脚 本 中 以 MS.Finance 的 形 式 引 用 Finance 服 务 器 组 件 。
将 Finance Class 添 加 到 工 程 中
在 Visual Basic 中 , 若 要 创 建 具 有 一 组 可 以 调 用 的 函 数 组 件 , 必 须 定 义 一 个 类 。 一 个 类 包 含 一 组 方 法 和 属 性 。 在 您 的 工 程 中 , 类 就 是 您 说 明 财 务 方 法 的 地 方 。
按 下 F4 键 打 开 类 模 块 的 “ Properties ” 窗 口 , 双 击 “ Name ” 属 性 并 键 入 “ Func tion ” , 然 后 按 Enter 。
双 击 “ Instancing ” 。
单 击 箭 头 , 然 后 选 择 “ 5 - MultiUse ” 。
进 一 步 学 习 Visual Basic 财 务 函 数
Visual Basic 的 帮 助 系 统 描 述 了 可 以 使 用 的 财 务 函 数 。
单 击 “ Help ” 。
选 择 “ Microsoft Visual Basic Help Topics ” 。
选 择 “ Index ” 选 项 卡 , 然 后 键 入 “ financial functions ” 作 为 查 找 的 文 字 。
双 击 “ financial functions ” 索 引 条 。
单 击 “ FV Function ” , 学 习 该 函 数 。
学 习 完 财 务 函 数 后 , 关 闭 “ Visual Basic Help ” 对 话 框 。
将 CalcFV 函 数 添 加 到 Finance 类
Finance 服 务 器 组 件 需 要 一 些 代 码 。 这 些 代 码 让 使 用 您 组 件 的 语 言 可 以 调 用 Vis ual Basic 内 建 的 未 来 值 函 数 。
将 下 列 行 复 制 并 粘 贴 到 Finance 类 的 代 码 窗 口 中 :
Public Function CalcFV(rate, nper, pmt, Optional pv, Optional whendue)
CalcFV = FV(rate, nper, pmt, pv, whendue)
End Function
添 加 组 件 的 入 口 点
所 有 服 务 器 组 件 都 需 要 一 个 入 口 ( 起 始 ) 点 。 这 是 当 对 象 第 一 次 可 用 于 一 种 语 言 时 , 将 被 调 用 的 代 码 。 在 VBScript 中 , 当 您 使 用 Server.CreateObject 时 , 将 创 建 对 象 的 一 个 实 例 。 当 执 行 Server.CreateObject 语 句 时 , ( 由 Visual Bas ic 创 建 的 ) 服 务 器 组 件 上 的 Sub Main 过 程 将 被 调 用 。
当 您 的 财 务 组 件 被 调 用 时 , 它 不 需 要 任 何 特 殊 代 码 来 初 始 化 自 身 。 因 此 , 需 要 提 供 一 个 空 的 ( 没 有 Visual Basic 语 句 的 ) Sub Main 过 程 。
选 择 “ Project ” 菜 单 中 的 “ Add Module ” 。
在 “ Module 1 ” 对 话 框 中 , 双 击 模 块 图 标 。
在 Module 1 代 码 窗 口 中 , 键 入 Sub Main 。
按 下 Enter 键 。
将 自 动 进 入 如 下 代 码 :
Sub Main()
End Sub
保 存 Finance 工 程
当 保 存 所 作 的 工 作 时 , 将 询 问 您 是 否 保 存 Visual Basic 工 程 的 全 部 3 部 分 。 其 中 包 括 工 程 文 件 、 类 模 块 和 代 码 模 块 。
打 开 “ File ” 菜 单 。
选 择 “ Save Project ” 。
在 “ File name ” 文 本 框 中 , 键 入 “ Finance ” 。 选 择 localhost Web 服 务 器 上 的 如 下 路 径 : DriveLetter:\Winnt\System32\Inetsrv\ , 其 中 DriveLetter 是 适 当 的 驱 动 器 号 。 ( 如 果 您 没 有 接 受 默 认 的 安 装 目 录 , 请 用 您 的 安 装 目 录 替 换 \Winn t\System32 。 )
单 击 “ Save ” 按 钮 。
如 果 在 此 以 前 , 另 一 个 用 户 已 经 学 完 了 教 程 的 这 一 部 分 , 将 出 现 一 条 消 息 , 提 示 文 件 已 经 存 在 。 请 用 您 的 文 件 覆 盖 旧 文 件 。
双 击 “ File name ” 文 本 框 中 的 值 “ Project1 ” , 选 中 它 。
为 工 程 文 件 键 入 名 称 “ Finance ” (.vbp) 。
单 击 “ Save ” 按 钮 保 存 工 程 。
如 果 在 此 以 前 , 另 一 个 用 户 已 经 学 完 了 教 程 的 这 一 部 分 , 将 出 现 一 条 消 信 息 , 提 示 文 件 已 经 存 在 。 请 用 您 的 文 件 覆 盖 旧 文 件 。
成 为 “ 进 程 内 (In-Process) ” 组 件
Visual Basic 允 许 您 创 建 进 程 内 ActiveX 组 件 ( 通 常 称 为 OLE 自 动 服 务 器 ) 和 进 程 外 ActiveX 组 件 。 一 个 进 程 内 ActiveX 组 件 是 一 个 动 态 链 接 库 ( 带 .dll 后 缀 ) , 由 调 用 它 的 进 程 进 行 加 载 。 一 个 进 程 外 ActiveX 组 件 是 一 个 可 执 行 文 件 ( 带 .exe 后 缀 ) , 当 它 被 应 用 程 序 调 用 后 , 以 独 立 进 程 的 状 态 运 行 。 由 于 进 程 内 组 件 与 调 用 它 的 程 序 在 同 一 个 进 程 空 间 , 所 以 性 能 比 进 程 外 组 件 要 佳 。
使 Finance 服 务 器 组 件 成 为 进 程 内 ActiveX 组 件
打 开 “ File ” 菜 单 。
选 定 “ Make Finance.dll ” 。
单 击 “ Options ” 按 钮 。
选 定 “ Auto Increment ” 复 选 框 。
单 击 “ OK ” 。
键 入 DriveLetter:\localhost\Winnt\System32\Inetsrv\Finance , 其 中 Drive Letter 是 适 当 的 驱 动 器 号 。 ( 如 果 您 没 有 接 受 默 认 的 安 装 目 录 , 请 用 您 的 安 装 目 录 替 换 \Winnt\System32 。 )
如 果 在 此 以 前 , 另 一 个 用 户 已 经 学 完 了 教 程 的 这 一 部 分 , 将 出 现 一 条 消 信 息 , 提 示 文 件 已 经 存 在 。 请 用 您 的 文 件 覆 盖 旧 文 件 。
退 出 Visual Basic 。
注 册 Finance 服 务 器 组 件
所 有 服 务 器 组 件 都 必 须 注 册 。 Windows NT 和 Windows 95 用 系 统 注 册 表 来 追 踪 哪 个 服 务 器 组 件 是 可 用 的 。 在 您 的 计 算 机 上 将 Finance 服 务 器 组 件 注 册 后 , 就 可 以 在 VBScript 和 所 有 兼 容 OLE 的 语 言 中 调 用 它 了 。
打 开 一 个 命 令 提 示 符 窗 口 。
在 命 令 提 示 符 后 键 入 cd Drive Letter:\localhost\Winnt\System32\Inetsrv , 其 中 DriveLetter 是 适 当 的 驱 动 器 号 。 ( 如 果 您 没 有 接 受 默 认 的 安 装 目 录 , 请 用 您 的 安 装 目 录 替 换 \Winnt\System32 。 )
按 下 Enter 键 。
键 入 regsvr32 Finance.dll 。
按 下 Enter 键 。
当 出 现 一 个 对 话 框 显 示 “ DllRegisterServer in finance.dll succeeded ” 时 , 请 单 击 “ OK ” 按 钮 。
关 闭 命 令 提 示 符 窗 口 。 
|