www.pudn.com > opy_LMS.rar > frmGlobal.frm
VERSION 5.00
Begin VB.Form frmGlobal
BorderStyle = 1 'Fixed Single
Caption = "图书馆统计信息"
ClientHeight = 4920
ClientLeft = 45
ClientTop = 330
ClientWidth = 4320
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4920
ScaleWidth = 4320
Begin VB.Frame Frame1
Height = 4335
Left = 0
TabIndex = 0
Top = 480
Width = 4335
Begin VB.TextBox txt_amount
ForeColor = &H00400000&
Height = 285
Left = 2880
Locked = -1 'True
TabIndex = 11
Top = 3840
Width = 1335
End
Begin VB.TextBox txt_finem
ForeColor = &H00400000&
Height = 285
Left = 2880
Locked = -1 'True
TabIndex = 10
Top = 3480
Width = 1335
End
Begin VB.TextBox txt_typebook
ForeColor = &H00400000&
Height = 285
Left = 2880
Locked = -1 'True
TabIndex = 9
Top = 600
Width = 1335
End
Begin VB.TextBox txt_investment
Height = 285
Left = 2880
Locked = -1 'True
TabIndex = 8
Top = 1680
Width = 1335
End
Begin VB.TextBox txt_salary
ForeColor = &H00400000&
Height = 285
Left = 2880
Locked = -1 'True
TabIndex = 7
Top = 3120
Width = 1335
End
Begin VB.TextBox txt_tnemp
ForeColor = &H00400000&
Height = 285
Left = 2880
Locked = -1 'True
TabIndex = 6
Top = 2760
Width = 1335
End
Begin VB.TextBox txt_deposite
ForeColor = &H00400000&
Height = 285
Left = 2880
Locked = -1 'True
TabIndex = 5
Top = 2400
Width = 1335
End
Begin VB.TextBox txt_tnmem
ForeColor = &H00400000&
Height = 285
Left = 2880
Locked = -1 'True
TabIndex = 4
Top = 2040
Width = 1335
End
Begin VB.TextBox txt_issbooks
ForeColor = &H00400000&
Height = 285
Left = 2880
Locked = -1 'True
TabIndex = 3
Top = 1320
Width = 1335
End
Begin VB.TextBox txt_avabooks
ForeColor = &H00400000&
Height = 285
Left = 2880
Locked = -1 'True
TabIndex = 2
Top = 960
Width = 1335
End
Begin VB.TextBox txt_tnbooks
ForeColor = &H00400000&
Height = 285
Left = 2880
Locked = -1 'True
TabIndex = 1
Top = 240
Width = 1335
End
Begin VB.Label lbl_fine
BackStyle = 0 'Transparent
Caption = "罚款总金额"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 120
TabIndex = 22
Top = 3840
Width = 2775
End
Begin VB.Label fine_m
BackStyle = 0 'Transparent
Caption = "罚款次数"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 120
TabIndex = 21
Top = 3480
Width = 2775
End
Begin VB.Label lbl_type
BackStyle = 0 'Transparent
Caption = "书本类型总数"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 120
TabIndex = 20
Top = 600
Width = 2775
End
Begin VB.Label lbl_invest
BackStyle = 0 'Transparent
Caption = "Total book's investments Rs."
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 120
TabIndex = 19
Top = 1680
Width = 2655
End
Begin VB.Label lbl_salary
BackStyle = 0 'Transparent
Caption = "Employees monthly salary Rs."
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 120
TabIndex = 18
Top = 3120
Width = 2775
End
Begin VB.Label lbl_emp
BackStyle = 0 'Transparent
Caption = "Total employees"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 120
TabIndex = 17
Top = 2760
Width = 2775
End
Begin VB.Label lbl_deposite
BackStyle = 0 'Transparent
Caption = "按金总数"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 120
TabIndex = 16
Top = 2400
Width = 2775
End
Begin VB.Label lbl_tmem
BackStyle = 0 'Transparent
Caption = "读者总数"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 120
TabIndex = 15
Top = 2040
Width = 2775
End
Begin VB.Label lbl_isssue
BackStyle = 0 'Transparent
Caption = "借出"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 120
TabIndex = 14
Top = 1320
Width = 2895
End
Begin VB.Label lbl_ava
BackStyle = 0 'Transparent
Caption = "可借"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 120
TabIndex = 13
Top = 960
Width = 2775
End
Begin VB.Label lbl_books
BackStyle = 0 'Transparent
Caption = "书本总数"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 120
TabIndex = 12
Top = 240
Width = 2775
End
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "图书馆管理系统的摘要统计信息。"
Height = 615
Left = 600
TabIndex = 23
Top = 0
Width = 3735
End
Begin VB.Image Image1
Height = 585
Left = 0
Top = 0
Width = 600
End
End
Attribute VB_Name = "frmGlobal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim bookr As ADODB.Recordset
Dim empr As ADODB.Recordset
Dim memr As ADODB.Recordset
Dim finer As ADODB.Recordset
Dim Database As ADODB.Connection
Dim str As String
Private Sub Form_Load()
On Error GoTo errlable
If (view = 1) Then
Me.Top = 50
Me.Left = 50
ElseIf (view = 2) Then
Me.Top = 700
Me.Left = (Screen.Width - Me.Width) / 2
End If
Set Database = New ADODB.Connection
Database.ConnectionString = "DSN=library;UID=sa;PWD=;"
Database.Open
Call updatedata
Call showdata
Exit Sub
errlable:
MsgBox Err.Number & Err.Description
End Sub
Private Sub showdata()
If memr.Fields(0) <> 0 Then
txt_tnmem.Text = memr.Fields(0)
txt_deposite.Text = memr.Fields(1)
Else
txt_tnmem.Text = 0
txt_deposite.Text = 0
End If
If empr.Fields(0) <> 0 Then
txt_tnemp.Text = empr.Fields(0)
txt_salary.Text = empr.Fields(1)
Else
txt_tnemp.Text = 0
txt_salary.Text = 0
End If
If bookr.Fields(4) <> 0 Then
txt_tnbooks.Text = bookr.Fields(0)
txt_avabooks.Text = bookr.Fields(1)
txt_issbooks.Text = bookr.Fields(2)
txt_investment.Text = bookr.Fields(3)
txt_typebook.Text = bookr.Fields(4)
Else
txt_tnbooks.Text = 0
txt_avabooks.Text = 0
txt_issbooks.Text = 0
txt_investment.Text = 0
txt_typebook.Text = 0
End If
If (finer.Fields(0) <> 0) Then
txt_finem.Text = finer.Fields(0)
txt_amount.Text = finer.Fields(1)
Else
txt_finem.Text = 0
txt_amount.Text = 0
End If
End Sub
Private Sub updatedata()
Set bookr = New ADODB.Recordset
str = "select sum(Totalno),sum(Avano),sum(Issno),sum(Price*Totalno),count(*) from Book"
bookr.Open str, Database, adOpenStatic, adLockOptimistic
Set memr = New ADODB.Recordset
str = "select count(*),sum(Deposite) from member"
memr.Open str, Database, adOpenStatic, adLockOptimistic
Set empr = New ADODB.Recordset
str = "select count(*),sum(Salary) from Emptab"
empr.Open str, Database, adOpenStatic, adLockOptimistic
Set finer = New ADODB.Recordset
str = "Select count(*),sum(Fine) from Fine"
finer.Open str, Database, adOpenStatic, adLockOptimistic
End Sub