frmynmoney.frm

图书管理系统 欢迎大家来使用 谢谢!

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form FrmYnmoney 
   Caption         =   "Form1"
   ClientHeight    =   3750
   ClientLeft      =   60
   ClientTop       =   465
   ClientWidth     =   7485
   LinkTopic       =   "Form1"
   ScaleHeight     =   3750
   ScaleWidth      =   7485
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "返  回"
      Height          =   495
      Left            =   5520
      TabIndex        =   1
      Top             =   3000
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   2175
      Left            =   360
      TabIndex        =   0
      Top             =   720
      Width           =   6615
      _ExtentX        =   11668
      _ExtentY        =   3836
      _Version        =   393216
   End
End
Attribute VB_Name = "FrmYnmoney"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
MSFlexGrid1.Rows = 15
MSFlexGrid1.Cols = 5
Me.MSFlexGrid1.TextMatrix(0, 0) = "书籍编号"
MSFlexGrid1.ColWidth(0) = 942
Me.MSFlexGrid1.TextMatrix(0, 1) = "书籍名称"
MSFlexGrid1.ColWidth(2) = 1242
MSFlexGrid1.ColWidth(1) = 1142
Me.MSFlexGrid1.TextMatrix(0, 2) = "类别"

MSFlexGrid1.ColWidth(3) = 1000
Me.MSFlexGrid1.TextMatrix(0, 3) = "延迟天数"
MSFlexGrid1.ColWidth(4) = 1588
Me.MSFlexGrid1.TextMatrix(0, 4) = "欠费"

Open_book_money
x = 1
Do While cnn.EOF = False

          If cnn.EOF = True Then
                Exit Do
          End If
           
    For i = 0 To 4
            Me.MSFlexGrid1.TextMatrix(x, i) = Trim(cnn.Fields(i + 1).Value)
      
     Next i
       
           x = x + 1
        
           cnn.MoveNext

Loop
End Sub