VB.NET学生毕业生答辩管理系统(11)

来源:xiaoniu168.com 作者:本站原创 添加时间:2011-11-01 点击数:29756

计算机毕业设计毕业课题维护功能介绍:

1. ByKtList(毕业课题维护)
此模块用于教师登陆系统后,维护自己的课题信息,添加时判断毕业课题名称是否为空、重复,删除时判断当前的课题是否已经选择。如图:
计算机毕业论文

以下是引用片段:

相关代码如下:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not Page.IsPostBack Then
            If Session("ID") <> Nothing Then
                '显示毕业课题列表
                Dim cnn As New Sql2000DB
                Me.DataGrid1.DataSource = cnn.GetData("select * from Send_TeacherTM where Jsh='" & Session("ID") & "'")
                Me.DataGrid1.DataBind()
                Me.txtbj.Text = ""
            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '判断信息是否正确
        If Me.txtbj.Text = "" Then
            Response.
            Exit Sub
        End If
        Dim cnn As New Sql2000DB
        If cnn.GetData("select * from Send_TeacherTM where tmmc ='" & Me.txtbj.Text & "' ").Rows.Count > 0 Then
            Response.
            Exit Sub
        End If
        '添加新的毕业题目信息
        cnn.SetData("insert into Send_TeacherTM(tmmc,jsh) values('" & Me.txtbj.Text & "','" & Session("Id") & "')")
        Me.txtbj.Text = ""
        Me.DataGrid1.DataSource = cnn.GetData("select * from Send_TeacherTM where Jsh='" & Session("ID") & "'")
        Me.DataGrid1.DataBind()
    End Sub

〖资料来源:计算机毕业论文 www.xiaoniu168.com

第12页为计算机毕业论文学生选题模块介绍......

【联系方式】

【本站信誉】

用心做计算机毕业设计论文网