frmallcompositor.frm

这是图书馆管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form FrmAllCompositor 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "全部排名"
   ClientHeight    =   4650
   ClientLeft      =   2610
   ClientTop       =   2715
   ClientWidth     =   8070
   ControlBox      =   0   'False
   Icon            =   "FrmAllCompositor.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4650
   ScaleWidth      =   8070
   ShowInTaskbar   =   0   'False
   Begin MSFlexGridLib.MSFlexGrid MSFlxData 
      Height          =   3975
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   7815
      _ExtentX        =   13785
      _ExtentY        =   7011
      _Version        =   393216
      Rows            =   3
      Cols            =   8
      FixedRows       =   2
   End
   Begin VB.CommandButton CancelButton 
      Caption         =   "关闭(&C)"
      Height          =   375
      Left            =   6720
      TabIndex        =   0
      Top             =   4200
      Width           =   1095
   End
End
Attribute VB_Name = "FrmAllCompositor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CancelButton_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Call IniGridStyle
    Call LoadDataToGrid
End Sub

Private Sub IniGridStyle()
    Dim intindex As Long
    MSFlxData.MergeCells = flexMergeFree '单元格合并方式是自由合并
    
    MSFlxData.Row = 0
    For intindex = 1 To MSFlxData.Cols - 1
        MSFlxData.Col = intindex        '定位在不同的列
        MSFlxData.Text = "全部排名"
        MSFlxData.ColWidth(intindex) = 1350
        MSFlxData.CellBackColor = &HC0FFFF
    Next intindex
    MSFlxData.MergeRow(0) = True        '根据相同的文本信息合并第一行
    
    MSFlxData.Row = 1                   '第二行数据
    
    '名次、借阅次数、图书编号、图书名称、作者、出版社、价格、类型
    MSFlxData.Col = 0
    MSFlxData.Text = "名次"
    MSFlxData.CellBackColor = RGB(255, 255, 255)
    MSFlxData.Col = 1
    MSFlxData.Text = "借阅次数"
    MSFlxData.CellBackColor = RGB(255, 255, 255)
    MSFlxData.Col = 2
    MSFlxData.Text = "图书编号"
    MSFlxData.CellBackColor = RGB(255, 255, 255)
    MSFlxData.Col = 3
    MSFlxData.Text = "图书名称"
    MSFlxData.CellBackColor = RGB(255, 255, 255)
    MSFlxData.Col = 4
    MSFlxData.Text = "作者"
    MSFlxData.CellBackColor = RGB(255, 255, 255)
    MSFlxData.Col = 5
    MSFlxData.Text = "出版社"
    MSFlxData.CellBackColor = RGB(255, 255, 255)
    MSFlxData.Col = 6
    MSFlxData.Text = "价格"
    MSFlxData.CellBackColor = RGB(255, 255, 255)
    MSFlxData.Col = 7
    MSFlxData.Text = "类型"
    MSFlxData.CellBackColor = RGB(255, 255, 255)
    
    MSFlxData.Row = 2
    For intindex = 1 To MSFlxData.Cols - 1
        MSFlxData.Col = intindex
        MSFlxData.Text = " "
    Next intindex
    MSFlxData.MergeRow(2) = True
End Sub


Private Sub LoadDataToGrid()    '读取数据库中所有的数据，并显示在MSFlexGrid中
    Dim intindex As Long
    Dim strSQL As String        '查询的SQL语句
    strSQL = "select BorrowDegree,BookIndex,BookName,Author,Publish,Price,Types" & _
            " from BookMessage order by BorrowDegree desc,BookIndex"
    If QueryEmpInfo(strSQL) = False Then        '如果查询出错退出LoadDataToGrid函数
        Exit Sub
    End If
    If g_DBRct.BOF = True And g_DBRct.EOF = True Then   '如果无数据，提示信息，退出LoadDataToGrid函数
        MsgBox "无符合查找条件的记录", vbOKOnly, "无记录"
        Exit Sub
    End If
    
    intindex = 1

    Do While Not g_DBRct.EOF
        MSFlxData.AddItem Empty             '增加一行
        MSFlxData.Row = MSFlxData.Rows - 1  '定位在当前行进行操作
        MSFlxData.Col = 0                   '第一列显示序号，1、2、3、4、5...
        MSFlxData.Text = intindex
        
        MSFlxData.Col = 1
        MSFlxData.Text = g_DBRct.Fields(0)

        MSFlxData.Col = 2
        MSFlxData.Text = g_DBRct.Fields(1)

        MSFlxData.Col = 3
        MSFlxData.Text = g_DBRct.Fields(2)

        MSFlxData.Col = 4
        MSFlxData.Text = g_DBRct.Fields(3)

        MSFlxData.Col = 5
        MSFlxData.Text = g_DBRct.Fields(4)
        
        MSFlxData.Col = 6
        MSFlxData.Text = g_DBRct.Fields(5)
        
        MSFlxData.Col = 7
        MSFlxData.Text = g_DBRct.Fields(6)
        
        intindex = intindex + 1
        
        g_DBRct.MoveNext
    Loop            '到记录集结尾
End Sub


Private Sub MSFlxData_Click()

End Sub