VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Resultfrm 
   Caption         =   "選課情況"
   ClientHeight    =   5340
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7050
   LinkTopic       =   "Form1"
   ScaleHeight     =   5340
   ScaleWidth      =   7050
   StartUpPosition =   3  '窗口缺省
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid 
      Height          =   4815
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6975
      _ExtentX        =   12303
      _ExtentY        =   8493
      _Version        =   393216
      FixedCols       =   0
   End
End
Attribute VB_Name = "Resultfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
    Dim sqlstr As Recordset
    Dim i, j As Integer
    Dim courseID As String

'初始化控件大小和位置
With MSFlexGridl
  .Top = 0
  .Left = 0
  .width = Resultfrm.ScaleWidth
  .Height = Resultfrm.ScaleHeight
  End With
  courseID = InputBox("請(qǐng)輸入課程編號(hào)")
  sql = "select  課程編號(hào),課程名稱 from 課程  where  課程編號(hào)='" & courseID& '"
  Set courseRD = courseDB.OpenRecordset(sql, dbOpenSnapshot, ReadOnly)
  If courseRD.RecordCount = 0 Then
    MsgBox "您輸入的課程編號(hào)有誤", vbOKOnly
    Resultfrm .Hide
    Else
     Resultfrm.Caption = courseRD.Fields("課程名稱").Value & "選課情況"
    sql = "SELECT  課程.課程名稱,學(xué)生信息.學(xué)號(hào),學(xué)生信息.姓名,學(xué)生信息.性別,_學(xué)生信息.省份 , 學(xué)生信息.專業(yè), 學(xué)生信息.出生日期, "

學(xué)生信息.年級(jí) ""
        
  sql = sql & "FROM 學(xué)生信息 INNER JOIN(課程INNER JOIN 學(xué)號(hào)課程 ON_課程.課程編號(hào)=學(xué)號(hào)課程.課程編號(hào))ON 學(xué)生信息.學(xué)號(hào)=學(xué)號(hào)課程."

學(xué)號(hào) ""
  sql = sql & "WHERE 學(xué)號(hào)課程.課程編號(hào)='" & courseID& '""
  Set courseRD = courseDB.OpenRecordset(sql, dbOpenSnapshot, ReadOnly)
  courseRD.MoveLast
  If courseRD.RecordCount > 0 Then
    With MSFlexGridl
      .Cols = courseRD.Fields.Count - 1
      .Rows = courseRD.RecordCount + 1
    courseRD.MoveFirst
            For i = 1 To .Cols - 1
                   .TextMatrix(0, i) = courseRD.Fields(i + 1).Name
            Next i
            For i = 1 To .Rows - 1
                  For j = 0 To .Cols - 1
                  .TextMatrix(i, j) = courseRD.Fields(j + 1).Value
            Next i
          End With
      End If
    End If
    courseRD.Close
End Sub


'調(diào)節(jié)控件大小
Private Sub Form_Resize()
     With MSFlexGirdl
     .Top = 0
     .Left = 0
     .width = Resultfrm.ScaleWidth
     .Height = Resultfrm.ScaleHeight
   End With
End Sub