frmbase_main.frm

医院管理方面的例子

'            ClsJhmyKcrk.PropUserName = PStrUserName
'            ClsJhmyKcrk.FunShowFrmJhmy_Kcgl_Yprk PcnnHisDb
'            Set ClsJhmyKcrk = Nothing
'
'        Case "030203"        '库存查询
'            Dim ClsJhmyKccx    As cls_jhmy.ClassJhmy
'            Set ClsJhmyKccx = New cls_jhmy.ClassJhmy
'            ClsJhmyKccx.PropUserID = PStrUserID
'            ClsJhmyKccx.PropUserName = PStrUserName
'            ClsJhmyKccx.FunShowFrmJhmy_Kcgl_Kccx PcnnHisDb
'            Set ClsJhmyKccx = Nothing
'
'        Case "030204"        '效期管理
'            Dim ClsJhmyXqgl    As cls_jhmy.ClassJhmy
'            Set ClsJhmyXqgl = New cls_jhmy.ClassJhmy
'            ClsJhmyXqgl.PropUserID = PStrUserID
'            ClsJhmyXqgl.PropUserName = PStrUserName
'            ClsJhmyXqgl.FunShowFrmJhmy_Kcgl_Xqgl PcnnHisDb
'            Set ClsJhmyXqgl = Nothing
'
'        '------------统计报表-----------
'        Case "030301"
'            Dim ClsJhmyRep_01    As cls_jhmy.ClassJhmy
'            Set ClsJhmyRep_01 = New cls_jhmy.ClassJhmy
'            ClsJhmyRep_01.PropUserID = PStrUserID
'            ClsJhmyRep_01.PropUserName = PStrUserName
'            ClsJhmyRep_01.FunShowFrmJhmy_Prt_01 PcnnHisDb
'            Set ClsJhmyRep_01 = Nothing
'
'        Case "030302"
'            Dim ClsJhmyRep_02    As cls_jhmy.ClassJhmy
'            Set ClsJhmyRep_02 = New cls_jhmy.ClassJhmy
'            ClsJhmyRep_02.PropUserID = PStrUserID
'            ClsJhmyRep_02.PropUserName = PStrUserName
'            ClsJhmyRep_02.FunShowFrmJhmy_Prt_02 PcnnHisDb
'            Set ClsJhmyRep_02 = Nothing
'
'        Case "030303"
'            Dim ClsJhmyRep_03    As cls_jhmy.ClassJhmy
'            Set ClsJhmyRep_03 = New cls_jhmy.ClassJhmy
'            ClsJhmyRep_03.PropUserID = PStrUserID
'            ClsJhmyRep_03.PropUserName = PStrUserName
'            ClsJhmyRep_03.FunShowFrmJhmy_Prt_03 PcnnHisDb
'            Set ClsJhmyRep_03 = Nothing
'
'        Case "030304"
'            Dim ClsJhmyRep_04    As cls_jhmy.ClassJhmy
'            Set ClsJhmyRep_04 = New cls_jhmy.ClassJhmy
'            ClsJhmyRep_04.PropUserID = PStrUserID
'            ClsJhmyRep_04.PropUserName = PStrUserName
'            ClsJhmyRep_04.FunShowFrmJhmy_Prt_04 PcnnHisDb
'            Set ClsJhmyRep_04 = Nothing
'
'        Case "030305"
'            Dim ClsJhmyRep_05    As cls_jhmy.ClassJhmy
'            Set ClsJhmyRep_05 = New cls_jhmy.ClassJhmy
'            ClsJhmyRep_05.PropUserID = PStrUserID
'            ClsJhmyRep_05.PropUserName = PStrUserName
'            ClsJhmyRep_05.FunShowFrmJhmy_Prt_05 PcnnHisDb
'            Set ClsJhmyRep_05 = Nothing
'
'        Case "030306"
'            Dim ClsJhmyRep_06    As cls_jhmy.ClassJhmy
'            Set ClsJhmyRep_06 = New cls_jhmy.ClassJhmy
'            ClsJhmyRep_06.PropUserID = PStrUserID
'            ClsJhmyRep_06.PropUserName = PStrUserName
'            ClsJhmyRep_06.FunShowFrmJhmy_Prt_06 PcnnHisDb
'            Set ClsJhmyRep_06 = Nothing
'
'        Case "030307"
'            Dim ClsJhmyRep_07    As cls_jhmy.ClassJhmy
'            Set ClsJhmyRep_07 = New cls_jhmy.ClassJhmy
'            ClsJhmyRep_07.PropUserID = PStrUserID
'            ClsJhmyRep_07.PropUserName = PStrUserName
'            ClsJhmyRep_07.FunShowFrmJhmy_Prt_07 PcnnHisDb
'            Set ClsJhmyRep_07 = Nothing
'
'        Case "030308"
'            Dim ClsJhmyRep_08    As cls_jhmy.ClassJhmy
'            Set ClsJhmyRep_08 = New cls_jhmy.ClassJhmy
'            ClsJhmyRep_08.PropUserID = PStrUserID
'            ClsJhmyRep_08.PropUserName = PStrUserName
'            ClsJhmyRep_08.FunShowFrmJhmy_Prt_08 PcnnHisDb
'            Set ClsJhmyRep_08 = Nothing
'
'        Case "030309"
'            Dim ClsJhmyRep_09    As cls_jhmy.ClassJhmy
'            Set ClsJhmyRep_09 = New cls_jhmy.ClassJhmy
'            ClsJhmyRep_09.PropUserID = PStrUserID
'            ClsJhmyRep_09.PropUserName = PStrUserName
'            ClsJhmyRep_09.FunShowFrmJhmy_Prt_09 PcnnHisDb
'            Set ClsJhmyRep_09 = Nothing
'
'        '------------数据维护-----------
'        Case "030401"        '疫苗名称维护
'            Dim ClsJhmyWhYmmc    As cls_jhmy.ClassJhmy
'            Set ClsJhmyWhYmmc = New cls_jhmy.ClassJhmy
'            ClsJhmyWhYmmc.PropUserID = PStrUserID
'            ClsJhmyWhYmmc.PropUserName = PStrUserName
'            ClsJhmyWhYmmc.FunShowFrmJhmy_Mlwh_Ymmc PcnnHisDb
'            Set ClsJhmyWhYmmc = Nothing
'
'        Case "030402"        '疫苗信息维护
'            Dim ClsJhmyWhYmxx    As cls_jhmy.ClassJhmy
'            Set ClsJhmyWhYmxx = New cls_jhmy.ClassJhmy
'            ClsJhmyWhYmxx.PropUserID = PStrUserID
'            ClsJhmyWhYmxx.PropUserName = PStrUserName
'            ClsJhmyWhYmxx.FunShowFrmJhmy_Mlwh_Ymxx PcnnHisDb
'            Set ClsJhmyWhYmxx = Nothing
'
'        Case "030403"        '接种卡片维护
'            Dim ClsJhmyWhCard    As cls_jhmy.ClassJhmy
'            Set ClsJhmyWhCard = New cls_jhmy.ClassJhmy
'            ClsJhmyWhCard.PropUserID = PStrUserID
'            ClsJhmyWhCard.PropUserName = PStrUserName
'            ClsJhmyWhCard.FunShowFrmJhmy_Mlwh_Card PcnnHisDb
'            Set ClsJhmyWhCard = Nothing
'
'        Case "030404"        '时间间隔维护
'            Dim ClsJhmyWhSjjg    As cls_jhmy.ClassJhmy
'            Set ClsJhmyWhSjjg = New cls_jhmy.ClassJhmy
'            ClsJhmyWhSjjg.PropUserID = PStrUserID
'            ClsJhmyWhSjjg.PropUserName = PStrUserName
'            ClsJhmyWhSjjg.FunShowFrmJhmy_Mlwh_Sjjg PcnnHisDb
'            Set ClsJhmyWhSjjg = Nothing
'
'        '========================================================
'        '=====================妇女保健===========================
'        '========================================================
'        Case "0401"          '妇女保健
'            Dim ClsFnbjFb    As cls_fnbj.ClassFnbj
'            Set ClsFnbjFb = New cls_fnbj.ClassFnbj
'            ClsFnbjFb.PropUserID = PStrUserID
'            ClsFnbjFb.PropUserName = PStrUserName
'            ClsFnbjFb.FunShowFrmFb_Base PcnnHisDb
'            Set ClsFnbjFb = Nothing
'
'        Case "0402"          '妇女保健
'            Dim ClsFnbjFb_kp    As cls_fnbj.ClassFnbj
'            Set ClsFnbjFb_kp = New cls_fnbj.ClassFnbj
'            ClsFnbjFb_kp.PropUserID = PStrUserID
'            ClsFnbjFb_kp.PropUserName = PStrUserName
'            ClsFnbjFb_kp.FunShowFrmFb_gy PcnnHisDb
'            Set ClsFnbjFb_kp = Nothing
'
'        '========================================================
'        '=====================计划生育===========================
'        '========================================================
'        Case "0501"
'            Dim ClsJhsyGy    As cls_jhsy.ClassJhsy
'            Set ClsJhsyGy = New cls_jhsy.ClassJhsy
'            ClsJhsyGy.PropUserID = PStrUserID
'            ClsJhsyGy.PropUserName = PStrUserName
'            ClsJhsyGy.FunShowFrmJhsy_gy PcnnHisDb
'            Set ClsJhsyGy = Nothing
'
'        '========================================================
'        '=====================高血压管理===========================
'        '========================================================
'        Case "060101"
'            Dim ClassGxyglGy    As cls_gxygl.ClassGxygl
'            Set ClassGxyglGy = New cls_gxygl.ClassGxygl
'            ClassGxyglGy.PropUserID = PStrUserID
'            ClassGxyglGy.PropUserName = PStrUserName
'            ClassGxyglGy.FunShowFrmJb_Mxb_Gxy_gy PcnnHisDb
'            Set ClassGxyglGy = Nothing
'
'        '========================================================
'        '=====================糖尿病管理===========================
'        '========================================================
'        Case "060102"
'            Dim ClassTnbglGy    As cls_tnbgl.ClasstTnb
'            Set ClassTnbglGy = New cls_tnbgl.ClasstTnb
'            ClassTnbglGy.PropUserID = PStrUserID
'            ClassTnbglGy.PropUserName = PStrUserName
'            ClassTnbglGy.FunShowFrmJb_Mxb_Tnb_gy PcnnHisDb
'            Set ClassTnbglGy = Nothing
'
'        '========================================================
'        '=====================精神病管理==========================
'        '========================================================
'        Case "0602"
'            Dim ClassJsbglGy    As cls_jsbgl.ClassJsbgl
'            Set ClassJsbglGy = New cls_jsbgl.ClassJsbgl
'            ClassJsbglGy.PropUserID = PStrUserID
'            ClassJsbglGy.PropUserName = PStrUserName
'            ClassJsbglGy.FunShowFrmJb_Jsb_gy PcnnHisDb
'            Set ClassJsbglGy = Nothing
'
'        '========================================================
'        '=====================急性痢疾管理========================
'        '========================================================
'        Case "060301"
'            Dim Class_Crb_Lj_Gy    As cls_crb_lj.Class_Crb_Lj
'            Set Class_Crb_Lj_Gy = New cls_crb_lj.Class_Crb_Lj
'            Class_Crb_Lj_Gy.PropUserID = PStrUserID
'            Class_Crb_Lj_Gy.PropUserName = PStrUserName
'            Class_Crb_Lj_Gy.FunShowFrmJb_Crb_Lj_gy PcnnHisDb
'            Set Class_Crb_Lj_Gy = Nothing
'
'        '========================================================
'        '=====================肝炎管理===========================
'        '========================================================
'        Case "060302"
'            Dim Class_Crb_Gy_Gy    As cls_crb_gy.Class_Crb_gy
'            Set Class_Crb_Gy_Gy = New cls_crb_gy.Class_Crb_gy
'            Class_Crb_Gy_Gy.PropUserID = PStrUserID
'            Class_Crb_Gy_Gy.PropUserName = PStrUserName
'            Class_Crb_Gy_Gy.FunShowFrmJb_Crb_Gy_gy PcnnHisDb
'            Set Class_Crb_Gy_Gy = Nothing
'
'        '========================================================
'        '=====================慢病统计===========================
'        '========================================================
'        Case "0610"
'            Dim Class_Mxb_Tj01    As cls_tnbgl.ClasstTnb
'            Set Class_Mxb_Tj01 = New cls_tnbgl.ClasstTnb
'            Class_Mxb_Tj01.PropUserID = PStrUserID
'            Class_Mxb_Tj01.PropUserName = PStrUserName
'            Class_Mxb_Tj01.FunShowFrmJb_Mxb_Tj01 PcnnHisDb
'            Set Class_Mxb_Tj01 = Nothing
'
'        '========================================================
'        '=====================健康教育===========================
'        '========================================================
'        Case "0902"
'            Dim Class_HealthEdu_Gy    As cls_health_educate.ClassHealthEdu
'            Set Class_HealthEdu_Gy = New cls_health_educate.ClassHealthEdu
'            Class_HealthEdu_Gy.PropUserID = PStrUserID
'            Class_HealthEdu_Gy.PropUserName = PStrUserName
'            Class_HealthEdu_Gy.FunShowFrmHealthEdu_Gy PcnnHisDb
'            Set Class_HealthEdu_Gy = Nothing
'
'        '教育字典维护
'        Case "0901"
'            Dim Class_HealthEdu_DictSetup    As cls_health_educate.ClassHealthEdu
'            Set Class_HealthEdu_DictSetup = New cls_health_educate.ClassHealthEdu
'            Class_HealthEdu_DictSetup.PropUserID = PStrUserID
'            Class_HealthEdu_DictSetup.PropUserName = PStrUserName
'            Class_HealthEdu_DictSetup.FunShowFrmHealthEdu_DictSetup PcnnHisDb
'            Set Class_HealthEdu_DictSetup = Nothing
'
'        '健康教育处方发放统计
'        Case "090301"
'            Dim Class_HealthEdu_CoutOut    As cls_health_educate.ClassHealthEdu
'            Set Class_HealthEdu_CoutOut = New cls_health_educate.ClassHealthEdu
'            Class_HealthEdu_CoutOut.PropUserID = PStrUserID
'            Class_HealthEdu_CoutOut.PropUserName = PStrUserName
'            Class_HealthEdu_CoutOut.FunShowFrmHealthEdu_CoutOut PcnnHisDb
'            Set Class_HealthEdu_CoutOut = Nothing
'
'        '健康教育处方领取统计
'        Case "090302"
'            Dim Class_HealthEdu_CoutGet    As cls_health_educate.ClassHealthEdu
'            Set Class_HealthEdu_CoutGet = New cls_health_educate.ClassHealthEdu
'            Class_HealthEdu_CoutGet.PropUserID = PStrUserID
'            Class_HealthEdu_CoutGet.PropUserName = PStrUserName
'            Class_HealthEdu_CoutGet.FunShowFrmHealthEdu_CoutGet PcnnHisDb
'            Set Class_HealthEdu_CoutGet = Nothing
'
'        '========================================================
'        '=====================康复管理===========================
'        '========================================================
'        Case "1101"
'            Dim Class_HealthBack_Gy    As cls_healthback.ClassHealthBack
'            Set Class_HealthBack_Gy = New cls_healthback.ClassHealthBack
'            Class_HealthBack_Gy.PropUserID = PStrUserID
'            Class_HealthBack_Gy.PropUserName = PStrUserName
'            Class_HealthBack_Gy.FunShowFrmHealthBack_gy PcnnHisDb
'            Set Class_HealthBack_Gy = Nothing
'
'        '========================================================
'        '=====================老年人保健===========================
'        '========================================================
'        Case "1201"
'            Dim Class_OldPeople_Gy    As cls_oldpeople.ClassOldPeople
'            Set Class_OldPeople_Gy = New cls_oldpeople.ClassOldPeople
'            Class_OldPeople_Gy.PropUserID = PStrUserID
'            Class_OldPeople_Gy.PropUserName = PStrUserName
'            Class_OldPeople_Gy.FunShowFrmOldpeople_Gy PcnnHisDb
'            Set Class_OldPeople_Gy = Nothing
'
'        '========================================================
'        '=====================临终关怀===========================
'        '========================================================
'        Case "13"
'            Dim Class_EndLife    As cls_endlife.ClassEndLife
'            Set Class_EndLife = New cls_endlife.ClassEndLife
'            Class_EndLife.PropUserID = PStrUserID
'            Class_EndLife.PropUserName = PStrUserName
'            Class_EndLife.FunShowFrmEndLife_gy PcnnHisDb
'            Set Class_EndLife = Nothing
'