frmmschart.frm

这是别人的数据库课程设计

VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "mschrt20.ocx"
Begin VB.Form frmMSChart 
   Caption         =   "MSChart控件"
   ClientHeight    =   3225
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5250
   LinkTopic       =   "Form1"
   ScaleHeight     =   3225
   ScaleWidth      =   5250
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "结束"
      Height          =   420
      Left            =   3645
      TabIndex        =   2
      Top             =   2655
      Width           =   1185
   End
   Begin VB.CommandButton Command1 
      Caption         =   "显示图表"
      Height          =   465
      Left            =   315
      TabIndex        =   1
      Top             =   2565
      Width           =   1095
   End
   Begin MSChart20Lib.MSChart MSChart1 
      Height          =   2445
      Left            =   0
      OleObjectBlob   =   "frmMSChart.frx":0000
      TabIndex        =   0
      Top             =   0
      Width           =   5145
   End
End
Attribute VB_Name = "frmMSChart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim cnNwind As Connection
Dim rsNwind As Recordset
Dim str As String
Set cnNwind = New Connection
Set rsNwind = New Recordset
cnNwind.ConnectionString = _
  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\图片\MyVB\NWIND.MDB"
  cnNwind.Open
str = "SELECT ProductName ,UnitPrice, " & _
  "UnitsInStock FROM Products WHERE SupplierID = 2"
  rsNwind.ActiveConnection = cnNwind
rsNwind.CursorType = adOpenDynamic
  
  rsNwind.Open str, , , adLockBatchOptimistic, adCmdText
  
Set MSChart1.DataSource = rsNwind

End Sub

Private Sub Form_Load()
'Dim arrnumber(1 To 5, 1 To 3)
'Dim i As Integer
'For i = 1 To 5
'    arrnumber(i, 1) = "标题" & i
'    arrnumber(i, 2) = i * 2
'    arrnumber(i, 3) = i * 3
'    Next i
'MSChart1.ChartData = arrnumber
'

End Sub