frmtj.frm

图书馆管理系统

            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   375
         Left            =   1080
         Locked          =   -1  'True
         TabIndex        =   8
         Top             =   240
         Width           =   1575
      End
      Begin VB.Label Label7 
         Caption         =   "册"
         Height          =   255
         Left            =   6360
         TabIndex        =   12
         Top             =   360
         Width           =   375
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "还书量："
         Height          =   180
         Left            =   3840
         TabIndex        =   10
         Top             =   360
         Width           =   720
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "册"
         Height          =   180
         Left            =   2760
         TabIndex        =   9
         Top             =   360
         Width           =   180
      End
      Begin VB.Label Label4 
         Caption         =   "借书量："
         Height          =   255
         Left            =   240
         TabIndex        =   7
         Top             =   360
         Width           =   735
      End
   End
   Begin VB.Frame Frame1 
      Height          =   975
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   7215
      Begin MSComCtl2.DTPicker DTPicker2 
         Height          =   375
         Left            =   4200
         TabIndex        =   4
         Top             =   360
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   661
         _Version        =   393216
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Format          =   52232193
         CurrentDate     =   38177
      End
      Begin MSComCtl2.DTPicker DTPicker1 
         Height          =   375
         Left            =   1200
         TabIndex        =   1
         Top             =   360
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   661
         _Version        =   393216
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Format          =   52232193
         CurrentDate     =   38177
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "开始统计"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   6120
         TabIndex        =   5
         Top             =   480
         Width           =   840
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "结束时间："
         Height          =   180
         Left            =   3120
         TabIndex        =   3
         Top             =   480
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "开始时间："
         Height          =   180
         Left            =   240
         TabIndex        =   2
         Top             =   480
         Width           =   900
      End
   End
End
Attribute VB_Name = "frmTJ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit



Private Sub Form_Load()
dbl
Height = 1700                              '设置form的高
DTPicker1.Value = Now
DTPicker2.Value = Now
End Sub


Private Sub form_mousemove(button As Integer, shift As Integer, x As Single, y As Single)   '鼠标效果
Label3.ForeColor = &H0&
End Sub


Private Sub label3_mousemove(button As Integer, shift As Integer, x As Single, y As Single)
Label3.ForeColor = &HFF&
End Sub

Private Sub label3_click()
On Error Resume Next
Dim StrSQL As String
Dim book() As String              '申明动态数组
Dim sum() As Long
Dim i As Long
Dim x As Long
Dim y As Long
Dim z As Integer
StrSQL = "select * from bookinfo"
Set g_rs = g_db.OpenRecordset(StrSQL)
If Not g_rs.EOF Then
    g_rs.MoveLast                 '指针移动到最后,获得数据个数
    x = g_rs.RecordCount
Else
   Set g_rs = Nothing
   MsgBox "对不起，数据库中没有数据！", vbExclamation + vbOKOnly, "提示"
   Exit Sub
End If
   ReDim book(x)                 '给动态数组赋值
   ReDim sum(x)
For i = 1 To x                   '设置数组sum()的组员值为0
   sum(i) = 0
Next
g_rs.MoveFirst
i = 1
Do While Not g_rs.EOF
   book(i) = g_rs!书籍编号          '给数组book()赋值
   i = i + 1
   g_rs.MoveNext
Loop
Set g_rs = Nothing
    
StrSQL = "select * from lentinfo where 借书日期>= #" & CStr(CDate(DTPicker1.Value) - 1) & "# and 借书日期<= #" & DTPicker2.Value & "#"
Set g_rs = g_db.OpenRecordset(StrSQL)
If Not g_rs.EOF Then
   g_rs.MoveLast
   Text1.Text = g_rs.RecordCount
Else
   Text1.Text = "0"
End If
For i = 1 To x
    g_rs.MoveFirst
    Do While Not g_rs.EOF
        If g_rs!书籍编号 = book(i) Then
            sum(i) = sum(i) + 1                 '取得sum()的值
        End If
        g_rs.MoveNext
    Loop
Next

Set g_rs = Nothing

StrSQL = "select * from lentinfo where 还书日期>= #" & CStr(CDate(DTPicker1.Value) - 1) & "# and 还书日期<= #" & DTPicker2.Value & "#"
Set g_rs = g_db.OpenRecordset(StrSQL)
If Not g_rs.EOF Then
     g_rs.MoveLast
     Text2.Text = g_rs.RecordCount
Else
     Text2.Text = "0"
End If
Set g_rs = Nothing
z = 0
For y = 10000 To 0 Step -1                    '设置一个定值,由大到小循环,取得book()的数组排列
     i = 1
    If z >= 10 Then
     Exit For
    End If
     Do While i <= x
        If y = sum(i) Then
           LabNum(z).Caption = Format$(book(i), "@@@@@@@") & "  借出次数： " & sum(i) & " 次"
           z = z + 1
        End If
        i = i + 1
     Loop

Next
frmTJ.Height = 4800                          '设置form高度
End Sub