Je-li typ formßlnφho parametru cursor, pak skuteΦn²m parametrem smφ b²t kurzor deklarovan² v programu, kter² nenφ dosud otev°en. M∙₧e jφt jak o pevn², tak i o prom∞nn² kurzor.
Parametr tohoto typu majφ funkce Open_cursor
, Open_sql_cursor
, Open_sql_parts
, Get_fcursor
a ODBC_open_cursor
.
Po ·sp∞ÜnΘm provedenφ kterΘkoli z t∞chto funkcφ se kurzor, deklarovan² v programu, stane otev°en²m kurzorem, a m∙₧e b²t p°edßvßn jako parametr typu tcursnum.
P°φklad:
var
cpom : cursor;
begin
...
spom := 'SELECT pocet,cis_fakt FROM Pol_prac WHERE cis_fakt='''+fa+'''';
if Open_sql_cursor(cpom, spom) then Signalize
else begin
Rec_cnt(cpom, poct);
...
Viz takΘ: