writetask.aspx.vb

毕业设计+图书管理系统+源码 需要的人下载。


Partial Class Teacher_WriteTask
    Inherits System.Web.UI.Page

    Protected Sub 发布任务书_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles 发布任务书.Click
        Dim task1 As New Task
        task1.TaskNO = code.Text
        task1.DirectorteacherNO = Teacode.Text
        task1.SubjectNO = subjectcode.Text
        task1.Taskplan = mainplan.Text
        task1.Maingoal = maingoal.Text
        task1.Require = taskrequire.Text
        task1.Referencebook = referbook.Text
        If (task1.Submittask() = True) Then
            display.Visible = True
        Else
            display.Visible = True
            display.Text = "发布失败，请重试"
        End If

    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