amusement.cls

本系统包括用户管理

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Amusement"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Aid Int 娱乐厅编号
'2 Aname Varchar 200 娱乐厅名称
'3 Contact Varchar 40  联系人
'4 Phone Varchar 100 联系电话
'5 Address Varchar 100 通信地址
'6 Postcode  Varchar 10  邮政编码
'7 AreaId  Int 所在地域
'8 Input_time  Char 17 录入日期和时间

Public Aid As Long
Public Aname As String
Public Contact As String
Public Phone As String
Public Address As String
Public Postcode As String
Public AreaId As Integer
Public Input_time As String

Public Sub Init()
  Aid = 0
  Aname = ""
  Contact = ""
  Phone = ""
  Address = ""
  Postcode = ""
  AreaId = 0
  Input_time = ""
End Sub

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

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

Public Function GetInfo(ByVal TmpAid As Long) As Boolean
  Aid = TmpAid
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM Amusement WHERE Aid=" + Trim(TmpAid)
  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)
    Aname = 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(4000, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    AreaId = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 8, 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 Aid FROM Amusement WHERE Aname='" + 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 In_DB(ByVal TmpName As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM Amusement WHERE Aname='" + 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 Amusement (Aname, Contact, Phone, Address," _
          + " Postcode, AreaId, Input_time) VALUES('" _
          + Trim(Aname) + "','" + Trim(Contact) + "','" _
          + Trim(Phone) + "','" + Trim(Address) + "','" _
          + Trim(Postcode) + "'," + Trim(AreaId) _
          + ",'" + dd + " " + tt + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'将所有娱乐厅名称装入到ArrAmusement中
Public Sub LoadAmuse_ByArea(ByVal TmpAreaId As Long)
  Erase ArrAmuse
  ReDim ArrAmuse(0)
  
  DB_Connect
  SqlStmt = "SELECT Aname FROM Amusement WHERE AreaId=" _
          + Trim(TmpAreaId) + " ORDER BY Aname"
  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 ArrAmuse(i + 1)
    ArrAmuse(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 Amusement SET Aname='" + Trim(Aname) _
          + "', Contact='" + Trim(Contact) + "',Phone='" _
          + Trim(Phone) + "', Address='" + Trim(Address) _
          + "', Postcode='" + Trim(Postcode) + "', AreaId =" _
          + Trim(AreaId) + ", Input_time='" + Trim(dd) + " " _
          + Trim(tt) + "' WHERE Aid=" + Trim(OriId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub