Галактика в вопросах и ответах

Код: Выделить всё

Interface Make_Table;
show at (,,,21);
view
var
 usl:string;
as select * from table
bounds UU = usl == table.pole1
order by pole1, pole2;

browse br;
show at (,,,15);
fields
...
end;
screen sc;
show at (,16,,);
fields
...
button
   cmSetF;
   cmRemF;
end;
HandleEvent:
...
cmSetF: {
   PushBounds(tbUU);
   if getfirst table = tsOK then {};
   selectpanel(tnTable);
   rescanpanel(tntable);
}
cmRemF: {
   if BoundsActive(tbUU) then {
      PopBounds(tbUU);
      selectpanel(tnTable);
      rescanpanel(tntable);
   }
}
...
end;
end.

      

Код: Выделить всё

Browse brwMain
Show At ... ;
Table myTable;
Fields
 ....

End;