| VB 源码 | VC 源码 | ASP源码 | JSP源码 | PHP源码 | CGI源码 | FLASH源码 | 素材模板 | C 源程序 | 站长工具 | 站长教程 |

ASP技术

ASP技术
PHP技术
JSP技术
VB技术
.NET技术

本类阅读TOP10

·ASP如何获取真实IP地址
·Asp中五种连接数据库的方法
·解密ASP源代码
·ASP编程技巧大全[1]
·快速打造留言本教程[1]
·ASP中也能解压缩rar文件
·浅谈如何建立三层体系结构的ASP应用程序(2)
·用ASP发送邮件
·浅谈如何建立三层体系结构的ASP应用程序(1)
·使ACCESS数据库保持同步

站内搜索

第 六 课 : 创 建  ActiveX  财 务 组 件

组 件 将 包 含 一 组 相 关 的 方 法 ( 函 数 ) , 用 来 提 供 脚 本 语 言 所 不 具 有 的 功 能 。 由 于
 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 ” 按 钮 。  

关 闭 命 令 提 示 符 窗 口 。  




相关文章
  • ASP中也能解压缩rar文件
  • ASP.net生成文字图片
  • 从ASP过渡到ASP.net遗留的二十大积习
  • ASP.NET中使用数据处理插入数据注意的问题
  • ASP登陆验证页应做的安全问题
  • 自己写的一个简单ASP调用存储过程查询
  • ASP:金矿还是陷阱
  • asp中对多余参数的完美过滤
  • ASP3.0给我们带来的新技术
  • 第 一 课 : 创 建 一 个 简 单 的  ASP  页
  • 第 二 课 :  创 建  HTML  表 格
  • 第三课:使 用  Ad Rotator ( 广 告 轮 换 器 ) 组 件
  • Are you ready?
  • ASP简介
  • 堵住ASP漏洞
  • 最新的ASP、IIS安全漏洞
  • ASP 之 Cookies 讲座
  • 采用XML数据来填充ASP表单
  • 使用ASP中的VB ActiveX.dll文件
  • 采用XML数据来填充ASP表单
  • 相关软件

  • ASP博客程序oblog 2.52
  • ASP产品下级菜单 1.1
  • ASP商城之王 8.2
  • DB2ASP自动数据库ASP生成器 2.0
  • ASP上传文件管理器 1.0
  • ASP时钟  
  • 用ASP编写网络BP机  
  • 蓝芒寻呼机V1.0版,一个纯ASP在线既  
  • 一个ASP做的上传工具  
  • 一个ASP+FLASH的实例  

  • 下载首页关于我们广告服务联系方式常见问题隐私声明法律条款本站声明下载帮助发布软件站点地图谷歌卫星地图