frmstat.frm

这是一个图书馆管理系统网络版

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form FrmStat 
   BackColor       =   &H00FFC0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "图书借阅排行"
   ClientHeight    =   5550
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   10740
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   5550
   ScaleWidth      =   10740
   Begin MSComctlLib.ListView LvTop 
      Height          =   3615
      Left            =   240
      TabIndex        =   5
      Top             =   1320
      Width           =   10335
      _ExtentX        =   18230
      _ExtentY        =   6376
      View            =   3
      Arrange         =   2
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      FullRowSelect   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   2
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "排名"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Text            =   "图书详细信息"
         Object.Width           =   2540
      EndProperty
   End
   Begin VB.TextBox TextTopNum 
      Height          =   375
      Left            =   2760
      TabIndex        =   4
      Top             =   240
      Width           =   2775
   End
   Begin VB.CommandButton CmdTop 
      Caption         =   "开始查询"
      Default         =   -1  'True
      Height          =   375
      Left            =   6360
      TabIndex        =   2
      Top             =   240
      Width           =   1335
   End
   Begin VB.CommandButton CmdCancel 
      Cancel          =   -1  'True
      Caption         =   "返回"
      Height          =   375
      Left            =   9240
      TabIndex        =   0
      Top             =   5040
      Width           =   1215
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "图书借阅排名数目："
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   240
      TabIndex        =   3
      Top             =   240
      Width           =   2415
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "图书借阅次数排名："
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   240
      TabIndex        =   1
      Top             =   840
      Width           =   2415
   End
End
Attribute VB_Name = "FrmStat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCancel_Click()   '取消
    Unload Me
End Sub

'查询图书借阅排名
Private Sub CmdTop_Click()
Dim str As String
    '检验输入内容
    If Len(Trim(Me.TextTopNum.Text)) <= 0 Then
        MsgBox "请输入排名数目！"
        Exit Sub
    ElseIf Val(Me.TextTopNum.Text) > 100 Or Val(Me.TextTopNum.Text) <= 0 Then
        MsgBox "排名数目必须为整数且不能超过100！"
        Exit Sub
    End If
    '生成要发送的数据 = Stat，Stat_Num
    str = "Stat," & Val(Me.TextTopNum.Text)
    '检验sock连接并向服务器发送数据
    If MDIFrm.SockToSvr.State <> sckConnected Then
        MsgBox "还没有连接数据库，不能发送请求！"
        Exit Sub
    End If
    MDIFrm.SockToSvr.SendData str
End Sub

Private Sub Form_Load()
    Me.LvTop.ColumnHeaders(1).Width = Me.LvTop.Width / 12
    Me.LvTop.ColumnHeaders(2).Width = Me.LvTop.Width * 11 / 12
End Sub