Дипломная работа: Создание и управление базой данных в СУБД FoxPro

_screen. activeform. refresh ()

if bof ()

this. enabled =. f.

thisform.command3. enabled =. f.

endif

_screen. activeform. refresh ()

Кнопка "След."

if! eof ()

skip

thisform.command2. enabled =. t.

thisform.command3. enabled =. t.

thisform.command4. enabled =. t.

endif

_screen. activeform. refresh ()

if eof ()

this. enabled =. f.

thisform.command4. enabled =. f.

endif

_screen. activeform. refresh ()

Кнопка "Посл."

if! eof ()

go bottom

this. enabled =. f.

thisform.command1. enabled =. f.

thisform.command2. enabled =. t.

thisform.command3. enabled =. t.

endif

_screen. activeform. refresh ()

Кнопка "Удалить"