housestyle.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 = "HouseStyle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   StyleId Smallint    户型编号
'2   StyleName   Varchar2 50 户型名称
'3   Area1   Number 8,2  建筑面积
'4   Area2   Number 8,2  使用面积
'5   Memo    Varchar2 600    备注信息

Public StyleId As Integer
Public StyleName As String
Public Area1 As Integer
Public Area2 As Integer
Public Memo As String

Public Sub Init()
  StyleId = 0
  StyleName = ""
  Area1 = -1
  Area2 = ""
  Memo = ""
End Sub

'删除
Public Sub Delete(ByVal TmpId As Integer)
  DB_Connect
  
  SqlStmt = "DELETE FROM HouseStyle WHERE StyleId=" + Trim(TmpId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Function GetId(ByVal TmpStyle As String) As Integer
  DB_Connect
  
  SqlStmt = "SELECT StyleId FROM HouseStyle WHERE StyleName='" _
          + Trim(TmpStyle) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    GetId = Val(ColVal)
  Else
    GetId = 0
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Sub GetInfo(ByVal TmpId As Integer)
  StyleId = TmpId
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM HouseStyle WHERE StyleId=" + Trim(TmpId)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    StyleName = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Area1 = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Area2 = Val(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    Memo = TrimStr(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function GetName(ByVal TmpId As Integer) As String
  DB_Connect
  
  SqlStmt = "SELECT StyleName FROM HouseStyle WHERE StyleId=" + Trim(TmpId)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    GetName = TrimStr(ColVal)
  Else
    GetName = ""
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function In_DB(ByVal TmpStyleName As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT StyleId FROM HouseStyle WHERE StyleName='" _
          + Trim(TmpStyleName) + "'"
  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 HouseStyle (StyleId,StyleName, Area1," _
          + " Area2, Memo)" + " VALUES(STYLEID.NEXTVAL,'" + Trim(StyleName) _
          + "'," + Trim(Str(Area1)) + "," + Trim(Area2) _
          + ",'" + Trim(Memo) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub Load_HouseStyle()
  '初始化数组
  Erase Arr_HouseStyle
  ReDim Arr_HouseStyle(0)
  '连接数据库
  DB_Connect
  '设置SQL语句，读取房型名称
  SqlStmt = "SELECT StyleName FROM HouseStyle ORDER BY StyleName"
  '执行SQL语句
  OdbcExt (SqlStmt)
  i = 0
  '把从结果集中读取的房型名称，赋值到数组Arr_HouseStyle()中
  Do Until SQLFetch(Hstmt) = SQL_NO_DATA_FOUND
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    ReDim Preserve Arr_HouseStyle(i + 1)
    Arr_HouseStyle(i) = TrimStr(ColVal)
    i = i + 1
  Loop
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开数据库的连接
  DB_Disconnect
End Sub

'更新地域数据
Public Sub Update(ByVal TmpId As Integer)
  DB_Connect
    
  SqlStmt = "UPDATE HouseStyle SET StyleName='" + Trim(StyleName) _
          + "', Area1=" + Trim(Area1) + ", Area2=" + Trim(Area2) _
          + ",Memo='" + Trim(Memo) + "' WHERE StyleId=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub