?? frmtsum.frm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -