ltrain.cls

采用VisualBasic和SQL Server 2000开发 功能比较全面的旅游资源管理系

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
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