foodlist.cls

Oracle 10g数据库Java开发 源码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "FoodList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   OrderNo Number  就餐编号
'2   Foodid  Number  食物编号
'3   Foodnum Number  数量
'4   Memo  Varchar2(2000) 说明

Public OrderNo As Integer
Public FoodId As Integer
Public Foodnum As Integer
Public Memo As String

Public Sub Init()
  OrderNo = 0
  Foodnum = ""
  Memo = ""
End Sub

'批量删除就餐记录，按就餐编号
Public Sub Delete(ByVal TmpNo As Long)
  SqlStmt = "DELETE FROM FoodList WHERE OrderNo=" + Trim(TmpNo)
  SQLExt (SqlStmt)
End Sub

'单个删除就餐记录，按就餐编号和菜名
Public Sub DeleteRecord()
  SqlStmt = "DELETE FROM FoodList WHERE OrderNo=" + Trim(OrderNo) + " and FoodId=" + Trim(FoodId)
  SQLExt (SqlStmt)
End Sub

Public Sub Insert()
  SqlStmt = "INSERT INTO FoodList VALUES(" + Trim(OrderNo) + "," _
          + Trim(FoodId) + "," + Trim(Foodnum) + ",'" + Trim(Memo) + "')"
  SQLExt (SqlStmt)
End Sub

'取得一个就餐编号中花销的总金额
Public Function SumAmount(ByVal TmpOid As Long) As Integer
  Dim rs As New ADODB.Recordset
  
  '设置SELECT语句
  SqlStmt = "SELECT Sum(f.Price*l.Foodnum) FROM Food f, FoodList l" _
          + " WHERE OrderNo=" + Trim(TmpOid) + " And f.FoodId=l.FoodId"
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF = True Then
    SumAmount = 0
  Else
    If IsNull(rs.Fields(0)) Then
      SumAmount = 0
    Else
      SumAmount = rs.Fields(0)
    End If
  End If
End Function