Процедураmethod_avt. Начало

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

*Процедураmethod_avt

ifrecno() =1

&&Если указатель записи стоит перед первой записью файла

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

thisform.command4.enabled=.f. &&Недоступнакнопка "Назад"

else

thisform.command1.enabled=.t. &&Доступнакнопка "Начало"

thisform.command4.enabled=.t. &&Доступнакнопка "Назад"

ENDIF

ifrecno()=reccount()

&&Если номер текущей записи равен числу записей в файле

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

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

else

thisform.command2.enabled=.t. &&Доступнакнопка "Конец"

thisform.command3.enabled=.t. &&Доступнакнопка "Вперёд"

ENDIF

IF DELETED()

thisform.check1.Value=1

ELSE

thisform.check1.Value=0

EIF

Рис. 2.14. ЭФВД для таблицы «Авторы», с добавленными кнопками

Рис. 2.15. Форма «Авторы»

Программные коды для кнопок:

Начало

go top

ifsubstr(kod_avt,2,1 )<>”1”

skip

endif

_screen.ActiveForm.Refresh()

thisform.method_avt

Конец

go bottom

if substr(kod_avt,2,1)<>””

skip-1 &&либо go bottom

endif

_screen.ActiveForm.Refresh()

thisform.method_avt

Вперёд

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

SKIP

ENDIF

_screen.ActiveForm.Refresh()

thisform.method_avt

Назад

if.not.bof()

skip-1

endif

_screen.ActiveForm.Refresh()

thisform.method_avt

12 Следующая ⇒