frmmarkexit.frm

网上教务管理系统 包括（教师

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form FRMMARKEXIT 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "已经生成的班级成绩库"
   ClientHeight    =   6435
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4815
   Icon            =   "FRMMARKEXIT.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6435
   ScaleWidth      =   4815
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin MSFlexGridLib.MSFlexGrid MS 
      Height          =   5925
      Left            =   60
      TabIndex        =   1
      Top             =   30
      Width           =   4665
      _ExtentX        =   8229
      _ExtentY        =   10451
      _Version        =   327680
      Rows            =   200
      Cols            =   4
      FixedCols       =   0
      AllowUserResizing=   3
   End
   Begin VB.CommandButton Command1 
      Caption         =   "返回"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3540
      TabIndex        =   0
      Top             =   6000
      Width           =   945
   End
End
Attribute VB_Name = "FRMMARKEXIT"
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()
Dim DAT As Database
Dim REC As Recordset
Set DAT = OpenDatabase(App.Path + "\DATABASE\MARK.MDB", , False)
Set REC = DAT.OpenRecordset("SELECT * FROM BANJGL", dbOpenDynaset)
Dim I As Integer
Dim N As Integer
REC.MoveLast
REC.MoveFirst
N = REC.RecordCount

With FRMMARKEXIT.MS
  
  .Row = 0
  .col = 0
  '.ColWidth(0) = 1400
  .Text = "序号"
  .col = 1
  '.ColWidth(1) = 1400
  .Text = "班级名称"
  .col = 2
  '.ColWidth(2) = 1400
  .Text = "人数"
  .col = 3
   .Text = "院系"
  REC.MoveFirst
  For I = 1 To N
    
    .Row = I
    .col = 0
    .ColWidth(0) = 500
    .Text = REC.Fields(0).Value
    .col = 1
    .ColWidth(1) = 1500
    .Text = REC.Fields(1).Value
    .col = 2
    .ColWidth(2) = 600
    .Text = REC.Fields(2).Value
    .col = 3
    .ColWidth(3) = 1700
    .Text = REC.Fields(3).Value
    
    If Not REC.EOF Then REC.MoveNext
  Next I
End With
End Sub