Поскольку версия TeeChart VCL широко используется в различных средах разработки и хорошо известна, испанская компания Steema Software SL разработала TeeChart Pro ActiveX в октябре 1997 года. Это, несомненно, хорошая новость для модели разработки B/S. Поскольку ее необходимо установить только на стороне сервера, клиенту не нужно устанавливать другое программное обеспечение. Статистические графики можно отображать с помощью обычного браузера. запущен, он снова завоевал большую популярность.
Далее мы познакомим вас с общими свойствами и применением компонентов ActiveX TeeChart Pro V5, основанных на технологии ASP.
Давайте сначала рассмотрим пример двумерной гистограммы с использованием компонента TeeChart для отображения «квартальных продаж»:
<HTML><BODY>
<%'-----------TeeChartEg.asp--- - --------------------
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header.Text(0)="Квартальная статистика продаж"
TChart1.AddSeries( 1)
TChart1.Aspect.View3D=0
TChart1.Series(0).Очистить
TChart1.Series(0).Добавить 180, "1 квартал",RGB(35,70,128)
TChart1.Series(0).Добавить 240, "2 Четверть",RGB(255,80,128)
TChart1.Series(0).Добавить 210, "3 Quarter",&HFACE87
TChart1.Series(0).Добавить 280, "4 Quarter",16777215
TChart1.Export.SaveToJPEGFile server.mappath( "MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
Set TChart1 = ничего
%>
<img src="MyChart.jpg">
</BODY></HTML>
1) То же, что и другие ASP компоненты. Метод использования тот же: сначала создайте объект.
Установите TChart1 = CreateObject("TeeChart.TChart")
2) Используйте его свойства для отображения статического статистического графика.
TChart1.Header.Text(0)="Квартальная статистика продаж"
...
TChart1.Series(0).Добавить 210, "3-й квартал",&HFACE87
TChart1.Series(0).Добавить 280, "4-й квартал",16777215
3 ) Создать статистический графический файл
TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
4) Освободить объект
Установить TChart1 = ничего
Многие атрибуты класса объекта в приведенный выше пример. Это все значения по умолчанию, и мы можем добавлять настройки в соответствии с конкретными обстоятельствами. Ниже приводится подробное введение в другие общие свойства компонента TeeChart (перечисленные в виде комментариев к программе).
<HTML> <HEAD><TITLE>Введение в методы свойств объекта TeeChart</TITLE></HEAD>
< BODY>
<%
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Height = 440 'Высота всей диаграммы
TChart1.Width = 500 'Ширина всей диаграммы' TChart1.Header.Text.Clear
'
TChart1. Header.Text.Add "Квартальная статистика продаж" 'Название диаграммы, метод также может быть в виде TChart1.Header.Text(0)="title"
TChart1.Header.Font.Size = 22 'Размер шрифта заголовка
TChart1. Header.Font.Bold = True 'Будет ли шрифт заголовка
полужирным.TChart1 .Header.Font.Italic = True ' Будет ли шрифт заголовка курсивным
TChart1.Panel.MarginLeft = 3 ' Левое поле диаграммы
TChart1.Panel.Gradient.Visible = True ' Имеется ли цвет фона
TChart1.Panel.Gradient.StartColor = &HB3DEF ' Начальный цвет нижней части диаграммы
TChart1.Panel.Gradient.EndColor = &HFACE87 ' Конечный цвет фона диаграммы
TChart1.Panel.BevelWidth = 0 ' Ширина отступа холста
TChart1.AddSeries(0) ' Способ отображения графики, диапазон значений: 1 ~ 39
TChart1.Aspect.View3D = False ' False представляет 2D-графику, True представляет 3D-графику
TChart1.Aspect.Chart3DPercent = 10 ' Если это представляет собой 3D-графику, она представляет ее наклон
TChart1.Aspect.Zoom = 100 'Коэффициент отображения графики
TChart1.Aspect.Orthogonal = TRUE 'Повернута ли 3D-диаграмма вбок
TChart1.Aspect.Rotation = -20 'Если диаграмма повернута вбок , горизонтальный угол поворота равен -360~360
TChart1.Aspect.Elevation = 0 'Если диаграмма повернута вбок, поверните ее вперед и назад. Angle -360~360
TChart1.Aspect.Perspective = 0 ' Степень центростремительной агрегации 3D-графики
TChart1.Aspect .Chart3DPercent = 20 ' Толщина 3D-графики 1~100
TChart1.Walls.Bottom.Size = 5 ' Если это 3D-графика, она указывает толщину ее абсциссы
TChart1.Walls.Bottom.Color = RGB(35,70,128) ' Базовый цвет
TChart1.Walls.Bottom.Transparent = True ' Если это 3D-графика, то является ли основание прозрачным TChart1.Walls.Back.Pen.Visible = True ' Параметр Отображается ли граница координат
TChart1.Walls.Left.Size = 5 ' Если это трехмерное изображение, оно указывает его толщину по ординате
TChart1.Walls.Left.Color = 8454143 ' Цвет по ординате
TChart1.Walls.Left.Transparent = True ' Если это 3D-изображение, то является ли ординатная стена прозрачной
TChart1 .Legend.Visible = True 'Отображать ли легенду
TChart1.Legend.VertSpacing = 9 'Высота рамки легенды
TChart1.Legend.DividingLines.Visible = False ' Есть ли пробелы между легендами
'TChart1.Series(0 ) .Clear
'TChart1.Series(0).ColorEachPoint = True
'TChart1.Series(0).Add 180,"1 Quarter",RGB(35,70,128) ' Статически добавляем отображаемые данные на диаграмму, параметры представляют собой числовые значения по порядку, имя, цвет'TChart1.Series
(0).Добавить 240, "2 Quarter", 255
'TChart1.Series(0).Добавить 210, "3 Quarter",&HFACE87
TChart1.Series(0).Добавить 280 , "4 Quarter",16777215
TChart1.Axis.Depth.Visibl e= False ' Когда ось координат является трехмерной прозрачной, отображать ли внутреннюю стену
TChart1.Axis.DrawAxesBeforeSeries = False ' Отображается ли сетка перед графиком
TChart1.Axis.Left.Title.Caption = "Выходное значение (единица измерения: 10 000 юаней)" ' Название вертикальной оси
TChart1.Axis.Left.Title.Font.Bold = True ' Название вертикальной оси, выделить ли жирным шрифтом
TChart1.Axis.Left. Title.Font.Size = 9 ' Размер заголовка вертикальной оси
TChart1.Axis.Left.Title.Visible = True ' Отображать ли имя вертикальной оси
TChart1.Axis.Left.Labels.Angle = 90 ' Угол наклона шрифта вертикальной оси
TChart1. Axis.Left.GridPen.Visible = True ' Отображает ли ось параметра абсцисс
TChart1.Axis.Bottom.Title.Caption = "Time Axis" ' Отображает ли заголовок оси абсцисс
TChart1.Axis.Bottom.Title.Font.Bold = True ' Является ли заголовок оси абсцисс жирным шрифтом
TChart1.Axis .Bottom.Title.Font.Size= 9 'Размер заголовка оси абсцисс
TChart1.Axis.Bottom.Labels.Angle = 0 'Угол наклона шрифта абсцисс 0~360
TChart1.Axis.Bottom. GridPen.Visible = True ' Параметр по вертикали. Отображает ли ось координат
TChart1.Footer.Text.Add "Нижний заголовок диаграммы" 'Нижний заголовок диаграммы
TChart1.Footer.Font.Size = 11 'Размер шрифта нижнего заголовка
TChart1 .Footer.Font.Bold = True 'Будет ли шрифт нижнего заголовка жирным
TChart1.Footer.Font.Italic = False 'Будет ли шрифт нижнего заголовка курсивом
TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg") ,False,JPEGBestQuality, 100, TChart1.Width, TChart1.Height 'Хранилище для экспорта.
Установите TChart1 = ничего
%>
для файла MyChart.jpg <img src="MyChart.jpg"></BODY></HTML>
Примечание: 1 Свойства графического режима отображения TChart1.AddSeries(0) заслуживают изучения. Интересующиеся читатели могут протестировать его от 0 до 39, чтобы найти свой идеальный метод отображения.
2. Для ссылок на цвета используются три метода представления RGB, например: RGB(255,255,255) = &HFFFFFF = 16777215. Конкретный метод преобразования не поясняется.
3. Вместо этого свойства True и False могут быть представлены 1 и 0.
Для добавления групповых графиков ниже приведен пример отображения двух групп данных.
<%Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header.Text(0)="Квартальный объем продаж"'Title
TChart1.AddSeries(1)
TChart1.AddSeries(1)
TChart1.Series(0).Add 180 , "Квартал 1",RGB(255,255,255)
TChart1.Series(1).Добавить 240, "Квартал 1",255
TChart1.Series(0).Добавить 280, "Квартал 2",RGB(255,255,255)
TChart1.Series(1) ).Добавить 200, "2-й квартал",255
TChart1.Series(0).Добавить 150, "3-й квартал",RGB(255,255,255)
TChart1.Series(1).Добавить 320, "3-й квартал",255
TChart1.Series( 0).Add 360, "4 Quarters",RGB(255,255,255)
TChart1.Series(1).Add 200, "4 Quarters",255
TChart1.Series(0).Marks.Visible = True ' Отображать ли заголовок данных
TChart1.Series(0).Marks.Style = 0 'Стиль отображения данных 0~9, 0 — числовое значение, 1 — процентное значение...
TChart1.Series(1).Marks.Style=0
TChart1.Export.SaveToJPEGFile server. mappath("MyChart .jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
Set TChart1 = ничего
%>
Два приведенных выше примера статически генерируют статистические результаты, а затем отображают их. Однако в реальной работе более динамичное отображение статистических данных считывается из существующей базы данных. Ниже мы приводим пример использования ADO для прямого подключения к базе данных Access и динамического отображения результатов. База данных — (test.mdb), а два столбца таблицы — имя столбца и значение столбца. Это название месяца и соответствующее имя столбца статистических данных (январь, февраль,...), значение столбца (103, 210,...):
<%Dim OutputStream
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header . Text(0)="Квартальный объем продаж"'Title
TChart1.AddSeries(0)'Значение стиля отображаемой графики составляет 1~39, см. ниже
Set Conn=Server.CreateObject("ADODB.Connection")
Set Rst= Server.CreateObject( "ADODB.Recordset")
Conn.Open "driver={драйвер доступа Microsoft (*.mdb)};dbq="&server.mappath("zcw.mdb")
strsql = "выбрать * из теста"
Rst. Открыть strsql,conn,1,1
IF rst.RecordCount > 0 THEN
TChart1.Series(0).Datasource = rst
TChart1.Series(0).LabelsSource="colname"
TChart1.Series(0).YValues.ValueSource="colvalue" "
ELSE
TChart1. Series(0).Fillsamplevalues(12)
TChart1.Header.Text(0)="Нет результатов, данные отображаются в случайном порядке"
END IF
TChart1.Series(0).Marks.Visible=True
TChart1.Series(0) .Marks.Style =4
TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
Set TChart1 = ничего
Rst.Close
Set Conn = ничего
%> <img src="MyChart .jpg">
Все три приведенных выше примера отображаются после создания статических файлов изображений JPG. Если нет смысла сохранять результаты просмотра, мы можем использовать PNG (переносимая сетевая графика) для их отображения.
<% Dim ChartType, OutputStream, ViewType
Set Chart1 = CreateObject("TeeChart.TChart")
Chart1.AddSeries(0)
Chart1.Series(0).FillSampleValues 20 ' Произвольно генерировать данные
OutputStream=Chart1.Export.asPNG.SaveToStream
Set Chart1= Nothing
Response.Binarywrite OutputStream
%>
Выше приведено краткое введение в сочетание атрибутов компонента TeeChart и технологии ASP. Надеюсь, это будет полезно всем. Бесплатную пробную версию Teechart Pro ActiveX можно загрузить по адресу http://www.steema.com/download/Downloadindex.htm . Примеры кода для объединения TeeChart с Asp см. на странице http://www.steema.com/products/teechart/asp/ASPHome.htm .