vb调用数据库数据画mschart折线图

vb调用数据库数据画mschart折线图

ID:26221068

大小:211.50 KB

页数:6页

时间:2018-11-25

vb调用数据库数据画mschart折线图_第1页
vb调用数据库数据画mschart折线图_第2页
vb调用数据库数据画mschart折线图_第3页
vb调用数据库数据画mschart折线图_第4页
vb调用数据库数据画mschart折线图_第5页
资源描述:

《vb调用数据库数据画mschart折线图》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、WORD格式可编辑PrivateSubCommand1_Click()         OnErrorResumeNext         Dimi  AsInteger         DimconnAsNewADODB.Connection         Dimrs    AsNewADODB.Recordset         Setconn=NewADODB.Connection         Setrs=NewADODB.Recordset                           conn.ConnectionString="P

2、rovider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"lwl.mdb"         conn.Open         rs.Open"select*from  lwl",conn,adOpenKeyset,adLockOptimistic                  'SetMSChart1.DataSource=rs         WithMSChart1      '//以线条方式显示     .chartType=3          '//把刻录改为手工方式     .Plo

3、t.Axis(VtChAxisIdY).ValueScale.Auto=False           '//设置最大值     .Plot.Axis(VtChAxisIdY).ValueScale.Maximum=1000          '//设置最小值     .Plot.Axis(VtChAxisIdY).ValueScale.Minimum=0          '//设置每格为1     .Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision=1           '//设置收入和兼职收入总列数 

4、    .ColumnCount=2                '//轴坐标标题     .Plot.Axis(VtChAxisIdX,0).AxisTitle="日期"     .Plot.Axis(VtChAxisIdY,0).AxisTitle="收入"          '//轴坐标标题字体大小的设置     .Plot.Axis(VtChAxisIdX,0).AxisTitle.VtFont.Size=15     .Plot.Axis(VtChAxisIdY,0).AxisTitle.VtFont.Size=专业知识整理分享WORD格式可

5、编辑25          '//设置图表标题     .Title.Text="日期和收入对应折线图"                    '//显示图例说明     .ShowLegend=True          '//标记每个点的值     Fori=1To.Plot.SeriesCollection.Count        .Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.LocationType=VtChLabelLocationTypeAbovePoint     Next

6、          Ifrs.RecordCount>0Then         rs.MoveFirst     Else         ExitSub     EndIf            Fori=0Tors.RecordCount-1        .Column=1            '收入曲线所在列        .RowCount=rs.RecordCount        .Row=i+1        .RowLabel=CStr(rs("日期"))        .Data=rs("收入")        .ColumnLa

7、bel="收入"         '图例说明文字                        '//兼职收入显示        .Column=2               '兼职收入曲线所在列        .Data=rs("兼职收入")        .ColumnLabel="兼职收入"           '图例说明文字      rs.MoveNext     Next    EndWithEndSub专业知识整理分享WORD格式可编辑PrivateSubCommand2_Click()'下列示例设置图表查看距离和轴分段间距。  'Cha

8、ngethecharttypeto3DBar.  MSChart1.chartT

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。