answerteam.vb

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

Imports Microsoft.VisualBasic

Public Class AnswerTeam
#Region "属性"
    Dim AnswerTeamNoValue, TeamLeaderValue, TeacherNoValue As String
    Public Property AnswerTeamNO() '答辩小组编号
        Get
            Return AnswerTeamNoValue
        End Get
        Set(ByVal value)
            AnswerTeamNoValue = value
        End Set
    End Property
    Public Property TeamLeader() '小组组长
        Get
            Return TeamLeaderValue
        End Get
        Set(ByVal value)
            TeamLeaderValue = value
        End Set
    End Property
    Public Property TeacherNo() '组长的教师编号
        Get
            Return TeacherNoValue
        End Get
        Set(ByVal value)
            TeacherNoValue = value
        End Set
    End Property
#End Region
#Region "方法"
    Dim db As New DBObject
    '添加答辩小组
    Public Function AddTeam() As Boolean
        db.cmdText = "insert into answerTeam (AnswerTeamNO,TeamLeader,TeacherNO)" _
        + "values('" + AnswerTeamNO + "','" + TeamLeader + "','" + TeacherNo + "')"

        If db.SQL() = 1 Then
            Return True
        Else
            Return False
        End If
    End Function
    '删除答辩小组
    Public Sub DeleteTeam()
        db.cmdText = "delete from answerTeam where AnswerTeamNo='" + AnswerTeamNO + "'"
        db.SQL()
    End Sub
    '小组组长变更
    Public Sub ChangeLeader()
        db.cmdText = "update answerTeam set TeamLeader='" + TeamLeader + "', TeacherNo='" + TeacherNo + "' where AnswerTeamNo='" + AnswerTeamNO + "'"
        db.SQL()
    End Sub
#End Region
End Class