clssell.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 = "clsSell"
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(tempString() As String)
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrcc As ADODB.Recordset
    txtSQL = "select * from 销售信息 where 楼盘名称 = '" & Trim(tempString(0)) & "' and 房间号='" & Trim(tempString(5)) & "'"
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
    If mrcc.EOF = False Then
        MsgBox "此房已售，请重新输入！", vbOKOnly + vbExclamation, "警告"
        mrcc.Close
        Exit Function
    Else
        mrcc.AddNew
        mrcc.Fields(1) = Trim(tempString(0))
        mrcc.Fields(2) = Trim(tempString(1))
        mrcc.Fields(3) = Trim(tempString(2))
        mrcc.Fields(4) = Val(tempString(3))
        mrcc.Fields(5) = Val(tempString(4))
        mrcc.Fields(6) = Val(tempString(5))
        mrcc.Fields(7) = Trim(tempString(6))
        mrcc.Fields(8) = Val(tempString(7))
        mrcc.Fields(9) = Val(tempString(8))
        mrcc.Fields(10) = Val(tempString(9))
        mrcc.Fields(11) = Val(tempString(10))
        mrcc.Fields(12) = Trim(tempString(11))
        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
        Else
            myBookmark = mrc.Bookmark
            mrc.MovePrevious
            mrc.Delete
            mrc.Bookmark = myBookmark
            End If
    Else
        mrc.Bookmark = myBookmark
    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 销售信息"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    mrc.MoveFirst
    myBookmark = mrc.Bookmark
    mcclean = True
End Sub
Function Update(tempString() As String)
    If mcclean Then
        MsgBox "请先修改销售信息", vbOKOnly + vbExclamation, "警告"
        Exit Function
    End If
    mrc.Fields(1) = Trim(tempString(0))
    mrc.Fields(2) = Trim(tempString(1))
    mrc.Fields(3) = Trim(tempString(2))
    mrc.Fields(4) = Val(tempString(3))
    mrc.Fields(5) = Val(tempString(4))
    mrc.Fields(7) = Trim(tempString(6))
    mrc.Fields(8) = Val(tempString(7))
    mrc.Fields(9) = Val(tempString(8))
    mrc.Fields(10) = Val(tempString(9))
    mrc.Fields(11) = Val(tempString(10))
    mrc.Fields(12) = Trim(tempString(11))
    mrc.Update
    MsgBox "销售信息更新成功！", vbOKOnly + vbExclamation, "更新销售信息"
    mrc.Bookmark = myBookmark
    mcclean = True
End Function