hotel.cls

目录：图书管理系统软件设计说明 一．可行性研究 二．需求分析：1．任务概述2．数据需求：2.3 数据库描述：2.4 数据采集： 3．功能需求：新书入库DFD：图书借阅的DFD：过期提示的DFD：借阅查

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Hotel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public hid As Long
Public Hname As String
Public Hlevel As String
Public Contact As String
Public Phone As String
Public Address As String
Public Postcode As String
Public Price1 As Single
Public Price2 As Single
Public Price3 As Single
Public Price4 As Single
Public AreaId As Integer
Public Input_time As String

Public Sub Init()
  hid = 0
  Hname = ""
  Hlevel = ""
  Contact = ""
  Phone = ""
  Address = ""
  Postcode = ""
  Price1 = 0
  Price2 = 0
  Price3 = 0
  Price4 = 0
  AreaId = 0
  Input_time = ""
End Sub

Public Sub Delete(ByVal TmpHid As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Hotel WHERE Hid=" + Trim(TmpHid)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function AreaInHotel(ByVal TmpAreaId As Long) As String
  DB_Connect
  
  SqlStmt = "SELECT Hname FROM Hotel WHERE AreaId=" _
          + Trim(TmpAreaId)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    AreaInHotel = TrimStr(ColVal)
  Else
    AreaInHotel = ""
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function GetInfo(ByVal TmpHid As Long) As Boolean
  hid = TmpHid
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM Hotel WHERE Hid=" + Trim(TmpHid)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Init
  Else
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    Hname = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Hlevel = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Contact = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    Phone = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    Address = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    Postcode = TrimStr(ColVal)
  
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Len(ColVal), pcblen)
    Price1 = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 9, 1, ColVal, Len(ColVal), pcblen)
    Price2 = Val(ColVal)
   
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 10, 1, ColVal, Len(ColVal), pcblen)
    Price3 = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 11, 1, ColVal, Len(ColVal), pcblen)
    Price4 = Val(ColVal)
   
    ColVal = String(4000, 0)
    Rc = SQLGetData(Hstmt, 12, 1, ColVal, Len(ColVal), pcblen)
    AreaId = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 13, 1, ColVal, Len(ColVal), pcblen)
    Input_time = TrimStr(ColVal)
    
    GetInfo = True
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function GetId(ByVal TmHname As String) As Long
  DB_Connect
  
  SqlStmt = "SELECT Hid FROM Hotel WHERE Hname='" + Trim(TmHname) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(40, 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 Function In_DB(ByVal TmHname As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM Hotel WHERE Hname='" + Trim(TmHname) + "'"
  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()
  dd = Date
  dd = Format(dd, "yyyy-mm-dd")
  t = Time
  tt = Format(tt, "hh:mm")
  
  DB_Connect
  
  SqlStmt = "INSERT INTO Hotel (Hname, Hlevel, Contact, Phone, Address," _
          + " Postcode, Price1, Price2, Price3, Price4, AreaId, Input_time)" _
          + " VALUES('" + Trim(Hname) + "','" + Trim(Hlevel) + "','" _
          + Trim(Contact) + "','" + Trim(Phone) + "','" + Trim(Address) _
          + "','" + Trim(Postcode) + "'," + Trim(Price1) _
          + "," + Trim(Price2) + "," + Trim(Price3) + "," _
          + Trim(Price4) + "," + Trim(AreaId) _
          + ",'" + dd + " " + tt + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub LoadHotel_ByArea(ByVal TmpAreaId As Long)
  Dim i As Integer
  Erase ArrHotel
  ReDim ArrHotel(0)
  
  DB_Connect
  SqlStmt = "SELECT Hname FROM Hotel WHERE AreaId=" _
          + Trim(TmpAreaId) + " ORDER BY Hname"
  OdbcExt (SqlStmt)
  i = 0
  Do While SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    ReDim Preserve ArrHotel(i + 1)
    ArrHotel(i) = TrimStr(ColVal)
    i = i + 1
  Loop
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Sub Update(ByVal OriId As String)
  dd = Date
  dd = Format(dd, "yyyy-mm-dd")
  t = Time
  tt = Format(tt, "hh:mm")
  
  DB_Connect
  SqlStmt = "UPDATE Hotel SET Hname='" + Trim(Hname) _
          + "',Hlevel='" + Trim(Hlevel) + "', Contact='" _
          + Trim(Contact) + "',Phone='" + Trim(Phone) _
          + "', Address='" + Trim(Address) + "', Postcode='" _
          + Trim(Postcode) + "', Price1=" + Trim(Price1) _
          + ", Price2=" + Trim(Price2) + ", Price3=" _
          + Trim(Price3) + ", Price4=" + Trim(Price4) + ", AreaId =" _
          + Trim(AreaId) + ", Input_time='" + Trim(dd) + " " _
          + Trim(tt) + "' WHERE Hid=" + Trim(OriId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub