restaurant.cls

本系统本系统采用VB6.0+SQL2000,紧扣旅游的关键要素,进述如何对这些旅游资源进行管理,具有很强的实用性,既可以作为独立的系统使用,也可以作为旅游企业综合业务管理系统的一个重要组成部分,本系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Restaurant"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Rid Int 餐厅编号
'2 Rname Varchar 200 餐厅名称
'3 Rlevel  Varchar 40  餐厅标准（二星级、三星级、四星级、五星级等）
'4 Contact Varchar 40  联系人
'5 Phone Varchar 100 联系电话
'6 Address Varchar 100 通信地址
'7 Postcode  Varchar 10  邮政编码
'8 Breakfast Decimal 10,2  早餐报价
'9 Dinner  Decimal 10,2  正餐报价
'10  AreaId  Int 所在地域
'11  Input_time  Char 17 录入日期和时间

Public rid As Long
Public Rname As String
Public Rlevel As String
Public Contact As String
Public Phone As String
Public Address As String
Public Postcode As String
Public Breakfast As Single
Public Dinner As Single
Public AreaId As Integer
Public Input_time As String

Public Sub Init()
  rid = 0
  Rname = ""
  Rlevel = ""
  Contact = ""
  Phone = ""
  Address = ""
  Postcode = ""
  Breakfast = 0
  Dinner = 0
  AreaId = 0
  Input_time = ""
End Sub

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

'判断指定地域信息是否在餐厅中
Public Function AreaInRes(ByVal TmpAreaId As Long) As String
  DB_Connect
  
  SqlStmt = "SELECT Rname FROM Restaurant 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)
    AreaInRes = TrimStr(ColVal)
  Else
    AreaInRes = ""
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function GetInfo(ByVal TmpRid As Long) As Boolean
  rid = TmpRid
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM Restaurant WHERE Rid=" + Trim(TmpRid)
  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)
    Rname = TrimStr(ColVal)
    '餐厅标准
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Rlevel = 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)
    Breakfast = Val(ColVal)
    '正餐报价
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 9, 1, ColVal, Len(ColVal), pcblen)
    Dinner = Val(ColVal)
    '地域编号
    ColVal = String(4000, 0)
    Rc = SQLGetData(Hstmt, 10, 1, ColVal, Len(ColVal), pcblen)
    AreaId = Val(ColVal)
    '录入时间
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 11, 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 TmpName As String) As Long
  DB_Connect
  
  SqlStmt = "SELECT * FROM Restaurant WHERE Rname='" + Trim(TmpName) + "'"
  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 TmRname As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM Restaurant WHERE Rname='" + Trim(TmRname) + "'"
  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 Restaurant (Rname, Rlevel, Contact, Phone, Address," _
          + " Postcode, Breakfast, Dinner, AreaId, Input_time)" _
          + " VALUES('" + Trim(Rname) + "','" + Trim(Rlevel) _
          + "','" + Trim(Contact) + "','" + Trim(Phone) + "','" _
          + Trim(Address) + "','" + Trim(Postcode) + "'," _
          + Trim(Breakfast) + "," + Trim(Dinner) + "," _
          + Trim(AreaId) + ",'" + dd + " " + tt + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'将所有娱乐厅名称装入到ArrRestaurant中
Public Sub LoadRestaurant_ByArea(ByVal TmpAreaId As Long)
  Dim i As Integer
  Erase ArrRes
  ReDim ArrRes(0)
  
  DB_Connect
  SqlStmt = "SELECT Rname FROM Restaurant WHERE AreaId=" _
          + Trim(TmpAreaId) + " ORDER BY Rname"
  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 ArrRes(i + 1)
    ArrRes(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 Restaurant SET Rname='" + Trim(Rname) _
          + "',Rlevel='" + Trim(Rlevel) + "', Contact='" _
          + Trim(Contact) + "',Phone='" + Trim(Phone) _
          + "', Address='" + Trim(Address) + "', Postcode='" _
          + Trim(Postcode) + "', Breakfast=" + Trim(Breakfast) _
          + ", Dinner=" + Trim(Dinner) + ", AreaId = " _
          + Trim(AreaId) + ", Input_time='" + Trim(dd) + " " _
          + Trim(tt) + "' WHERE Rid=" + Trim(OriId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub