数据库存储过程实现（转存）

1、新建一个standard class,并在select standard class type 中选择transaction，这时会打开一个声明函数的窗口

2、在上面的窗口上选择底部的 Declare instance variables 页，在变量类型的下拉框中选择 Local External Functions

3、在空白处右键选择Paste Special -> SQL -> Remote Stored Procedure(s)... ,会出现选择存储过程的窗口，选择（可按CTRL多选）即可生成函数  
如：CREATE PROCEDURE sp_test (@pinput varchar(10))  
  AS  
  return 1000  
  GO  
选择sp_test的时候生成如下函数声明  
function long sp_test(string pinput) RPCFUNC ALIAS FOR "dbo.sp_test"

4、保存你的对象为：uo_tran

5、双击打开应用，选择addITional properties -> variable types,修改SQLCA中的 transaction为uo_tran即可

6、然后你在程序中就可以象使用函数一样调用您的存储过程,如：

integer li_return  
li_return=SQLca.sp_test('111')

无论是SQL直连，还是ODBC连接，保证能用。