houseinfo.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 = "HouseInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   HouseId Smallint    房屋编号
'2   BuildingId  Smallint    楼房编号
'3   HouseUnit   Varchar2 20 楼房单元
'4   Floor   Smallint    所在楼层
'5   RoomNo  Varchar2 10 房间号
'6   StyleId Smallint    户型编号
'7   Ownership   Varchar2 20 产权
'8   Memo    Varchar2 600    备注信息

Public HouseId As Long
Public BuildingId As Integer
Public HouseUnit As String
Public Floor As Integer
Public RoomNo As String
Public StyleId As Integer
Public Ownership As String
Public Memo As String

Public Sub Init()
  HouseId = -1
  BuildingId = 0
  HouseUnit = ""
  Floor = 0
  RoomNo = ""
  StyleId = 0
  Ownership = ""
  Memo = ""
End Sub

'删除
Public Sub Delete(TmpId As Long)
  '连接数据库
  DB_Connect
  '设置SQL语句，删除指定的记录
  SqlStmt = "DELETE FROM HouseInfo WHERE HouseId=" _
          + Trim(Str(TmpId))
  '执行SQL语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub

Public Sub GetInfo(TmpId As Long)
  HouseId = TmpId
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM HouseInfo WHERE HouseId=" _
          + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    BuildingId = Val(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    HouseUnit = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Floor = Val(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    RoomNo = TrimStr(ColVal)
  
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    StyleId = Val(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    Ownership = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Len(ColVal), pcblen)
    Memo = TrimStr(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO HouseInfo (HouseId,BuildingId, HouseUnit," _
          + " Floor, RoomNo, StyleId, Ownership, Memo)" _
          + " VALUES(HOUSEID.NEXTVAL," + Trim(BuildingId) + ",'" + Trim(HouseUnit) _
          + "'," + Trim(Floor) + ",'" + Trim(RoomNo) + "','" _
          + Trim(StyleId) + "','" + Trim(Ownership) + "','" + Trim(Memo) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Function HaveStyle(ByVal TmpStyleId As Integer) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT HouseId FROM HouseInfo WHERE StyleId=" + Trim(TmpStyleId)
  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 Function HaveBuilding(ByVal TmpBuildingId As Integer) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT HouseId FROM HouseInfo WHERE BuildingId=" + Trim(TmpBuildingId)
  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 Update(ByVal TmpId As Long)
  DB_Connect
  SqlStmt = "UPDATE HouseInfo SET BuildingId=" + Trim(BuildingId) _
          + ", HouseUnit='" + Trim(HouseUnit) + "', Floor=" _
          + Trim(Floor) + ",RoomNo='" + Trim(RoomNo) + "',StyleId=" _
          + Trim(StyleId) + ", Ownership='" + Trim(Ownership) _
          + "',Memo='" + Trim(Memo) + "' WHERE HouseId=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub