设为首页收藏本站Access中国
开启辅助访问

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

Windows脚本组件与ACCESS[原作]

2002-6-12 04:18| 发布者: admin| 查看: 917| 评论: 4|原作者: zhuyiwen|来自: www.office-cn.net

摘要: 用记事本新建文件，内容如下：SCRIPTLET Registration Description=ConvertTemp ProgID=ConvertTemp.Scriptlet Version=1.00 /Registration public property name=number get internalname=ge ...
用记事本新建文件，内容如下：
  1. <SCRIPTLET>

  3. <Registration
  4.         Description="ConvertTemp"
  5.         ProgID="ConvertTemp.Scriptlet"
  6.         Version="1.00"
  7. >
  8. </Registration>
  9. <public>
  10.     <property name="number">
  11.       <get internalname="getNumber"/>
  12.       <put internalname="setNumber"/>
  13.     </property>

  15.         <method name=Celsius>
  16.                 <PARAMETER name=F/>
  17.         </method>
  18.         <method name=Fahrenheit>
  19.                 <PARAMETER name=C/>
  20.         </method>
  21.     <event name="onnumberchange"/>
  22. </public>


  25. <SCRIPT LANGUAGE=VBScript>

  27. dim num

  29. ' Get 属性
  30. function getNumber()
  31.    getNumber = num
  32. End Function

  34. ' Put 属性
  35. function setNumber(newNumber)
  36.    if not IsNumeric(newNumber) then
  37.       num = 0 'return not a number, ignore
  38.    else
  39.       num = newNumber
  40.       fireEvent("onnumberchange")
  41.    end if
  42. End Function

  44. ' 以下为两个 COM 方法
  45. Function Celsius(F)
  46.           Celsius = 5/9 * (F - 32)
  47. End Function

  49. Function Fahrenheit(C)
  50.           Fahrenheit = (9/5 * C) + 32
  51. End Function

  53. </script>

  55. </SCRIPTLET>
复制代码
保存为 "ConvertScriptlet.sct" 文件。

这是一个完整的 Windows 脚本组件文件。
  1. <Registration
  2.         Description="ConvertTemp"
  3.         ProgID="ConvertTemp.Scriptlet"
  4.         Version="1.00"
  5. >
  6. </Registration>
复制代码
这一段为脚本组件注册。ProgID="ConvertTemp.Scriptlet"定义类的名称。

  2.     <property name="number">
  3.       <get internalname="getNumber"/>
  4.       <put internalname="setNumber"/>
  5.     </property>
复制代码
这一段为定义属性和属性过程。

  2.         <method name=Celsius>
  3.                 <PARAMETER name=F/>
  4.         </method>
  5.         <method name=Fahrenheit>
  6.                 <PARAMETER name=C/>
  7.         </method>
复制代码
定义方法和方法参数。

  2. ' Get 属性
  3. function getNumber()
  4.    getNumber = num
  5. End Function

  7. ' Put 属性
  8. function setNumber(newNumber)
  9.    if not IsNumeric(newNumber) then
  10.       num = 0 'return not a number, ignore
  11.    else
  12.       num = newNumber
  13.       fireEvent("onnumberchange")
  14.    end if
  15. End Function
复制代码
这段这属性过程的实现。

  2. Function Celsius(F)
  3.           Celsius = 5/9 * (F - 32)
  4. End Function

  6. Function Fahrenheit(C)
  7.           Fahrenheit = (9/5 * C) + 32
  8. End Function
复制代码
这段是方法的实现。

组件注册：
在 Windows 资源管理器中，右键单击该文件，选择[注册]。

在 ACCESS 中，使用 CreateObject() 函数创建脚本组件的实例：
  1. Set objConvert = CreateObject("ConvertTemp.Scriptlet")
复制代码
这样就可以使用脚本组件所提供的方法和属性了。

示例文件下载

使用组件的优势是：1、实现商业规则，例子中，就是实现了摄氏和华氏温度的转换这个规则。2、当规则发生变化后，不需要改变应用程序。（这就是我所说的以不变应万变）。3、使用 VB 或 VC 等高级语言开发组件，还可分布在网络其它主机上，实现分布式计算。4、... 总之，好处多多！


未经许可，请勿转载


收藏 分享 邀请
上一篇：使窗体居中显示代码下一篇：Access自定义小数位数函数源码
发表评论

最新评论

引用 zhuyiwen 2016-5-4 09:49
参见：
http://www.office-cn.net/home.ph ... 25&do=blog&id=15307

  1. <?xml version="1.0"?>
  2. <component>
  3. <?component error="true" debug="true"?>
  4. <registration
  5.   desciption="ConDB"
  6.   progid="ConDB.wsc"
  7.   version="1.00"
  8.   classid="{9247c2de-a42d-4755-aa60-8b14c1af6b4f}">
  9. </registration>
  10. <reference object="ADODB.Connection.2.8" />
  11. <public>
  12.   <method name="ConToDB">
  13.    <PARAMETER name="servername" />
  14.    <PARAMETER name="dbname" />
  15.    <PARAMETER name="user" />
  16.    <PARAMETER name="password" />
  17.   </method>
  18. </public>
  19. <implements type="ASP" id="ASP" />
  20. <script language="VBScript">
  21. <![CDATA[
  22. Function ConToDB(servername, dbname, user, password)
  23.   On Error Resume Next
  24.   Set con = CreateObject("adodb.connection")
  25.   con.ConnectionTimeout = 25
  26.   con.ConnectionString = "Provider=SQLOLEDB.1" & _
  27.    ";Persist Security Info=False;User ID=" & user & _
  28.    ";pwd=" & password & _
  29.    ";Initial Catalog=" & dbname & _
  30.    ";Data Source=" & servername
  31.   con.Open
  32.   If con.State = 1 Then
  33.    ConToDB = "connection success!"
  34.   End if
  35.   If Err.Number <> 0 Then
  36.    ConToDB = Err.Description
  37.   End If
  38. End Function
  39. ]]>
  40. </script>
  41. </component>
复制代码
使用命令行，为脚本组件(ConDB.wsc)创建一个类型库，生成一个与脚本组件文件名同名的 .tlb 文件。
  1. rundll32.exe c:\Windows\System32\scrobj.dll,GenerateTypeLib -name:ConDBLib -file:e:\component\ConDB.tlb -doc:"ConDB component typelib" -guid:{9247c2de-a42d-4755-aa60-8b14c1af6b4f} -major:1 -minor:0-URL:e:\components\ConDB.wsc
复制代码

Windows Script Component Wizard 下载：
https://download.microsoft.com/download/d/9/5/d95c9a66-718f-45b3-946f-1f43677e6c8b/wz10en.exe

参见：
http://www.xav.com/perl/Windows/windows_script_components.html



引用 zhuyiwen 2016-5-4 10:01
《让你的access支持二次开发，VBS宏执行器》
作者：layaman_999
http://www.office-cn.net/thread-113201-1-1.html

  1. Function RunVbs(subName As String, StrCode As String, Optional obj As Object = Nothing) As Boolean
  2. On Error GoTo cuowu

  4.     Dim vbs As Object
  5.     Set vbs = CreateObject("ScriptControl")
  6.     vbs.Language = "vbs"
  7.    
  8.     If obj Is Nothing = False Then
  9.         vbs.AddObject "Me", obj, True
  10.     End If
  11.    
  12.     vbs.AddObject "Application", Application, True
  13.     vbs.AddCode StrCode
  14.     vbs.ExecuteStatement subName
  15.     Set vbs = Nothing
  16.     RunVbs = True
  17.    
  18.     Exit Function
  19. cuowu:
  20.     MsgBox Err.Description
  21.     RunVbs = False

  23. End Function
复制代码
How To Use Script Control Modules and Procedures Collections 如何使用脚本控制模块和过程集合:
https://support.microsoft.com/en-us/kb/184745
https://support.microsoft.com/zh-cn/kb/184745
How To Call Functions Using the Script Control 如何使用脚本控件的函数调用:
https://support.microsoft.com/en-us/kb/184740
https://support.microsoft.com/zh-cn/kb/184740
How To Use the Script Control Error Object 如何使用脚本控制错误对象:
https://support.microsoft.com/en-us/kb/184742
https://support.microsoft.com/zh-cn/kb/184742






引用 purplerose 2016-5-4 10:03
多谢朱老师 以不变应万变 的组件，要好好地学习一下，不懂可要请教哟！
引用 天昕 2016-5-4 10:08
祝老师的东西看上去很厉害，先留个印子，回头慢慢品

查看全部评论(4)

相关分类

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-4-3 11:56 , Processed in 0.085497 second(s), 25 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部