doctor.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 = "Doctor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 D_Id  number  医生编号
'2 D_Name  varchar2 50 医生姓名
'3 D_Sex varchar2 10 性别
'4 D_Age number  年龄
'5 D_Dept  varchar2 50 所在科室
'6 D_Title varchar2 100  职称


Public D_Id As Integer
Public D_Name As String
Public D_Sex As String
Public D_Age As Integer
Public D_Dept As String
Public D_Title As String

Public Sub Init()
  D_Id = 0
  D_Name = ""
  D_Sex = ""
  D_Age = 0
  D_Dept = ""
  D_Title = ""
End Sub

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

Public Sub Insert()
  SqlStmt = "INSERT INTO Doctor Values(S_DOCID.NextVal, '" _
          + Trim(D_Name) + "','" + Trim(D_Sex) + "'," + Trim(D_Age) _
          + ",'" + Trim(D_Dept) + "','" + Trim(D_Title) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpId As Integer)
  SqlStmt = "UPDATE Doctor Set D_Name='" + Trim(D_Name) + "', D_Sex='" _
          + Trim(D_Sex) + "', D_Dept='" + Trim(D_Dept) + "',D_Title='" _
          + Trim(D_Title) + "' ,D_Age=" + Trim(D_Age) _
          + "WHERE D_Id=" + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub