patient.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 = "Patient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 P_Id  number  患者编号
'2 P_Name  varhcar2 50 患者姓名
'3 P_Sex varchar2 10 性别
'4 P_Age number  年龄
'5 P_Address varchar2 200  地址
'6 P_Job varchar2 50 职业
'7 P_Married varchar2 4  婚姻状况

Public P_Id As Integer
Public P_Name As String
Public P_Sex As String
Public P_Age As Integer
Public P_Address As String
Public P_Married As String
Public P_Job As String

Public Sub Init()
  P_Id = 0
  P_Name = ""
  P_Sex = ""
  P_Age = 0
  P_Address = ""
  P_Married = ""
  P_Job = ""
End Sub

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

Public Function GetInfo(ByVal TmpId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  
  If TmpId <= 0 Then
    GetInfo = False
    Init
    Exit Function
  End If
  '设置SELECT语句，读取编号为TmpId的记录
  SqlStmt = "SELECT * FROM Patient WHERE P_Id=" + Trim(TmpId)
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF = True Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    '将结果集中的数据赋值到成员变量中
    P_Id = rs.Fields(0)
    If IsNull(rs.Fields(1)) Then
      P_Name = ""
    Else
      P_Name = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      P_Sex = ""
    Else
      P_Sex = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      P_Age = ""
    Else
      P_Age = rs.Fields(3)
    End If
    If IsNull(rs.Fields(4)) Then
      P_Address = ""
    Else
      P_Address = rs.Fields(4)
    End If
    If IsNull(rs.Fields(5)) Then
      P_Job = ""
    Else
      P_Job = rs.Fields(5)
    End If
    If IsNull(rs.Fields(6)) Then
      P_Married = ""
    Else
      P_Married = rs.Fields(6)
    End If
    
    GetInfo = True
  End If
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Patient Values(S_PAT.NextVal, '" + Trim(P_Name) _
          + "','" + Trim(P_Sex) + "'," + Trim(P_Age) + ",'" + Trim(P_Address) _
          + "','" + Trim(P_Job) + "','" + Trim(P_Married) + "')"
  SQLExt (SqlStmt)
End Sub

Public Function GetMaxId() As Long
  Dim rs As New ADODB.Recordset
  '设置SELECT语句，读取编号为TmpId的记录
  SqlStmt = "SELECT Max(P_Id) FROM Patient"
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF = True Then
    '如果结果集为空，则初始化
    GetMaxId = 0
  Else
    '将结果集中的数据赋值到成员变量中
    GetMaxId = rs.Fields(0)
  End If
End Function

Public Sub Update(ByVal TmpId As Integer)
  SqlStmt = "UPDATE Patient Set P_Name='" + Trim(P_Name) + "', P_Sex='" _
          + Trim(P_Sex) + "', P_Address='" + Trim(P_Address) + "',P_Married='" _
          + Trim(P_Married) + "' ,P_Age=" + Trim(P_Age) + ", P_Job='" _
          + Trim(P_Job) + "' WHERE P_Id=" + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub