VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form Form1 
   Caption         =   "運用Mschart顯示數據(方法二)"
   ClientHeight    =   5655
   ClientLeft      =   1095
   ClientTop       =   825
   ClientWidth     =   12255
   BeginProperty Font 
      Name            =   "宋體"
      Size            =   7.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   5655
   ScaleWidth      =   12255
   StartUpPosition =   1  '所有者中心
   Begin MSChart20Lib.MSChart msChart1 
      CausesValidation=   0   'False
      Height          =   4740
      Left            =   60
      OleObjectBlob   =   "Form1.frx":0000
      TabIndex        =   0
      Top             =   180
      Width           =   12090
   End
   Begin VB.CommandButton Command1 
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   10095
      TabIndex        =   1
      Top             =   5040
      Width           =   2040
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private rsProducts As New ADODB.Recordset
Private cn As New ADODB.Connection
Private Sub Form_Load()
   Dim strQuery As String                                       ' 定義SQL 查詢字符串。
   cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\Data.mdb " '設置數據庫路徑。"
   cn.Open
   strQuery = "SELECT 產品名稱,銷售額,利潤 from 月銷售報表"     ' 創建一個只檢索四個字段的查詢。
   rsProducts.Open strQuery, cn, adOpenKeyset                   ' 打開記錄集。
   With msChart1
      .ShowLegend = True
       Set .DataSource = rsProducts
       .Title.Text = "          騰龍醫藥 5月特藥專柜銷售情況圖表             "   '設置圖表名稱
       .Title.VtFont.Effect = VtFontEffectUnderline                              '設置下劃線
       .Title.VtFont.Size = 10                                                   '設置字體大小
       .Title.VtFont.VtColor.Set 255, 0, 255                                     '設置字體顏色
   End With
End Sub
Private Sub Command1_Click()
  End
End Sub