medicine.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 = "Medicine"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 M_Id  varchar2 20 药品编号
'2 M_Name  varchar2 50 药品名称
'3 M_Short varchar2 20 简写名称
'4 M_Type  varchar2 20 所属类型
'5 M_Unit  varchar2 20 单位
'6 M_Bprice  number  进货价格
'7 M_SellPrice number  销售价格
'8 M_Total number  总数量
'9 M_Validate  varchar2 50 西药保质期
'10  M_Flag  number  中西药标记（0 - 中药，1 - 西药）


Public M_Id As String
Public M_Name As String
Public M_Short As String
Public M_Type As String
Public M_Unit As String
Public M_Bprice As Long
Public M_SellPrice As Long
Public M_Total As Long
Public M_Validate As String
Public M_Flag As Integer

Public Sub Init()
  M_Id = ""
  M_Name = ""
  M_Short = ""
  M_Type = ""
  M_Unit = ""
  M_Bprice = 0
  M_SellPrice = 0
  M_Total = 0
  M_Validate = ""
  M_Flag = 1
End Sub

'删除Medicine数据
Public Sub Delete(ByVal TmpMid As String)
  SqlStmt = "Delete FROM Medicine WHERE M_Id='" + Trim(TmpMid) + "'"
  SQLExt (SqlStmt)
End Sub

Public Function In_DB(ByVal TmpMid As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT M_Id FROM Medicine WHERE M_Id='" + Trim(TmpMid) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function

Public Sub Insert()
  '设置INSERT语句
  SqlStmt = "INSERT INTO Medicine Values('" + Trim(M_Id) + "','" _
          + Trim(M_Name) + "','" + Trim(M_Short) + "','" + Trim(M_Type) + "','" _
          + Trim(M_Unit) + "'," + Trim(M_Bprice) + "," + Trim(M_SellPrice) + "," _
          + Trim(M_Total) + ",'" + Trim(M_Validate) + "'," + Trim(M_Flag) + ")"
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub
'更新


Public Sub Update(ByVal OrgId As String)
  '设置UPDATE语句
  SqlStmt = "UPDATE Medicine Set M_Id='" + Trim(M_Id) + "',M_Name='" + Trim(M_Name) _
          + "', M_Short='" + Trim(M_Short) + "',M_Type='" _
          + Trim(M_Type) + "',M_Validate='" + Trim(M_Validate) _
          + "',M_Unit='" + Trim(M_Unit) + "',M_Bprice=" + Trim(M_Bprice) _
          + ",M_SellPrice=" + Trim(M_SellPrice) + ",M_Total=" + Trim(M_Total) _
          + ",M_Flag=" + Trim(M_Flag) _
          + " WHERE M_Id='" + Trim(OrgId) + "'"
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub