parking.cls

来自「Visual Basic + Oracle 9i数据库应用系统开发与实例《小区物」· CLS 代码 · 共 111 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Parking"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   ParkId  Varchar2 50 车位编号
'2   ParkType    Varchar2 10 车位类型（地上、地下）
'3   Describe    Varchar2 200    位置描述
'4   HouseId Smallint    车位属主的房屋编号

Public ParkId As String
Public ParkType As String
Public Describe As String
Public HouseId As Long

Public Sub Init()
  ParkId = ""
  ParkType = ""
  Describe = ""
  HouseId = 0
End Sub

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

  DB_Disconnect
End Sub

Public Sub GetInfo(ByVal TmpId As String)
  ParkId = TmpId
  If TmpId = "" Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM Parking WHERE ParkId='" + 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)
    ParkType = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Describe = TrimStr(ColVal)
  
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    HouseId = Val(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function In_DB(ByVal TmpParkId As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT ParkId FROM Parking WHERE ParkId='" _
          + Trim(TmpParkId) + "'"
  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 Parking (ParkId, ParkType, Describe, HouseId)" _
          + " VALUES('" + Trim(ParkId) + "','" + Trim(ParkType) _
          + "','" + Trim(Describe) + "'," + Trim(HouseId) + ")"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新地域数据
Public Sub Update(ByVal TmpId As String)
  DB_Connect
    
  SqlStmt = "UPDATE Parking SET ParkId='" + Trim(ParkId) _
          + "', ParkType='" + Trim(ParkType) + "', Describe='" _
          + Trim(Describe) + "', HouseId=" + Trim(HouseId) _
          + " WHERE ParkId='" + Trim(TmpId) + "'"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub