frmreaderselect.frm

这是图书馆管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form FrmReaderSelect 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "读者信息查询"
   ClientHeight    =   4680
   ClientLeft      =   2475
   ClientTop       =   2850
   ClientWidth     =   8070
   ControlBox      =   0   'False
   Icon            =   "FrmReaderSelect.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4680
   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            =   7
      FixedRows       =   2
   End
   Begin VB.CommandButton CancelButton 
      Caption         =   "关闭(&C)"
      Height          =   375
      Left            =   6720
      TabIndex        =   0
      Top             =   4200
      Width           =   1095
   End
End
Attribute VB_Name = "FrmReaderSelect"
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.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
    
    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
        If g_DBRct.Fields(3) = True Then
            MSFlxData.Text = "男"
        Else
            MSFlxData.Text = "女"
        End If
        
        MSFlxData.Col = 5
        If g_DBRct.Fields(4) = True Then
            MSFlxData.Text = "经理"
        Else
            MSFlxData.Text = "职员"
        End If
        
        MSFlxData.Col = 6
        MSFlxData.Text = g_DBRct.Fields(5)

        intindex = intindex + 1
        
        g_DBRct.MoveNext
    Loop            '到记录集结尾
End Sub