classrxpc.cls

医院管理方面的例子

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "classrxpc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

'花名册
Public Sub FunShowFrmRxpc_Base(CnnDB As ADODB.Connection)
    Set PCnnHisDB = CnnDB
    FrmRxpc_Base.Show 1
End Sub

'调查表
Public Sub FunShowFrmrxpc_Main(CnnDB As ADODB.Connection)
    Set PCnnHisDB = CnnDB
    FrmRxpc_Main.Show 1
End Sub

'项目维护
Public Sub FunShowFrmRxpc_Item(CnnDB As ADODB.Connection)
    Set PCnnHisDB = CnnDB
    FrmRxpc_Item.Show 1
End Sub