Open_cursor

Internφ programovacφ jazyk

function Open_cursor(var curs : cursor) : Boolean;

Parametry

curs pevn² kurzor ulo₧en² v databßzi a deklarovan² v programu (nikoli prom∞nnß typu kurzor) - viz podrobnosti

Popis

Funkce Open_cursor otevφrß zadan² pevn² kurzor, deklarovan² v programu. Umo₧nφ Φtenφ, zßpis dat prost°ednictvφm tohoto kurzoru.

Nenφ-li kurzor po pou₧itφ uzav°en, zabφrß mφsto v operaΦnφ pam∞ti. Po ukonΦenφ b∞hu programu jsou vÜechny explicitn∞ neuzav°enΘ kurzory uzav°eny, p°edtφm je vÜak vydßna hlßÜka Program neuzav°el vÜechny kurzory.

Hodnota funkce

Funkce vracφ hodnotu FALSE, pokud se akci poda°ilo ·sp∞Ün∞ provΘst. V opaΦnΘm p°φpad∞ vracφ TRUE a povahu chyby lze zjistit volßnφm funkce Signalize. DoporuΦujeme v₧dy testovat v²sledek tΘto funkce.

P°φklad

cursor
  Dop_doklad;
...
if Open_cursor(Dop_doklad) then Signalize
else begin
 if Restrict_cursor(Dop_doklad,podm) then Signalize
 else begin
   if Print_opt(0) then Print_view('*dop_typ',Dop_doklad,-1,-1);
   Restore_cursor(Dop_doklad);
 Close_cursor(Dop_doklad);
end;

Viz