Управление объектами.

4.1.Связывание формы с ТБД poshk.

Действия пользователя:

а) выполнить команду View - Data Environment или щёлкнуть правой мышью на рабочей поверхности;

б) в появившемся диалоговом окне Add Table or View выбрать файл poshk и нажать на кнопку Add, а затем закрыть диалоговое окно Add Table or View;

Результат: появляется диалоговое окно Data Environment с таблицей структуры файла poshk (с полями ТБД poshk);

в) щёлкнуть по полю Nomp и, не отпуская мыши, перетащить это поле и расположить его рядом с меткой Код поставщика;

Результат: появятся две соединённые слитно редактируемые рамки с текстами Nomp и txtNomp (имя поля и его значение);

г) щёлкнуть в пустом месте формы для снятия режима слитного редактирования;

д) вернуться на редактируемый элемент Nomp, щёлкнуть по нему для вызова режима редактирования и после появления редактируемой рамки нажать клавишу Del для его
стирания (стирание имени поля);

е) нажать Run для выполнения;

Результат: в текстовом поле останется только П1 (содержимое поля).

ж) закрыть форму;

з) аналогичным образом поступить с полем Famp для его размещения на метке Наименование поставщика.

4.2.Оформление программного кода.

Щёлкнуть 2 раза по кнопке Вперёд для вызова окна кода. Это окно имеет 2 раскрывающихся списка: Object и Procedure - для выбора объектов Command 1 и методов Click. Оно позволяет переключаться между всеми процедурами всех объектов одной формы.

За командными кнопками через событие Click Event закреплены процедуры:

а) за кнопкой Начало (Command4):

Go top

if substr(nomp,2,1)<>"1"

Skip

Endif

Thisform.txtnomp.refresh()

Thisform.txtfamp.refresh()

б) за кнопкой Конец (Command5):

Go bottom

if substr(nomp,2,l)<>""

skip -1 &&либо go bottom

Endif

Thisform.txtnomp.refresh()

Thisform.txtfamp.refresh()

в) за кнопкой Вперёд (Command1):

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

SKIP

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

SKIP -1 && либо go bottom

ENDIF

ENDIF

_screen.ActiveForm.Refresh()

Thisform.bt_update

г) за кнопкой Назад (Command2):

If.not.bof()

Skip-1

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

Skip

Endif

Endif

_screen.ActiveForm.Refresh()

Thisform.bt_update

д) за кнопкой Выход (Command6);

Form1.release

5.Сохранение формы.

Сохранить форму с именем Form1.scx (scx - сама подставит).

6.Домашнее задание: продумать кнопки редактирования (Вставить, Добавить, Изменить, Удалить).

Процедуры для формы и управляющих кнопок с использованием ООП

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