蛙蛙池塘

没有公主的蛙蛙王子

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

<!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的版本不同而不同 -->

阅读更多
个人分类: asp相关
上一篇蛙蛙推荐:微软网络讲座系列教程视频下载(2004年1月到2005年4越)
下一篇WawaKM征集4名有兴趣参与开源项目人员
想对作者说点什么? 我来说一句

蛙灵桌面。蛙灵桌面。蛙灵桌面

2009年10月14日 535KB 下载

没有更多推荐了,返回首页

关闭
关闭