?Public Class FrmAddClass

    Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
        If User.Mod1 = "可讀" Then
            MsgBox("您無權寫入記錄！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        If Trim(TxtClassName.Text) = "" Then
            MsgBox("輸入的班級名稱不能為空！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        DBClass.AddClass(Trim(TxtClassName.Text))
        DGVClass.DataSource = DBClass.LoadClass()
    End Sub

    Private Sub FrmAddClass_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DGVClass.DataSource = DBClass.LoadClass()
    End Sub

    
End Class