Последняя редакция кнопок. Начало. Вперед. добавить. изменить

Стр 1 из 2Следующая ⇒

Последняя редакция кнопок

Начало

go top

if substr(nomp,1,1)="П1"

skip

endif

thisform.txtnomp.refresh()

thisform.txtfamp.refresh()

thisform.bt_update

Конец

go bottom

*!* if substr(nomp,l,l)<>"Пl"

*!* skip -l &&либо go bottom

*!* endif

thisform.txtnomp.refresh()

thisform.txtfamp.refresh()

thisform.bt_update

Вперед

if.not.eof() && if!EOF()

SKIP

IF SUBSTR(nomp,1,1)<>"П"

SKIP -1 && либо go bottom

ENDIF

_screen.ActiveForm.Refresh()

thisform.bt_update

Назад

if.not.bof()

skip-1

IF SUBSTR(nomp,1,1)<>"П"

endif

_screen.activeForm.Refresh()

thisform.bt_update

добавить

append blank

go bottom

thisform.bt_update &&Переход на метод bt_update

thisform.txtnomp.refresh

thisform.txtfamp.refresh

thisform.command8.click &&Вызов кода кнопки "Изменить"

изменить

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

*Procedure Click

public lnam, lfam && Объявление глобальных переменных

thisform.txtNomp.ReadOnly=.F. &&Доступна для ввода значения поля Nomp

thisform.txtFamp.ReadOnly=.F. && Доступна для ввода значения поля Famp

thisform.txtNomp.setfocus && Получение фокуса полем Nomp

thisform.command1.enabled=.F.&&He доступна "Начало"

thisform.command2.enabled=.F.&& He доступна "Конец"

thisform.command3.enabled=.F.&& He доступна "Вперёд"

thisform.command4.enabled=.F.&& He доступна "Назад"

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

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

thisform.command9.visible=.T.&&видимa кнопка "Применить"

thisform.command10.visible=.T.&&видима кнопка "Отменить"

thisform.command8.visible=.F.&&He видима кнопка "Изменить"

thisform.command6.visible=.F.&&He видима кнопка "Добавить"

lnam=thisform.txtnomp.value &&глобальным переменным Inam и lfam присваивается

&&новое значение, введенное в соответствующее поле

lfam =thisform.txtfamp.value

12 Следующая ⇒