?? clsequipment.cls
字號:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsEquipment"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public mrc As ADODB.Recordset
Public myBookmark As Variant '定義一個書簽
Public mcclean As Boolean
Function AddNew(Equipmentname As String, EquipmentValue As String, Comment As String)
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from Equipment "
Set mrcc = ExecuteSQL(txtSQL, MsgText)
mrcc.AddNew
mrcc.Fields(1) = Trim(Equipmentname)
mrcc.Fields(2) = Trim(EquipmentValue)
mrcc.Fields(3) = Trim(Comment)
mrcc.Fields(4) = UserName
mrcc.Fields(5) = CStr(Date)
mrcc.Update
MsgBox "物業(yè)設(shè)備信息添加成功!", vbOKOnly + vbExclamation, "添加物業(yè)設(shè)備信息"
mrcc.Close
End Function
Sub DelRecord()
myBookmark = mrc.Bookmark
If MsgBox("是否刪除當(dāng)前記錄?", vbOKCancel, "刪除當(dāng)前記錄") = vbOK Then
mrc.MoveNext
If mrc.EOF Then
mrc.MoveFirst
myBookmark = mrc.Bookmark
mrc.MoveLast
mrc.Delete
mrc.Bookmark = myBookmark
Call viewData
Else
myBookmark = mrc.Bookmark
mrc.MovePrevious
mrc.Delete
mrc.Bookmark = myBookmark
Call viewData
End If
Else
mrc.Bookmark = myBookmark
Call viewData
End If
End Sub
Sub EditRecord()
mcclean = False
myBookmark = mrc.Bookmark
End Sub
Sub LoadRecord()
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from Equipment"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.MoveFirst
'顯示記錄信息
'下面的代碼設(shè)置記錄為只讀
myBookmark = mrc.Bookmark
mcclean = True
End Sub
Function Update(Equipmentname As String, EquipmentValue As String, Comment As String)
mrc.Fields(1) = Trim(Equipmentname)
mrc.Fields(2) = Trim(EquipmentValue)
mrc.Fields(3) = Trim(Comment)
mrc.Fields(4) = UserName
mrc.Fields(5) = CStr(Date)
mrc.Update
'更新記錄
MsgBox "物業(yè)設(shè)備資料信息更新成功!", vbOKOnly + vbExclamation, "更新物業(yè)設(shè)備資料信息"
mrc.Bookmark = myBookmark
mcclean = True
End Function
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -