weeklog.vb

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

Imports Microsoft.VisualBasic

Imports System.Data.SqlClient
Public Class WeekLog
#Region "属性"
    Dim WeekLogNoValue, SubjectNoValue, LogContentValue, TeacherCommentValue As String
    Dim LogDateValue, CheckDateValue As DateTime
    Dim WeekNoValue, studentnovalue As String
    Public Property StudentNo()
        Get
            Return studentnovalue
        End Get
        Set(ByVal value)
            studentnovalue = value
        End Set
    End Property
    Public Property WeekLogNo() '周志编号
        Get
            Return WeekLogNoValue
        End Get
        Set(ByVal value)
            WeekLogNoValue = value
        End Set
    End Property
    Public Property SubjectNo() '对应课题编号
        Get
            Return SubjectNoValue
        End Get
        Set(ByVal value)
            SubjectNoValue = value
        End Set
    End Property
    Public Property LogContent() '周志内容
        Get
            Return LogContentValue
        End Get
        Set(ByVal value)
            LogContentValue = value
        End Set
    End Property
    Public Property TeacherComment() '教师评论
        Get
            Return TeacherCommentValue
        End Get
        Set(ByVal value)
            TeacherCommentValue = value
        End Set
    End Property
    Public Property LogDate() '周志日期
        Get
            Return LogDateValue
        End Get
        Set(ByVal value)
            LogDateValue = value
        End Set
    End Property
    Public Property CheckDate() '评论日期
        Get
            Return CheckDateValue
        End Get
        Set(ByVal value)
            CheckDateValue = value
        End Set
    End Property
    Public Property WeekNo() '周次
        Get
            Return WeekNoValue
        End Get
        Set(ByVal value)
            WeekNoValue = value
        End Set
    End Property
#End Region
#Region "方法"
    Dim db As New DBObject

    '写周志
    Public Function WriteWeekLog() As Integer
        db.cmdText = "insert into weekLog (WeekLogNo,SubjectNO,LogDate,WeekNo,LogContent,StudentNo)" _
       + "values('" + WeekLogNo + "','" + SubjectNo + "','" + LogDate + "','" + WeekNo + "','" + LogContent + "','" + StudentNo + "')"
        WriteWeekLog = db.SQL()
    End Function

    '周志评论
    Public Function WriteComment() As Integer
        db.cmdText = "update weekLog set CheckDate='" + CheckDate + "', TeacherComment='" + TeacherComment + "'" _
        + "where WeekLogNo='" + WeekLogNo + "'"

        WriteComment = db.SQL()
    End Function
    '查看周志
    Dim cn As SqlConnection = New SqlConnection("server=localhost\sqlexpress;integrated security=sspi;database=GDMS")
    Dim cmd As New SqlCommand
    Dim cmdText As String
    Dim dr As SqlDataReader
    Public Sub LookWeekLog()
        cn.Open()

        cmd.Connection = cn
        cmdText = "select * from weekLog where WeekLogNO='" + WeekLogNo + "'"
        cmd.CommandText = cmdText

        dr = cmd.ExecuteReader()
        If dr.Read() = True Then
            SubjectNo = dr("SubjectNo")
            LogDate = dr("LogDate")
            LogContent = dr("LogContent")
        End If

        cn.Close()
    End Sub
    Public Function LookWeekLog(ByVal WeekLogNo) As Boolean
        cn.Open()

        cmd.Connection = cn
        cmdText = "select * from weekLog where WeekLogNO='" + WeekLogNo + "'"
        cmd.CommandText = cmdText

        dr = cmd.ExecuteReader()
        If dr.Read() = True Then
            SubjectNo = dr("SubjectNo")
            '  LogDate = dr("LogDate")
            LogContent = dr("LogContent")
            LookWeekLog = True
        End If

        cn.Close()
    End Function

#End Region
End Class