ltrain.cls

来自「本系统本系统采用VB6.0+SQL2000,紧扣旅游的关键要素,进述如何对这些旅」· CLS 代码 · 共 112 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ltrain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 lid Int 线路编号
'2 direct  Int 往返方向（1 往，2 返）
'3 tid Int 火车信息编号
'4 tType Tinyint 车票类型（1 硬座，2 软座，3 硬卧，4 软卧）

Public lid As Long
Public direct As Integer
Public Tid As Long
Public tType As Integer

Public Sub Init()
  lid = 0
  direct = 0
  Tid = 0
  tType = 0
End Sub

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

'删除指定线路火车信息
Public Sub Delete(ByVal Tmplid As Long, _
                  ByVal TmpDirect As Integer)
  DB_Connect
  
  SqlStmt = "DELETE FROM ltrain WHERE lid=" + Trim(Tmplid) _
          + " And direct=" + Trim(TmpDirect)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function GetInfo(ByVal Tmplid As Long, _
                        ByVal TmpDirect As Integer) As Boolean
  lid = Tmplid
  direct = TmpDirect
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM ltrain WHERE lid=" + Trim(Tmplid) _
          + " And direct=" + Trim(TmpDirect)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Init
  Else
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Tid = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    tType = TrimStr(ColVal)
    
    GetInfo = True
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO ltrain VALUES(" + Trim(lid) + "," _
          + Trim(direct) + "," + Trim(Tid) + "," + Trim(tType) + ")"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

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