form8.frm

VB+Access写的学生选学系统,并进行了改善,可以自由设置多种选项.

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form8 
   Caption         =   "教师信息"
   ClientHeight    =   5085
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7065
   LinkTopic       =   "Form8"
   ScaleHeight     =   5085
   ScaleWidth      =   7065
   StartUpPosition =   3  '窗口缺省
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   1800
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   4560
      Visible         =   0   'False
      Width           =   3255
   End
   Begin VB.CommandButton Command2 
      Caption         =   "返回"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3840
      TabIndex        =   2
      Top             =   3840
      Width           =   1575
   End
   Begin VB.CommandButton Command1 
      Caption         =   "显示教师信息"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1440
      TabIndex        =   1
      Top             =   3840
      Width           =   1575
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   3015
      Left            =   960
      TabIndex        =   0
      Top             =   360
      Width           =   5295
      _ExtentX        =   9340
      _ExtentY        =   5318
      _Version        =   393216
      Cols            =   4
      GridLines       =   2
   End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    '连接数据库并定义行列变量
    
    Dim sNum As Long
    Dim hNum As Long
    Data1.DatabaseName = App.Path & "\db1.mdb"
    Data1.RecordSource = "select * from 课程信息"
    Data1.Refresh
    
    '统计出指定的行数
    If Not Data1.Recordset.EOF Then
        Data1.Recordset.MoveLast
        MSFlexGrid1.Rows = Data1.Recordset.RecordCount + 1
        Data1.Recordset.MoveFirst
    Else
        MSFlexGrid1.Rows = 1
    End If
        
    '将数据库中的记录写入指定的行中
    For sNum = 1 To Data1.Recordset.RecordCount
        MSFlexGrid1.Row = sNum
     For hNum = 0 To 3
        MSFlexGrid1.Col = hNum
        Select Case hNum
        Case 0
          MSFlexGrid1.Text = Data1.Recordset.Fields("课程号")
        Case 1
          MSFlexGrid1.Text = Data1.Recordset.Fields("课程名")
        Case 2
          MSFlexGrid1.Text = Data1.Recordset.Fields("任课老师")
        Case 3
          MSFlexGrid1.Text = Data1.Recordset.Fields("学分")
        End Select
     Next hNum
        Data1.Recordset.MoveNext
    Next sNum
End Sub

Private Sub Command2_Click()
Form5.Show
Unload Me
End Sub