Представление данных в виде графика. Есть случаи предоставления информации, когда без красноречия диаграммы или графика не обойтись.
Попробуем создать простейшие графики, которые тем не менее дают представления о динамике изменений, записанных данных в таблицу.
Самое простое это создать на форме прямоугольники разного (или одинакового цвета), количество прямоугольников зависит от подробности предоставляемых данных.
Например, на 12 месяцев года - создадим 12 прямоугольников нулевой высоты (по началу). Затем по мере вывода данных наши прямоугольники будут изменять свою высоту. То же самое можно проделать в отчёте. Я, например, использовал 31 прямоугольник - для отображения изменений данных о рентабельности в течение месяца. Важно (это что бы облегчить написание программного кода), чтобы имена прямоугольников были такими: Прямоугольник1, Прямоугольник2, Прямоугольник3, Прямоугольник4 и т.д. Либо такими: П1,П2,П3,П4 и т.д. При таком назначении имён, становиться легко обратиться по очереди к каждому из прямоугольников с помощью цикла:
For I = 1 To 12 prf = "Прямоугольник" & I Me.Controls(prf).BackColor = Rnd(32768) * 500' Задаём случайный цвет Прямоугольника Next I
В прилагаемом примере имеется несколько процедур и функций для работы с таким набором прямоугольников.
Процедуры расположены в форме и в теле отчёта. Функции вынесены в отдельный модуль.
Модули программы располагаются на последней вкладке окна базы данных.
Коментарии (8)