VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsLiver"
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(Name As String, Phone As String, Address As String, Comment As String)
 Dim txtSQL As String
 Dim MsgText As String
  txtSQL = "select * from Liver where name = '" & Trim(Name) & "'"
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
    If mrcc.EOF = False Then
        MsgBox "住戶姓名重復(fù)，請重新輸入！", vbOKOnly + vbExclamation, "警告"
        mrcc.Close
    Else
       
                mrcc.AddNew
                mrcc.Fields(1) = Name
                mrcc.Fields(2) = Phone
                mrcc.Fields(3) = Address
                mrcc.Fields(4) = Comment
                mrcc.Fields(5) = UserName
                mrcc.Fields(6) = CStr(Date)
                mrcc.Update
                MsgBox "住戶資料信息更新成功！", vbOKOnly + vbExclamation, "住戶資料信息信息更新"
                           
                 mrcc.Close
            End If
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 Liver"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    mrc.MoveFirst
   
    '顯示記錄信息
    '下面的代碼設(shè)置記錄為只讀
    myBookmark = mrc.Bookmark
    mcclean = True
End Sub
Function Update(Name As String, Phone As String, Address As String, Comment As String)
         mrc.Fields(1) = Name
                mrc.Fields(2) = Phone
                mrc.Fields(3) = Address
                mrc.Fields(4) = Comment
                mrc.Fields(5) = UserName
                mrc.Fields(6) = CStr(Date)
        mrc.Update
        '更新記錄
        MsgBox 住戶資料信息更新成功！", vbOKOnly + vbExclamation, "更新住戶資料信息"
        mrc.Bookmark = myBookmark
        mcclean = True
End Function