frmcheckstuent_class.vb

通用学籍管理软件 vb开发access数据库的实例

Public Class FrmCheckStuent_Class

    Private Sub FrmCheckStuent_Class_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ComboClass.DataSource = DBClass.LoadClass
        Me.ComboClass.DisplayMember = "班级名称"
        Me.ComboClass.SelectedIndex = 0
    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        DGVResult.DataSource = DBStudent.LoadStudent("ClassName", ComboClass.Text, "")
    End Sub
End Class