roomtype.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 = "RoomType"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   TypeId  Number  客房类型编号
'2   TypeName    Varchar2 100    客房类型名称
'3   RoomNum Number 1    房间数量
'4   Bednum  Number 2    床位数
'5   AirConditioning Number 1    是否有空调（0  表示没有，1  表示有）
'6   Tel Number 1    是否有电话（0  表示没有，1  表示有）
'7   Tv  Number 1    是否有电视（0  有示没有，1  表示有）
'8   Toilet  Number 1    是否有独立卫生间（0  表示没有，1  表示有）
'9   IceBox  Number 1    是否有冰箱（0  表示没有，1  表示有）

Public TypeId As Long
Public TypeName As String
Public RoomNum As Integer
Public Bednum As Integer
Public AirConditioning As Integer
Public Tel As Integer
Public Tv As Integer
Public Toilet As Integer
Public IceBox As Integer

Public Sub Init()
  TypeId = 0
  TypeName = ""
  RoomNum = ""
  Bednum = 0
  AirConditioning = 0
  Tel = 0
  Tv = 0
  Toilet = 0
  IceBox = 0
End Sub

'删除RoomType
Public Sub Delete(ByVal TmpId As Long)
  SqlStmt = "DELETE FROM RoomType WHERE TypeId=" + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub

Public Function In_DB(ByVal TmpTypeName As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT TypeId FROM RoomType WHERE TypeName='" _
          + Trim(TmpTypeName) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO RoomType VALUES( TYPEID.NEXTVAL,'" _
          + Trim(TypeName) + "'," + Trim(RoomNum) + "," + Trim(Bednum) _
          + "," + Trim(AirConditioning) + "," + Trim(Tel) _
          + "," + Trim(Tv) + "," + Trim(Toilet) + "," + Trim(IceBox) + ")"
  SQLExt (SqlStmt)
End Sub

Public Sub Loadtype()
  Dim rs As New ADODB.Recordset
  Dim i As Integer
  i = 0
  '对数组进行初始化
  Erase Arr_RoomType
  ReDim Arr_RoomType(0)
  Erase Arr_TypeId
  ReDim Arr_TypeId(0)
  '设置SQL语句,使用DISTINCT关键字避免出现重复的客户类别,结果集按TypeName字段排序
  SqlStmt = "SELECT TypeId, TypeName FROM RoomType ORDER BY TypeName"
  '执行SQL语句，将返回结果集赋值到rs对象中
  Set rs = QueryExt(SqlStmt)
  '依次把读取的数据赋值到数组中
  Do Until rs.EOF = True
    ReDim Preserve Arr_TypeId(i + 1)
    Arr_TypeId(i) = rs.Fields(0)
    
    ReDim Preserve Arr_RoomType(i + 1)
    Arr_RoomType(i) = rs.Fields(1)
    '将指针移动到下一条记录
    i = i + 1
    rs.MoveNext
  Loop
End Sub

'更新数据
Public Sub Update(ByVal TmpId As Long)
  SqlStmt = "UPDATE RoomType SET TypeName='" + Trim(TypeName) _
          + "',RoomNum=" + Trim(RoomNum) + ", Bednum=" _
          + Trim(Bednum) + ", AirConditioning=" + Trim(AirConditioning) _
          + ", Tel=" + Trim(Tel) + ", Tv=" + Trim(Tv) + ", Toilet=" _
          + Trim(Toilet) + ", IceBox=" + Trim(IceBox) + " Where TypeId = " _
          + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub