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 FunctionEnd Class