为PL/SQL包创建ActiveX服务的一些方法

　　调整数据库应用程序的一个经验方法是“80%应用程序，20%数据库”。意思是说，平均来说，开发人员可以通过修改数据库参数调整20%的性能问题，通过调整应用程序设计和逻辑调节80%的性能问题。　　　　然而，开发人员首先想到的是按照手册上的例子开始将数据库逻辑直接编码到他们的代码中。这种做法会带来很高的维护成本；对数据库逻辑的一处变动或者切换到一个不同的数据库驱动就可能需要很多个钟头在代码中修正它。从源代码调试器外分析性能也变得比较困难。　　　　一个比较好的方法是数据库服务器看成是一个真正的服务器――这个服务器提供完全与代码逻辑分离的一组业务逻辑服务。这样就允许在附加代码之前在代码外部测试和维护这些服务。应用程序永远都不应该知道有这样一个东西，比如一个 EMP 表，只有这样才会有某些类型的接口可以被访问，从而“找出有多少职员”和“给特定的职员加工资”。在32位 Windows 中，为编程语言提供通用接口的主要方法是通过 ActiveX 服务器或 COM 服务器。有一些 DLL 或可执行文件为很多编程环境提供一个接口和一些服务。编写 ActiveX 组件通常是一个使人畏缩的任务，而且在数据库接口变化时，该任务可能需要持续的维护。　　　　对于 Visual Basic 6.0 程序员来说，Oracle Objects for OLE Code Wizard for Visual Basic 能够使这一任务更加简单。使用这个向导，你可以为开发人员创建一个 ActiveX 组件将数据库代码包装起来――从而不用编写很多Visual Basic 代码。　　　　如果在安装 Oracle 数据库之前已经安装了 Visual Basic，那么你会发现在 Add-Ins 菜单选项中多了一个向导。如果你是安装 Oracle 数据库之后才安装的 Visual Basic，那么你需要注册 Code Wizard DLL 去启用这个菜单特性。从ORACLE_HOME/bin 目录下运行下面这些命令：　　　　regsvr32.exe oo4ocodewiz.dll　　regsvr32.exe odbtreeview.ocx　　regsvr32.exe oo4oaddin.dll 　　　　要运行这个向导，从主菜单中选择 Add-Ins，然后选择其中的OO4O Code Wizard For Stored Procedures。在第一次运行向导时，它会要求你登录到一个数据库。在登录到数据库之后，你可以选择Oracle DB，然后从一个包列表中选择一个数据库包。该向导将围绕你所选择的包中的函数和过程创建 OO4O 代码。　　　　例如，我需要为我的数据库包创建一个 ActiveX DLL 服务器控件。首先，我编写这个数据库包来处理我的业务服务：　　　　REM -- create a package to encapsulate business services for employees　　create or replace package empsvc　　is　　　　function get_count return integer;　　　　procedure give_raise(empno integer,amount number);　　end empsvc;　　/　　show errors;　　　　create or replace package body empsvc　　is　　　　function get_count return integer　　　　is　　　　　　l_count integer;　　　　begin　　　　　　select count(*) into l_count from emp;　　　　end get_count;　　　　--　　　　procedure give_raise(empno integer,amount number)　　　　is　　　　begin　　　　　　update emp set sal = sal amount　　　　　　 where empno = empno;　　　　end give_raise;　　end empsvc;　　/　　show errors; 　　　　然后，我进入 Visual Basic 6.0 并创建一个 ActiveX DLL。由于创建的是 ActiveX DLL，所以 Visual Basic 6.0 将自动创建 ActiveX 接口，构建 DLL，并在 Windows 操作系统中注册它。（任何需要使用我的数据库包的人都可以简单地从他们偏爱的 OLE 浏览器中选择它。）　　　　在打开项目后，调出向导和登录进去，向导将自动为我的包生成下面这段 Visual Basic 代码：　　　　' local variable(s) to hold property value(s)　　Private OraDatabase As OraDatabase 'local copy　　Public Property Let database(ByVal vData As OraDatabase)　　　 Set OraDatabase = vData　　End Property　　　　Public Function GET_COUNT() As Variant　　　OraDatabase.Parameters.Add "result", 0, ORAPARM_OUTPUT　　　OraDatabase.Parameters("result").serverType = 2　　　　　OraDatabase.ExecuteSQL ("declare result Number; Begin :result :=　　 EMPSVC.GET_COUNT(); end;")　　　　　　　GET_COUNT = OraDatabase.Parameters("result").Value　　　OraDatabase.Parameters.Remove "result"　　End Function　　　　Public Sub GIVE_RAISE(EMPNO As Variant, AMOUNT As Variant)　　　OraDatabase.Parameters.Add "EMPNO", EMPNO, ORAPARM_INPUT, 2　　　OraDatabase.Parameters.Add "AMOUNT", AMOUNT, ORAPARM_INPUT, 2　　　　　OraDatabase.ExecuteSQL ("Begin EMPSVC.GIVE_RAISE(:EMPNO, :AMOUNT); end;")　　　　　　　OraDatabase.Parameters.Remove "EMPNO"　　　OraDatabase.Parameters.Remove "AMOUNT"　　End Sub 　　　　我将删除原始的空的 Class1.cls 文件，将新的 EMPSVC.cls 设置为 MultiUse=Yes，然后将项目名称设置为我所要类型的库名称，EmpSvcLib，之后构建 DLL。如果我新开一个 Visual Basic 项目，在暴露的对象列表中可以看到EmpSvcLib.EMPSVC。如果我引用这个对象并在其中声明一个变量，我可以从这个变量调用GET_COUNT 和 GIVE_RAISE。如果我想从 C 中访问它，我可以在Visual Studio 附带的 OLE Viewer 中得到 IDL，将其添加到我的项目，然后让 Visual Studio 创建 Proxy 代码访问数据库代码。　　　　下面是从 OLE Viewer 中看到的前面代码的 IDL。　　　　// Generated .IDL file (by the OLE/COM Object Viewer)　　//　　// typelib filename: EmpSvcLib.dll　　 　　[　　　uuid(E137CE00-3C0B-497D-976C-C3235FF3C603),　　　version(1.0),　　　custom(50867B00-BB69-11D0-A8FF-00A0C9110059, 8169)　　　　]　　library EmpSvcLib　　{　　　　// TLib : Oracle InProc Server 4.0 Type Library : {F2D4ED20-FFD3-101A-ADF2　　-04021C007002}　　　　importlib("oip9.tlb");　　　　// TLib : OLE Automation : {00020430-0000-0000-C000-000000000046}　　　　importlib("stdole2.tlb");　　　　　　// Forward declare all types defined in this typelib　　　　interface _EMPSVC;　　　　　　[　　　　　odl,　　　　　uuid(BEFCB5F1-C9FE-4FCE-B18A-102E51CD8D2A),　　　　　version(1.0),　　　　　hidden,　　　　　dual,　　　　　nonextensible,　　　　　oleautomation　　　　]　　　　interface _EMPSVC : IDispatch {　　　　　　[id(0x68030000), propput]　　　　　　HRESULT database([in] OraDatabase* rhs);　　　　　　[id(0x60030001)]　　　　　　HRESULT GET_COUNT([out, retval] VARIANT* );　　　　　　[id(0x60030002)]　　　　　　HRESULT GIVE_RAISE(　　　　　　　　　　　　　　[in, out] VARIANT* EMPNO,　　　　　　　　　　　　　　[in, out] VARIANT* AMOUNT);　　　　};　　　　　　[　　　　　uuid(B1E44C55-EC55-473B-9235-AC7BFA79F30E),　　　　　version(1.0)　　　　]　　　　coclass EMPSVC {　　　　　　[default] interface _EMPSVC;　　　　};　　}; 　　　　如果我决定需要改变数据库逻辑来阻止不合理的请求，比如请求一个负值的工资或对极大升薪设置限制，那么我只要简单地修改 PL/SQL 包――只要函数和过程原型不变。如果它们发生变化，那么我可以重新调出向导来生成一个更新版本。　　　　如果你不想使用OO4O，生成用于 ADO、OLE DB 或其它数据库架构的 Visual Basic 代码也相当简单，只要从USER_ARGUMENTS 表查询函数和过程定义即可。