assignment.vb

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

Imports Microsoft.VisualBasic

Public Class Assignment
#Region "属性"
    Dim AssignmentNoValue, SubjectTitleValue, StudentNoValue, TeacherNoValue As String
    Public Property AssignmentNo() '志愿号
        Get
            Return AssignmentNoValue
        End Get
        Set(ByVal value)
            AssignmentNoValue = value
        End Set
    End Property
    Public Property SubjectTitle() '课题号
        Get
            Return SubjectTitleValue
        End Get
        Set(ByVal value)
            SubjectTitleValue = value
        End Set
    End Property
    Public Property StudentNo() '学号
        Get
            Return StudentNoValue
        End Get
        Set(ByVal value)
            StudentNoValue = 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 assignmentNum() As Integer
        db.cmdText = "select * from assignment where StudentNo='" + StudentNo + "'"
        assignmentNum = db.SQL()
    End Function
    '添加志愿
    Public Function AddAssignment() As Integer

        db.cmdText = "insert into assignment (AssignmentNo,SubjectTitle,StudentNo,TeacherNo)" _
        + "values('" + AssignmentNo + "','" + SubjectTitle + "','" + StudentNo + "','" + TeacherNo + "')"
        AddAssignment = db.SQL()
    End Function
    '删除志愿
    Public Sub DeleteAssignment()
        db.cmdText = "delete from assignment where StudentNo='" + StudentNo + "'"
        db.SQL()
    End Sub
#End Region
End Class