submitsubject.aspx.vb

来自「毕业设计+图书管理系统+源码 需要的人下载。」· VB 代码 · 共 22 行


Partial Class Teacher_SubmitSubject
    Inherits System.Web.UI.Page

    Protected Sub OK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OK.Click

        Dim subjectnew As New Subject
        subjectnew.SubjectNo = subcode.Text
        subjectnew.SubjectTitle = subtitle.Text
        subjectnew.DirectorTeacherNo = teachercode.Text
        subjectnew.Year = System.DateTime.Today.Year.ToString
        subjectnew.SubjectType = "校内课题"
        subjectnew.SubmitSubject()
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("role") = "教师" Then
        Else
            Response.Redirect("~/Default.aspx")
        End If
    End Sub
End Class