result.frm

很好的学习资料

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form resultfrm 
   Caption         =   "选课情况"
   ClientHeight    =   3990
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6450
   LinkTopic       =   "Form1"
   ScaleHeight     =   3990
   ScaleWidth      =   6450
   StartUpPosition =   3  '窗口缺省
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   3975
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   6255
      _ExtentX        =   11033
      _ExtentY        =   7011
      _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 String
        Dim courseRD As Recordset
        Dim i, j As Integer
        Dim courseID As String
    
        '  初始化控件大小和位置
        With MSFlexGrid1
            .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 MSFlexGrid1
                    .Cols = courseRD.Fields.Count - 1
                    .Rows = courseRD.RecordCount + 1
                    courseRD.MoveFirst
                    For i = 0 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 j
                        courseRD.MoveNext
                    Next i
                End With
            End If
        End If
        courseRD.Close
    End Sub
    
    '  调节控件大小
    Private Sub Form_Resize()
      With MSFlexGrid1
           .Top = 0
           .Left = 0
           .width = resultfrm.ScaleWidth
           .Height = resultfrm.ScaleHeight
      End With
    End Sub