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

thisform. text6. ReadOnly =. T.

thisform.combo1. ReadOnly =. T.

thisform.command2. Enabled =. T.

thisform.command1. Enabled =. T.

thisform.command3. Enabled =. T.

thisform.command4. Enabled =. T.

thisform.command8. Enabled =. T.

thisform.command7. Enabled =. T.

thisform.command9. Enabled =. F.

thisform.command5. Caption = "Добавить"

endIF

_screen. ActiveForm. Refresh ()

Кнопка "Выход"

ifmessagebox ('Вы подтверждаете выход из формы? ', 4+32+256,"Выход") =6 then

_screen. activeform. release ()

DO FORM "C: \Program Files\DB\main"

endif