lplace.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 = "lplace"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 lid Int 线路编号
'2 pid Int 娱乐厅编号

Public lid As Long
Public Pid As Long

Public Sub Init()
  lid = 0
  Pid = 0
End Sub

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

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

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

'判断指定的景点信息是否在线路中
Public Function PlaceInLine(ByVal TmpPid As Long) As Long
  DB_Connect
  
  SqlStmt = "SELECT lid FROM lplace WHERE pid=" _
          + Trim(TmpPid)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    PlaceInLine = Val(ColVal)
  Else
    PlaceInLine = 0
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function SumPrice(ByVal Tmplid As Long, _
                         ByVal Tmpltype As Integer) As Single
  DB_Connect

  If Tmpltype = 1 Then '学生
    SqlStmt = "SELECT Sum(p.Child_Price) FROM lplace l, Place p" _
            + " WHERE l.lid=" + Trim(Tmplid) + " And l.pid=p.pid"
  Else                 '成人
    SqlStmt = "SELECT Sum(p.Adult_Price) FROM lplace l, Place p" _
            + " WHERE l.lid=" + Trim(Tmplid) + " And l.pid=p.pid"
  End If
  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 Oripid As Long)
  DB_Connect
  SqlStmt = "UPDATE lplace SET pid=" + Trim(Pid) _
          + " WHERE lid=" + Trim(Orilid) _
          + " And pid=" + Trim(Oripid)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub