project.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 = "Project"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 P_Id  varchar2 20 收费项目编号
'2 P_Name  varchar2 50 收费项目名称
'3 P_Count number  库存数量
'4 P_Unit  varhcar2 20 计量单位
'5 P_Price number  进货单价
'6 P_SalePrice number  销售单价
'7 P_Producer  varchar2 100  生产厂家

Public P_Id As Integer
Public P_Name As String
Public P_Count As Integer
Public P_Unit As String
Public P_Price As Integer
Public P_SalePrice As Integer
Public P_Producer As String

Public Sub Init()
  P_Id = ""
  P_Name = ""
  P_Count = 0
  P_Unit = ""
  P_Price = 0
  P_SalePrice = 0
  P_Producer = ""
End Sub

Public Function In_DB(ByVal TmpName As Integer) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT P_Id FROM Project WHERE P_Name='" + Trim(TmpName) + "'"
  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 Project Values(S_PId.NextVal, '" _
          + Trim(P_Name) + "'," + Trim(P_Count) + ",'" _
          + Trim(P_Unit) + "'," + Trim(P_Price) + "," _
          + Trim(P_SalePrice) + ",'" + Trim(P_Producer) + "')"
  SQLExt (SqlStmt)
End Sub

'删除
Public Sub Delete(ByVal TmpPid As Long)
  SqlStmt = "DELETE FROM Project WHERE P_Id=" + Trim(TmpPid)
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpPid As Integer)
  SqlStmt = "UPDATE Project Set P_Name='" + Trim(P_Name) + "', P_Unit='" _
          + Trim(P_Unit) + "', P_Count=" + Trim(P_Count) + ", P_Price=" _
          + Trim(P_Price) + ", P_SalePrice=" + Trim(P_SalePrice) _
          + ", P_Producer='" + Trim(P_Producer) + "' WHERE P_Id=" + Trim(TmpPid)
  SQLExt (SqlStmt)
End Sub