answerteammember.vb

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

Imports Microsoft.VisualBasic

Public Class AnswerTeamMember

#Region "属性"
    Dim AnswerTeamNoValue, TeacherNoValue, TeacherNameValue As String
    Public Property AnswerTeamNo() '答辩小组编号
        Get
            Return AnswerTeamNoValue
        End Get
        Set(ByVal value)
            AnswerTeamNoValue = value
        End Set
    End Property
    Public Property TeacherNo() '成员教师编号
        Get
            Return TeacherNoValue
        End Get
        Set(ByVal value)
            TeacherNoValue = value
        End Set
    End Property
    Public Property TeacherName() '教师姓名
        Get
            Return TeacherNameValue
        End Get
        Set(ByVal value)
            TeacherNameValue = value
        End Set
    End Property
#End Region
#Region "方法"
    Dim db As New DBObject
    '添加成员
    Public Sub AddMember()
        db.cmdText = "insert into answerTeamMember (AnswerTeamNo,TeacherNo,TeacherName)" _
        + "values ('" + AnswerTeamNo + "','" + TeacherNo + "','" + TeacherName + "')"
        db.SQL()
    End Sub
    '删除成员
    Public Sub DeleteMember()
        db.cmdText = "delete from answerTeamMember where TeacherNo='" + TeacherNo + "'"
        db.SQL()
    End Sub
#End Region
End Class