module1.bas

实现学生成绩管理一个很好的vb实例可用作课程设计

Attribute VB_Name = "Module1"
Option Explicit
Public db As Database                   '数据库变量
Public recset As Recordset              '记录集变量
Public recmajor As Recordset
Public recschool As Recordset
Public strPassword As String            '数据库密码

Public Function GetSchool(n As Integer) As String   '由院系代号得到院系名称
    recschool.MoveFirst
    Do While Not recschool.EOF
        If recschool!代号 = n Then
            GetSchool = recschool!名称
            Exit Function
        Else
            recschool.MoveNext
        End If
    Loop
End Function
Public Function GetMajor(n As Integer, m As Integer) As String   '由院系代号和专业代号得到专业名称
    recmajor.MoveFirst
    Do While Not recmajor.EOF
        If recmajor!代号 = n And recmajor!院系 = m Then
            GetMajor = recmajor!名称
            Exit Function
        Else
            recmajor.MoveNext
        End If
    Loop
End Function

Public Function GetMajorNum(s As String, m As Integer) As Integer '由专业名称和院系代号得到专业代号
    recmajor.MoveFirst
    Do While Not recmajor.EOF
        If recmajor!名称 = s And recmajor!院系 = m Then
            GetMajorNum = recmajor!代号
            Exit Function
        Else
            recmajor.MoveNext
        End If
    Loop
End Function