VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form frmTsum 
   Caption         =   "Form1"
   ClientHeight    =   5070
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7200
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5070
   ScaleWidth      =   7200
   Begin MSChart20Lib.MSChart MSChart1 
      Height          =   4455
      Left            =   120
      OleObjectBlob   =   "frmTsum.frx":0000
      TabIndex        =   0
      Top             =   360
      Width           =   6855
   End
End
Attribute VB_Name = "frmTsum"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
dbl
Dim vbtype() As String
Dim sum() As Long
Dim i As Integer
Dim x As Integer
Dim y As Long
Dim StrSQL As String
Dim arr()
StrSQL = "select * from booktype"
Set g_rs = g_db.OpenRecordset(StrSQL)
If Not g_rs.EOF Then
    g_rs.MoveLast
    x = g_rs.RecordCount
Else
    MsgBox "對不起,數據庫已空！", vbExclamation + vbOKOnly, "提示"
    Set g_rs = Nothing
    Exit Sub
End If
ReDim vbtype(1 To x)
ReDim sum(1 To x)

g_rs.MoveFirst

i = 1
Do While Not g_rs.EOF
     vbtype(i) = g_rs!類別代碼
     i = i + 1
     g_rs.MoveNext
Loop
Set g_rs = Nothing

For i = 1 To x
   sum(i) = 0
Next

StrSQL = "select * from bookinfo"
Set g_rs = g_db.OpenRecordset(StrSQL)
If Not g_rs.EOF Then
     g_rs.MoveLast
     y = g_rs.RecordCount
     For i = 1 To x
        g_rs.MoveFirst
        Do While Not g_rs.EOF
             If g_rs!類別代碼 = vbtype(i) Then
                     sum(i) = sum(i) + 1
             End If
             g_rs.MoveNext
        Loop
     Next
Else
     MsgBox "沒有圖書信息！", vbExclamation + vbOKOnly, "提示"
     Set g_rs = Nothing
     Exit Sub
End If
Set g_rs = Nothing
For i = 1 To x
    StrSQL = "select * from booktype where 類別代碼='" & vbtype(i) & "'"
    Set g_rs = g_db.OpenRecordset(StrSQL)
    vbtype(i) = g_rs!書籍類別
    Set g_rs = Nothing
Next

ReDim arr(1 To x, 1 To 2)
For i = 1 To x
     arr(i, 1) = "" & Trim(vbtype(i)) & ""
     arr(i, 2) = sum(i)
Next

MSChart1.Title = "本圖書館共有 " & x & " 類圖書" & "  總藏書量 " & y & " 冊"
MSChart1.ChartData = arr

End Sub

Private Sub form_resize()
MSChart1.Left = 0
MSChart1.Top = 0
MSChart1.Height = Me.ScaleHeight
MSChart1.Width = Me.ScaleWidth

End Sub