ganttdb.aspx

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

ASPX
63
字号
<%@ Page Language="VB" debug="false" trace="false" 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="Progress Report"

    Chart.YAxis.Label.Text="Developers"
   
    Chart.XAxis.Label.Text="Weeks"
    Chart.TempDirectory="temp"
    Chart.Debug=true
    Chart.Type=ChartType.Gantt
    Chart.Use3D=true
    Chart.ShadingEffect=true
    Chart.OverlapFooter=true
    
    Chart.DefaultSeries.DefaultElement.ToolTip="%yValueStart,%yvalue"
    Chart.DefaultSeries.DefaultElement.Transparency = 20
    Chart.DefaultSeries.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;user id=admin;password=;data source=" & Server.MapPath("../../database/chartsample.mdb")  
    Chart.DefaultSeries.DataFields="ganttstartdate=start,ganttenddate=end,ganttname=name,ganttcomplete=completePercentage"

    
    'Add a series
    Chart.Series.Name="Research"
    Chart.Series.SqlStatement= "SELECT [start],[end],[name],[completePercentage] FROM ganttSample Where job='Research'"
    Chart.SeriesCollection.Add()
    
    'Add a series
    Chart.Series.Name="Design"
    Chart.Series.SqlStatement= "SELECT [start],[end],[name],[completePercentage] FROM ganttSample Where job='Design'"
    Chart.SeriesCollection.Add()
    
    'Add a series
    Chart.Series.Name="Implementation"
    Chart.Series.SqlStatement= "SELECT [start],[end],[name],[completePercentage] FROM ganttSample Where job='Implementation'"
    Chart.SeriesCollection.Add()
    
    'Add a series
    Chart.Series.Name="Test"
    Chart.Series.SqlStatement= "SELECT [start],[end],[name],[completePercentage] FROM ganttSample Where job='Test'"
    Chart.SeriesCollection.Add()
    
    'Add a series
    Chart.Series.Name="Package"
    Chart.Series.SqlStatement= "SELECT [start],[end],[name],[completePercentage] FROM ganttSample Where job='Package'"
    Chart.SeriesCollection.Add()

   
  
End Sub
</script>
<HTML><HEAD><TITLE>Orders Report</TITLE></HEAD>
<BODY>
<DIV align=center>
 <dotnet:Chart id="Chart"  runat="server"/>
</DIV>
</BODY>
</BODY>
</HTML>

⌨️ 快捷键说明

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