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

pack

_screen. activeform. refresh ()

Кнопка "Изменить"

IF thisform.command8. Caption = "Изменить"

thisform. text1. ReadOnly =. F.

thisform. text2. ReadOnly =. F.

thisform. text3. ReadOnly =. F.

thisform. text4. ReadOnly =. F.

thisform. text5. ReadOnly =. F.

thisform. text6. ReadOnly =. F.

thisform.combo1. ReadOnly =. F.

thisform.command2. Enabled =. F.

thisform.command1. Enabled =. F.

thisform.command3. Enabled =. F.

thisform.command4. Enabled =. F.

thisform.command5. Enabled =. F.

thisform.command7. Enabled =. F.

thisform.command9. Enabled =. T.

thisform.command8. Caption = "Принять"

ELSE

thisform. text1. ReadOnly =. T.

thisform. text2. ReadOnly =. T.

thisform. text3. ReadOnly =. T.

thisform. text4. ReadOnly =. T.

thisform. text5. ReadOnly =. T.

thisform. text6. ReadOnly =. T.

thisform.combo1. ReadOnly =. T.

thisform.command2. Enabled =. T.

thisform.command1. Enabled =. T.