📄 frm_stat.frm
字号:
VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form frm_Stat
BorderStyle = 1 'Fixed Single
Caption = "数据统计"
ClientHeight = 5010
ClientLeft = 2940
ClientTop = 1485
ClientWidth = 7770
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5010
ScaleWidth = 7770
Begin VB.Frame Frame1
Height = 3975
Left = 0
TabIndex = 11
Top = 1035
Width = 7755
Begin VB.CommandButton cmdBook
Caption = "显示库存情况"
Height = 375
Left = 5355
TabIndex = 16
Top = 3510
Width = 1275
End
Begin VB.CommandButton cmdReader
Caption = "显示读者情况"
Height = 375
Left = 3285
TabIndex = 15
Top = 3510
Width = 1275
End
Begin VB.CommandButton cmdBorrow
Caption = "显示借阅情况"
Height = 375
Left = 1215
TabIndex = 14
Top = 3510
Width = 1275
End
Begin VB.Frame Frame2
Height = 3255
Left = 135
TabIndex = 12
Top = 135
Width = 7485
Begin MSChart20Lib.MSChart MSChart1
Height = 2985
Left = 90
OleObjectBlob = "frm_Stat.frx":0000
TabIndex = 13
Top = 180
Width = 7305
End
End
End
Begin VB.Frame Frame4
Height = 1050
Left = 0
TabIndex = 0
Top = -45
Width = 7755
Begin VB.CommandButton cmdExit
Caption = "关闭"
Height = 330
Left = 6480
TabIndex = 10
Top = 630
Width = 1050
End
Begin VB.CommandButton cmdStat
Caption = "统计"
Height = 330
Left = 6480
TabIndex = 9
Top = 225
Width = 1050
End
Begin VB.Label lblReaderAll
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "00"
ForeColor = &H80000008&
Height = 180
Left = 5235
TabIndex = 8
Top = 630
Width = 180
End
Begin VB.Label Label7
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "注册读者总数"
ForeColor = &H80000008&
Height = 210
Left = 4770
TabIndex = 7
Top = 360
Width = 1110
End
Begin VB.Label lblBookReal
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "00"
ForeColor = &H80000008&
Height = 180
Left = 3705
TabIndex = 6
Top = 630
Width = 180
End
Begin VB.Label Label5
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "现库存本数"
ForeColor = &H80000008&
Height = 210
Left = 3315
TabIndex = 5
Top = 360
Width = 930
End
Begin VB.Label lblBookBorrow
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "00"
ForeColor = &H80000008&
Height = 180
Left = 2265
TabIndex = 4
Top = 630
Width = 180
End
Begin VB.Label Label3
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "已借出本数"
ForeColor = &H80000008&
Height = 210
Left = 1860
TabIndex = 3
Top = 360
Width = 930
End
Begin VB.Label lblBookAll
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "00"
ForeColor = &H80000008&
Height = 180
Left = 690
TabIndex = 2
Top = 630
Width = 180
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "库存图书总数"
ForeColor = &H80000008&
Height = 210
Left = 225
TabIndex = 1
Top = 360
Width = 1110
End
End
End
Attribute VB_Name = "frm_Stat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdStat_Click()
Dim rsR As New classStat
lblBookAll.Caption = rsR.statSum("BookInfo", "数量")
lblBookBorrow.Caption = rsR.statSum("BookInfo", "借出本数")
lblBookReal.Caption = Str(Val(lblBookAll.Caption) - Val(lblBookBorrow.Caption))
lblReaderAll.Caption = rsR.statCount("ReaderInfo", "姓名")
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -