limit.aspx

来自「掌握学习.net开发的非常好的资料」· ASPX 代码 · 共 108 行

<%@ Page Language="VB" Description="dotnetCHARTING Component"%>
<%@ Register TagPrefix="dotnet"  Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Import Namespace="System.Drawing" %>


<script runat="server">
Sub Page_Load(sender As [Object], e As EventArgs)
   'set global properties
   Chart.Title = "Sales"
   Chart.ChartArea.YAxis.Label.Text = "Sales"
   Chart.ChartArea.YAxis.FormatString = "Currency"
   Chart.TempDirectory = "temp"
   Chart.Debug = True
   Chart.DefaultSeries.DefaultElement.Transparency = 15
   Chart.Use3D = True
   
   'Add a series
   Chart.Series.ConnectionString = "../../database/chartsample.mdb"
   Chart.Series.StartDate = New System.DateTime(2002, 1, 1, 0, 0, 0)
   Chart.Series.EndDate = New System.DateTime(2002, 12, 31, 23, 59, 59)
   Chart.Series.Name = "Sales"
   Chart.Series.SqlStatement = "SELECT Name,Sum(Total) FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE#  GROUP BY Orders.Name"
   Chart.SeriesCollection.Add()
   
   
   'This is the same chart with limit set to limit the return to the
   'Five customers who had the highest purchase totals.
   'set global properties
   Chart2.Title = "Sales"
   Chart2.ChartArea.YAxis.Label.Text = "Sales"
   Chart2.ChartArea.YAxis.FormatString = "Currency"
   Chart2.TempDirectory = "temp"
   Chart2.Debug = True
   Chart2.DefaultSeries.DefaultElement.Transparency = 15
   Chart2.Use3D = True
   
   'Add a series
   Chart2.Series.ConnectionString = "../../database/chartsample.mdb"
   Chart2.Series.StartDate = New System.DateTime(2002, 1, 1, 0, 0, 0)
   Chart2.Series.EndDate = New System.DateTime(2002, 12, 31, 23, 59, 59)
   Chart2.Series.Name = "Sales"
   Chart2.Series.SqlStatement = "SELECT Name,Sum(Total) FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE#  GROUP BY Orders.Name ORDER BY Sum(Total)"
   Chart2.Series.Limit = "5"
   Chart2.SeriesCollection.Add()
   
   'This is the same chart with the ShowOther property set
   'this will add an element representing the total sales
   'for other customers not in the top five.
   'set global properties
   Chart3.Title = "Sales"
   Chart3.ChartArea.YAxis.Label.Text = "Sales"
   Chart3.ChartArea.YAxis.FormatString = "Currency"
   Chart3.TempDirectory = "temp"
   Chart3.Debug = True
   Chart3.DefaultSeries.DefaultElement.Transparency = 15
   Chart3.Use3D = True
   
   'Add a series
   Chart3.Series.ConnectionString = "../../database/chartsample.mdb"
   Chart3.Series.StartDate = New System.DateTime(2002, 1, 1, 0, 0, 0)
   Chart3.Series.EndDate = New System.DateTime(2002, 12, 31, 23, 59, 59)
   Chart3.Series.Name = "Sales"
   Chart3.Series.SqlStatement = "SELECT Name,Sum(Total) FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE#  GROUP BY Orders.Name ORDER BY Sum(Total)"
   Chart3.Series.Limit = "5"
   Chart3.Series.ShowOther = True
   Chart3.SeriesCollection.Add()
   
   'This is the same chart with the Series level PaletteName 
   'property set.  This will assign a color to each element
   'automatically and also create legend entries for the elements.
   'This property is most useful when you only have 1 series.
   'set global properties
   Chart4.Title = "Sales"
   Chart4.ChartArea.YAxis.Label.Text = "Sales"
   Chart4.ChartArea.YAxis.FormatString = "Currency"
   Chart4.TempDirectory = "temp"
   Chart4.Debug = True
   Chart4.DefaultSeries.DefaultElement.Transparency = 15
   Chart4.Use3D = True
   
   'Add a series
   Chart4.Series.ConnectionString = "../../database/chartsample.mdb"
   Chart4.Series.StartDate = New System.DateTime(2002, 1, 1, 0, 0, 0)
   Chart4.Series.EndDate = New System.DateTime(2002, 12, 31, 23, 59, 59)
   Chart4.Series.Name = "Sales"
   Chart4.Series.SqlStatement = "SELECT Name,Sum(Total) FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE#  GROUP BY Orders.Name ORDER BY Sum(Total)"
   Chart4.Series.Limit = "5"
   Chart4.Series.ShowOther = True
   Chart4.Series.PaletteName = Palette.One
   Chart4.SeriesCollection.Add()
End Sub 'Page_Load 
</script>
<HTML><HEAD><TITLE>SplitBy and ShowOther Sample</TITLE></HEAD>
<BODY>
<DIV align=center>
 <dotnet:Chart id="Chart"  runat="server"/>
</DIV>
<DIV align=center>
 <dotnet:Chart id="Chart2"  runat="server"/>
</DIV>
<DIV align=center>
 <dotnet:Chart id="Chart3"  runat="server"/>
</DIV>
<DIV align=center>
 <dotnet:Chart id="Chart4"  runat="server"/>
</DIV>
</BODY>
</HTML>