VB 统计图表的实现

Question

字段有：
 序号，单位或者部门，时间，地点，违章人或者车（车牌号码），违章情况，备注。
  
 要求：1、按部门、时间、地点等进行自动统计；（有文字统计和图表统计）
       2、月度、季度、年度各部门、单位总数分析对比图！（小弟不知道这个如何实现）
        给个思路好不好？？？ 有实例更好了，，，谢谢 谢谢 
谢谢了。

Answer 1

使用 MSChart 控件可以按照一定的规范将数据以图表的形式绘制出来。可以通过在控件的属性页中设置数据来创建图表，或者也可以从其他数据源，如Microsoft Excel 的电子数据表中检索出要绘制的数据。MSChart控件可以对动态数据绘制图表，例如选定商品的当前价格。MSChart控件可以对存储数据绘制图表，例如产品价格，以便利用图形分析趋势。
具体的资料，GOOGLE搜索一下

Answer 2

再提一点，可以将ADO绑定到MSChart控件的数据，这一点很方便，很实用

Answer 3

解决问题
http://www.evget.com/view/viewProductInfo.asp?productId=122&tabIndex=1#

Answer 4

'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'程序说明:设置mschart控件,画图
'使用语言:VB6.0 + SQL Server 2000
'创建时间:2004-10-18
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
   With MSChart1
        .TitleText = cbo_department.Text & "销售走势图"
        .RowCount = ado_recnewsell.RecordCount
        For int_i = 1 To ado_recnewsell.RecordCount
            .Row = int_i
            .Data = ado_recnewsell.Fields!sellmoney
            .RowLabel = Format(ado_recnewsell.Fields!selldate, "mm-dd")
            ado_recnewsell.MoveNext
        Next int_i
   End With
你可以参考一下我上面的这段程序,用ADO很方便实现的,不过最好的用之前要把原始数据处理好,就是说按你所讲的要求,将数据事先整理成可用的记录集

Answer 5

VB6.0中通过MSChart控件调用数据库　VB6.0中的MSChart控件是一个功能强大的高级图表工具，拥有丰富的图表绘制功能，可显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。近日我为了在双击图表的某个区域时将与该区域相对应的数据库的内容在DataGrid控件上显示出来，遇到了许多困难，最后用一个自定义的变量SelectSeries解决了问题，具体方法如下：
　　设数据库名称为“学生信息”，有一Access表“学生成绩”，其内容为一个班学生的考试成绩，包括学号、姓名、成绩3个字段，成绩字段格式是字符型，值为“优”、“良”、“中”、“差”中的一个。
　　窗体Form1包括一个MSChart控件McScore，类型为二维饼图，用于显示每种成绩的学生数；一个ADO控件AdScore用于连接数据库；一个DataGrid控件DgScore用于以表格形式显示数据库内容。
　　工作过程为：双击饼图的某个区域，则DgScore显示相应成绩的学生名单。
　　代码如下：
　　Option Explicit
　　Dim SelectedSeries as Integer ′自定义变量
　　Dim Rs() as String ′提取记录集用的字符串数组
　　Private Sub Form_Load()
　　′设定DataGrid控件的数据源
　　DgScore.DataSource=″AdScore″
　　′设定ADO控件的连接字串和初始的记录源，即显示内容
　　AdScore.ConnectString=″Provider=Microsoft.OLEDB.3.51;Persist_Security Info=False;Data Source=学生信息″
　　AdScore.RecordSource=″selet ＊ from学生成绩order by成绩″
　　AdScore.Refresh
　　′预设好提取记录用的SQL语句
　　Rs(1)=″select＊ from学生成绩where成绩=″＋Chr(34)＋″优″＋_Chr(34)＋″order by成绩″
Rs(2)=″select ＊from学生成绩where成绩=″＋Chr(34)＋″良″＋_Chr(34)＋″order by成绩″
Rs(3)=″select ＊ from学生成绩where成绩=″＋Chr(34)＋″中″＋_Chr(34)＋″order by成绩″
Rs(4)=″select ＊ from学生成绩where成绩=″＋Chr(34)＋″差″_Chr(34)＋″order by成绩″
End Sub
　　Private Sub McScore_SeriesSelected(Series as Integer,MouseFlags as _Integer,Cancel as Integer)
SelectedSeries=Series
　　End Sub
　　Private Sub McScore_PointSelected(Series as Integer,DataPoint as_Integer,MouseFlags as 
Integer,Cancel as Integer)
　　SelectedSeries=Series
　　End Sub
　　Private Sub McScore_Db1Click()
　　′改变ADO控件的记录源并刷新
　　Adoc1.RecordSource=Rs(SeletedSeries)
　　Adoc1.Refresh
　　End Sub