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

thisform.command4. Enabled =. T.

thisform.command5. Enabled =. T.

thisform.command7. Enabled =. T.

thisform.command9. Enabled =. F.

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

endIF

Кнопка "Добавить"

IF thisform.command5. 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.command8. Enabled =. F.

thisform.command7. Enabled =. F.

thisform.command9. Enabled =. T.

APPEND BLANK

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

ELSE

thisform. text1. ReadOnly =. T.

thisform. text2. ReadOnly =. T.

thisform. text3. ReadOnly =. T.

thisform. text4. ReadOnly =. T.