houseowner.cls

Visual Basic + Oracle 9i数据库应用系统开发与实例《小区物业管理系统》,界面还行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "HouseOwner"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   OwnerId Smallint    业主编号
'2   OwnerName   Varchar2 50 业主姓名
'3   Tel Varchar2 50 联系电话
'4   HouseId Smallint    房屋编号
'5   MoveinDate  Char 10 迁入日期
'6   MoveoutDate Char 10 迁出日期
'7   Memo    Varchar2 600    备注信息

Public OwnerId As Long
Public OwnerName As String
Public Tel As String
Public HouseId As Long
Public MoveinDate As String
Public MoveoutDate As String
Public Memo As String

Public Sub Init()
  OwnerId = -1
  OwnerName = ""
  Tel = ""
  HouseId = 0
  MoveinDate = ""
  MoveoutDate = ""
  Memo = ""
End Sub

'删除
Public Sub Delete(TmpId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM HouseOwner WHERE OwnerId=" _
          + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Sub GetInfo(TmpId As Long)
  OwnerId = TmpId
  '如果TmpId=0，则不需要读取数据
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  '连接数据库
  DB_Connect
  '设置SELECT语句
  SqlStmt = "SELECT * FROM HouseOwner WHERE OwnerId=" _
          + Trim(Str(TmpId))
  '执行SQL语句
  OdbcExt (SqlStmt)
  '依次从结果集中读取数据
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    '业主姓名
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    OwnerName = TrimStr(ColVal)
    ColVal = String(400, 0)
    '联系电话
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Tel = TrimStr(ColVal)
    '房屋编号
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    HouseId = Val(ColVal)
    '迁入日期
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    MoveinDate = TrimStr(ColVal)
    '迁出日期
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    MoveoutDate = TrimStr(ColVal)
    '备注信息
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    Memo = TrimStr(ColVal)
  Else
    '如果结果集为空，则初始化成员变量
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub

Public Function HaveHouse(ByVal TmpHouseId As Long) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT OwnerId FROM HouseOwner WHERE HouseId=" + Trim(TmpHouseId)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    In_DB = True
  Else
    In_DB = False
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  SqlStmt = "INSERT INTO HouseOwner (OwnerId,OwnerName, Tel," _
          + " HouseId, MoveinDate, MoveoutDate, Memo)" _
          + " VALUES(OWNERID.NEXTVAL,'" + Trim(OwnerName) + "','" + Trim(Tel) _
          + "'," + Trim(HouseId) + ",'" + Trim(MoveinDate) + "','" _
          + Trim(MoveoutDate) + "','" + Trim(Memo) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新地域数据
Public Sub Update(ByVal TmpId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE HouseOwner SET OwnerName='" + Trim(OwnerName) _
          + "', Tel='" + Trim(Tel) + "', HouseId=" _
          + Trim(HouseId) + ",MoveinDate='" + Trim(MoveinDate) _
          + "',MoveoutDate='" + Trim(MoveoutDate) + "', Memo='" _
          + Trim(Memo) + "' WHERE OwnerId=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub