Imports CommonDBImports System.DataPublic Class ClassTime    Private m_iId As Integer    Public m_sCaption As String    Public m_sDuringTime As String    Public ReadOnly Property Id() As Integer
        Get
            Id = m_iId
        End Get
    End Property    Public Sub New(ByVal iId As Integer)        Dim drTmp As DataRow = DbBase.DataInterface.Execute4DS("select caption, during_time from class_time where id = " & iId).Tables(0).Rows(0)        Me.m_iId = iId        Me.m_sCaption = drTmp(0)        Me.m_sDuringTime = drTmp(1)    End Sub    '更新上課時間信息：增加上課時間、修改上課時間    Public Function Update() As Integer        If DbBase.DataInterface.Execute4Value("select count(id) from class_time where id = " & Me.m_iId) = 0 Then            DbBase.DataInterface.ExecuteSql("insert into class_time (caption,during_time) values ('" & Me.m_sCaption & "','" & Me.m_sDuringTime & "')")
        Else
            DbBase.DataInterface.ExecuteSql("update class_time set caption = '" & Me.m_sCaption & "', during_time = '" & Me.m_sDuringTime & "'")
        End If    End Function    '刪除上課時間    Public Function Delete() As Integer        Delete = DbBase.DataInterface.ExecuteSql("delete from class_time where id = " & Me.m_iId)    End FunctionEnd Class