?? college.vb
字號:
Imports CommonDB
Public Class College Inherits DbObject Public m_sName As String Public m_sAddress As String Public m_sPhone As String Public m_sMaster As String Public m_sIntro As String Private m_iId As Integer Public Sub New() Me.m_iId = -1 End Sub Public Sub New(ByVal iId As Integer) Dim drTemp As DataRow = DbBase.DataInterface.Execute4DS("select id,name,address,phone,master,intro from college where id = " & iId).Tables(0).Rows(0) Me.m_iId = drTemp(0) Me.m_sName = drTemp(1) Me.m_sAddress = CDbStr(drTemp(2)) Me.m_sPhone = CDbStr(drTemp(3)) Me.m_sMaster = CDbStr(drTemp(4)) Me.m_sIntro = CDbStr(drTemp(5)) End Sub Public ReadOnly Property Id() As Integer
Get
Id = m_iId
End Get
End Property Public Property Name() As String
Get
Name = Me.m_sName
End Get
Set(ByVal Value As String)
Me.m_sName = Value
End Set
End Property Public Property Address() As String
Get
Address = Me.m_sAddress
End Get
Set(ByVal Value As String)
Me.m_sAddress = Value
End Set
End Property Public Property Phone() As String
Get
Phone = Me.m_sPhone
End Get
Set(ByVal Value As String)
Me.m_sPhone = Value
End Set
End Property Public Property Master() As String
Get
Master = Me.m_sMaster
End Get
Me.m_sMaster = Value
End Set
End Property Public Property Intro() As String
Get
Intro = Me.m_sIntro
End Get
Set(ByVal Value As String)
Me.m_sIntro = Value
End Set
End Property '更新學院信息:增加學院、修改學院 Public Function Update() As Integer If DbBase.DataInterface.Execute4Value("select count(id) from college where id = " & Me.m_iId) = 0 Then DbBase.DataInterface.ExecuteSql("insert into college (name,address,phone,master,intro) values ('" & Me.m_sName & "','" & Me.m_sAddress & "','" & Me.m_sPhone & "','" & Me.m_sMaster & "','" & Me.m_sIntro & "')")
Else
DbBase.DataInterface.ExecuteSql("update college set name = '" & Me.m_sName & "', address = '" & Me.m_sAddress & "', phone = '" & Me.m_sPhone & "', master = '" & Me.m_sMaster & "', intro = '" & Me.m_sIntro & "' where id =" & Me.Id)
End If End Function '刪除學院 Public Function Delete() As Integer Delete = DbBase.DataInterface.ExecuteSql("delete from college where id = " & Me.m_iId) End FunctionEnd Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -