room.cls

Oracle 10g数据库Java开发 源码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Room"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public RoomNo As String    '房间编号
Public Position As String  '位置朝向
Public ObjList As String   '物品列表
Public Price As Single     '标准报价
Public Status As Integer   '当前状态
Public TypeId As Integer   '房间类型编号

'初始化成员变量
Public Sub Init()
  RoomNo = ""
  Position = ""
  ObjList = ""
  Price = 0
  Status = 0
  TypeId = 0
End Sub

'删除数据
Public Sub Delete(ByVal TmpNo As String)
  Dim SQLstmt As String    '存放SQL语句的字符串
  
  '执行DELETE语句,删除RoomNo等于TmpNo的房间
  SQLstmt = "DELETE FROM Room WHERE RoomNo='" + Trim(TmpNo) + "'"
  SQLExt (SQLstmt)
End Sub

Public Sub Insert()
  Dim SQLstmt As String    '存放SQL语句的字符串
  
  '执行INSERT语句
  SQLstmt = "INSERT INTO Room VALUES('" + Trim(RoomNo) + "'," + Trim(TypeId) _
          + ",'" + Trim(Position) + "','" + Trim(ObjList) + "'," + Trim(Price) _
          + "," + Trim(Status) + ")"
  SQLExt (SQLstmt)
End Sub

Public Sub Update(ByVal OriNo As String)
  Dim SQLstmt As String    '存放SQL语句的字符串
  
  '执行SQL语句
  SQLstmt = "UPDATE Room SET RoomNo='" + Trim(RoomNo) + "', TypeId=" _
          + Trim(TypeId) + ", Position='" + Trim(Position) + "', ObjList='" _
          + Trim(ObjList) + "', Price=" + Trim(Price) + ", Status=" + Trim(Status) _
          + " WHERE RoomNo='" + Trim(OriNo) + "'"
  SQLExt (SQLstmt)
End Sub