Write_lock_table

Internφ programovacφ jazykC/C++Pascal

function Write_lock_table(curs : tcurstab) : Boolean;
BOOL [cd_]Write_lock_table([cdp_t cdp], tcurstab curs);
function [cd_]Write_lock_table([cdp : cdp_t]; curs : tcurstab) : Boolean;

Parametry

curs otev°en² kurzor nebo tabulka - viz podrobnosti
[cdp kontextovß prom∞nnß klienta]

Popis

Funkce uzamkne vÜechny zßznamy tabulky pro zßpis. Pokud uveden² kurzor zahrnuje vφce spojen²ch tabulek, zamknou se vÜechny. Zamknout tabulku pro zßpis smφ u₧ivatel, kter² mß prßvo p°episu k alespo≥ jednomu jejφmu sloupci.

Hodnota funkce

Funkce vracφ p°i ·sp∞chu FALSE, p°i ne·sp∞chu TRUE. K ne·sp∞chu m∙₧e dojφt, pokud je n∞kter² zßznam tabulky jinou aplikacφ uzamΦen pro zßpis nebo pro Φtenφ.

P°φklad

if not Write_lock_table(Tfirma) then begin
  Enable_index(Tfirma,-1,false);                           
  if Enable_index(Tfirma,-1,true) then err := true;        //  p°ebudovßnφ index∙
  Write_unlock_table(Tfirma);
if err then Info_box('Chyba','Chyba p°i vytvß°enφ index∙ v tabulce adres!')
else Info_box('Tabulka adres','OK');

Viz