lamuse.cls

大连市旅游资源管理系统是面向现实需求的一个实用系统。其设计的目的是为旅行社提供一个友好的、直接的交流平台。本系统主要分为九大模块：地域信息管理、景点资源管理、宾馆资源管理、餐厅资源管理、娱乐资源管理、

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "lamuse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 lid Int 线路编号
'2 Iid Int 娱乐项目编号
'3 aTimes  Tinyint 娱乐次数

Public lid As Long
Public Iid As Long
Public aTimes As Integer

Public Sub Init()
  lid = 0
  Iid = 0
  aTimes = 0
End Sub

'判断指定的娱乐项目是否在线路中
Public Function AitemInLine(ByVal TmpIid As Long) As Long
  DB_Connect
  
  SqlStmt = "SELECT lid FROM lamuse WHERE Iid=" _
          + Trim(TmpIid)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    AitemInLine = Val(ColVal)
  Else
    AitemInLine = 0
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

'删除指定线路的所有娱乐信息
Public Sub DeleteLine(ByVal Tmplid As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM lamuse WHERE lid=" + Trim(Tmplid)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
End Sub

'删除指定线路娱乐信息
Public Sub Delete(ByVal Tmplid As Long, _
                  ByVal TmpIid As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM lamuse WHERE lid=" + Trim(Tmplid) _
          + " And Iid=" + Trim(TmpIid)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
End Sub

Public Function In_DB(ByVal Tmplid As Long, _
                      ByVal TmpIid As Long) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM lamuse WHERE lid=" + Trim(Tmplid) _
          + " And Iid=" + Trim(TmpIid)
  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 lamuse VALUES(" + Trim(lid) + "," _
          + Trim(Iid) + "," + Trim(aTimes) + ")"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Function SumPrice(ByVal Tmplid As Long) As Single
  DB_Connect

  SqlStmt = "SELECT Sum(i.Price*l.aTimes) FROM lamuse l, AmuseItem i" _
          + " WHERE l.lid=" + Trim(Tmplid) + " And l.iid=i.iid"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    SumPrice = 0
  Else
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    SumPrice = Val(ColVal)
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function

Public Sub Update(ByVal Orilid As Long, _
                  ByVal OriIid As Long)
  DB_Connect
  SqlStmt = "UPDATE lamuse SET Iid=" + Trim(Iid) _
          + ", aTimes=" + Trim(aTimes) + " WHERE lid=" _
          + Trim(Orilid) + " And Iid=" + Trim(OriIid)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub