折线图
  
  <%
  Option Explicit
  
  
  '页面级对象
  '--------------------
  Dim m_cn '链接对象
  Dim m_rs '记录集对象
  Dim m_cspace 'OWC.ChartSpace object
  Dim m_fso '文件系统对象
  Dim m_objBinaryFile '二进值文件流对象
  
  Dim m_sYear '需要查询的年份
  
  Dim sSQL '执行的SQL 语句
  Dim c 'OWC 常量对象
  Dim cht '图表临时参考变量
  Dim ax '数轴的临时参考变量
  Dim fnt 'OWCFont字体的临时参考变量
  Dim sFullFileName '输出GIF文件的临时参考路径
  
  '获得查询年份，缺省为2002
  m_sYear = Request.QueryString("year")
  if len(m_sYear) = 0 then m_sYear = "2002"
  
  '创建一个ADO链接和记录集对象
  set m_cn = Server.CreateObject("ADODB.Connection")
  set m_rs = Server.CreateObject("ADODB.Recordset")
  
  '链接到Access数据库，使用客户端的游标引擎打开记录集
  m_cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath(".") & "\data.mdb"
  sSQL = "SELECT Month([OrderDate]) AS [Month], Invoices.Salesperson, " & _
   "Sum(Invoices.ExtendedPrice) AS Sales FROM Invoices " & _
   "WHERE Invoices.OrderDate between #1/1/" & m_sYear & "# and #12/31/" & m_sYear & "# " & _
   "GROUP BY Month([OrderDate]), Invoices.Salesperson"
  m_rs.CursorLocation = 3 'adUseClient
  m_rs.Open sSQL, m_cn, 3 'adOpenStatic
  
  '增加一个带有图例的簇列图表
  set m_cspace = server.CreateObject("OWC.Chart")
  set m_cspace.DataSource = m_rs
  set cht = m_cspace.Charts.Add()
  set c = m_cspace.Constants
  
  cht.HasLegend = True
  
  cht.Type =c.chChartTypeLineMarkers
  '设置图表的数据源，把销售人添加到序列名称，销售月份添加到分类组，销售金额作为图表中各项取值
  
  
  cht.SetData c.chDimSeriesNames, 0, "Salesperson"
  cht.SetData c.chDimCategories, 0, "Month"
  cht.SetData c.chDimValues, 0, "Sales"
  
  
  cht.SeriesCollection(4).Interior.Color = "blue" '改变第四条线的颜色为蓝色
  Cht.SeriesCollection(4).Line.Color = "blue"
  
  
  '增加一个图表标题，并格式化标题
  cht.HasTitle = True
  cht.Title.Caption = m_sYear & "的销售金额 "
  set fnt = cht.Title.Font
  fnt.Name = "宋体"
  fnt.Size = 10
  fnt.Bold = True
  
  '对分类轴添加标题，并格式化标题
  set ax = cht.Axes(c.chAxisPositionBottom)
  ax.HasTitle = True
  ax.Title.Caption = "月份"
  set fnt = ax.Title.Font
  fnt.Name = "宋体"
  fnt.Size = 8
  fnt.Bold = True
  
  '对数值轴添加标题，并格式化标题
  set ax = cht.Axes(c.chAxisPositionLeft)
  ax.NumberFormat = "Currency"
  ax.HasTitle = True
  ax
  
  

 

评论 (0) All

登陆 还没注册？