frmcj4.frm

CS 课 程 设 计——— 学生信息管理系统（SIMS） 使用VB+ACCESS编写

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form 成绩查询结果 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "成绩查询结果"
   ClientHeight    =   6660
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   11130
   LinkTopic       =   "Form1"
   ScaleHeight     =   6660
   ScaleWidth      =   11130
   StartUpPosition =   3  '窗口缺省
   Begin MSFlexGridLib.MSFlexGrid MSF1 
      Height          =   6495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   10935
      _ExtentX        =   19288
      _ExtentY        =   11456
      _Version        =   393216
      Cols            =   8
      AllowUserResizing=   3
   End
End
Attribute VB_Name = "成绩查询结果"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public selectstr As String

Private Sub Form_Load()
   MSF1.TextMatrix(0, 1) = "学号"
   MSF1.TextMatrix(0, 2) = "姓名"
   MSF1.TextMatrix(0, 3) = "班级"
   MSF1.TextMatrix(0, 4) = "学期"
   MSF1.TextMatrix(0, 5) = "类型"
   MSF1.TextMatrix(0, 6) = "课程名称"
   MSF1.TextMatrix(0, 7) = "分数"
   'MSF1.ColWidth(1) = 150
  ' MSF1.ColWidth(2) = 150
  ' MSF1.ColWidth(3) = 150
   MSF1.ColWidth(4) = 2300
  ' MSF1.ColWidth(5) = 150
  ' MSF1.ColWidth(6) = 150
   'MSF1.ColWidth(7) = 150
   
Dim mrc As ADODB.Recordset
Dim i As Integer

Set mrc = ExecuteSQL(selectstr)

 MSF1.Rows = mrc.RecordCount + 2
 MSF1.Row = 1
 mrc.MoveFirst
 For i = 1 To mrc.RecordCount
 MSF1.TextMatrix(MSF1.Row, 1) = mrc.Fields(0)
 MSF1.TextMatrix(MSF1.Row, 2) = mrc.Fields(1)
 MSF1.TextMatrix(MSF1.Row, 3) = mrc.Fields(2)
 MSF1.TextMatrix(MSF1.Row, 4) = mrc.Fields(3)
 MSF1.TextMatrix(MSF1.Row, 5) = mrc.Fields(4)
 MSF1.TextMatrix(MSF1.Row, 6) = mrc.Fields(5)
 MSF1.TextMatrix(MSF1.Row, 7) = mrc.Fields(6)
 mrc.MoveNext
 If MSF1.Row <= mrc.RecordCount + 1 Then
 MSF1.Row = MSF1.Row + 1
 End If
 
 Next i
 
End Sub