food.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 = "Food"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   FoodId  Number  食物编号
'2   FoodName    Varchar2 50 食物名称
'3   FoodType    Varchar2 50 所属类别
'4   Price   Number 8,2  价格
'5   Describe    Varchar2 500    描述信息

Public FoodId As Integer
Public FoodName As String
Public FoodType As String
Public Price As Single
Public Describe As String

Public Sub Init()
  FoodId = 0
  FoodName = ""
  FoodType = ""
  Price = ""
  Describe = ""
End Sub

Public Function In_DB(fname As String, ftype As String) As Integer
  '调用Oracle的存储过程HotelFood
  Dim cn As ADODB.Connection
  Dim cmd As ADODB.Command
  Dim rs As ADODB.Recordset
  Dim PcdSQL As String
  
  Set cn = New ADODB.Connection
  With cn
   '指定数据库连接字符串
   .ConnectionString = CONN
   '连接数据库
   .Open
  End With
  
  '定义存储过程的名称
  PcdSQL = "HotelFood"
  '定义命令对象
  Set cmd = New ADODB.Command
  With cmd
   '指定该command的活动连接
   .ActiveConnection = cn
   '指定要调用的存储过程的名称
   .CommandText = PcdSQL
   '表明command类型为存储过程
   .CommandType = adCmdStoredProc
   '追加参数属性：名称、类型、I/O、大小、值
   .Parameters.Append .CreateParameter("foodname", adVarChar, adParamInput, 30, fname)
   .Parameters.Append .CreateParameter("foodtype", adVarChar, adParamInput, 30, ftype)
   .Parameters.Append .CreateParameter("BReturn", adInteger, adParamOutput)
   '执行命令
   .Execute
  End With
  '函数的结果等于输出参数的值
  In_DB = cmd("BReturn")
End Function

'删除数据
Public Sub Delete(ByVal TmpId As Integer)
  SqlStmt = "DELETE FROM Food WHERE FoodId=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

Public Sub Insert()
  SqlStmt = "INSERT INTO Food Values( FOODID.NEXTVAL, '" _
          + Trim(FoodName) + "','" + Trim(FoodType) + "'," _
          + Trim(Price) + ",'" + Trim(Describe) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpId As Integer)
  SqlStmt = "Update Food Set FoodName='" + Trim(FoodName) + "',FoodType='" _
          + Trim(FoodType) + "', Price=" + Trim(Price) + ", Describe='" _
          + Trim(Describe) + "' WHERE FoodId='" + Trim(TmpId) + "'"
  SQLExt (SqlStmt)
End Sub