?? teacher.vb
字號:
Imports System.Data
Imports CommonDBPublic Class Teacher Private m_iId As Integer Public m_sName As String Private m_iProfessionId As Integer Public Sub New() End Sub Public Sub New(ByVal iId As Integer) Dim drTmp As DataRow = DbBase.DataInterface.Execute4DS("select name,profession_id from teacher where id = " & iId).Tables(0).Rows(0) Me.m_iId = iId Me.m_sName = drTmp(0) Me.m_iProfessionId = drTmp(1) End Sub '只讀屬性 Public ReadOnly Property Id() As Integer
Get
Id = m_iId
End Get
End Property '教室專業(yè) Public ReadOnly Property Profession() As Profession
Get
Profession = New Profession(m_iProfessionId)
End Get
End Property Public Property ProfessionId() As Integer
Get
ProfessionId = Me.m_iProfessionId
End Get
Set(ByVal Value As Integer)
Me.m_iProfessionId = Value
End Set
End Property '增加教師 Public Function AddTeacher() As Integer
AddTeacher = DbBase.DataInterface.ExecuteSql("insert into teacher (name,profession_id) values ('" & Me.m_sName & "'," & Me.m_iProfessionId & ")")
End Function '修改教師 Public Function EditTeacher() As Integer
EditTeacher = DbBase.DataInterface.ExecuteSql("update teacher set name = '" & Me.m_sName & "' where id = " & Me.m_iId)
End Function '刪除教師 Public Function DeleteTeacher() As Integer
DeleteTeacher = DbBase.DataInterface.ExecuteSql("delete from teacher where id = " & Me.m_iId)
End FunctionEnd Class
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -