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


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


<!-- Script for loading the chart --> <script language=VBScript> '--------------------------------------------------------------------------

Sub Window_onLoad() ' Код выполняется при загрузке страницы в браузер. ' Устанавливается соединение компонента DSC с базой данных Access. ' Формируется RecordsetDef как источник данных для построения диаграммы. ' Установка строки соединения элемента DSC Dim sDBPath 'Путь к базе данных sDBPath = "c:\!o2000\DsCd\Ch19\dbPP2000.mdb" DSC.ConnectionString = _ "provider=microsoft.jet.oledb.4.0;data source=" & sDBPath

' Добавляется RecordsetDef с именем ChartData, ' который будет источником данных для компонента Chart ' Формируется запрос к базе данных Access Dim myQ 'Запрос к базе данных myQ = "SELECT Заказы.Сотрудник, Sum(Заказы.Стоимость) AS [Sum-Стоимость]" _ & "FROM Заказы " _ & "WHERE (((Заказы.ДатаЗаказа)>=#9/1/1997# And" _ & "(Заказы.ДатаЗаказа)<=#11/9/2001#))" _ & "GROUP BY Заказы.Сотрудник" 'Определение Recordset, который будет элементом, 'определяющим данные - Data Member для компонента Chart DSC.RecordsetDefs.AddNew myQ, DSC.Constants.dscCommandText, "ChartData"

'Вызов процедуры, осуществляющей связывание DSC с компонентом Chart. BindChartToDSC ChartSpace1, DSC, "ChartData", "Сотрудник", "SUM-Стоимость"

End Sub 'Window_onLoad()

'--------------------------------------------------------------------------

Sub BindChartToDSC(cspace, dsc, sRSName, sCategories, sValues) ' Связывает Chart с набором данных - Recordset компонента Data Source. ' Создает круговую диаграмму - Pie chart. ' Параметры процедуры: ' cspace ссылка на ChartSpace object ' dsc ссылка на Data Source control ' sRSName имя набора Recordset в Data Source ' sCategories имя столбца в наборе, содержащего имена сотрудников ' sValues имя столбца в наборе, содержащего суммарную стоимость заказов

Dim cht ' Chart object который будет создан в пространстве диаграммы Dim ser ' серия данных Dim dls 'метки круговой диаграммы ' Определение объекта Constants, позволяющего использовать ' именованные константы в script-коде. set c = cspace.Constants




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



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