refectory.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 = "Refectory"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 TableNo Varchar2 20 餐桌编号
'2 TableType  Varchar2 20  餐桌种类
'3 ChairNum  Number 座位数量
'4 Position Varchar2 30 位置

Public TableNo As String
Public TableType As String
Public ChairNum As Integer
Public Position As String

Public Sub Init()
  TableNo = ""
  TableType = ""
  ChairNum = 0
  Position = ""
End Sub

'删除数据
Public Sub Delete(ByVal TmpNo As String)
  SqlStmt = "DELETE FROM REFECTORY WHERE TableNo='" + Trim(TmpNo) + "'"
  SQLExt (SqlStmt)
End Sub

Public Function In_DB(ByVal TmpNo As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  '设置SELECT语句
  SqlStmt = "SELECT TableNo FROM REFECTORY WHERE TableNo='" + Trim(TmpNo) + "'"
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF = True Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO REFECTORY Values('" _
     + Trim(TableNo) + "','" + Trim(TableType) + "'," _
     + Trim(ChairNum) + ",'" + Trim(Position) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal OriNo As String)
  SqlStmt = "Update REFECTORY Set TableNo='" + Trim(TableNo) + "',TableType='" _
          + Trim(TableType) + "', ChairNum=" + Trim(ChairNum) + ", Position='" _
          + Trim(Position) + "' WHERE TableNo='" + Trim(OriNo) + "'"
  SQLExt (SqlStmt)
End Sub