clshouse.cls

物业管理信息系统my sql +visual basic

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsHouse"
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(HouseNO As String, HouseType As String, ConstArea As Double, UseArea As Double, CurrentUser As String, Comment As String)
 Dim txtSQL As String
 Dim MsgText As String
 txtSQL = "select * from House where houseno = '" & Trim(HouseNO) & "'"
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
    If mrcc.EOF = False Then
        MsgBox "房屋编号重复，请重新输入！", vbOKOnly + vbExclamation, "警告"
        mrcc.Close
    Else
        mrcc.AddNew
        mrcc.Fields(0) = HouseNO
        mrcc.Fields(1) = HouseType
        mrcc.Fields(2) = txtConstArea
        mrcc.Fields(3) = TxtUseArea
        mrcc.Fields(4) = txtCurrentUser
        mrcc.Fields(5) = txtComment
        mrcc.Fields(6) = UserName
        mrcc.Fields(7) = CStr(Date)
        mrcc.Update
        MsgBox "房屋资料信息添加成功！", vbOKOnly + vbExclamation, "添加房屋资料信息"
        mrcc.Close
    End If
End Function
Sub DelRecord()
    myBookmark = mrc.Bookmark
    If MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录") = 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 House"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    mrc.MoveFirst
   
    '显示记录信息
    '下面的代码设置记录为只读
    myBookmark = mrc.Bookmark
    mcclean = True
End Sub
Function Update(HouseNO As String, HouseType As String, ConstArea As Double, UseArea As Double, CurrentUser As String, Comment As String)
        mrc.Fields(0) = HouseNO
        mrc.Fields(1) = HouseType
        mrc.Fields(2) = ConstArea
        mrc.Fields(3) = UseArea
        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