form1.frm

vb控件vb控件vb控件vb控件vb控件vb控件vb控件

VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form Form1 
   BorderStyle     =   4  'Fixed ToolWindow
   ClientHeight    =   11205
   ClientLeft      =   45
   ClientTop       =   225
   ClientWidth     =   15270
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   11205
   ScaleWidth      =   15270
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
      Height          =   2445
      Index           =   2
      Left            =   10485
      TabIndex        =   6
      Top             =   4815
      Width           =   2160
      _ExtentX        =   3810
      _ExtentY        =   4313
      _Version        =   393216
      FixedCols       =   0
      _NumberOfBands  =   1
      _Band(0).Cols   =   2
   End
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
      Height          =   3915
      Index           =   0
      Left            =   8250
      TabIndex        =   4
      Top             =   3360
      Width           =   2145
      _ExtentX        =   3784
      _ExtentY        =   6906
      _Version        =   393216
      FixedCols       =   0
      _NumberOfBands  =   1
      _Band(0).Cols   =   2
   End
   Begin MSChart20Lib.MSChart MSC 
      Height          =   3030
      Left            =   120
      OleObjectBlob   =   "Form1.frx":0000
      TabIndex        =   0
      Top             =   105
      Width           =   15045
   End
   Begin MSChart20Lib.MSChart MSC1 
      Height          =   3090
      Left            =   120
      OleObjectBlob   =   "Form1.frx":24A6
      TabIndex        =   1
      Top             =   7995
      Width           =   7215
   End
   Begin MSChart20Lib.MSChart MSC2 
      Height          =   4440
      Left            =   120
      OleObjectBlob   =   "Form1.frx":494C
      TabIndex        =   2
      Top             =   3345
      Width           =   7935
   End
   Begin MSChart20Lib.MSChart MSC3 
      Height          =   3090
      Left            =   7530
      OleObjectBlob   =   "Form1.frx":6DF2
      TabIndex        =   3
      Top             =   7995
      Width           =   7710
   End
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
      Height          =   1365
      Index           =   1
      Left            =   10470
      TabIndex        =   5
      Top             =   3345
      Width           =   4680
      _ExtentX        =   8255
      _ExtentY        =   2408
      _Version        =   393216
      FixedCols       =   0
      _NumberOfBands  =   1
      _Band(0).Cols   =   2
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim CN As New ADODB.Connection, CRS As New ADODB.Recordset

Private Sub Form_Load()

    CN.Open "provider=microsoft.jet.oledb.4.0;data source=d:\backup\new.mdb"
    CRS.Open "统计表", CN, adOpenStatic, adLockReadOnly, adCmdTable
    AddToMschart CRS, MSC2, "本月收入统计", VtChChartType2dLine
    Set MSHFlexGrid1(1).DataSource = CRS
End Sub

Private Sub AddToMschart(Rst As ADODB.Recordset, MSChart As MSChart20Lib.MSChart, Optional Title As String = "", Optional ChartType As VtChChartType = VtChChartType2dBar, Optional ForceMulitColumn As Boolean = False)
    Dim RecCount As Long, i As Long, n As Integer, FldCount As Integer
    RecCount = Rst.RecordCount
    FldCount = Rst.Fields.Count
    If ForceMulitColumn Then
        ReDim Value(1 To FldCount, 1 To RecCount + 1)
    Else
        ReDim Value(1 To RecCount + 1, 1 To FldCount)
    End If
    Rst.MoveFirst
    With MSChart
        .ChartType = ChartType
        .Title = Title
        .Plot.View3d.Rotation = 180 '设置旋转度(三维模式)
        Do Until Rst.EOF
            n = n + 1
            For i = 1 To FldCount
                If ForceMulitColumn Then
                Else
                    If n = 1 And i <= FldCount - 1 Then
                        Value(n, i + 1) = Rst.Fields(i).Name
                    Else
                        Value(n, i) = Rst.Fields(i - 1).Value
                    End If
                End If
            Next
            If n <> 1 And ForceMulitColumn = False Then CRS.MoveNext
        Loop
        MSChart.ChartData = Value
    End With
End Sub