tb* : SqlDB.Table;

tb := db.NewTable();
tb.Exec("SELECT * FROM people LIMIT 5");
Dialog.Update(tb);

tb := NIL;
Kernel.Cleanup;

Dialog.UpdateList(tb)

PROCEDURE AnchorGuard* (VAR par: Dialog.Par)
BEGIN   
   par.disabled := TRUE
END AnchorGuard;

PROCEDURE AnchorNotifier*;
BEGIN
 какие-то дополнительные действия.
END AnchorNotifier;

VAR v: FormViews.View;
  m: FormModels.Model;
  subv: Views.View;
  rd: TextModels.Reader;
...
StdCmds.OpenToolDialog(...);
v := formViews.Focus();
IF v # NIL THEN
  m := v.ThisModel();
  rd := m.NewReader(NIL);
  rd.ReadView(subv);
  WHILE (sub # NIL) & ~(subv IS SqlControls.Table) DO
    rd.ReadView
  END;
  IF subv # NIL THEN
    ... здесь мучаем таблицу ....
  END
END;