|
’打开connection连接
ConnADO.Open(connectionString)
RecordsetADO.ActiveConnection = ConnADO
’设置游标为静态游标
RecordsetADO.CursorType = ADODB.CursorTypeEnum.adOpenStatic
RecordsetADO.CursorLocation = ADODB.CursorLocationEnum.adUseClient
’变量strSQL中存放了标准SQL检索条件
RecordsetADO.Open(strSQL)
然后将RecordSet数据集赋给OWC对象：
owcChartSpace.DataSource = RecordsetADO
在本例中，我们假定用SQL语句检索出的数据共有三个字段：产品、日期和价格。这三个字段的值分别与图表中的曲线、分类（X）轴和数值（Y）轴的数据一一对应。
6. 确定曲线类型，并确定区别不同曲线的字段名。
首先确定曲线类型为平滑曲线。
owcChart.Type = OWC.ChartChartTypeEnum.chChartTypeSmoothLine
OWC支持在同一张图表中显示两条以上的曲线。因此我们必须给出区别不同曲线的依据，这个依据就是“产品”字段的取值。具体地说，“产品”字段中有几个不同的取值，就会生成几条不同的曲线。
owcChart.SetData(OWC.ChartDimensionsEnum.chDimSeriesNames, 0, “产品”)
7. 确定分类（X）轴标签与数值（Y）轴标签所对应的字段。
首先需要定义owcSeries为OWC的曲线集合，然后遍历图表中的每一条曲线，将“日期”字段的值赋给分类（X）轴作为X轴刻度标签，将“价格”字段的值赋给数值（Y）轴作为Y轴刻度标签。如果我们能够确定图表中只有一条曲线，也可以省略遍历的过程，但这样无疑会降低程序的通用性。
Dim owcSeries As OWC.WCSeries
For Each owcSeries In owcChart.SeriesCollection
owcSeries.SetData(OWC.ChartDimensionsEnum.chDimCategories, 0, “日期”)
owcSeries.SetData(OWC.ChartDimensionsEnum.chDimValues, 0, “价格”)
Next
8. 对坐标轴的属性进行设置。
这部分代码通过对坐标轴标题的文字内容、颜色、大小、主要和次要刻度线及其标签、主要和次要网络线等方面的设置美化图表。读者如果对本段代码中的概念有些模糊，可以参考前一部分提供的那张图表。具体设置方法请参见以下代码。
’先定义axis为坐标轴集合
Dim axis As OWC.WCAxis
’遍历坐标轴集合
For Each axis In owcChart.Axes
’显示轴标题
axis.HasTitle = True
’先对分类（X）轴进行设置
If axis.Type=OWC.ChartAxisTypeEnum.
chCategoryAxis Then
axis.HasTickLabels = True
’显示X轴刻度标签
axis.Position = OWC.ChartAxisPositionEnum.chAxisPositionBottom
’标签的显示位置
axis.Title.Font.Color =”blue”
’X轴的标题文字颜色
axis.Title.Font.Size = “9”
’X轴的标题文字大小
axis.Title.Caption = “日期范围”
’X轴的标题文字内容
Else
’对数值（Y）轴进行设置
axis.MajorGridlines.Line.Color = “silver”
’Y轴主要网络线的颜色
axis.MajorTickMarks = OWC.ChartTickMarkEnum.chTickMarkNone
’不显示Y轴主要刻度标记
axis.HasTickLabels = True
’显示Y轴刻度标签
axis.Title.Font.Color = “blue”
’Y轴的标题文字颜色
axis.Title.Font.Size = “9”
’Y轴的标题文字大小
axis.Title.Caption=“价格(千元/吨)”
’Y轴的标题文字内容
End If
Next
9. 以GIF图像格式输出图表，并将图像文件名赋给Image控件。
’用随机数来生成随机文件名
Randomize()
Dim nFileNameSuffix As Integer
Dim sFileNameSuffix As String
nFileNameSuffix = 100000 * Rnd()
sFileNameSuffix = System.Convert.ToString(nFileNameSuffix)
’以GIF格式输出图表，大小为500*300，图表的文件名为：polyesterprice_随机数.gif，存放在chart子目录中
上一页 [1] [2] [3] 下一页
|
