Мир объектов Excel 2000


Пример использования DSC - часть 3


' Чистим Chart space cspace.Clear

' Устанавливаем DSC как источник данных для Chart set cspace.DataSource = dsc

' Устанавливаем набор данных внутри Data Source, используемый Chart. cspace.DataMember = sRSName

' Создаем круговую диаграмму Pie chart в пространстве диаграмм. set cht = cspace.Charts.Add() cht.HasLegend = True cht.HasTitle = True cht.Title.Caption = "Распределение заказов в стоимостном исчислении" cht.Title.Font.Bold = True cht.Type = c.chChartTypePie

' Определяем единственную серию в диаграмме - объект ser ' и вызываем ее метод SetData для связывания с данными серии. ' Значение 0 второго параметра указывает, что используется первый набор ' данных источника Data Source. set ser = cht.SeriesCollection.Add() ser.SetData c.chDimCategories, 0, sCategories 'Ось категорий ser.SetData c.chDimValues, 0, sValues 'Ось значений

' задаем метки круговой диаграммы - Pie chart. set dls = ser.DataLabelsCollection.Add() dls.HasPercentage = True dls.HasValue = False End Sub 'BindChartToDSC()

</script> </body> </html>

А вот как выглядит эта страница, открытая в Internet Explorer:

Web-страница с компонентами Data Source и Chart

увеличить изображение
Рис. 10.13.  Web-страница с компонентами Data Source и Chart

Главное в этом коде - сценарий, написанный мной на VBScript. Почти половину программного текста составляют комментарии, поясняющие все этапы работы. Тем не менее, я добавлю еще несколько общих замечаний:

  • На странице нет ничего, кроме заголовка, вставки двух компонентов OWC - Chart и Data Source - и, естественно, script кода.
  • При открытии страницы в Internet Explorer будет вызываться обработчик этого события - процедура Window_onLoad. В ней и выполняется нужная нам работа по связыванию базы данных и компонентов.
  • На первом шаге работы этой процедуры DSC связывается с базой данных и получает от нее данные. На втором шаге - вызывается процедура BindChartToDsc, строящая диаграмму, источником данных для которой уже служит сам DSC.

Говоря о работе DSC, можно отметить:

  1. С использованием свойства этого компонента - ConnectionString - устанавливается связь с базой данных.




    Начало  Назад  Вперед



    Книжный магазин