baseinfo.cls

来自「Oracle 10g数据库Java开发 源码」· CLS 代码 · 共 60 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BaseInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Title varchar2 40 信息名称
'2 BaseType  number  信息所属类型（1 - 药品规格；2 - 计量单位；3 - 科室名称）

Public Title As String
Public BaseType As Integer

Public Sub Init()
  Title = ""
  BaseType = 0
End Sub

'删除
Public Sub Delete(ByVal TmpTitle As String, ByVal TmpType As Integer)
  SqlStmt = "DELETE FROM BaseInfo WHERE Title='" + Trim(TmpTitle) _
          + "' And BaseType=" + Trim(TmpType)
  SQLExt (SqlStmt)
End Sub


Public Function In_DB(ByVal TmpTitle As String, _
                      ByVal TmpType As Integer) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT Title FROM BaseInfo WHERE Title='" + Trim(TmpTitle) _
          + "' And BaseType=" + Trim(TmpType)
  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 BaseInfo(Title,BaseType) VALUES('" + Trim(Title) _
          + "'," + Trim(BaseType) + ")"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpTitle As String, _
                  ByVal TmpType As Integer)
  SqlStmt = "UPDATE BaseInfo Set Title='" + Trim(Title) + "' WHERE Title='" _
          + Trim(TmpTitle) + "' And BaseType=" + Trim(TmpType)
  SQLExt (SqlStmt)
End Sub