Описание объектов второй вкладки «Оценка освоения объемов перевозок», их свойств и методов обработки этих объектов

№

объекта

Момент

появления на экране

1, 3, 5, 11

при активизации вкладки. Каждый существует независимо от других

2

при выборе объекта 1

4

при выборе объекта 3

6

при выборе объекта 5

7

при выборе объекта 6 (позиция «В целом») или объекта 10

8, 9, 10

при выборе объекта 6 (позиция «По родам грузов»)

а)

б)

Кнопка

«Диаграмма…» вызывает новую форму

в)

Рис. 10. Виды вкладки «Оценка освоения объемов перевозок»

а) в начальный момент (после активизации);

б) после активизации кнопок «План перевозок», «План работы флота»,

«Оценка освоения объемов перевозок» и выбора опции «По родам грузов»;

в) после активизации всех командных кнопок и выбора опции «В целом»

по судоходной компании

№ объекта

Тип и название

объекта в форме

Свойства

Событие

Название

Начальное значение

0

Вкладка Page2

Caption

Оценка освоения объемов перевозок

Activate

BackColor

128,255,128 (green)

Процедура

with thisform.pageframe1.page2

.grid1.visible=.f.

.grid2.visible=.f.

.grid3.visible=.f.

.command4.visible=.f.

.label1.visible=.f.

.combo1.visible=.f.

.optiongroup1.visible=.f.

endwith

1

Кнопка Command1

Caption

План перевозок

Click

№ объекта

Тип и название

объекта в форме

Свойства

Событие

Название

Начальное значение

Процедура

sele перевозки && выбор области с таблицей Перевозки

set filter to && отмена фильтра

thisform.pageframe1.page2.grid1.visible=.T. && объект grid1 становится видным на вкладке

2

Таблица Grid1

RecordSource

Перевозки

Record-SourceType

1 - Alias

ColumnCount

6

Visible

.F. - False

3

Кнопка Command2

Caption

План работы флота

Click

Процедура

sele суда

set filter to

set order to tag

thisform.pageframe1.page2.grid2.visible=.T.

4

Таблица Grid2

RecordSource

Суда

Record-SourceType

1 - Alias

ColumnCount

7

Visible

.F. – False

5

Кнопка Command3

Caption

Оценка освоения объемов перевозок

Click

Процедура

sele перевозки

repl освоено with 0 all && в поле Освоено во всех записях таблицы

Перевозки заносится значение 0

set order to tag договор && активизация индекса Договор

sele суда

for i=1 to reccount() && начало цикла

go i && перемещение указателя записей на запись с номером i

n=номер_дог && запоминание в переменной n значения из поля

Номер_дог

op=объем_пер && запоминание в переменной op значения из поля

Объем_пер

sele перевозки

seek n && ускоренный поиск по номеру договора

repl освоено with освоено+op, остаток with объем-освоено

sele суда

endfor && конец цикла

thisform.pageframe1.page2.optiongroup1.visible=.t. && объект

optiongroup1 становится видным на вкладке

№ объекта

Тип и название

объекта в форме

Свойства

Событие

Название

Начальное значение

6

Переключатель OptionGroup1

ButtonCount

2

Click

Visible

.F. – False

Option1

Caption

В целом

Option2

Caption

По родам грузов

Процедура

*запоминание в переменной v значения выбранной опции:

v=thisform. pageframe1.page2.optiongroup1.value

w ith thisform.pageframe1.page2

label1.visible=.f. приведение объектов

.combo1.visible=.f. в начальное состояние

.command4.visible=.f. (исчезновение с экрана)

endwith

sele перевозки

do case

case v=1

set filter to

go top

thisform. pageframe1.page2.grid3.visible=.t.

case v=2

with thisform. pageframe1.page2

.grid3.visible=.f.

.label1.visible=.t.

.combo1.visible=.t.

.command4.visible=.t.

endwith

endcase

thisform.refresh && обновление содержания вкладки

7

Таблица

Grid3

RecordSource

Перевозки

Record-SourceType

1 – Alias

ColumnCount

4

Visible

.F. – False

8

Надпись

Label1

BackStyle

0 –Transparent

Caption

Выберите груз:

Visible

.F. - False

9

Раскрывающийся список

Combo1

RowSource

темные,

светлые,

сырая нефть,

масла,

сухогрузы

Lost-Focus

RowSource-Type

1-Value

№ объекта

Тип и название

объекта в форме

Свойства

Событие

Название

Начальное значение

Visible

.F. – False

Процедура

*запоминание в переменной z выбранного из списка названия груза:

z=thisform.pageframe1.page2.combo1.value

sele перевозки

go top && перемещение в начало таблицы

set filter to alltrim(груз)=alltrim(z) && фильтрация в поле Груз

по значению переменной z

10

Кнопка Command4

Caption

Просмотр

Click

Visible

.F. – False

Процедура

thisform.pageframe1.page2.grid3.visible=.T.

thisform.refresh

11

Кнопка

Command5

Caption

Диаграмма по пунктам и грузам

Click

Процедура

* запуск на выполнение (загрузка) формы с диаграммой

DO FORM объемы_по_грузам_и_пунктам_отправления.scx