tline.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 = "tline"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 lid Int 线路编号
'2 lname Varchar 50  线路名称
'3 lday  Smallint  行程天数
'4 ltype Smallint  团队类别（1-学生团队，2-成人团队）
'5 insCom  Varchar 40  保险公司
'6 insFee  Decimal 8,2 保险费
'7 otherCost Decimal 8,2 其他费用
'8 tourPay Decimal 8,2 导游费
'9 benefit Decimal 8,2 利润
'10  AreaId  Int 所属地域

Public lid As Long
Public lname As String
Public lday As Integer
Public ltype As Integer
Public insCom As String
Public insFee As Single
Public otherCost As Single
Public tourPay As Single
Public benefit As Single
Public AreaId As Integer

Public Sub Init()
  lid = 0
  lname = ""
  lday = 0
  ltype = 0
  insCom = ""
  insFee = 0
  otherCost = 0
  tourPay = 0
  benefit = 0
  AreaId = 0
End Sub

Public Sub Delete(ByVal Tmplid As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM tline WHERE lid=" + Trim(Tmplid)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
End Sub

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


Public Function GetInfo(ByVal Tmplid As Long) As Boolean
  lid = Tmplid
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM tline WHERE lid=" + Trim(Tmplid)
  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)
    lname = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    lday = Val(ColVal)
    
    ColVal = String(4, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    ltype = Val(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    insCom = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    insFee = Val(ColVal)
  
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    otherCost = Val(ColVal)
   
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Len(ColVal), pcblen)
    tourPay = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 9, 1, ColVal, Len(ColVal), pcblen)
    benefit = Val(ColVal)
   
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 12, 1, ColVal, Len(ColVal), pcblen)
    AreaId = Val(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 tline WHERE lname='" + 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 GetNewId() As Long
  DB_Connect
  
  SqlStmt = "SELECT Max(lid) FROM tline"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    GetNewId = Val(ColVal) + 1
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function In_DB(ByVal TmpName As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM tline WHERE lname='" + Trim(TmpName) + "'"
  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 Function Insert() As Long
  lid = GetNewId
  
  DB_Connect
  SqlStmt = "INSERT INTO tline (lid, AreaId) VALUES(" _
          + Trim(lid) + "," + Trim(AreaId) + ")"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
  
  Insert = lid
End Function

Public Sub Loadline_ByArea(ByVal TmpAreaId As Long)
  Dim i As Integer
  
  Erase ArrLine
  ReDim ArrLine(0)
  
  DB_Connect
  SqlStmt = "SELECT lname FROM tline WHERE AreaId=" _
          + Trim(TmpAreaId) + " ORDER BY lname"
  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 ArrLine(i + 1)
    ArrLine(i) = TrimStr(ColVal)
    i = i + 1
  Loop
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Sub Update(ByVal OriId As String)
  DB_Connect
  SqlStmt = "UPDATE tline SET lname='" + Trim(lname) _
          + "',lday=" + Trim(lday) + ",ltype=" + Trim(ltype) _
          + ", insCom='" + Trim(insCom) + "', insFee=" _
          + Trim(insFee) + ", otherCost=" + Trim(otherCost) _
          + ", tourPay=" + Trim(tourPay) + ", benefit=" + Trim(benefit) _
          + " WHERE lid=" + Trim(OriId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub