1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108
|
<%@ Page Language="VB" %>
<%@ Register TagPrefix="wmx" Namespace="Microsoft.Matrix.Framework.Web.UI" Assembly="Microsoft.Matrix.Framework, Version=0.6.0.0, Culture=neutral, PublicKeyToken=6f763c9966660626" %>
<%@ Register TagPrefix="web" Assembly="WebChart" Namespace="WebChart" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System.Web.Mail" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.DirectoryServices" %>
<%@ import Namespace="System.Configuration" %>
<%@ import Namespace="System.Net" %>
<%@ import Namespace="System" %>
<%@ import Namespace="System.Net.DNS" %>
<%@ import Namespace="System.ComponentModel" %>
<%@ import Namespace="System.Management" %>
<%@ import Namespace="System.Runtime.InteropServices" %>
<%@ import Namespace="System" %>
<%@ import Namespace="ActiveDs" %>
<%@ import Namespace="System.Text" %>
<%@ import Namespace="System.Net.NetworkInformation" %>
<%@ import Namespace="System.Net.Sockets" %>
<%@ import Namespace="WebChart" %>
<%@ import Namespace="System.Drawing" %>
<%@ import Namespace="WebChart" %>
<script runat="server">
' Insert page code here trusted_connection=true;
'
Sub Page_Load()
Dim name As String
Dim reader As IDataReader = GetReader()
Dim chart As New ColumnChart()
name = Request.Params("name")
chart.DataXValueField = "valeurx"
chart.DataYValueField = "valeury"
chart.DataSource = reader
chart.DataBind()
reader.Close()
ChartControl1.Charts.Add(chart)
ChartControl1.RedrawChart()
'reader
ChartDisplay
End Sub
Function GetReader() As IDataReader
Dim name As String
name = Request.Params("name")
Dim connection As new SqlConnection("server= 'TAMAC50'; trusted_connection=true; database='Northwind'")
Dim strsql As String
strsql = "SELECT DateModif as valeurx, Taille_Pourcentage as valeury from Servers where nom = '" & name & "'"
Dim command As new SqlCommand(strsql, connection)
connection.Open()
'lblError.TExt = strsql
SqlDataSource.ConnectionString = "server= 'TAMAC50'; trusted_connection=true; database='Northwind'"
SqlDataSource.SelectCommand = StrSql
'MXDataGrid1.DataBind()
Return command.ExecuteReader(CommandBehavior.CloseConnection)
End Function
Function ChartDisplay()
Dim reader As IDataReader = GetReader()
Dim chart As New ColumnChart()
chart.DataXValueField = "valeurx"
chart.DataYValueField = "valeury"
chart.DataSource = reader
chart.DataBind()
reader.Close()
ChartControl1.Charts.Add(chart)
ChartControl1.RedrawChart()
End Function
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<wmx:SqlDataSourceControl id="SqlDataSource" runat="server"></wmx:SqlDataSourceControl>
<WEB:CHARTCONTROL id="ChartControl1" runat="server" TopPadding="0" ImageID="a1eed3ba-a223-47c2-b583-9aa75b984ed7" YCustomStart="0" BorderColor="Red" YCustomEnd="100" YValuesInterval="10" Padding="20" ChartPadding="20" BottomChartPadding="0" HasChartLegend="False" Width="600px">
<CHARTS>
<WEB:COLUMNCHART DataXValueField="xvalue" MaxColumnWidth="30" ShowLineMarkers="False" DataYValueField="yvalue"></WEB:COLUMNCHART>
</CHARTS>
</WEB:CHARTCONTROL>
</form>
</body>
</html> |
Partager