clspatientinfo.cls

1、以DLL形式提供医生工作站 2、 根据【检查项目】

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

'保持属性值的局部变量
Private mvarPATIENT_ID As String '局部复制
Private mvarPATIENT_NAME As String '局部复制
Private mvarPATIENT_NAME_PHONETIC As String '局部复制
Private mvarPATIENT_SEX As String '局部复制
Private mvarPATIENT_AGE As String '局部复制
Private mvarAGE_WEIGHT As String '局部复制
Private mvarPATIENT_BIRTHDAY As String '局部复制
Private mvarAPPLY_DEPT_ID As String '局部复制
Private mvarAPPLY_DOCT_ID As String '局部复制
Private mvarVISIT_AREA As String '局部复制
Private mvarHOSPITAL_NUM As String '局部复制
Private mvarBED_NUM As String '局部复制
Private mvarSTUDY_DATE As String '局部复制
Private mvarMACHINE_NAME As String '局部复制
Private mvarALL_CHECK_PART As String '局部复制
Private mvarCHECK_DOCTOR_ID As String '局部复制
Private mvarSTATE As String '局部复制
Private mvarCHECK_DATE As String '局部复制
Private mvarAUDIT_DOCTOR_ID As String '局部复制
Private mvarAUDIT_DATE As String '局部复制
Private mvarFILM_DESCRIPTION As String '局部复制
Private mvarDIAGNOSIS_RESULT As String '局部复制
Private mvarDOCTOR_ADVICE As String '局部复制
Private mvarCHECK_FEE As String '局部复制
Private mvarEXAM_CLASS As String '局部复制
Private mvarMETHOD As String '局部复制
Private mvarNEGATIVE As String '局部复制
Private mvarIS_EMERGENT As String '局部复制
Private mvarCHECK_STATE As String '局部复制
Public Property Let CHECK_STATE(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.CHECK_STATE = 5
    mvarCHECK_STATE = vData
End Property


Public Property Get CHECK_STATE() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.CHECK_STATE
    CHECK_STATE = mvarCHECK_STATE
End Property



Public Property Let IS_EMERGENT(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.IS_EMERGENT = 5
    mvarIS_EMERGENT = vData
End Property


Public Property Get IS_EMERGENT() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.IS_EMERGENT
    IS_EMERGENT = mvarIS_EMERGENT
End Property



Public Property Let NEGATIVE(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.NEGATIVE = 5
    mvarNEGATIVE = vData
End Property


Public Property Get NEGATIVE() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.NEGATIVE
    NEGATIVE = mvarNEGATIVE
End Property



Public Property Let METHOD(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.METHOD = 5
    mvarMETHOD = vData
End Property


Public Property Get METHOD() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.METHOD
    METHOD = mvarMETHOD
End Property



Public Property Let EXAM_CLASS(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.EXAM_CLASS = 5
    mvarEXAM_CLASS = vData
End Property


Public Property Get EXAM_CLASS() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.EXAM_CLASS
    EXAM_CLASS = mvarEXAM_CLASS
End Property



Public Property Let CHECK_FEE(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.CHECK_FEE = 5
    mvarCHECK_FEE = vData
End Property


Public Property Get CHECK_FEE() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.CHECK_FEE
    CHECK_FEE = mvarCHECK_FEE
End Property



Public Property Let DOCTOR_ADVICE(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.DOCTOR_ADVICE = 5
    mvarDOCTOR_ADVICE = vData
End Property


Public Property Get DOCTOR_ADVICE() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.DOCTOR_ADVICE
    DOCTOR_ADVICE = mvarDOCTOR_ADVICE
End Property



Public Property Let DIAGNOSIS_RESULT(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.DIAGNOSIS_RESULT = 5
    mvarDIAGNOSIS_RESULT = vData
End Property


Public Property Get DIAGNOSIS_RESULT() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.DIAGNOSIS_RESULT
    DIAGNOSIS_RESULT = mvarDIAGNOSIS_RESULT
End Property



Public Property Let FILM_DESCRIPTION(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.FILM_DESCRIPTION = 5
    mvarFILM_DESCRIPTION = vData
End Property


Public Property Get FILM_DESCRIPTION() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.FILM_DESCRIPTION
    FILM_DESCRIPTION = mvarFILM_DESCRIPTION
End Property



Public Property Let AUDIT_DATE(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.AUDIT_DATE = 5
    mvarAUDIT_DATE = vData
End Property


Public Property Get AUDIT_DATE() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.AUDIT_DATE
    AUDIT_DATE = mvarAUDIT_DATE
End Property



Public Property Let AUDIT_DOCTOR_ID(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.AUDIT_DOCTOR_ID = 5
    mvarAUDIT_DOCTOR_ID = vData
End Property


Public Property Get AUDIT_DOCTOR_ID() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.AUDIT_DOCTOR_ID
    AUDIT_DOCTOR_ID = mvarAUDIT_DOCTOR_ID
End Property



Public Property Let CHECK_DATE(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.CHECK_DATE = 5
    mvarCHECK_DATE = vData
End Property


Public Property Get CHECK_DATE() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.CHECK_DATE
    CHECK_DATE = mvarCHECK_DATE
End Property



Public Property Let STATE(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.STATE = 5
    mvarSTATE = vData
End Property


Public Property Get STATE() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.STATE
    STATE = mvarSTATE
End Property



Public Property Let CHECK_DOCTOR_ID(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.CHECK_DOCTOR_ID = 5
    mvarCHECK_DOCTOR_ID = vData
End Property


Public Property Get CHECK_DOCTOR_ID() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.CHECK_DOCTOR_ID
    CHECK_DOCTOR_ID = mvarCHECK_DOCTOR_ID
End Property



Public Property Let ALL_CHECK_PART(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.ALL_CHECK_PART = 5
    mvarALL_CHECK_PART = vData
End Property


Public Property Get ALL_CHECK_PART() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.ALL_CHECK_PART
    ALL_CHECK_PART = mvarALL_CHECK_PART
End Property



Public Property Let MACHINE_NAME(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.MACHINE_NAME = 5
    mvarMACHINE_NAME = vData
End Property


Public Property Get MACHINE_NAME() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.MACHINE_NAME
    MACHINE_NAME = mvarMACHINE_NAME
End Property



Public Property Let STUDY_DATE(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.STUDY_DATE = 5
    mvarSTUDY_DATE = vData
End Property


Public Property Get STUDY_DATE() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.STUDY_DATE
    STUDY_DATE = mvarSTUDY_DATE
End Property



Public Property Let BED_NUM(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.BED_NUM = 5
    mvarBED_NUM = vData
End Property


Public Property Get BED_NUM() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.BED_NUM
    BED_NUM = mvarBED_NUM
End Property



Public Property Let HOSPITAL_NUM(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.HOSPITAL_NUM = 5
    mvarHOSPITAL_NUM = vData
End Property


Public Property Get HOSPITAL_NUM() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.HOSPITAL_NUM
    HOSPITAL_NUM = mvarHOSPITAL_NUM
End Property



Public Property Let VISIT_AREA(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.VISIT_AREA = 5
    mvarVISIT_AREA = vData
End Property


Public Property Get VISIT_AREA() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.VISIT_AREA
    VISIT_AREA = mvarVISIT_AREA
End Property



Public Property Let APPLY_DOCT_ID(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.APPLY_DOCT_ID = 5
    mvarAPPLY_DOCT_ID = vData
End Property


Public Property Get APPLY_DOCT_ID() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.APPLY_DOCT_ID
    APPLY_DOCT_ID = mvarAPPLY_DOCT_ID
End Property



Public Property Let APPLY_DEPT_ID(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.APPLY_DEPT_ID = 5
    mvarAPPLY_DEPT_ID = vData
End Property


Public Property Get APPLY_DEPT_ID() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.APPLY_DEPT_ID
    APPLY_DEPT_ID = mvarAPPLY_DEPT_ID
End Property



Public Property Let PATIENT_BIRTHDAY(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PATIENT_BIRTHDAY = 5
    mvarPATIENT_BIRTHDAY = vData
End Property


Public Property Get PATIENT_BIRTHDAY() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.PATIENT_BIRTHDAY
    PATIENT_BIRTHDAY = mvarPATIENT_BIRTHDAY
End Property



Public Property Let AGE_WEIGHT(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.AGE_WEIGHT = 5
    mvarAGE_WEIGHT = vData
End Property


Public Property Get AGE_WEIGHT() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.AGE_WEIGHT
    AGE_WEIGHT = mvarAGE_WEIGHT
End Property



Public Property Let PATIENT_AGE(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PATIENT_AGE = 5
    mvarPATIENT_AGE = vData
End Property


Public Property Get PATIENT_AGE() As String
Attribute PATIENT_AGE.VB_UserMemId = 0
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.PATIENT_AGE
    PATIENT_AGE = mvarPATIENT_AGE
End Property



Public Property Let PATIENT_SEX(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PATIENT_SEX = 5
    mvarPATIENT_SEX = vData
End Property


Public Property Get PATIENT_SEX() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.PATIENT_SEX
    PATIENT_SEX = mvarPATIENT_SEX
End Property



Public Property Let PATIENT_NAME_PHONETIC(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PATIENT_NAME_PHONETIC = 5
    mvarPATIENT_NAME_PHONETIC = vData
End Property


Public Property Get PATIENT_NAME_PHONETIC() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.PATIENT_NAME_PHONETIC
    PATIENT_NAME_PHONETIC = mvarPATIENT_NAME_PHONETIC
End Property



Public Property Let PATIENT_NAME(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PATIENT_NAME = 5
    mvarPATIENT_NAME = vData
End Property


Public Property Get PATIENT_NAME() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.PATIENT_NAME
    PATIENT_NAME = mvarPATIENT_NAME
End Property



Public Property Let PATIENT_ID(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.PATIENT_ID = 5
    mvarPATIENT_ID = vData
End Property


Public Property Get PATIENT_ID() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.PATIENT_ID
    PATIENT_ID = mvarPATIENT_ID
End Property