TeeChart VCL 버전은 다양한 개발 환경에서 널리 사용되고 인지도가 높기 때문에 스페인 Steema Software SL 회사는 1997년 10월 TeeChart Pro ActiveX를 개발했습니다. B/S 개발 모델에서는 확실히 좋은 소식입니다. 서버 측에만 설치하면 되기 때문에 클라이언트는 다른 소프트웨어를 설치할 필요가 없습니다. 따라서 일단 설치하면 통계 그래픽을 볼 수 있습니다. 출시되어 다시 한 번 큰 인기를 얻었습니다.
다음으로 ASP 기술을 기반으로 하는 TeeChart Pro V5 ActiveX 구성 요소의 공통 속성과 응용 프로그램을 소개하겠습니다.
먼저 TeeChart 구성 요소를 사용하여 "분기별 매출"을 표시하는 2차원 막대 차트의 예를 살펴보겠습니다.
<HTML><BODY>
<%'------------TeeChartEg.asp--- - -------
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header.Text(0)="분기별 판매 통계"
TChart1.AddSeries( 1)
TChart1.Aspect.View3D=0
TChart1.Series(0).Clear
TChart1.Series(0).Add 180, "1 Quarter",RGB(35,70,128)
TChart1.Series(0).Add 240, "2 Quarter",RGB(255,80,128)
TChart1.Series(0).Add 210, "3 Quarter",&HFACE87
TChart1.Series(0).Add 280, "4 Quarter",16777215
TChart1.Export.SaveToJPEGFile server.mappath( "MyChart.jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
Set TChart1 = Nothing
%>
<img src="MyChart.jpg">
</BODY></HTML>
1) 다른 ASP와 동일 구성 요소 사용 방법은 동일하며 먼저 개체를 만듭니다.
Set TChart1 = CreateObject("TeeChart.TChart")
2) 해당 속성을 사용하여 정적 통계 그래프를 표시합니다.
TChart1.Header.Text(0)="분기별 판매 통계"
...
TChart1.Series(0).Add 210, "3분기",&HFACE87
TChart1.Series(0).Add 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 ' Parameter 좌표 테두리 표시 여부
TChart1.Walls.Left.Size = 5 ' 3D 그래픽인 경우 세로좌표 두께를 나타냅니다.
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).Add 240, "2 Quarter",255
'TChart1.Series(0).Add 210, "3 Quarter",&HFACE87
TChart1.Series(0).Add 280 , "4 Quarter",16777215
TChart1.Axis.Depth.Visibl e= False ' 좌표축이 3D 투명일 때 내벽 표시 여부
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 ' Parameter Vertical 좌표축 표시 여부
TChart1.Footer.Text.Add "차트 하단 제목" '차트 하단 제목
TChart1.Footer.Font.Size = 11 '하단 제목의 글꼴 크기
TChart1 .Footer.Font.Bold = True '하단 제목의 글꼴이 Bold인지 여부
TChart1.Footer.Font.Italic = False '하단 제목의 글꼴이 기울임꼴인지 여부
TChart1.Export.SaveToJPEGFile server.mappath("MyChart.jpg")
,False,JPEGBestQuality, 100, TChart1.Width, TChart1.Height 'MyChart.jpg 파일 <img src="MyChart.jpg"></BODY></HTML>
에 대한 저장소
설정 TChart1 = 없음
%>
내보내기 참고: 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.시리즈(0).150 추가, "3분기",RGB(255,255,255)
TChart1.시리즈(1).320, "3분기" 추가,255
TChart1.시리즈( 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 서버. mappath("MyChart .jpg"),False,JPEGBestQuality,100,TChart1.Width, TChart1.Height
Set TChart1 = Nothing
%>
위의 두 예제는 통계 결과를 정적으로 생성한 후 표시합니다. 그러나 실제 작업에서는 기존 데이터베이스에서 보다 동적인 통계 데이터 표시를 읽어옵니다. 아래에서는 ADO를 사용하여 Access 데이터베이스에 직접 연결하고 결과를 동적으로 표시하는 예를 제공합니다. 데이터베이스는 (test.mdb)이고 테이블의 두 열은 colname과 colvalue입니다. 월 이름과 해당 통계 데이터 colname(January, February,...), colvalue(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,1IF 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(Portable Network Graphics)를 사용하여 표시할 수 있습니다.
<% 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 을 참조하세요.