frmtongji.frm

用VB连接ORalce数据库的学生管理系统

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form frmtongji 
   Caption         =   "Form6"
   ClientHeight    =   6120
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11160
   LinkTopic       =   "Form6"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   6120
   ScaleWidth      =   11160
   Begin VB.CommandButton Command2 
      Caption         =   "返回"
      Height          =   255
      Left            =   8520
      TabIndex        =   4
      Top             =   120
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   255
      Left            =   6360
      TabIndex        =   3
      Top             =   120
      Width           =   1215
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   3600
      TabIndex        =   1
      Top             =   120
      Width           =   1935
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   735
      Left            =   960
      Top             =   480
      Visible         =   0   'False
      Width           =   1200
      _ExtentX        =   2117
      _ExtentY        =   1296
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   "he"
      Password        =   "he"
      RecordSource    =   ""
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSChart20Lib.MSChart MSChart1 
      Height          =   4695
      Left            =   360
      OleObjectBlob   =   "frmtongji.frx":0000
      TabIndex        =   0
      Top             =   1080
      Width           =   10455
   End
   Begin VB.Label Label1 
      Caption         =   "图形显示方式"
      Height          =   255
      Left            =   1320
      TabIndex        =   2
      Top             =   120
      Width           =   1335
   End
End
Attribute VB_Name = "frmtongji"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public md1 As Integer
Public md2 As Integer
Public md3 As Integer
Public md4 As Integer
Public md5 As Integer
Public md6 As Integer
Public md7 As Integer
Public md8 As Integer
Public md9 As Integer
Public md10 As Integer

Private Sub Command1_Click()
If Combo1.Text = "二维图形" Then
    MSChart1.chartType = VtChChartType2dCombination
End If
If Combo1.Text = "三维图形" Then
    MSChart1.chartType = VtChChartType3dCombination
End If
If Combo1.Text = "饼图" Then
    MSChart1.chartType = VtChChartType2dPie
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
MSChart1.TitleText = "对成绩的分段统计"
Dim x(1 To 6, 1 To 2) As Variant
    x(1, 1) = "高数": x(1, 2) = "英语"
    x(2, 1) = md1: x(2, 2) = md6
    x(3, 1) = md2: x(3, 2) = md7
    x(4, 1) = md3: x(4, 2) = md8
    x(5, 1) = md4: x(5, 2) = md9
    x(6, 1) = md5: x(6, 2) = md10
    MSChart1 = x
    Combo1.AddItem "二维图形"
    Combo1.AddItem "三维图形"
    Combo1.AddItem "饼图"
End Sub