关于MSChart在asp中的疑问(50分)

  • 主题发起人 主题发起人 llk
  • 开始时间 开始时间
L

llk

Unregistered / Unconfirmed
GUEST, unregistred user!
MSChart在asp中的疑问
MSChart做的柱状图怎么控制柱子的颜色啊，默认的颜色太难看了
我还想在柱子上加上数值
最好有一个例子看看，谢谢了
 
转载一篇文章，看有用没有
ASP中使用Office2000中的图表控件　
-- Microsoft Office Chart 9.0 制作图表
　　前一阵为了做图表，查看了论坛中的所有文章，但大都是用Aspchart，ShortGraph等组件，这些组件多半都是国外开发要money的。如果你用office 的MS Chart，往往作出的效果又差强人意。如果你使用过Office2000中Excel的图表的话，应该被一流的效果所折服。想把他搬上你的网站吗？没问题，现在你也能通过ASP和VBScript来实现Microsoft Office Chart 9.0 的强大的功能和绝妙的效果。
　　示例中使用 ADO 记录集中的数据创建图表。首先根据返回的记录集数据创建以制表符分隔的字符串，然后通过 SetData 方法并使用此字符串设置图表数据。
　源文件chart.asp ：
(参照微软帮助范例，加入部分本人的修改...)

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY>
<object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046 style="width:80%;height:350"></object>
<object id=ADOConnection1 classid=CLSID:00000514-0000-0010-8000-00AA006D2EA4></object>
<script Language=VBScript>
Sub Window_OnLoad()
Dim rs, categories, values
categories = ""
values = ""
' 打开连接执行sql查询 (建立“nwind.mdb”库，并创建名为“Category Sales for 1995”的表)
ADOConnection1.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:
wind.mdb"
Set rs = ADOConnection1.Execute("SELECT * FROM [Category Sales for 1995]")

' 对于每一字段记录产生一个由制表符分隔的字符串
rs.MoveFirst
Do while Not rs.EOF
categories = categories &amp;
rs.Fields(0).Value &amp;
Chr(9)
values = values &amp;
rs.Fields(1).Value &amp;
Chr(9)
rs.MoveNext
Loop
rs.Close
ADOConnection1.Close
' 删去字符串末尾的分隔符
categories = Left(categories, Len(categories) - 1)
values = Left(values, Len(values) - 1)
' 创建一个系列
ChartSpace1.Clear
ChartSpace1.Charts.Add
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection(0).Caption = "Sales"
' 使用recordset生成的字符串设置系列的类型和值
Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values

' 设置图表工作区的标题，并将图表工作区的图例放置于工作区的右边。
ChartSpace1.HasChartSpaceTitle = True
With ChartSpace1.ChartSpaceTitle
.Caption = "Monthly Sales Data"
.Font.Size = 12
.Font.Color = "#FF0000"
.Font.Bold = True
End with

ChartSpace1.HasChartSpaceLegend = True
With ChartSpace1.ChartSpaceLegend
.Position = c.chLegendPositionright
.Font.Color = "#009999"
.Font.Size = 9
End with

' 设置图表类型（具体样式见附录）
ChartSpace1.Charts(0).Type = c.chChartTypeBarClustered
' 轴的坐标格式、样式（有坐标轴时才设）
With ChartSpace1.Charts(0).Axes(c.chAxisPositionBottom)
.NumberFormat = "#,##0"
.Font.Size = 9
End with

With ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft)
.Font.Color = "#0000ff"
.Font.Size = 9
End with
end if

End Sub
</script>
</BODY>
</HTML>

以上程序在Win98＋PWS 下通过。

通过以上的例程你可以根据你的需要，增加自己所需要的效果，一定能制作出极酷的统计图表来的，需要帮助可以参见微软的帮助文件（装了 Office2000 就有）Msowcvba.chm 以及MSDN 在线帮助。

有个缺点：客户端好像也要装Office2000 才行，另外我还没找到如何不安装 Office2000 来注册该组件的方法，如果那位高手知道，请告诉我 luo_zhenyu@netease.com ，谢谢!

附：

ChartChartTypeEnum Constants 图表类型常数(转至MSDN)

Constant Value

chChartTypeCombo -1
chChartTypeColumnClustered 0
chChartTypeColumnStacked 1
chChartTypeColumnStacked100 2
chChartTypeBarClustered 3
chChartTypeBarStacked 4
chChartTypeBarStacked100 5
chChartTypeLine 6
chChartTypeLineMarkers 7
chChartTypeLineStacked 8
chChartTypeLineStackedMarkers 9
chChartTypeLineStacked100 10
chChartTypeLineStacked100Markers 11
chChartTypeSmoothLine 12
chChartTypeSmoothLineMarkers 13
chChartTypeSmoothLineStacked 14
chChartTypeSmoothLineStackedMarkers 15
chChartTypeSmoothLineStacked100 16
chChartTypeSmoothLineStacked100Markers 17
chChartTypePie 18
chChartTypePieExploded 19
chChartTypePieStacked 20
chChartTypeScatterMarkers 21
chChartTypeScatterSmoothLineMarkers 22
chChartTypeScatterSmoothLine 23
chChartTypeScatterLineMarkers 24
chChartTypeScatterLine 25
chChartTypeScatterLineFilled 26
chChartTypeBubble 27
chChartTypeBubbleLine 28
chChartTypeArea 29
chChartTypeAreaStacked 30
chChartTypeAreaStacked100 31
chChartTypeDoughnut 32
chChartTypeDoughnutExploded 33
chChartTypeRadarLine 34
chChartTypeRadarLineMarkers 35
chChartTypeRadarLineFilled 36
chChartTypeRadarSmoothLine 37
chChartTypeRadarSmoothLineMarkers 38
chChartTypeStockHLC 39
chChartTypeStockOHLC 40
chChartTypePolarMarkers 41
chChartTypePolarLine 42
chChartTypePolarLineMarkers 43
chChartTypePolarSmoothLine 44
chChartTypePolarSmoothLineMarkers 45
 
谢谢，但是这个不是MSChart，是office的，他没有立体图形
 
可以用office xp带的office web 组件
很漂亮的，而且图形丰富（有立体图形哦）
－－－－顺便说一句，客户端脚本是不能访问数据库（没有权限），所以上面的例子是不能正常运行的，我因为工作的需要已经研究了office web组件很久拉
有问题大家可以交流一下哦
或许我何以给你帮组的
 
TeeChart 作图表很好用的
而且TeeChart4.0是免费的
有空不妨一试
 
office xp带的office web是不是有客户端要有office xp的要求啊
有asp代码吗？发一个给我吧，谢谢
xpims@sohu.com
 
没事的我已经把那个组件作成自安装文件，客户端可以不用安装office xp的
我一会给你我自己写的源码
 
你的油箱可以接受多大的邮件阿？大概有4M哦
 
收到，谢谢了
 
有立体图吗？
 
ChartChartTypeEnum Constants 图表类型常数(转至MSDN)

Constant Value

chChartTypeCombo -1
chChartTypeColumnClustered 0
chChartTypeColumnStacked 1
chChartTypeColumnStacked100 2
chChartTypeBarClustered 3
chChartTypeBarStacked 4
chChartTypeBarStacked100 5
chChartTypeLine 6
chChartTypeLineMarkers 7
chChartTypeLineStacked 8
chChartTypeLineStackedMarkers 9
chChartTypeLineStacked100 10
chChartTypeLineStacked100Markers 11
chChartTypeSmoothLine 12
chChartTypeSmoothLineMarkers 13
chChartTypeSmoothLineStacked 14
chChartTypeSmoothLineStackedMarkers 15
chChartTypeSmoothLineStacked100 16
chChartTypeSmoothLineStacked100Markers 17
chChartTypePie 18
chChartTypePieExploded 19
chChartTypePieStacked 20
chChartTypeScatterMarkers 21
chChartTypeScatterSmoothLineMarkers 22
chChartTypeScatterSmoothLine 23
chChartTypeScatterLineMarkers 24
chChartTypeScatterLine 25
chChartTypeScatterLineFilled 26
chChartTypeBubble 27
chChartTypeBubbleLine 28
chChartTypeArea 29
chChartTypeAreaStacked 30
chChartTypeAreaStacked100 31
chChartTypeDoughnut 32
chChartTypeDoughnutExploded 33
chChartTypeRadarLine 34
chChartTypeRadarLineMarkers 35
chChartTypeRadarLineFilled 36
chChartTypeRadarSmoothLine 37
chChartTypeRadarSmoothLineMarkers 38
chChartTypeStockHLC 39
chChartTypeStockOHLC 40
chChartTypePolarMarkers 41
chChartTypePolarLine 42
chChartTypePolarLineMarkers 43
chChartTypePolarSmoothLine 44
chChartTypePolarSmoothLineMarkers 45

改变ChartChartTypeEnum Constants的值就可以了，可以用到的值就是上面那些阿，你自己看看拉，好像我给你的代码里面就有立体圆饼图的
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
D
￥￥－请问这个FastReport的“Bug”怎么解决？？(100分)
回复
5
查看
298
drmy
D
L
如何得到喇叭的音量大小和麦克蜂的音量大小？(20分)
回复
4
查看
132
lcl_003
L
H
Bar上的lable能去掉吗？(50分)
回复
4
查看
125
HqCola
H
I
在ASP中控制打印方向的问题?(20分)
回复
12
查看
392
isbo
I
后退
顶部