蛙蛙推荐:在HTML里利用OWC做图表

原创 2005年04月23日 18:44:00

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="蛙蛙王子">
<META NAME="Keywords" CONTENT="owc,报表,图表">
<META NAME="Description" CONTENT="呵呵,哥们把vb的一个例子彻底转换成vbs脚本并移植到网页了,就为了做一个既好看性能又好的图表控件,哥们找了N多资料,光看VML就看的眼画了,本来想用VML写一个chart控件的,后来太麻烦了,直接用OWC算了,功能也暴强,OWC不用我介绍了吧,估计就算我费半天劲学好VML,再学好JS的面向对象开发,最后写出一个VMLCHART估计也没这么强大,微软免费提供的东西为什么不利用一下呢,昨天和今天刚看了MS的一个sql reporting serivice的视频教程,那个更NB,有空装一个,什么报表,图表统统搞定,不过什么东西都有缺点,我写的这个例子必须在客户端安装OFFICE才行,或者得单独分发OWC组件才行,我在对象声明的时候没有写DLL的位置,也没有引用网上的CAB包,大家测试的时候装个OFS200就可以了">
<SCRIPT LANGUAGE="VbScript">
Private Sub Command1_Click()

    'Create arrays for the x-values and the y-values
 '为X轴数据和Y轴数据定义几个数组
    Dim xValues, yValues1, yValues2
    'xValues = Array("Beverages", "Condiments", "Confections", _
    '               "Dairy Products", "Grains & Cereals", _
    '               "Meat & Poultry", "Produce", "Seafood")
 xValues = Array("饮料", "调味品", "糖果", _
                    "乳制品", "鱼肉", _
                    "家禽肉类", "农作物", "海产食品")
   
 yValues1 = Array(104737, 50952, 78128, 117797, 52902, 80160, 47491, _
                     62435)
    yValues2 = Array(20000, 15000, 36000, 56000, 40000, 18000, 20000, _
                     33000)

    'Create a new chart
 '创建一个新的图表对象
    Dim oChart,chConstants
    ChartSpace1.Clear '清空图表
    ChartSpace1.Refresh '重绘图表
    Set oChart = ChartSpace1.Charts.Add '新建一个空图表
 Set chConstants = ChartSpace1.Constants '在 VBScript 中使用命名常量

    'Add a title to the chart
    oChart.HasTitle = True
    oChart.Title.Caption = "Sales Per Category"

    'Add a series to the chart with the x-values and y-values
    'from the arrays and set the series type to a column chart
    Dim oSeries
    Set oSeries = oChart.SeriesCollection.Add
    With oSeries
        .Caption = "1995"
        .SetData chConstants.chDimCategories, chConstants.chDataLiteral, xValues
        .SetData chConstants.chDimValues, chConstants.chDataLiteral, yValues1
        .Type = chConstants.chChartTypeColumnClustered
    End With

    'Add another series to the chart with the x-values and y-values
    'from the arrays and set the series type to a line chart
    Set oSeries = oChart.SeriesCollection.Add
    With oSeries
        .Caption = "1996"
        .SetData chConstants.chDimCategories, chConstants.chDataLiteral, xValues
        .SetData chConstants.chDimValues, chConstants.chDataLiteral, yValues2
        .Type = chConstants.chChartTypeLineMarkers
    End With

    'Add a value axis to the right of the chart for the second series
    oChart.Axes.Add oChart.Axes(chConstants.chAxisPositionLeft).Scaling,chConstants.chAxisPositionRight, chConstants.chValueAxis

    'Format the Value Axes
    oChart.Axes(chConstants.chAxisPositionLeft).NumberFormat = "$#,##0"
 oChart.Axes(chConstants.chAxisPositionRight).NumberFormat = "0"
 oChart.Axes(chConstants.chAxisPositionLeft).MajorUnit = 20000
    oChart.Axes(chConstants.chAxisPositionRight).MajorUnit = 20000

    'Show the legend at the bottom of the chart
    oChart.HasLegend = True
    oChart.Legend.Position = chLegendPositionBottom

End Sub
Private Sub Command2_Click()

    'Set up the DataSourceControl for the Chartspace
    Dim rsd, chConstants
    Set chConstants = ChartSpace1.Constants
    DataSourceControl1.ConnectionString = _
        "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
        "DBQ=C:/Program Files/Microsoft Visual Studio/VB98/nwind.mdb"
    Set rsd = DataSourceControl1.RecordsetDefs.AddNew( _
             "Select * from [Category Sales for 1995]", 3)
    With ChartSpace1
        .Clear
        .Refresh
        .DataSource = DataSourceControl1
        .DataMember = rsd.Name
    End With

    'This Chartspace will contain 2 charts. Make the layout so that the
    'charts are positioned horizontally
    ChartSpace1.ChartLayout = chConstants.chChartLayoutHorizontal

    'Create a new bar chart from the query
    Dim oBarChart
    Set oBarChart = ChartSpace1.Charts.Add
    With oBarChart
        .Type = chConstants.chChartTypeBarClustered
        .SetData chConstants.chDimCategories, 0, 0  'Categories are first field
        .SetData chConstants.chDimValues, 0, 1      'Values are second field

        'Format the value axis for the bar chart so that it
        'shows values in thousands (i.e., 45000 displays as 45) and
        'in increments of 25000. Remove the gridlines
        With .Axes(chConstants.chAxisPositionBottom)
            .NumberFormat = "0,"
            .MajorUnit = 25000
            .HasMajorGridlines = False
        End With

        'Change the color of the series and the plot area
        .SeriesCollection(0).Interior.Color = RGB(150, 0, 150)
        .PlotArea.Interior.Color = RGB(240, 240, 10)
    End With

    'Create a new exploded pie chart from the query
    Dim oPieChart
    Set oPieChart = ChartSpace1.Charts.Add
    With oPieChart
        .Type = chConstants.chChartTypePie
        .SetData chConstants.chDimCategories, 0, 0  'Categories are first field
        .SetData chConstants.chDimValues, 0, 1      'Values are second field
        .SeriesCollection(0).Explosion = 20

        'Add a legend to the bottom of the pie chart
        .HasLegend = True
        .Legend.Position = chConstants.chLegendPositionBottom

        'Add a title to the chart
        .HasTitle = True
        .Title.Caption = "Sales by Category for 1995"
        .Title.Font.Bold = True
        .Title.Font.Size = 11

        'Make the chart width 50% the size of the bar chart's width
        .WidthRatio = 50

        'Show data labels on the slices as percentages
        With .SeriesCollection(0).DataLabelsCollection.Add
            .HasValue = False
            .HasPercentage = True
            .Font.Size = 8
            .Interior.Color = RGB(255, 255, 255)
        End With

    End With

End Sub
Private Sub Command3_Click()

   'Dynamically add a spreadsheet control to the form
   Dim chConstants
   Set chConstants = ChartSpace1.Constants
 
   'Fill the Sheet with data
   With oSheet
        .Range("A1:A10").Formula = "=Row()"
        .Range("B1:B10").Formula = "=A1^2"
        .Range("A12").Formula = "=Max(A1:A10)"
        .Range("B12").Formula = "=Max(B1:B10)"
   End With

   'Create an xy-scatter chart using the data in the spreadsheet
   Dim oChart
   With ChartSpace1
        .Clear
        .Refresh
        .DataSource = oSheet.object
        Set oChart = .Charts.Add
        oChart.Type = chConstants.chChartTypeScatterSmoothLineMarkers
        oChart.SetData chConstants.chDimXValues, 0, "a1:a10"
        oChart.SetData chConstants.chDimYValues, 0, "b1:b10"
   End With

   With oChart
        'Display the Axes Titles and
        'set the major units for the axes
        With .Axes(chConstants.chAxisPositionBottom)
            .HasTitle = True
            .Title.Caption = "X"
            .Title.Font.Size = 8
            .MajorUnit = 1
        End With
        With .Axes(chConstants.chAxisPositionLeft)
            .HasTitle = True
            .Title.Caption = "X Squared"
            .Title.Font.Size = 8
            .MajorUnit = 10
        End With

        'Set the maximum and minimum axis values
        .Scalings(chConstants.chDimXValues).Maximum = oSheet.Range("A12").Value
        .Scalings(chConstants.chDimXValues).Minimum = 1
        .Scalings(chConstants.chDimYValues).Maximum = oSheet.Range("B12").Value

        'Change the marker and line styles for the series
        With .SeriesCollection(0)
            .Marker.Style = chConstants.chMarkerStyleDot
            .Marker.Size = 6
            .Line.Weight = 1
            .Line.Color = RGB(255, 0, 0)
        End With
   End With
End Sub
</SCRIPT>
</HEAD>
<BODY>
<!-- 声明一个图表对象ChartSpace1-->
<object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046 codebase=”msowc.dll” style="width:100%;height:350;border:#ffffff 0px solid"></object>
<!-- 声明一个图表数据源对象DataSourceControl1 -->
<object id=DataSourceControl1 classid=CLSID:0002E55B-0000-0000-C000-000000000046></object>
<!-- 声明一个电子表格对象oSheet -->
<object id=oSheet classid=CLSID:0002E559-0000-0000-C000-000000000046 style="width:0;height:0;border:#ffffff 0px solid"></object>


<INPUT TYPE="button" language="vbscript" onclick="Command1_Click()" value="使用数组">
<INPUT TYPE="button" language="vbscript" onclick="Command2_Click()" value="使用ado记录机">
<INPUT TYPE="button" language="vbscript" onclick="Command3_Click()" value="使用电子表格">
</BODY>
</HTML>
<!-- 做了半截注释,不想做了,里面大家不懂的参数什么的,大家自己参考相关资料算了,我得下班了,如果你装了OFFICE,在OFFICE的安装目录下面有个OWCVBA11.CHM的文件,你打开它,关于OWC的资料非常详细了,可能这个帮助文件的名字会根据你安装的OFS的版本不同而不同 -->

利用OFFICE 2003 OWC 绘图控件在.NET平台下实现数据图表的绘制

来源:兰州大学网络教育学院 宋昀杰 马青 刘江 摘要:OWC,即Office Web Components,是微软随Office提供的绘图控件,设计的目的是为众多的控件容器提供交互的电子表格...

OWC的图表样式

  • 2013年07月20日 09:17
  • 34KB
  • 下载

Excel与OWC做报表总结

1.            技术要点 1.1.    Excel试验: A.       Excel嵌入网页的方法。 1.       在后台用流的方式返回给前台页面展现; 2.   ...

OWC11图表组件设计时参考

  • 2007年11月13日 12:48
  • 530KB
  • 下载

推荐18个基于 HTML5 Canvas 开发的图表库

原文地址:http://www.cnblogs.com/lhb25/archive/2011/04/12/1964343.html 如今,HTML5 可谓如众星捧月一般,受到许多业内...
  • pwosboy
  • pwosboy
  • 2013年03月13日 08:45
  • 282

推荐18个基于 HTML5 Canvas 开发的图表库

如今,HTML5 可谓如众星捧月一般,受到许多业内巨头的青睐。很多Web开发者也尝试着用 HTML 5 来制作各种各样的富 Web 应用。HTML 5 规范引进了很多新特性,其中最令人期待的之...

利用html5Canvas将Highchart图表导出图片

需求: 项目中大量用到了highchart图表,出于某些需求,需要将highchart图表导出为图片,以便于生成pdf、word等文档。现有的解决方案: highchart官方提供的导出方式是将图...
  • lkmtao
  • lkmtao
  • 2015年03月30日 17:28
  • 1345

推荐18个基于 HTML5 Canvas 开发的图表库

如今,HTML5 可谓如众星捧月一般,受到许多业内巨头的青睐。很多Web开发者也尝试着用 HTML 5 来制作各种各样的富 Web 应用。HTML 5 规范引进了很多新特性,其中最令人期待的之一就是 ...

[HTML5-SVG]利用 SVG 在 Web 应用程序中创建客户端图表交互

本文给出一个具体的 Web 页面,Web 开发人员及其管理者都将会对它感兴趣。尽管代码编写理解起来足够简单,但是它建模了一个超出传统的基于表单的 Web 应用程序的 GUI 效果。此效果: 只依...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:蛙蛙推荐:在HTML里利用OWC做图表
举报原因:
原因补充:

(最多只允许输入30个字)