http://man.chinaunix.net/database/postgresql_8.0_CN/plpgsql-declarations.html
創建plpgsql語言
create language plpgsql;
例子一
CREATE OR REPLACE FUNCTION instr(character varying, integer)
RETURNS integer AS
$BODY$
declare
str alias for $1;
ind alias for $2;
begin
return ind+100;
end;
$BODY$
LANGUAGE 'plpgsql' VOLATILE;
> select instr('aaa',100) ;
> 200
例子二
如果一個 PL/pgSQL 函數的返回類型聲明為一個多態類型 （anyelement 或者 anyarray），那么就會創建一個特殊的參數， $0。它的數據類型是函數的實際返回類型，和從實際輸入類型推導推導類型一樣 （參閱 Section 31.2.5）。 這樣就允許函數訪問它的實際返回類型，像 Section 35.4.2 里顯示的那樣。 $0 初始化為空，并且可以被函數修改，所以，如果需要，它可以用于保存返回值， 雖然這并非必須的。$0 還可以給予一個別名。比如，這個函數可以在任何有 + 操作符的數據類型上運轉：
create or replace function addT (v1 anyelement, v2 anyelement, v3 anyelement)
returns anyelement as $$
declare
res alias for $0;
begin
res := v1+v2+v3;
return res;
end;
$$language plpgsql;
> select addT(100,200,300)
> 600
例子三
variable%TYPE
%TYPE 提供一個變量或者表字段的數據類型。 你可以用這個聲明將要保存數據庫數值的變量。比如，假如你在 users 表里面有一個字段叫 user_id。要聲明一個和 users.user_id 類型相同的變量，你可以寫：
user_id users.user_id%TYPE;
通過使用 %TYPE，你必須知道你引用的結構的數據類型， 并且，最重要的是，如果被引用項的數據類型在將來變化了（比如：你把 user_id 的類型從 integer 改成 real），你也不需要修改你的函數定義。
%TYPE 對多態的函數特別有用，因為內部變量的數據類型可能在不同調用中是不一樣的。 我們可以通過給函數的參數或者結果占位符附加 %TYPE 的方法來創建合適的變量。
例子四
行類型
name table_name%ROWTYPE;
name composite_type_name;
一個復合類型變量叫做行變量（或者row-type變量）。 這樣的一個變量可以保存一次SELECT或者 FOR命令結果的完整一行，只要命令的字段集匹配該變量聲明的類型。 行數值的獨立的字段是使用常用的點表示法訪問的，比如 rowvar.field。
一個行變量可以聲明為和一個現有的表或者視圖的行類型相同，方法是使用 table_name%ROWTYPE 表示法； 或者你也可以聲明它的類型是一個復合類型的名字。（因為每個表都有一個相關聯的同名數據類型， 在 PostgreSQL 里實在是無所謂你寫不寫 %ROWTYPE。但是有 %ROWTYPE 的形式移植性更好。）
函數的參數可以是復合類型（表的完整行）。這個時候， 對應的標識符 $n 將是一個行變量，并且可以從中選取字段，比如 $1.user_id。
在一個行類型的變量中，只可以訪問用戶定義的表中行的屬性， 不包括 OID 或者其他系統屬性（因為該行可能來自一個視圖）。 該行類型的數據域繼承表中象 char(n) 這種類型字段的尺寸和精度。
這里是一個使用復合類型的例子：
CREATE TABLE tbl_store1
(
store_no integer NOT NULL DEFAULT nextval('tbl_store1_sq'::regclass),
parent_id integer,
"type" integer,
"values" real,
CONSTRAINT tbl_store1_pkey PRIMARY KEY (store_no)
)
插入植 1 1 1 1;
CREATE OR REPLACE FUNCTION merge(t_row tbl_store1)
RETURNS text AS
$BODY$
declare
t2_row tbl_store1%rowtype;
begin
select * into t2_row from tbl_store1 ;
return t_row.values || t2_row.values;
end;
$BODY$
LANGUAGE 'plpgsql' VOLATILE;
> select merge(t.*) from tbl_store1 t ;
> 11
例子五
/**
create or replace function logfun1(log text) returns timestamp as $$
begin
insert into tbl_store1 values(3,1,1,1,'now');
return 'now';
end;
$$ language plpgsql;
select logfun1('test');
**/
create or replace function logfun2(log text) returns timestamp as $$
declare
ctime timestamp;
begin
ctime :='now';
insert into tbl_store1 values(6,2,1,1,ctime);
return ctime;
end;
$$ language plpgsql;
select logfun2('aaa');
在 logfunc1() 的實例里， PostgreSQL 的主分析器在為 INSERT 準備執行計劃的時候知道字串 'now' 應該解釋成 timestamp 類型，因為 logtable 的目標字段就是該類型。所以，它會在這個時候從這個字串中計算一個常量， 然后在該服務器的整個生存期中的所有 logfunc1 調用中使用這個常量。不消說，這可不是程序員想要的。
在logfunc2里， PostgreSQL 的主分析器并不知道 now 應該轉換成什么類型， 因此它返回一個包含字符串 now 的類型為 text 的數據值。 在隨后給局部變量curtime賦值時， PL/pgSQL解釋器通過調用 text_out和timestamp_in 把這個字符串轉換成 timestamp 類型的變量。 因此，計算出的時戳就會按照程序員希望的那樣在每次執行的時候都更新。
記錄變量的易變性天性在這種結合上提出了一個問題。 在一個記錄變量在語句或者表達式中使用時， 該字段的數據類型在同一個表達式的不同調用期間不能修改， 因為該表達式準備使用的是運行第一次到達該表達式時出現的數據類型。 在寫處理超過一個表的事件的觸發器過程的時候一定要把這個記住。（必要時可以用EXECUTE繞開這個問題。）
例子六
create or replace function tSInto () returns varchar as
$$
declare rec record;
begin
select into rec * from tbl_store1 where values =1;
if not found then
return 'test';
else
return 'tttt';
end if;
end;
$$
language plpgsql;
select tSInto();
create or replace function tSInto () returns varchar as
$$
declare rec record;
begin
select into rec * from tbl_store1 where values =1;
if rec.values isNULL then
return 'okkkkkkk';
else return 'test';
end if ;
end;
$$
language plpgsql;
select tSInto();
例子七
create or replace function cur1 () returns text as
$$
declare
curs1 CURSOR for select * from tbl_store1;
res text :='';
a varchar;
b varchar;
c varchar;
d varchar;
e varchar;
begin
OPEN curs1;
loop
fetch curs1 into a,b,c,d,e;
if not found then
return 'error';
exit;
end if;
res = 'test'||res;
end loop;
close curs1;
return res;
end;
$$
language plpgsql;
CREATE OR REPLACE FUNCTION cur1()
RETURNS text AS
$BODY$
declare
curs1 CURSOR for select * from tbl_store1;
res text :='';
a varchar;
b varchar;
c varchar;
d varchar;
e varchar;
begin
OPEN curs1;
loop
fetch curs1 into a,b,c,d,e;
if (found) then
if (a is null) then
a = '';
end if ;
if (b is null) then
b = '';
end if ;
if (c is null) then
c = '';
end if ;
if (d is null) then
d = '';
end if ;
if (e is null) then
e = '';
end if ;
res = res || a || b || c || d || e;
else
exit;
end if;
end loop;
close curs1;
return res;
end;
$BODY$
LANGUAGE 'plpgsql' VOLATILE;
select cur1();
</script>