form1.frm

Visual Basic开发实用编程200例 数据库编程实例

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