place.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 = "Place"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Pid As Long
Public Pname As String
Public Contact As String
Public Phone As String
Public Address As String
Public Postcode As String
Public Adult_price As Single
Public Child_price As Single
Public AreaId As Integer
Public Input_time As String

Public Sub Init()
  Pid = 0
  Pname = ""
  Contact = ""
  Phone = ""
  Address = ""
  Postcode = ""
  Adult_price = 0
  Child_price = 0
  AreaId = 0
  Input_time = ""
End Sub

Public Sub Delete(ByVal TmpPid As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Place WHERE Pid=" + Trim(TmpPid)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function AreaInPlace(ByVal TmpAreaId As Long) As String
  DB_Connect
  
  SqlStmt = "SELECT Pname FROM Place 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)
    AreaInPlace = TrimStr(ColVal)
  Else
    AreaInPlace = ""
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function GetInfo(ByVal TmpPid As Long) As Boolean
  Pid = TmpPid
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM Place WHERE Pid=" + Trim(TmpPid)
  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)
    Pname = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Contact = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Phone = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    Address = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    Postcode = TrimStr(ColVal)
  
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    Adult_price = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Len(ColVal), pcblen)
    Child_price = Val(ColVal)
   
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 9, 1, ColVal, Len(ColVal), pcblen)
    AreaId = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 10, 1, ColVal, Len(ColVal), pcblen)
    Input_time = TrimStr(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 Place WHERE Pname='" + 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 = False
  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 Place WHERE Pname='" + 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 Sub Insert()
  dd = Date
  dd = Format(dd, "yyyy-mm-dd")
  t = Time
  tt = Format(tt, "hh:mm")
  
  DB_Connect
  
  SqlStmt = "INSERT INTO Place (Pname, Contact, Phone, Address," _
          + " Postcode, Adult_price, Child_price, AreaId, Input_time)" _
          + " VALUES('" + Trim(Pname) + "','" + Trim(Contact) _
          + "','" + Trim(Phone) + "','" + Trim(Address) _
          + "','" + Trim(Postcode) + "'," + Trim(Adult_price) _
          + "," + Trim(Child_price) + "," + Trim(AreaId) _
          + ",'" + dd + " " + tt + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

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

  DB_Disconnect
End Sub

Public Sub Update(ByVal OriId As String)
  dd = Date
  dd = Format(dd, "yyyy-mm-dd")
  t = Time
  tt = Format(tt, "hh:mm")
  
  DB_Connect
  SqlStmt = "UPDATE Place SET Pname='" + Trim(Pname) _
          + "',Contact='" + Trim(Contact) + "',Phone='" _
          + Trim(Phone) + "', Address='" + Trim(Address) _
          + "', Postcode='" + Trim(Postcode) + "', Adult_price=" _
          + Trim(Adult_price) + ", Child_price=" + Trim(Child_price) _
          + ", AreaId=" + Trim(AreaId) + ", Input_time='" _
          + Trim(dd) + " " + Trim(tt) + "' WHERE Pid=" _
          + Trim(OriId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub