微軟圖形控制元件(Chart或MSchart)的用法
阿新 • • 發佈:2019-02-15
1、折線圖
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<TITLE> Êý¾ÝÏÔʾͼ </TITLE>
<SCRIPT ID="clientEventHandlersJS" LANGUAGE="javascript">
function window_onload()
{
t=0;
mschart1.chartType =1; //ͼÐÎÑùʽ£º3DÖùͼ
mschart1.Title.VtFont.Size =10; //±êÌâ´óС£º10
mschart1.Title.VtFont.VtColor.Blue =true; //±êÌâÑÕÉ«£ºÀ¶É«
mschart1.Title.VtFont.Style =1; //±êÌâÐÎʽ£º´ÖÌ塢бÌå
mschart1.TitleText =document.form1.chtitle.value; //±êÌâÄÚÈÝ
mschart1.Legend.VtFont.Size =9; //ϵÁÐÎÄ×Ö×ÖÌå´óС£º9
mschart1.Legend.Location.LocationType =4; //ϵÁÐÎÄ×ÖÏÔʾλÖãºÓÒ²¿
mschart1.ShowLegend =true;
if (document.form1.ccount.value==1)
{ mschart1.ShowLegend =false; } //Èç¹û×ÜÏßÊýΪ1£¬ÏµÁÐÎÄ×Ö²»ÏÔʾ
mschart1.Plot.Axis(0).Labels(1).VtFont.Size =10; //XÖá´óС£º10
mschart1.Plot.Axis(1).Labels(1).VtFont.Size =10; //YÖá´óС£º10
mschart1.Plot.Axis(2).Labels(1).VtFont.Size =10; //ZÖá´óС£º10
mschart1.Plot.Axis(0).Labels(1).VtFont.Style =1; //XÖáÐÎʽ£º´ÖÌå
mschart1.ColumnCount =document.form1.ccount.value; //×ܹ²ÏßÊý
mschart1.RowCount =document.form1.rcount.value; //ÿÏßÉϵãÊý
for (i=0; i<document.form1.rcount.value; i++)
{
for (j=0; j<document.form1.ccount.value; j++)
{
mschart1.Row =i+1;
mschart1.Column =j+1;
if (document.form1.ccount.value>1)
{ mschart1.ColumnLabel =document.form1.cname(j).value; }
else
{ mschart1.ColumnLabel =document.form1.cname.value; }
if ((document.form1.rcount.value*document.form1.ccount.value)>1)
{ mschart1.Data =document.form1.rc_data(t).value; }
else
{ mschart1.Data =document.form1.rc_data.value; }
t++;
}
if (document.form1.rcount.value>1)
{ mschart1.RowLabel =document.form1.rname(i).value; }
else
{ mschart1.RowLabel =document.form1.rname.value; }
}
}
function select1_onchange()
{
mschart1.chartType =select1.value
mschart1.Plot
}
</SCRIPT>
</HEAD>
<BODY TOPMARGIN="0" LANGUAGE="javascript" ONLOAD="return window_onload()">
<TABLE BGCOLOR="#EEEEEE">
<TR ALIGN="center"><TD>
<TABLE WIDTH=100%><TR align=center><TD><Font size=2 color=blue><b><%=Request.Form("chtitle")%></b></FONT></TD></TR></TABLE>
<HR COLOR="#F3C905">
<OBJECT CLASSID="clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D" CODEBASE="mschart.cab" DATA="" ID="mschart1" STYLE="HEIGHT:350px; LEFT:0px; TOP:0px; WIDTH:700px"></OBJECT>
<BR>
<HR COLOR="#F3C905">
<FONT SIZE="2" COLOR="blue"><B>ÇëÑ¡Ôñͼ±íÏÔʾ·½Ê½:
<SELECT NAME="select1" LANGUAGE="javascript" ONCHANGE="return select1_onchange()">
<OPTION value=1>¶þάֱ·½Í¼</OPTION>
<OPTION value=0>Èýάֱ·½Í¼</OPTION>
<OPTION value=3>¶þάÕÛÏßͼ</OPTION>
<OPTION value=2>ÈýάÕÛÏßͼ</OPTION>
<OPTION value=5>¶þάÃæ»ýͼ</OPTION>
<OPTION value=4>ÈýάÃæ»ýͼ</OPTION>
</SELECT>
°æȨËùÓУºÉϺ£Ò׽ܼÆËã»ú¼¼ÊõÓÐÏÞ¹«Ë¾</B></font>
<HR COLOR="#F3C905">
</TD></TR>
</TABLE>
<FORM NAME="form1" ID="form1">
<input type="hidden" name="chtitle" id="chtitle" value="" >
<input type="hidden" name="ccount" id="ccount" value=<%=Request.Form("ccount")%> >
<%for i=1 to Request.Form("ccount")%>
<input type="hidden" name="cname" id="cname" value="<%=Request.Form("cname")(i)%>">
<%next%>
<input type="hidden" name="rcount" id="rcount" value=<%=Request.Form("rcount")%> >
<%for i=1 to Request.Form("rcount")%>
<input type="hidden" name="rname" id="rname" value="<%=Request.Form("rname")(i)%>">
<%next%>
<%for i=1 to Request.Form("rcount")*Request.Form("ccount")%>
<%
if Request.Form("rc_data_type")=1 then
xvalue = Request.Form("rc_data1")(i)
end if
if Request.Form("rc_data_type")=2 then
xvalue = Request.Form("rc_data2")(i)
end if
if Request.Form("rc_data_type")=3 then
xvalue = Request.Form("rc_data3")(i)
end if
%>
<input type="hidden" name="rc_data" id="rc_data" value=<%=xvalue%>>
<%next%>
</FORM>
</BODY>
</HTML>
2、餅圖
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE> Êý¾ÝÏÔʾͼ </TITLE>
<SCRIPT ID="clientEventHandlersJS" LANGUAGE="javascript">
function window_onload()
{
t=0;
mschart1.chartType =14; //ͼÐÎÑùʽ£º±ýͼ
mschart1.Title.VtFont.Size =10; //±êÌâ´óС£º10
mschart1.Title.VtFont.VtColor.Blue =true; //±êÌâÑÕÉ«£ºÀ¶É«
mschart1.Title.VtFont.Style =1; //±êÌâÐÎʽ£º´ÖÌ塢бÌå
mschart1.TitleText =document.form1.chtitle.value; //±êÌâÄÚÈÝ
mschart1.Legend.VtFont.Size =9; //ϵÁÐÎÄ×Ö×ÖÌå´óС£º9
mschart1.Legend.Location.LocationType =6; //ϵÁÐÎÄ×ÖÏÔʾλÖ㺵ײ¿
mschart1.ShowLegend =true; //ϵÁÐÎÄ×ÖÏÔʾ
mschart1.Plot.Axis(0).Labels(1).VtFont.Size =10; //XÖá´óС£º10
mschart1.Plot.Axis(1).Labels(1).VtFont.Size =10; //YÖá´óС£º10
mschart1.Plot.Axis(2).Labels(1).VtFont.Size =10; //ZÖá´óС£º10
mschart1.Plot.Axis(0).Labels(1).VtFont.Style =1; //XÖáÐÎʽ£º´ÖÌå
mschart1.ColumnCount =document.form1.ccount.value; //ÿ¿éÉÏ·Ö¸îÊý
mschart1.RowCount =document.form1.rcount.value; //×ܹ²¿éÊý
for (i=0; i<document.form1.rcount.value; i++)
{
for (j=0; j<document.form1.ccount.value; j++)
{
mschart1.Row =i+1;
mschart1.Column =j+1;
if (document.form1.ccount.value>1)
{ mschart1.ColumnLabel =document.form1.cname(j).value+"("+document.form1.rc_data(j).value+"%";
for (x=1; x<document.form1.rcount.value; x++)
{ mschart1.ColumnLabel =mschart1.ColumnLabel+", "+document.form1.rc_data(document.form1.ccount.value*x+j).value+"%"; }
mschart1.ColumnLabel =mschart1.ColumnLabel+")";
}
else
{ mschart1.ColumnLabel =document.form1.cname.value; }
if ((document.form1.rcount.value*document.form1.ccount.value)>1)
{ mschart1.Data =document.form1.rc_data(t).value; }
else
{ mschart1.Data =document.form1.rc_data.value; }
t++;
}
if (document.form1.rcount.value>1)
{ mschart1.RowLabel =document.form1.rname(i).value; }
else
{ mschart1.RowLabel =document.form1.rname.value; }
}
}
function select1_onchange()
{
mschart1.chartType =select1.value
mschart1.Plot
}
</SCRIPT>
</HEAD>
<BODY TOPMARGIN="0" LANGUAGE="javascript" ONLOAD="return window_onload()">
<TABLE BGCOLOR="#EEEEEE">
<TR ALIGN="center"><TD>
<TABLE WIDTH=100%><TR align=center><TD><Font size=2 color=blue><b><%=Request.Form("chtitle")%></b></FONT></TD></TR></TABLE>
<HR COLOR="#F3C905">
<OBJECT CLASSID="clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D" CODEBASE="mschart.cab" DATA="" ID="mschart1" STYLE="HEIGHT:350px; LEFT:0px; TOP:0px; WIDTH:750px"></OBJECT>
<BR>
<HR COLOR="#F3C905">
<FONT SIZE="2" COLOR="blue"><B>ÇëÑ¡Ôñͼ±íÏÔʾ·½Ê½:
<SELECT NAME="select1" LANGUAGE="javascript" ONCHANGE="return select1_onchange()">
<OPTION value=14>±ýͼ</OPTION>
<OPTION value=1>¶þάֱ·½Í¼</OPTION>
<OPTION value=0>Èýάֱ·½Í¼</OPTION>
</SELECT>
°æȨËùÓУºÉϺ£Ò׽ܼÆËã»ú¼¼ÊõÓÐÏÞ¹«Ë¾</B></font>
<HR COLOR="#F3C905">
</TD></TR>
</TABLE>
<FORM NAME="form1" ID="form1">
<input type="hidden" name="chtitle" id="chtitle" value="" >
<%
ccount = Request.Form("ccount")
if CInt(Request.Form("ccount"))>CInt(Request.Form("rc_data_point")) then
ccount = Request.Form("rc_data_point")+1
end if
%>
<input type="hidden" name="ccount" id="ccount" value=<%=ccount%> >
<%for i=1 to Request.Form("ccount")%>
<%if i=Request.Form("rc_data_point")+1 then%>
<input type="hidden" name="cname" id="cname" value="ÆäËû">
<%
exit for
end if
%>
<input type="hidden" name="cname" id="cname" value="<%=Request.Form("cname")(i)%>">
<%next%>
<input type="hidden" name="rcount" id="rcount" value="<%=Request.Form("rcount")%>" >
<%for i=1 to Request.Form("rcount")%>
<input type="hidden" name="rname" id="rname" value="<%=Request.Form("rname")(i)%>">
<%next%>
<%rc_data_point = 0%>
<%xvalue = 0%>
<%if Request.Form("rcount")>=1 then
for i=1 to Request.Form("ccount")%>
<%
xvalue = xvalue + Request.Form("rc_data1")(i)
if (rc_data_point<CInt(Request.Form("rc_data_point"))) or (rc_data_point=CInt(Request.Form("ccount"))-1) then
%>
<input type="hidden" name="rc_data" id="rc_data" value=<%=formatnumber(xvalue,2,-1)%>>
<%
xvalue = 0
end if
rc_data_point = rc_data_point+1
if rc_data_point mod CInt(Request.Form("ccount"))=0 then
rc_data_point = 0
end if
%>
<%next
end if%>
<%if Request.Form("rcount")>=2 then
for i=1 to Request.Form("ccount")%>
<%
xvalue = xvalue + Request.Form("rc_data2")(i)
if (rc_data_point<CInt(Request.Form("rc_data_point"))) or (rc_data_point=CInt(Request.Form("ccount"))-1) then
%>
<input type="hidden" name="rc_data" id="rc_data" value=<%=formatnumber(xvalue,2,-1)%>>
<%
xvalue = 0
end if
rc_data_point = rc_data_point+1
if rc_data_point mod CInt(Request.Form("ccount"))=0 then
rc_data_point = 0
end if
%>
<%next
end if%>
<%if Request.Form("rcount")>=3 then
for i=1 to Request.Form("ccount")%>
<%
xvalue = xvalue + Request.Form("rc_data3")(i)
if (rc_data_point<CInt(Request.Form("rc_data_point"))) or (rc_data_point=CInt(Request.Form("ccount"))-1) then
%>
<input type="hidden" name="rc_data" id="rc_data" value=<%=formatnumber(xvalue,2,-1)%>>
<%
xvalue = 0
end if
rc_data_point = rc_data_point+1
if rc_data_point mod CInt(Request.Form("ccount"))=0 then
rc_data_point = 0
end if
%>
<%next
end if%>
</FORM>
</BODY>
</HTML>