resultfrm.frm

学生选课vb‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序

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("请输入课程编号")
  sql = "select  课程编号,课程名称 from 课程  where  课程编号='" & courseID& '"
  Set courseRD = courseDB.OpenRecordset(sql, dbOpenSnapshot, ReadOnly)
  If courseRD.RecordCount = 0 Then
    MsgBox "您输入的课程编号有误", vbOKOnly
    Resultfrm .Hide
    Else
     Resultfrm.Caption = courseRD.Fields("课程名称").Value & "选课情况"
    sql = "SELECT  课程.课程名称,学生信息.学号,学生信息.姓名,学生信息.性别,_学生信息.省份 , 学生信息.专业, 学生信息.出生日期, "

学生信息.年级 ""
        
  sql = sql & "FROM 学生信息 INNER JOIN(课程INNER JOIN 学号课程 ON_课程.课程编号=学号课程.课程编号)ON 学生信息.学号=学号课程."

学号 ""
  sql = sql & "WHERE 学号课程.课程编号='" & 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


'调节控件大小
Private Sub Form_Resize()
     With MSFlexGirdl
     .Top = 0
     .Left = 0
     .width = Resultfrm.ScaleWidth
     .Height = Resultfrm.ScaleHeight
   End With
End Sub