classroom.vb

学生信息管理系统

Imports CommonDB

Public Class Classroom

    Public m_iCapacity As Integer
    Public m_sAddress As String

    Public Sub New()
        Me.m_sAddress = ""
        Me.m_iCapacity = 0
    End Sub

    Public Sub New(ByVal sAddress As String)
        Try
            Me.m_iCapacity = DbBase.DataInterface.Execute4Value("select capacity from classroom where address = '" & sAddress & "'")
            Me.m_sAddress = sAddress
        Catch ex As Exception
            Throw New Exception(ex.Message & "occurs when new Classroom")
        End Try
    End Sub

    '更新教室信息：增加教室、修改教室
    Public Function Update() As Integer
        If DbBase.DataInterface.Execute4Value("select count(address) from classroom where address = '" & Me.m_sAddress & "'") = 0 Then
            DbBase.DataInterface.ExecuteSql("insert into classroom (address,capacity) values ('" & Me.m_sAddress & "'," & Me.m_iCapacity & ")")
        Else
            DbBase.DataInterface.ExecuteSql("update classroom set capacity = " & Me.m_iCapacity & " where address = '" & Me.m_sAddress & "'")
        End If
    End Function

    '删除教室
    Public Function Delete() As Integer
        Delete = DbBase.DataInterface.ExecuteSql("delete from classroom where address = '" & Me.m_sAddress & "'")
    End Function

    '教室被占用信息
    Public Function OccupyInfo() As DataSet
        OccupyInfo = Classroom.OccupyInfo(Me.m_sAddress)
        'OccupyInfo = DbBase.DataInterface.Execute4DS("select curriculum.class_day,class_time.caption as class_time_caption,class_time.during_time as class_time_during_time from curriculum inner join class_time ON class_time.id = curriculum.time_id where curriculum.classroom = '" & Me.m_sAddress & "'")
    End Function

    '教室是否有空
    Public Function IsEmpty(ByVal sDay As String, _
            ByVal iTimeId As Integer) As Boolean
        IsEmpty = Classroom.IsEmpty(Me.m_sAddress, sDay, iTimeId)
    End Function

    '公用方法
    '教室占用情况
    Public Shared Function OccupyInfo(ByVal sAddress As String) As DataSet
        OccupyInfo = DbBase.DataInterface.Execute4DS("select course.name as course_name,curriculum.class_day,class_time.caption as class_time_caption,class_time.during_time as class_time_during_time from curriculum inner jion course on curriculum.course_id = course.id inner join class_time on curriculum.time_id = class_time.id where curriculum.classroom = '" & sAddress & "'")
    End Function

    '教室是否有空
    Public Shared Function IsEmpty(ByVal sAddress As String, _
            ByVal sDay As String, _
            ByVal iTimeId As Integer) As Boolean
        If DbBase.DataInterface.Execute4Value("select count(id) from curriculum where classroom = '" & sAddress & "' and class_day = '" & sDay & "' and time_id = " & iTimeId) = 0 Then
            IsEmpty = True
        Else
            IsEmpty = False
        End If
    End Function

End Class