task.vb

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

Imports Microsoft.VisualBasic

Public Class Task
#Region "属性"
    Dim TaskNOvalue As String
    Dim StudentNOvalue As String
    Dim DirectorteacherNOvalue As String
    Dim SubjectNOvalue As String
    Dim Taskplanvalue As String
    Dim Maingoalvalue As String
    Dim Requirevalue As String
    Dim Referencebookvalue As String
    Dim Equipmentvalue As String
    Public Property TaskNO()   ' 任务书编号
        Get
            Return TaskNOvalue
        End Get
        Set(ByVal value)
            TaskNOvalue = value
        End Set
    End Property
    Public Property StudentNO()    '学生编号
        Get
            Return StudentNOvalue
        End Get
        Set(ByVal value)
            StudentNOvalue = value
        End Set
    End Property
    Public Property DirectorteacherNO()   '教师编号
        Get
            Return DirectorteacherNOvalue
        End Get
        Set(ByVal value)
            DirectorteacherNOvalue = value
        End Set
    End Property
    Public Property SubjectNO()   '课题编号
        Get
            Return SubjectNOvalue
        End Get
        Set(ByVal value)
            SubjectNOvalue = value
        End Set
    End Property
    Public Property Taskplan()    '计划
        Get
            Return Taskplanvalue
        End Get
        Set(ByVal value)
            Taskplanvalue = value
        End Set
    End Property
    Public Property Maingoal()  '目标
        Get
            Return Maingoalvalue
        End Get
        Set(ByVal value)
            Maingoalvalue = value
        End Set
    End Property
    Public Property Require()    '要求
        Get
            Return Requirevalue
        End Get
        Set(ByVal value)
            Requirevalue = value
        End Set
    End Property
    Public Property Referencebook()   '参考书目
        Get
            Return Referencebookvalue
        End Get
        Set(ByVal value)
            Referencebookvalue = value
        End Set
    End Property
    Public Property Equipment()  '设备仪器
        Get
            Return Equipmentvalue
        End Get
        Set(ByVal value)
            Equipmentvalue = value
        End Set
    End Property

#End Region
#Region "方法"
    Dim db As New DBObject
    Public Function Submittask() As Boolean
        db.cmdText = "insert into task(TaskNO,TeacherNO,SubjectNO,Taskplan,Maingoal,Require,Referencebook,Equipment) " _
        + "values('" + TaskNO + "','" + DirectorteacherNO + "','" + SubjectNO + "','" + Taskplan + "','" + Maingoal + "','" + Require + "','" + Referencebook + "','" + Equipment + "')"

        Try
            If (db.SQL() = 1) Then
                Submittask = True
            Else
                Submittask = False
            End If

        Catch ex As Exception
            Submittask = False
        End Try

    End Function
#End Region
End Class