frmtop10.frm

实现某班级的图书信息管理

VERSION 5.00
Begin VB.Form FrmTop10 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "排名"
   ClientHeight    =   4650
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6780
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4650
   ScaleWidth      =   6780
   Begin VB.Data DataArrange 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   1320
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   3480
      Visible         =   0   'False
      Width           =   2175
   End
   Begin VB.TextBox TxtBA 
      BackColor       =   &H8000000A&
      Height          =   375
      Index           =   0
      Left            =   360
      TabIndex        =   0
      Top             =   600
      Width           =   1210
   End
   Begin VB.Label Label4 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "借阅次数"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5169
      TabIndex        =   4
      Top             =   240
      Width           =   1215
   End
   Begin VB.Label Label3 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "出版社"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3975
      TabIndex        =   3
      Top             =   240
      Width           =   1215
   End
   Begin VB.Label Label2 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "书名"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1560
      TabIndex        =   2
      Top             =   240
      Width           =   2430
   End
   Begin VB.Label Label1 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "入库时间"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   360
      TabIndex        =   1
      Top             =   240
      Width           =   1215
   End
End
Attribute VB_Name = "FrmTop10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

 '************************************************************************
     '本窗本用于受欢迎10大书排名
 '*************************************************************************
Option Explicit

Private Sub Form_Activate()
    Dim i, j As Integer
    Dim rsArrange As Recordset
    
    DataArrange.RecordSource = "SELECT TOP 10 jointime , bookname, publish,count(borrowmessage.bookindex) AS BTimes" _
    & "  From bookmessage, borrowmessage " _
    & "  Where bookmessage.bookindex = borrowmessage.bookindex " _
    & "  GROUP BY bookname, publish, jointime " _
    & "  ORDER BY  count(borrowmessage.bookindex) DESC;"

    DataArrange.Refresh
    Set rsArrange = DataArrange.Recordset
    
    If rsArrange.RecordCount > 0 Then
        
        For i = 0 To 39
           
           If i Mod 4 = 0 And i > 3 Then
                   j = 0
                rsArrange.MoveNext
                
                If rsArrange.EOF Then
                     rsArrange.MoveLast
                     Exit Sub
                End If
                
           End If
           
           TxtBA(i).Text = rsArrange.Fields(j)
           j = j + 1
         
       Next
    End If
    
End Sub

Private Sub Form_Load()
    
    Dim i, j As Integer
    Dim PosLeft As Integer
    Dim PosTop As Integer
    
    PosTop = TxtBA(0).Top
    PosLeft = TxtBA(0).Left
    
    Me.Left = (Screen.Width - Me.ScaleWidth) * 1 / 2
    Me.Top = (Screen.Height - Me.ScaleHeight) * 1 / 2
    
    For i = 1 To 39
        Load TxtBA(i)
        If i < 4 Then
            TxtBA(i).BackColor = &H8000000A
        End If
        If (i - 1) Mod 4 = 0 Then
            TxtBA(i).Width = TxtBA(0).Width * 2
        
        End If
        If i Mod 4 = 0 Then
            TxtBA(i).Left = PosLeft
            TxtBA(i).Top = TxtBA(i - 1).Top + TxtBA(0).Height
            TxtBA(i).Visible = True
            
        Else
            TxtBA(i).Left = TxtBA(i - 1).Left + TxtBA(i - 1).Width
            TxtBA(i).Top = TxtBA(i - 1).Top
            TxtBA(i).Visible = True
           
        End If
        
    Next
    
    InitializeDataPath
    DataArrange.DatabaseName = DataPath
    
End Sub