frm_risepricture.frm

学生信息的管理是学校经常遇到的问题。学生数量的积聚增加和学生认识制度的改革

VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form frm_risepicture 
   BorderStyle     =   0  'None
   Caption         =   "升学率图示"
   ClientHeight    =   4200
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7095
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   280
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   473
   ShowInTaskbar   =   0   'False
   Begin MSChart20Lib.MSChart MSChart1 
      Height          =   3255
      Left            =   510
      OleObjectBlob   =   "frm_risepricture.frx":0000
      TabIndex        =   0
      Top             =   465
      Width           =   6015
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "升学率图示"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   390
      Left            =   540
      TabIndex        =   1
      Top             =   120
      Width           =   1575
   End
   Begin VB.Image imglefttitle 
      Height          =   450
      Left            =   0
      Picture         =   "frm_risepricture.frx":2370
      Top             =   0
      Width           =   450
   End
   Begin VB.Image imgleftbottom 
      Height          =   450
      Left            =   0
      Picture         =   "frm_risepricture.frx":2E7A
      Top             =   3765
      Width           =   450
   End
   Begin VB.Image imgrightbottom 
      Height          =   450
      Left            =   6630
      Picture         =   "frm_risepricture.frx":3984
      Top             =   3765
      Width           =   450
   End
   Begin VB.Image imgbottom 
      Height          =   450
      Left            =   420
      Picture         =   "frm_risepricture.frx":448E
      Stretch         =   -1  'True
      Top             =   3765
      Width           =   6270
   End
   Begin VB.Image imgrightwindow 
      Height          =   3375
      Left            =   6630
      Picture         =   "frm_risepricture.frx":ADD0
      Stretch         =   -1  'True
      Top             =   450
      Width           =   450
   End
   Begin VB.Image imgleftwindow 
      Height          =   3315
      Left            =   15
      Picture         =   "frm_risepricture.frx":F0EA
      Stretch         =   -1  'True
      Top             =   450
      Width           =   465
   End
   Begin VB.Image imgclose 
      Height          =   240
      Left            =   6660
      Picture         =   "frm_risepricture.frx":1269C
      Top             =   90
      Width           =   240
   End
   Begin VB.Image imgrighttitle 
      Height          =   525
      Left            =   6705
      Picture         =   "frm_risepricture.frx":129DE
      Top             =   0
      Width           =   375
   End
   Begin VB.Image imgtop 
      Height          =   450
      Left            =   270
      Picture         =   "frm_risepricture.frx":13484
      Stretch         =   -1  'True
      Top             =   0
      Width           =   6435
   End
End
Attribute VB_Name = "frm_risepicture"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mysem As Cls_Sem
Dim dblPubPercent(3) As Variant
Dim strPubSemName(3) As String

Private Sub Form_Load()

 Dim i As Integer
 Dim X(1 To 3, 1) As Variant
    SetWindow Me
    AlwaysOnTop Me, False

 Move (frm_main.Width - Me.Width) / 2, (frm_main.Height - Me.Height) / 2 - 800
 
 StatsRise
 For i = 1 To 3
   X(i, 1) = dblPubPercent(i - 1)
 Next
 MSChart1 = X
 
 For i = 0 To 2
   MSChart1.Row = i + 1
   MSChart1.RowLabel = strPubSemName(i)
 Next
 
End Sub


Public Sub StatsRise()
  Dim i As Integer
  Dim strTemp As String
  Dim dblStudentNumber(3) As Variant
  Dim dblGraduateStudentNumber(3) As Variant
  Dim j As Integer
  
  Set mysem = New Cls_Sem
  '查询学期编号
  mysem.QuerySemID
  If mysem.GetQrySemID.EOF = False Then
    i = 0
    mysem.GetQrySemID.MoveFirst
    Do Until mysem.GetQrySemID.EOF
      strTemp = Trim(mysem.GetQrySemID.Fields(0))
    
      mysem.PrcSemStudentNumber strTemp
      If mysem.GetPrcSemStudentNumber.EOF = False Then
            j = 0
            Do Until mysem.GetPrcSemStudentNumber.EOF
              j = j + 1
              mysem.GetPrcSemStudentNumber.MoveNext
            Loop
            dblStudentNumber(i) = j
      End If
      
      mysem.PrcSemGraduateStudentNumber strTemp
      If mysem.GetPrcSemGraduateStudentNumber.EOF = False Then
         j = 0
         Do Until mysem.GetPrcSemGraduateStudentNumber.EOF
            j = j + 1
            mysem.GetPrcSemGraduateStudentNumber.MoveNext
         Loop
         dblGraduateStudentNumber(i) = j
      End If
        
      If dblStudentNumber(i) <> 0 Then dblPubPercent(i) = (dblGraduateStudentNumber(i) / dblStudentNumber(i)) * 100
      strPubSemName(i) = mysem.GetQrySemID.Fields(1)
      
      i = i + 1
      mysem.GetQrySemID.MoveNext
    Loop
  End If
  Set mysem = Nothing
  
End Sub
Private Sub imgclose_Click()
    Unload Me
End Sub


Private Sub imglefttitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DrawForms Me
End Sub

Private Sub imgtop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DrawForms Me
End Sub


Private Sub imgrighttitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   DrawForms Me
End Sub