Dado que la versión TeeChart VCL se utiliza ampliamente en una variedad de entornos de desarrollo y es muy reconocida, la empresa española Steema Software SL desarrolló TeeChart Pro ActiveX en octubre de 1997. Sin duda, es una buena noticia para el modelo de desarrollo B/S, ya que solo necesita instalarse en el lado del servidor y el cliente no necesita instalar otro software. Los gráficos estadísticos se pueden mostrar mediante un navegador general. lanzado, una vez más ha ganado gran popularidad.
A continuación, presentaremos las propiedades y aplicaciones comunes de los componentes ActiveX de TeeChart Pro V5 basados en la tecnología ASP.
Primero veamos un ejemplo de un gráfico de barras bidimensional que utiliza el componente TeeChart para mostrar "ventas trimestrales":
<HTML><BODY>
<%'-----------TeeChartEg.asp--- - --------------------
Establecer TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header.Text(0)="Estadísticas de ventas trimestrales"
TChart1.AddSeries( 1)
TChart1.Aspect.View3D=0
TChart1.Series(0).Borrar
TChart1.Series(0).Agregar 180, "1 trimestre",RGB(35,70,128)
TChart1.Series(0).Agregar 240, "2 Quarter",RGB(255,80,128)
TChart1.Series(0).Agregue 210, "3 Quarter",&HFACE87
TChart1.Series(0).Agregue 280, "4 Quarter",16777215
TChart1.Export.SaveToJPEGFile server.mappath( "MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
Establecer TChart1 = nada
%>
<img src="MyChart.jpg">
</BODY></HTML>
1) Igual que otros ASP componentes El método de uso es el mismo, primero crea el objeto.
Establezca TChart1 = CreateObject("TeeChart.TChart")
2) Utilice sus propiedades para mostrar un gráfico estadístico estático.
TChart1.Header.Text(0)="Estadísticas de ventas trimestrales"
...
TChart1.Series(0).Add 210, "3er trimestre",&HFACE87
TChart1.Series(0).Add 280, "4to trimestre",16777215
3 ) Generar archivo de gráficos estadísticos
TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
4) Liberar el objeto
Establecer TChart1 = nada
Muchos atributos de la clase de objeto en El ejemplo anterior Todos estos son valores predeterminados y podemos agregar configuraciones de acuerdo con circunstancias específicas. La siguiente es una introducción detallada a otras propiedades comunes del componente TeeChart (enumeradas en forma de comentarios del programa)
<HTML> <HEAD><TITLE>Introducción a los métodos de propiedad del objeto TeeChart</TITLE></HEAD>
< BODY>
<%
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Height = 440 'La altura de todo el gráfico
TChart1.Width = 500 'El ancho de todo el gráfico'TChart1.Header.Text.Clear
'
TChart1. Header.Text.Add "Estadísticas de ventas trimestrales" 'Título del gráfico, el método también puede tener el formato TChart1.Header.Text(0)="title"
TChart1.Header.Font.Size = 22 'Tamaño de fuente del título
TChart1. Header.Font.Bold = True 'Si la fuente del título es
negritaTChart1 .Header.Font.Italic = True ' Si la fuente del título es cursiva
TChart1.Panel.MarginLeft = 3 ' El margen izquierdo del gráfico
TChart1.Panel.Gradient.Visible = True ' Si hay un color de fondo
TChart1.Panel.Gradient.StartColor = &HB3DEF ' La parte inferior del gráfico Color color inicial
TChart1.Panel.Gradient.EndColor = &HFACE87 ' Color de fondo del gráfico color final
TChart1.Panel.BevelWidth = 0 ' Ancho de sangría del lienzo
TChart1.AddSeries(0) ' La forma de mostrar gráficos, el rango de valores es 1 ~ 39
TChart1.Aspect.View3D = False ' False representa gráficos 2D, True representa gráficos 3D
TChart1.Aspect.Chart3DPercent = 10 ' Si es un gráfico 3D, representa su inclinación
TChart1.Aspect.Zoom = 100 ' Proporción de visualización gráfica
TChart1.Aspect.Orthogonal = TRUE 'Si el gráfico 3D se gira hacia los lados
TChart1.Aspect.Rotation = -20 'Si el gráfico se gira hacia los lados , el ángulo de rotación horizontal es -360~360
TChart1.Aspect.Elevation = 0 'Si el gráfico se gira hacia los lados, gire hacia adelante y hacia atrás Ángulo -360~360
TChart1.Aspect.Perspective = 0 ' Grado de agregación centrípeta de gráficos 3D
TChart1.Aspect .Chart3DPercent = 20 ' Grosor de gráficos 3D 1~100
TChart1.Walls.Bottom.Size = 5 ' Si es un gráfico 3D indica su grosor en abscisas
TChart1.Walls.Bottom.Color = RGB(35,70,128) ' Color base
TChart1.Walls.Bottom.Transparent = True ' Si es un gráfico 3D, si la base es transparente TChart1.Walls.Back.Pen.Visible = True ' Parámetro Si se muestra el borde de coordenadas
TChart1.Walls.Left.Size = 5 ' Si es un gráfico 3D indica su espesor de ordenadas
TChart1.Walls.Left.Color = 8454143 ' El color de ordenadas
TChart1.Walls.Left.Transparent = True ' Si es un gráfico 3D , si la pared de ordenadas es transparente
TChart1 .Legend.Visible = True ' Si se muestra la leyenda
TChart1.Legend.VertSpacing = 9 ' La altura del marco de la leyenda
TChart1.Legend.DividingLines.Visible = False ' Si hay líneas espaciadoras entre las leyendas
'TChart1.Series(0 ) .Clear
'TChart1.Series(0).ColorEachPoint = True
'TChart1.Series(0).Add 180,"1 Quarter",RGB(35,70,128) ' Agrega estáticamente datos de visualización al gráfico, los parámetros son valores numéricos en orden, nombre, color'TChart1.Series
(0).Agregue 240, "2 trimestre",255
'TChart1.Series(0).Agregue 210, "3 trimestre" y HFACE87
TChart1.Series(0).Agregue 280 , "4 Quarter",16777215
TChart1.Axis.Depth.Visibl e= False ' Cuando el eje de coordenadas es transparente en 3D, si se muestra la pared interior
TChart1.Axis.DrawAxesBeforeSeries = False ' Si la cuadrícula se muestra delante del gráfico
TChart1.Axis.Left.Title.Caption = "Valor de salida (unidad: 10.000 yuanes)" ' Título del eje vertical
TChart1.Axis.Left.Title.Font.Bold = True ' Título del eje vertical si se pone en negrita
TChart1.Axis.Left. Title.Font.Size = 9 ' Tamaño del título del eje vertical
TChart1.Axis.Left.Title.Visible = True ' Si se muestra el nombre del eje vertical
TChart1.Axis.Left.Labels.Angle = 90 ' Ángulo de inclinación de la fuente del eje vertical
TChart1. Axis.Left.GridPen.Visible = True ' Si el eje del parámetro de abscisas muestra
TChart1.Axis.Bottom.Title.Caption = "Time Axis" ' Si el título del eje de abscisas
TChart1.Axis.Bottom.Title.Font.Bold = True ' Si el título del eje de abscisas está en negrita
TChart1.Axis .Bottom.Title.Font.Size= 9 'Tamaño del título del eje de abscisas
TChart1.Axis.Bottom.Labels.Angle = 0 'Ángulo de inclinación de la fuente en abscisas 0~360
TChart1.Axis.Bottom. GridPen.Visible = True ' Parámetro vertical Si el eje de coordenadas muestra
TChart1.Footer.Text.Add "Título inferior del gráfico" 'El título inferior del gráfico
TChart1.Footer.Font.Size = 11 'El tamaño de fuente del título inferior
TChart1 .Footer.Font.Bold = True 'Si la fuente del título inferior es negrita
TChart1.Footer.Font.Italic = False 'Si la fuente del título inferior es cursiva
TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg") ,False,JPEGBestQuality, 100, TChart1.Width, TChart1.Height 'Exportar almacenamiento
Establecer TChart1 = nada
%>
para el archivo MyChart.jpg <img src="MyChart.jpg"></BODY></HTML>
Nota: 1 Vale la pena estudiar las propiedades del modo de visualización gráfica de TChart1.AddSeries (0). Aquellos que estén interesados pueden probarlo del 0 al 39 para encontrar su método de visualización ideal.
2. Para referencias de color, se utilizan tres métodos de representación de RGB, por ejemplo: RGB(255,255,255) = &HFFFFFF = 16777215. No se explica el método de conversión específico.
3. Las propiedades de Verdadero y Falso se pueden representar mediante 1 y 0.
Para agregar gráficos de grupo, a continuación se muestra un ejemplo de visualización de dos grupos de datos.
<%Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header.Text(0)="Volumen de ventas trimestral"'Título
TChart1.AddSeries(1)
TChart1.AddSeries(1)
TChart1.Series(0).Add 180 , "Cuarto 1",RGB(255,255,255)
TChart1.Series(1)
.Agregar 240, "Cuarto 1",255 TChart1.Series(0).Agregar 280, "Cuarto 2",RGB(255,255,255)
TChart1.Series(1 ).Sumar 200, "Segundo trimestre",255
TChart1.Series(0).Sumar 150, "3er trimestre",RGB(255,255,255)
TChart1.Series(1).Sumar 320, "3er trimestre",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 ' Si se muestra el título de los datos
TChart1.Series(0).Marks.Style = 0 'Estilo de visualización de datos 0~9, 0 es valor numérico, 1 es porcentaje...
TChart1.Series(1).Marks.Style=0
Servidor TChart1.Export.SaveToJPEGFile. mappath("MyChart .jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
Establecer TChart1 = nada
%>
Los dos ejemplos anteriores generan estáticamente resultados estadísticos y luego los muestran. Sin embargo, en el trabajo real, se lee una visualización de datos estadísticos más dinámica de la base de datos existente. A continuación damos un ejemplo del uso de ADO para conectarse directamente a la base de datos de Access y mostrar dinámicamente los resultados. La base de datos es (test.mdb) y las dos columnas de la tabla son colname y colvalue. Son el nombre del mes y los datos estadísticos correspondientes colname (enero, febrero,...), colvalue (103, 210,...):
<%Dim OutputStream
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header Text(0)="Volumen de ventas trimestral"'Title
TChart1.AddSeries(0)'El valor de estilo de los gráficos mostrados es 1~39, consulte a continuación
Set Conn=Server.CreateObject("ADODB.Connection")
Set Rst=. Server.CreateObject( "ADODB.Recordset")
Conn.Open "driver={controlador de acceso de Microsoft (*.mdb)};dbq="&server.mappath("zcw.mdb")
strsql = "seleccionar * de la prueba"
Primero. Abra strsql,conn, 1,1
SI rst.RecordCount > 0 ENTONCES
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)="Sin resultados, muestra datos aleatoriamente"
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
Establecer TChart1 = nada
Rst.Close
Establecer conexión = nada
%> <img src="MyChart .jpg">
Los tres ejemplos anteriores se muestran después de generar archivos de imagen JPG estáticos. Si no tiene ningún valor guardar los resultados de la navegación, podemos usar PNG (Portable Network Graphics) para mostrarlos.
<% Dim ChartType, OutputStream, ViewType
Set Chart1 = CreateObject("TeeChart.TChart")
Chart1.AddSeries(0)
Chart1.Series(0).FillSampleValues 20 ' Generar datos aleatoriamente
OutputStream=Chart1.Export.asPNG.SaveToStream
Set Chart1= Nothing
Response.Binarywrite OutputStream
%>
Lo anterior es una breve introducción a la combinación de los atributos del componente TeeChart y la tecnología ASP. Espero que sea útil para todos. Se puede descargar una versión de prueba gratuita de Teechart Pro ActiveX desde http://www.steema.com/download/Downloadindex.htm . Para ver ejemplos de código sobre la combinación de TeeChart con Asp, consulte http://www.steema.com/products/teechart/asp/ASPHome.htm .