Описание программ.

2.1. Создание процедуры (метода) визуальной доступности кнопок просмотра.

Любым способом вызвать в диалоговое окно Form Designer модифицированную форму Forml, которой присвоено имя "ПОСТАВЩИКИ" (можно по следующему пути: диалоговое окно Project Manager, вкладка Documents, строка Forms, после щелчка по значку + строка Forml в списке Forms, кнопка Modify).

Кроме методов, связанных с событиями, объект в данном случае наша форма) может содержать и дополнительные методы, которые выполняются только при их вызове. Например, для формы могут быть определены методы перехода на следующую запись, т. е. Методы доступности управляющих кнопок. Эти методы могут наследоваться из базового класса, но можно создать их отдельно.

Создание нового метода:

1. Выполнить команду Form — New Methods
2. В возникшем диалоговом окне New Methods в текстовом поле Name надо вписать имя метода (допустим bt_update) а в поле Description — краткое описание метода (выполняется самостоятельно)
3. Нажать кнопку Add. Возникает диалоговое окно редактирования метода для ввода программного кода и метод добавится в список методов
4. Ввести текст процедуры (метода)

*Процедура form1.bt_update

*Использование кнопок по месту их нахождения, т.е. доступности

if recno() =1

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

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

Else

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

Endif

if recno()=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

Endif

2.2. Использование созданной процедуры (метода).

Для выполнения созданного метода необходимо указать имя метода и имя объекта, к которому относится данный метод Имя объекта и имя метола разделяются точкой

В нашем случае: form1.bt update() (form1 — имя объекта; bt_update — имя метода; ()— не обязательно указывать).

2.3.Создание методов использования кнопок в режиме просмотра.

Кнопка "Начало" (Commandl):

Go top

thisform.txtnomp.refresh() &&Освежение ("перерисовывание" полей Nomp и Famp)

Дата добавления: 2015-07-08