Chart FX 7用法

昵稱5G90P 2013-04-22

展開全文

Chart FX 7用法舉例：
dim sql

set cn=Server.CreateObject("ADODB.Connection")
set rs=server.createobject("ADODB.Recordset")
''''''''''''''''''''''''''''''''''''''''''''''''''創(chuàng)建
timestr=Request.QueryString("stime")
datano=Request.QueryString("datano")
endtime=Request.QueryString("etime")
sstring=Request.QueryString("string")
'''''''''''''''''''''''''''''''''''''''''''取得變量
sql = "SELECT DISTINCT * From DATA_LOGS WHERE time >= '"& timestr &"' AND datano = '"& datano &"'" &"and time<'" & endtime & "'"
cn.Open"dsn=123;uid=sa;pwd="
rs.Open sql, cn, 3,2
i = rs.RecordCount
'''''''''''''''''''''''''''''''''''''''''''''''從數(shù)據(jù)庫中得到記錄集
if i =0 then
response.end
end if
num=i
rs.MoveFirst

ReDim arr(i)
For i = 1 To num
If Not rs.EOF Then
arr(i) = rs.Fields("value") / 1000
rs.MoveNext
End If
Next
'''''''''''''''''''''''''''''''''''''''''''給動態(tài)數(shù)組賦值
rs.Close
cn.Close

%>
redim dataarr(300)
ii=<%=num%>
<%for i=1 to num %>
dataarr(<%=i%>)=<%=arr(i)%>
<%next%>
'''''''''''''''''''''''''''''''''''''''''''''服務端傳值給客戶端動態(tài)數(shù)組
DChartfx1.ThisSerie =0'''''''''''''''''''''''chartfax是一個BORLAND公司的控件。首先指定SERIES。注意：有時使用會出現(xiàn)異樣的沖突。
DChartfx1.ToolBar = true'''''''''''''''''''''CHART的工具箱為真
DChartfx1.ChartType=1 '''''''-------------chart的顯示類型為曲線
dChartfx1.OpenDataEx 1,1,1''''''------------用OPENDATAEX方法注意：它的三個參數(shù)變量。第一個為賦值類型，1 為X值，
''''''''''''''''''第二個為SERIR的個數(shù)，第三個是為X賦值的個數(shù)。初是化為 1。
for i=1 to ii
DChartfx1.Value(i-1)=dataarr(i)'10*i''''''''''''把動態(tài)數(shù)組的值X軸寫值
DChartfx1.KeyLeg(i)= i ''''''''''''''''''''-----X軸的標簽
next

DChartfx1.CloseData 1'''''''''''''''''''''''close the communications channel
end sub