** [UDF ** ** 系列之五 ]: ** ** 如何创建 InterBase UDF **
by Paul McGee (c) Borland Internation Inc.
Warton 译
** [概述]： **
用户定义函数 (UDF)是一种采用编译语言编写的函数，是用户为执行自定义的功能和常用的任务面设计的。UDF 允许程序员模块化一个数据库应用程序，并能嵌入到数据库以增强数据库自身的功能。UDF 也总是在数据库服务器端执行。这可以减少网络通信量。
UDF可以执行事务比如获得服务器上可用硬盘空间，清理字符串的空格，为一系列值计算标准偏差等等。UDF能完成任何功能只要编程语言能够表达出来。这种编程语言能常是在C和C++之间选择(当然，用户可以用其它语言，比如pascal 译者注)。
UDF在提供SQL语言不能处理的功能、查询、更新数据库，以及为异源客户工作站提供通用函数方面非常有效。
与其它功能相比，使用 UDF要花费一些代价。这主要表现在两方面：第一，在UNIX或VMS平台，UDF是模块化AST程序，这意谓着当UDF在执行时，没有其它的存取操作可以发生。这就要求 我们尽量使 UDF 尽可能的小和有效率。第二，如果数据库服务器崩溃，你需要将数据转移到另一台机器上。你必须首先在新的服务器上安装 UDF 库 。如果在相同的操作系统下，这并不难。但是当转移到另一操作系统时，你只少需要编译一遍 UDF 库的源代码。
** [ _ UDF示例]： _ **
**_ _ ** ** ** InterBase包含几个内置SQL 函数：UPPER,GEN_ID,CAST 。UPPER将一个字符串转为大写。GEN_ID生成一个唯一长整型值，因为一个特殊的生成器已经在数据库中定义。这在生成主键时是非常有用的，比如客户编号或职员编号。CAST将一种类型列转化为另一种类型的列。
InterBase 也提供了另外一些UDF的源代码，在examples目录下。它们包含在udflib.c文件中。这里定义的UDF有：lower, strcat, substr, trim, trunc, doy, moy, dow, sysdate, add2, mul, fact, abs, maxnum, sqrt, blob_linecount, blob_bytecount, substr_blob。Lower是将字符串转化为小写串。Strcat连接两个字符串。Substr返回字符串的一部分。Trim清空字符串中的空格。Trunc返回删节后的串。doy(day of year),moy(month of year),dow(day of week)。Sysdate返回当前日期以字符串的形式(“mmm-dd-yyyy”).add2将两整数相加在一起。Mul将两double数相乘.maxnum返回两数中较大者。Sqrt为取平方。blob_bytecount返回blob的大小。Substr_blob,取blob的一部分文本。
我们将增加几个新的UDF：rtrim, left, right, swapcase, imonth, iday, iyear。Rtrim去掉字符串右边的空格。Left返回一个输入串前n个字符的串。Right则是返回右过n个字符的串。Swapcase将小写转大写并将大写转小写。imonth返回月份的值(1-12)。Iday返回day的值(1-31)。Iyear返回年的值如：2002。
** [编写UDF]: **
一旦你编写的UDF,你必须创建一个动态链接库，以便上UDF可以使用。然后你必须在数据库中定义它。
在数据定义语言中定义 UDFs 非常简单，基本的语法是：
_ DEFINE EXTERNAL FUNCTION name [
1<datatype> | CSTRING (int) _
2
3_ [, <datatype> | CSTRING (int) ...]] _
4
5_ RETURNS {<datatype> [BY VALUE] | CSTRING (int)} _
6
7_ ENTRY_POINT "<entryname>" _
8
9_ MODULE_NAME "<modulename>" ; _
10
11Name是指函数的名称，它可达到31个字符长。第一个datatype是输入参数。Datatype指标准的interbase数据类型： INTEGER, CHAR, VARCHAR等。或者，你可以使用CSTRING这个C风格没用结束的字符数组。Entry_point指实际的函数名。在InterBase提供示例中，SQL函数名是lower而实际函数名在udflib.c中为fn_lower_c。模块名指的是函数被编译后的输出库名。例如：这里用SQL 定义函数lower和substr。
12
13_ DEFINE EXTERNAL FUNCTION lower _
14
15_ VARCHAR (256) _
16
17_ RETURNS CSTRING (80) _
18
19_ ENTRY_POINT "fn_lower_c" MODULE_NAME "funclib"; _
20
21_ _
22
23_ DEFINE EXTERNAL FUNCTION substr _
24
25_ CSTRING (256), SMALLINT, SMALLINT _
26
27_ RETURNS CSTRING (80) _
28
29_ ENTRY_POINT "fn_substr" MODULE_NAME "funclib"; _
30
31_ 为了将函数加入到函数库中，在 NT上使用Borland C++,我们应该让lib模块有有一个本地的拷贝： _
32
33_ implib mygds32.lib \interbas\bin\gds32.dll _
34
35然后连接必要的选项生成我们新的库 funclib.dll。
36
37_ bcc32 -v -a4 -DWIN32 -tWM -tWCD -efunclib.dll udf.c mygds32.lib _
38
39为了在本地使用 DLL，它必须在BIN目录下(或你环境变的路径中)。如果要在远程使用，它必须在能运行InterBase服务的用户的环境变量路径之中，默认情况下，它在系统账户的PATH中。
40
41** [使用UDF]: **
42
43一但编译，连接，定义之后，一个 UDF就可以在SQL 语句中使用了。
44
45它们可以做如下使用：定义计算后字段做为表定义的一部分，在 view定义中中做为列表达式或在存储过程和触发器中做为 _SELECT, INSERT, UPDATE, DELETE操作的一部分。 _
46
47例如，使用计算结果做为字段：
48
49_ CREATE TABLE name ( FIRST_NAME VARCHAR(20), LAST_NAME VARCHAR(20), _
50
51_ FULL_NAME_UPPER COMPUTED BY _
52
53_ (upper(FIRST_NAME) | " " | upper(LAST_NAME))); _
54
55在 view中做为一个列表达式：
56
57_ CREATE VIEW upper_names (FIRST_NAME, LAST_NAME) AS _
58
59_ SELECT upper(n.first_name), upper(n.last_name) FROM name n; _
60
61在选择操作中：
62
63_ SELECT substr(n.FIRST_NAME, 2, 4) FROM name n WHERE _
64
65_ upper(n.LAST_NAME) = ' _ _ MOORE _ _ '; _
66
67在插入操作中：
68
69_ INSERT INTO name (FIRST_NAME, LAST_NAME) _
70
71_ VALUES (rtrim(:new_fname), rtrim(:new_lname)); _
72
73在更新操作中：
74
75_ UPDATE name SET LAST_NAME = rtrim(:new_lname) WHERE _
76
77_ upper(n.LAST_NAME) = 'JONES'; _
78
79_ 在删除操作中： _
80
81_ DELETE FROM name WHERE left(LAST_NAME, 3) = 'SMI'; _
82
83_ _
84
85本主来自： MER Systems Inc.. http://www.mers.com</modulename></entryname></datatype></datatype></datatype>