amuseitem.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 = "AmuseItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Iid Int 娱乐项目编号
'2 Aid Int 娱乐厅编号
'3 Item  Varchar 50  娱乐项目
'4 Price Decimal 10,2  娱乐项目报价
'5 Input_time  Char 17 录入日期和时间

Public Iid As Long
Public Aid As Long
Public Item As String
Public Price As Single
Public Input_time As String

Public Sub Init()
  Iid = 0
  Aid = 0
  Item = ""
  Price = 0
  Input_time = ""
End Sub

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

'判断指定的娱乐厅中是否包含娱乐项目
Public Function HaveItem(ByVal TmpAid As Long) As String
  DB_Connect
  
  SqlStmt = "SELECT Item FROM AmuseItem WHERE Aid=" _
          + Trim(TmpAid)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    HaveItem = TrimStr(ColVal)
  Else
    HaveItem = ""
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function GetInfo(ByVal TmpIid As Long) As Boolean
  Iid = TmpIid
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM AmuseItem WHERE Iid=" + Trim(TmpIid)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Init
  Else
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    Aid = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Item = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Price = Val(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 5, 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 TmpAid As Long, _
                      ByVal TmpItem As String) As Long
  DB_Connect
  
  SqlStmt = "SELECT Iid FROM AmuseItem WHERE Aid=" + Trim(TmpAid) _
          + " And Item='" + Trim(TmpItem) + "'"
  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 TmpAid As Long, _
                      ByVal TmpItem As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM AmuseItem WHERE Aid=" + Trim(TmpAid) _
          + " And Item='" + Trim(TmpItem) + "'"
  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 AmuseItem (Aid, Item, Price," _
          + " Input_time) VALUES(" + Trim(Aid) + ",'" _
          + Trim(Item) + "'," + Trim(Price) + ",'" + dd _
          + " " + tt + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'将指定娱乐厅中所有的娱乐项目名称装入到数据ArrItem中
Public Sub LoadItem_ByAmuse(ByVal TmpAid As Long)
  Dim i As Integer
  Erase ArrItem
  ReDim ArrItem(0)
  
  DB_Connect
  SqlStmt = "SELECT Item FROM AmuseItem WHERE Aid=" _
          + Trim(TmpAid) + " ORDER BY Item"
  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 ArrItem(i + 1)
    ArrItem(i) = TrimStr(ColVal)
    i = i + 1
  Loop
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Sub Update(ByVal OriId As Long)
  dd = Date
  dd = Format(dd, "yyyy-mm-dd")
  t = Time
  tt = Format(tt, "hh:mm")
  
  DB_Connect
  SqlStmt = "UPDATE AmuseItem SET Item='" + Trim(Item) _
          + "', Price='" + Trim(Price) + "', Input_time='" _
          + Trim(dd) + " " + Trim(tt) + "' WHERE Iid=" _
          + Trim(OriId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub