chart_frm.frm

高校学生选课系统

VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form chart_frm 
   Caption         =   "图表"
   ClientHeight    =   4695
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6165
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   4695
   ScaleWidth      =   6165
   WindowState     =   2  'Maximized
   Begin MSChart20Lib.MSChart MSChart1 
      Height          =   4455
      Left            =   120
      OleObjectBlob   =   "chart_frm.frx":0000
      TabIndex        =   0
      Top             =   120
      Width           =   6015
   End
End
Attribute VB_Name = "chart_frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs As New ADODB.Recordset
Private Sub Form_Load()

Dim str As String
  str = "select * from studentinfo"              '''''''''要改
  rs.Open str, con, adOpenDynamic, adLockOptimistic, adCmdText
  Dim i As Integer
  

    MSChart1.TitleText = "直方图示例"
    MSChart1.RowCount = rs.RecordCount
   
    For i = 1 To rs.RecordCount
    MSChart1.Row = i
    MSChart1.Data = i * 100
    MSChart1.RowLabel = i
    rs.MoveNext
    Next i


End Sub