?? 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 FunctionEnd Class
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -