计算机毕业设计毕业课题维护功能介绍：
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页为计算机毕业论文学生选题模块介绍......