удалить. применить

удалить

*простейший способ: запись удаляется

*до выхода из формы

IF DELETED()

RECALL && востанавливается текущая запись

ELSE

DELETE && логически удаляется текущая запись

PACK && физически удаляется текущая запись

ENDIF

_screen.ActiveForm.Refresh

Отменить

*Кнопка "Отменить"

*Procedure Click

*Отмена сохранения новых вводимых значений

thisform.txtNomp.value=lnam &&присвоение новых значений полям ввода

thisform.txtFamp.value=lfam &&присвоение новых значений полям ввода

thisform.command9.visible=.F. &&не видима "Применить"

thisform.command10.visible=.F. &&не видима "Отменить"

thisform.command6.visible=.T. &&видима "Добавить"

thisform.command8.visible=.T. &&видима "Изменить"

thisform.txtNomp.ReadOnly=.T. &&не доступна для ввода поля ввода данных

thisform.txtFamp.ReadOnly=.T. &&не доступна для ввода поля ввода данных

thisform.command5.enabled=.T. &&доступна "Выход"

thisform.command7.enabled=.T. &&доступна "Удалить"

thisform.bt_update &&вызов метода bt_update

применить

*Кнопка "Применить"

*Procedure Click

*Сохранение новых вводимых значений

thisform.command9.visible=.F. && не видима "Применить"

thisform.command10.visible=.F. && не видима "Отменить"

thisform.command6.visible=.T. && видима "Добавить"

thisform.command8.visible=.T. && видима "Изменить"

thisform.txtNomp.ReadOnly=.T. &&не доступна для ввода поля Nomp, Famp

thisform.txtFamp.ReadOnly=.T.

thisform.command7.enabled=.T. &&доступна "Удалить"

thisform.command5.enabled=.T. &&доступна "Выход"

thisform.bt_update && вызов метода btupdate

выход

Form1.release