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