📄 十八、创建 activex 财务组件.htm
字号:
表格</A><BR>·<A title=十五、使用AdRotator（广告轮换器）组件
href="http://lzjx.com/w/main.asp?id=412&sx=jc">十五、使用 Ad
Rotat..</A><BR>·<A title=十六、使用BrowserCapabilities（浏览器性能）组件
href="http://lzjx.com/w/main.asp?id=413&sx=jc">十六、使用 Browser
..</A><BR>·<A title=十七、使用DatabaseAccess（数据库访问）组件
href="http://lzjx.com/w/main.asp?id=414&sx=jc">十七、使用
Database..</A><BR>·<A title=十八、创建ActiveX财务组件
href="http://lzjx.com/w/main.asp?id=415&sx=jc">十八、创建 ActiveX
..</A><BR>·<A title=十九、从脚本调用Finance组件
href="http://lzjx.com/w/main.asp?id=416&sx=jc">十九、从脚本调用
Finan..</A><BR>·<A
href="http://lzjx.com/w/main.asp?id=539&sx=jc">ASP+与ASP有什么不同</A><BR>·<A
href="http://lzjx.com/w/main.asp?id=540&sx=jc">介绍
ADO+</A><BR>·<A title=介绍ActiveServerPage+
href="http://lzjx.com/w/main.asp?id=541&sx=jc">介绍 Active
Serv..</A><BR>·<A
href="http://lzjx.com/w/main.asp?id=542&sx=jc">ASP+的几个特点</A><BR>·<A
title=ASP+支持的C#和VB语法对照表
href="http://lzjx.com/w/main.asp?id=543&sx=jc">ASP+ 支持的 C# 和
..</A><BR>·<A
href="http://lzjx.com/w/main.asp?id=544&sx=jc">ASP+
跟踪</A><BR>·<A
href="http://lzjx.com/w/main.asp?id=545&sx=jc">ASP+上传文件语法</A><BR>·<A
title=asp+简介、安装、以及如何显示中文
href="http://lzjx.com/w/main.asp?id=546&sx=jc">asp+简介、安装、以及如何..</A><BR>·<A
href="http://lzjx.com/w/main.asp?id=547&sx=jc">Asp+ Web
Forms</A><BR>·<A
href="http://lzjx.com/w/main.asp?id=548&sx=jc">ASP+中文显示之两种解决方法</A><BR>·<A
href="http://lzjx.com/w/main.asp?id=441&sx=jc">ASP上手“快捷方式”-序言</A><BR>·<A
title=ASP上手“快捷方式”-剖析ASP脚本
href="http://lzjx.com/w/main.asp?id=442&sx=jc">ASP上手“快捷方式”-剖析..</A><BR>·<A
title=ASP上手“快捷方式”-对象和组件
href="http://lzjx.com/w/main.asp?id=443&sx=jc">ASP上手“快捷方式”-对象..</A><BR>·<A
title=ASP上手“快捷方式”-脚本示例
href="http://lzjx.com/w/main.asp?id=444&sx=jc">ASP上手“快捷方式”-脚本..</A><BR>·<A
title=ASP上手“快捷方式”-脚本编写技巧
href="http://lzjx.com/w/main.asp?id=445&sx=jc">ASP上手“快捷方式”-脚本..</A><BR>·<A
title=ASP上手“快捷方式”-样例脚本
href="http://lzjx.com/w/main.asp?id=446&sx=jc">ASP上手“快捷方式”-样例..</A><BR>·<A
title=ASP上手“快捷方式”-数据库
href="http://lzjx.com/w/main.asp?id=447&sx=jc">ASP上手“快捷方式”-数据..</A><BR>·<A
href="http://lzjx.com/w/main.asp?id=523&sx=jc">ASP的技术特点与使用方法</A><BR>·<A
href="http://lzjx.com/w/main.asp?id=522&sx=jc">SQL
Server访问ADO</A><BR>·<A
href="http://lzjx.com/w/main.asp?id=521&sx=jc">ASP个人上手指南</A><BR></TD></TR></TBODY></TABLE><SPAN
class=l15></SPAN></TD>
<TD vAlign=top align=middle width=1 bgColor=#cccccc></TD>
<TD vAlign=top align=middle width=592 bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=6 width="98%" border=0>
<TBODY>
<TR>
<TD class=xx vAlign=bottom height=30>■ 基础教程 > 十八、创建 ActiveX
财务组件</TD></TR></TBODY></TABLE>
<TABLE height=119 cellSpacing=6 cellPadding=3 width="99%" border=0>
<TBODY>
<TR>
<TD class=xk vAlign=top align=left
width="50%">组件将包含一组相关的方法（函数），用来提供脚本语言所不具有的功能。由于 <BR>VBScript
不提供财务函数，所以您必须通过自己的 Finance 服务器组件来提供 <BR>对 Visual Basic
财务函数的使用能力。该服务器组件能提供所有的 Visual Ba <BR>sic 财务函数，包括 DDB
函数（双倍余额递减法）、FV 函数（未来值）、IPmt <BR>函数（支付利息）、IRR
函数（内部回报率）以及其他函数。不过，在本教程中 <BR>，您将只使用 FV
函数，基于固定利率及等额定期支付方式，返回一笔年金。
<BR> <BR>启动 Visual
Basic <BR>
<BR>单击“开始”按钮，指向“程序”，然后指向“Microsoft Visual Basic 5.0”
<BR> <BR>单击子菜单中的“Visual
Basic 5.0”，运行编程环境。
<BR>
<BR>开始并命名一个工程
<BR> <BR>在“New
Project”对话框中，双击“ActiveX DLL”。
<BR>
<BR>在“Project”菜单上，单击“Project1 Properties”。
<BR>
<BR>在“General”属性页的“Project Name” 框中，键入“MS”。
<BR> <BR>选择“Unattended
Execution”。
<BR> <BR>注意
选择该选项表明这个工程运行时不需要用户交互，并且将不具有用户交互的 <BR>基础。
<BR>
<BR>
<BR>
<BR>单击“OK”。
<BR> <BR>现在工程被命名为“MS”。以后，您将从
ASP 脚本中以 MS.Finance 的形式引用 <BR>Finance
服务器组件。 <BR>
<BR>
<BR>
<BR> <BR>按下 F4
键打开类模块的“Properties”窗口，双击“Name”属性并键入“Func <BR>tion”，然后按
Enter。
<BR>
<BR>双击“Instancing”。
<BR> <BR>单击箭头，然后选择“5 -
MultiUse”。
<BR> <BR>进一步学习 Visual Basic
财务函数
<BR> <BR>Visual Basic
的帮助系统描述了可以使用的财务函数。 <BR>
<BR>
<BR>
<BR>单击“Help”。
<BR> <BR>选择“Microsoft Visual
Basic Help Topics”。
<BR>
<BR>选择“Index”选项卡，然后键入“financial functions”作为查找的文字。
<BR>
<BR> <BR>双击“financial
functions”索引条。 <BR>
<BR>单击“FV
Function”，学习该函数。 <BR>
<BR>学习完财务函数后，关闭“Visual Basic
Help”对话框。 <BR>
<BR>将 CalcFV 函数添加到 Finance
类 <BR>
<BR>Finance 服务器组件需要一些代码。这些代码让使用您组件的语言可以调用 Vis <BR>ual Basic
内建的未来值函数。
<BR>
<BR>
<BR> <BR>将下列行复制并粘贴到 Finance
类的代码窗口中： <BR>
<BR>
<BR> <BR>Public Function
CalcFV(rate, nper, pmt, Optional pv, Optional whendue)
<BR>
<BR> <BR>CalcFV = FV(rate,
nper, pmt, pv,
whendue) <BR>
<BR>End Function
<BR>
<BR>添加组件的入口点
<BR>
<BR>所有服务器组件都需要一个入口（起始）点。这是当对象第一次可用于一种语言 <BR>时，将被调用的代码。在
VBScript 中，当您使用 Server.CreateObject 时，将 <BR>创建对象的一个实例。当执行
Server.CreateObject 语句时，（由 Visual Bas <BR>ic 创建的）服务器组件上的 Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -