orderfood.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 = "OrderFood"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   OrderNo  NUMBER not null primary key  定餐/就餐编号
'2   OrderType   VARCHAR2(20) not null 定餐/就餐类型（送餐、餐厅就餐）
'3   CustName  VARCHAR2(40) not null 客户姓名
'4   TEL       VARCHAR2(30)  联系电话
'5   OrderAddr varchar2 100  送餐地点
'6   HaveDate  VARCHAR2(30)  就餐时间
'7   PNumber  NUMBER  用餐人数
'8   TableNo Varchar2 20 餐桌编号
'9   Status  Number  状态信息（0  表示预定，1  表示已结帐）
'10  UserId  Number  用户编号

Public OrderNo As Integer
Public OrderType As String
Public CustName As String
Public Tel As String
Public OrderAddr As String
Public HaveDate As String
Public PNumber As Integer
Public TableNo As String
Public Status As Integer
Public UserId As Integer

Public Sub Init()
  OrderNo = 0
  OrderType = ""
  TableNo = ""
  CustName = ""
  Tel = ""
  OrderAddr = ""
  HaveDate = ""
  Status = 0
  PNumber = 1
End Sub

'生成新的就餐编号，规则是最大的编号加1
Public Function CreateNewId() As Integer
  Dim rs As New ADODB.Recordset
  
  '设置SELECT语句
  SqlStmt = "Select Max(OrderNo) FROM OrderFood "
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF = True Then
    '如果结果集为空，则初始化
    CreateNewId = 1
  Else
    If IsNull(rs.Fields(0)) Then
      CreateNewId = 1
    Else
      CreateNewId = rs.Fields(0) + 1
    End If
  End If
End Function

'删除
Public Sub Delete(ByVal TmpNo As Integer)
  SqlStmt = "DELETE FROM OrderFood WHERE OrderNo=" + Trim(TmpNo)
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpNo As Integer) As Boolean
  Dim rs As New ADODB.Recordset
  
  If TmpNo <= 0 Then
    Init
    GetInfo = False
    Exit Function
  End If
  '设置SELECT语句
  SqlStmt = "SELECT * FROM OrderFood WHERE OrderNo=" + Trim(TmpNo)
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF = True Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    '将结果集中的数据赋值到成员变量中
    OrderNo = rs.Fields(0)
    If IsNull(rs.Fields(1)) Then
      OrderType = ""
    Else
      OrderType = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      CustName = ""
    Else
      CustName = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      Tel = ""
    Else
      Tel = rs.Fields(3)
    End If
    If IsNull(rs.Fields(4)) Then
      OrderAddr = ""
    Else
      OrderAddr = rs.Fields(4)
    End If
    If IsNull(rs.Fields(5)) Then
      HaveDate = ""
    Else
      HaveDate = rs.Fields(5)
    End If
    If IsNull(rs.Fields(6)) Then
      PNumber = 0
    Else
      PNumber = rs.Fields(6)
    End If
    If IsNull(rs.Fields(7)) Then
      TableNo = ""
    Else
      TableNo = rs.Fields(7)
    End If
    Status = rs.Fields(8)
    UserId = rs.Fields(9)
    
    GetInfo = True
  End If
End Function

'插入新记录，根据新的编号插入编号、用户编号、就餐日期
Public Sub Insert()
  SqlStmt = "INSERT INTO OrderFood(OrderNo,UserId, Status) VALUES( " _
          + Trim(OrderNo) + "," + Trim(UserId) + ", 0)"
  SQLExt (SqlStmt)
End Sub

'更新记录
Public Sub Update(ByVal TmpNo As Integer)
  SqlStmt = "UPDATE OrderFood SET OrderType='" + Trim(OrderType) + "',PNumber=" _
          + Trim(PNumber) + ", TableNo='" + Trim(TableNo) + "', CustName='" _
          + Trim(CustName) + "', HaveDate='" + Trim(HaveDate) + "',Tel='" + Trim(Tel) _
          + "', OrderAddr='" + Trim(OrderAddr) + "' WHERE OrderNo=" + Trim(TmpNo)
  SQLExt (SqlStmt)
End Sub

'更改状态值
Public Sub UpdateStatus(ByVal TmpNo As Integer)
  SqlStmt = "UPDATE OrderFood SET Status=" + Trim(Status) _
          + " WHERE OrderNo=" + Trim(TmpNo)
  SQLExt (SqlStmt)
End Sub