📄 chartareadb.aspx

📁 掌握学习.net开发的非常好的资料
💻 ASPX
字号:
<%@ Page Language="VB" Description="dotnetCHARTING Component" Debug="true" %>
<%@ Register TagPrefix="dotnet"  Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Import Namespace="System.Drawing" %>
<HTML>
	<HEAD>
		<TITLE>.netCHARTING Sample</TITLE>
		<script runat="server">

Sub Page_Load(sender As [Object], e As EventArgs)
   
   'set global properties
   Chart.Title = "2002 Sales (mouseover for sales amount)"
   Chart.Size = "600X300"
   Chart.TempDirectory = "temp"
   Chart.Debug = True
   Chart.YAxis.FormatString = "c"
   Chart.NoDataText = "Click a sales persons yearly total to view a breakdown by months"
   
   'force vertical chart area layout
   Chart.ChartAreaLayout.Mode = ChartAreaLayoutMode.Vertical
   
   'create a DataEngine to obtain data for two different series
   Dim de As New DataEngine()
   de.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" + Server.MapPath("../../database/chartsample.mdb")
   de.StartDate = New DateTime(2002, 1, 1, 0, 0, 0)
   de.EndDate = New DateTime(2002, 12, 31, 23, 59, 59)
   
   'get a series for the default chart area and set its url for drilldown
   de.SqlStatement = "SELECT Name, sum(Total) FROM Orders  WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE#  GROUP BY Orders.Name ORDER BY Orders.Name"
   Dim sc As SeriesCollection = de.GetSeries()
   sc(0).DefaultElement.URL = "chartareadb.aspx?elementname=%ElementName"
   sc(0).DefaultElement.ToolTip = "%Value"
   Chart.SeriesCollection.Add(sc)
   
   ' Create the second chart area and add a series to its series collection.
   Dim ca2 As New ChartArea()
   
   'Add a series based on the person selected
   Dim en As String = Request.QueryString("elementname")
   de.SqlStatement = "SELECT Orders.OrderDate, Sum(Total) FROM Orders WHERE Orders.Name='" + en + "' AND OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE# GROUP BY Orders.OrderDate ORDER BY Orders.OrderDate"
   de.DateGrouping = TimeInterval.Year
   Dim sc2 As SeriesCollection = de.GetSeries()
   Chart.DefaultSeries.DefaultElement.ToolTip = "%Value"
   ca2.XAxis.Label.Text = en + "'s 2002 monthly breakdown"
   ca2.SeriesCollection.Add(sc2)
   
   ' Add the new area to the chart.
   Chart.ExtraChartAreas.Add(ca2)
End Sub 'Page_Load 
</script>

	</HEAD>
	<BODY>
		<DIV align="center">
			<dotnet:Chart id="Chart" runat="server" Width="568px" Height="344px">
			</dotnet:Chart>
		</DIV>
	</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -