registration.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 = "Registration"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 R_Id  numbr 登记编号
'2 P_Id  number  患者编号
'3 R_Pay number  收取金额
'4 R_All number  应收金额
'5 R_Date  date  登记日期
'6 R_Earn  number  利润
'7 UserId  number  操作用户编号
'8 D_Id  number  医生编号

Public R_Id As Integer
Public P_Id As Integer
Public R_Pay As Integer
Public R_All As Integer
Public R_Date As String
Public R_Earn As Integer
Public D_Id As Integer
Public UserId As String

Public Sub Init()
  R_Id = 0
  P_Id = 0
  R_Pay = 0
  R_All = 0
  R_Date = ""
  R_Earn = 0
  D_Id = 0
  UserId = ""
End Sub

'删除数据
Public Sub Delete(ByVal TmpId As Integer)
  '删除门诊纪录
  SqlStmt = "DELETE FROM Registration WHERE R_Id=" + Trim(TmpId)
  SQLExt (SqlStmt)
  '删除收费项目信息
  SqlStmt = "DELETE FROM CheckProject WHERE R_Id=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

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

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

Public Sub Insert()
  SqlStmt = "INSERT INTO Registration(R_Id) Values(" + Trim(R_Id) + ")"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpId As Integer)
  SqlStmt = "Update Registration Set P_Id=" + Trim(P_Id) + ",R_Pay=" _
          + Trim(R_Pay) + ", R_All=" + Trim(R_All) + ", R_Date=SysDate" _
          + ", R_Earn=" + Trim(R_Earn) + ", D_Id=" + Trim(D_Id) + "," _
          + " UserId=" + Trim(UserId) + " WHERE R_Id=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub