maintainsubject.aspx.vb

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


Partial Class Administrator_MaintainSubject
    Inherits System.Web.UI.Page

    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        txtSubjectNo.Text = ""
        txtSubjectTitle.Text = ""
        txtDirector.Text = ""
        txtSuperisor.Text = ""
        txtStudent.Text = ""
    End Sub

    Protected Sub btnSure_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSure.Click
        Dim newsubject As New Subject
       
        With newsubject
            .SubjectNo = txtSubjectNo.Text
            .SubjectTitle = txtSubjectTitle.Text
            .Year = System.DateTime.Today.Year.ToString
            .DirectorTeacherNo = txtDirector.Text
            .SubjectType = ddlType.Text
        End With
        Select Case ddlType.Text
            Case "校外"
                newsubject.SupervisorTeacherNo = txtSuperisor.Text
                newsubject.StudentNo = txtStudent.Text
                newsubject.SubmitOutSubject()
            Case "校内"
                newsubject.SubmitSubject()
        End Select

    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