frmbase_main.frm

医院管理方面的例子

'            Dim ClsYpglTjth    As cls_ypsf.ClassYpsf
'            Set ClsYpglTjth = New cls_ypsf.ClassYpsf
'            ClsYpglTjth.PropUserID = PStrUserID
'            ClsYpglTjth.PropUserName = PStrUserName
'            ClsYpglTjth.FunShowFrmYpgl_Tj_Thtj PcnnHisDb
'            Set ClsYpglTjth = Nothing
'
'        Case "600407"         '报损统计
'            Dim ClsYpglTjbs    As cls_ypsf.ClassYpsf
'            Set ClsYpglTjbs = New cls_ypsf.ClassYpsf
'            ClsYpglTjbs.PropUserID = PStrUserID
'            ClsYpglTjbs.PropUserName = PStrUserName
'            ClsYpglTjbs.FunShowFrmYpgl_Tj_Bstj PcnnHisDb
'            Set ClsYpglTjbs = Nothing
'
'        Case "600408"         '调拨统计
'            Dim ClsYpglTjDb    As cls_ypsf.ClassYpsf
'            Set ClsYpglTjDb = New cls_ypsf.ClassYpsf
'            ClsYpglTjDb.PropUserID = PStrUserID
'            ClsYpglTjDb.PropUserName = PStrUserName
'            ClsYpglTjDb.FunShowFrmYpgl_Tj_Dbtj PcnnHisDb
'            Set ClsYpglTjDb = Nothing
'
'        Case "600409"         '库存统计(工作统计)
'            Dim ClsYpglTjkc    As cls_ypsf.ClassYpsf
'            Set ClsYpglTjkc = New cls_ypsf.ClassYpsf
'            ClsYpglTjkc.PropUserID = PStrUserID
'            ClsYpglTjkc.PropUserName = PStrUserName
'            ClsYpglTjkc.FunShowFrmYpgl_Tj_Kctj PcnnHisDb
'            Set ClsYpglTjkc = Nothing
'
'        '------------项目维护-----------
'        Case "600501"         '基本目录维护
'            Dim ClsYpglWhBase    As cls_ypsf.ClassYpsf
'            Set ClsYpglWhBase = New cls_ypsf.ClassYpsf
'            ClsYpglWhBase.PropUserID = PStrUserID
'            ClsYpglWhBase.PropUserName = PStrUserName
'            ClsYpglWhBase.FunShowFrmYpgl_Mlwh_Base PcnnHisDb
'            Set ClsYpglWhBase = Nothing
'
'        Case "600502"         '药品目录维护
'            Dim ClsYpglWhYp    As cls_ypsf.ClassYpsf
'            Set ClsYpglWhYp = New cls_ypsf.ClassYpsf
'            ClsYpglWhYp.PropUserID = PStrUserID
'            ClsYpglWhYp.PropUserName = PStrUserName
'            ClsYpglWhYp.FunShowFrmYpgl_Mlwh_Ypml PcnnHisDb
'            Set ClsYpglWhYp = Nothing
'
'        Case "600503"         '诊疗目录维护
'            Dim ClsYpglWhZl    As cls_ypsf.ClassYpsf
'            Set ClsYpglWhZl = New cls_ypsf.ClassYpsf
'            ClsYpglWhZl.PropUserID = PStrUserID
'            ClsYpglWhZl.PropUserName = PStrUserName
'            ClsYpglWhZl.FunShowFrmYpgl_Mlwh_Zlml PcnnHisDb
'            Set ClsYpglWhZl = Nothing
'
'        Case "600504"         '药品产地维护
'            Dim ClsYpglWhCd    As cls_ypsf.ClassYpsf
'            Set ClsYpglWhCd = New cls_ypsf.ClassYpsf
'            ClsYpglWhCd.PropUserID = PStrUserID
'            ClsYpglWhCd.PropUserName = PStrUserName
'            ClsYpglWhCd.FunShowFrmYpgl_Mlwh_Ypcd PcnnHisDb
'            Set ClsYpglWhCd = Nothing
'
'        Case "600505"         '供货单位维护
'            Dim ClsYpglWhGys    As cls_ypsf.ClassYpsf
'            Set ClsYpglWhGys = New cls_ypsf.ClassYpsf
'            ClsYpglWhGys.PropUserID = PStrUserID
'            ClsYpglWhGys.PropUserName = PStrUserName
'            ClsYpglWhGys.FunShowFrmYpgl_Mlwh_Ypgys PcnnHisDb
'            Set ClsYpglWhGys = Nothing
'
'        Case "600506"         '调拨单位维护
'            Dim ClsYpglWhDbdw    As cls_ypsf.ClassYpsf
'            Set ClsYpglWhDbdw = New cls_ypsf.ClassYpsf
'            ClsYpglWhDbdw.PropUserID = PStrUserID
'            ClsYpglWhDbdw.PropUserName = PStrUserName
'            ClsYpglWhDbdw.FunShowFrmYpgl_Mlwh_Dbdw PcnnHisDb
'            Set ClsYpglWhDbdw = Nothing
            
        '=============================================================
        '===========================乳腺普查===========================
        '=============================================================
        Case "1901"       '基本信息
            Dim ClsRxpcBase      As cls_rxpc.classrxpc
            Set ClsRxpcBase = New cls_rxpc.classrxpc
            ClsRxpcBase.FunShowFrmRxpc_Base PcnnHisDb
            Set ClsRxpcBase = Nothing
        
        Case "1902"       '普查表
            Dim ClsRxpcMain      As cls_rxpc.classrxpc
            Set ClsRxpcMain = New cls_rxpc.classrxpc
            ClsRxpcMain.FunShowFrmrxpc_Main PcnnHisDb
            Set ClsRxpcMain = Nothing
            
        Case "1903"       '项目维护
            Dim ClsRxpcItem      As cls_rxpc.classrxpc
            Set ClsRxpcItem = New cls_rxpc.classrxpc
            ClsRxpcItem.FunShowFrmRxpc_Item PcnnHisDb
            Set ClsRxpcItem = Nothing
            
        '=============================================================
        '===========================系统维护===========================
        '=============================================================
        Case "700101"       '居委会维护
            Dim ClsLiverUnion      As cls_base_sys.ClassSys
            Set ClsLiverUnion = New cls_base_sys.ClassSys
            ClsLiverUnion.FunShowFrmSys_BaseDate_LiverUnion PcnnHisDb
            Set ClsLiverUnion = Nothing
        
        Case "700102"       '派出所维护
            Dim ClsPolice      As cls_base_sys.ClassSys
            Set ClsPolice = New cls_base_sys.ClassSys
            ClsPolice.FunShowFrmSys_BaseDate_Police PcnnHisDb
            Set ClsPolice = Nothing
            
        Case "700104"       '医疗单位维护
            Dim ClsMedUnion      As cls_base_sys.ClassSys
            Set ClsMedUnion = New cls_base_sys.ClassSys
            ClsMedUnion.FunShowFrmSys_BaseDate_MedUnion PcnnHisDb
            Set ClsMedUnion = Nothing
        
        Case "700105"       '契约服务维护
            Dim ClsService      As cls_base_sys.ClassSys
            Set ClsService = New cls_base_sys.ClassSys
            ClsService.FunShowFrmSys_BaseDate_Service PcnnHisDb
            Set ClsService = Nothing
        
        Case "700106"       '危险因素维护
            Dim ClsDangerFact      As cls_base_sys.ClassSys
            Set ClsDangerFact = New cls_base_sys.ClassSys
            ClsDangerFact.FunShowFrmSys_BaseDate_DangerFact PcnnHisDb
            Set ClsDangerFact = Nothing
        
        Case "700103"       '户口地址维护
            Dim ClsHkdz      As cls_base_sys.ClassSys
            Set ClsHkdz = New cls_base_sys.ClassSys
            ClsHkdz.FunShowFrmSys_BaseData_Province PcnnHisDb
            Set ClsHkdz = Nothing
            
        Case "700107"       '社区站维护
            Dim ClsWsz       As cls_base_sys.ClassSys
            Set ClsWsz = New cls_base_sys.ClassSys
            ClsWsz.FunShowFrmSys_BaseData_Wsz PcnnHisDb
            Set ClsWsz = Nothing
            
        Case "700108"       '基础数据维护
            Dim ClsSys       As cls_base_sys.ClassSys
            Set ClsSys = New cls_base_sys.ClassSys
            ClsSys.FunShowFrmSys_BaseData_Item PcnnHisDb
            
        '------------------------------------------------------安全管理
        Case "700201"       '职员维护
            Dim ClsSafeStaff As cls_base_safe.ClassSafe
            Set ClsSafeStaff = New cls_base_safe.ClassSafe
            ClsSafeStaff.FunShowFrmSafe_Staff PcnnHisDb
            
        Case "700202"       '用户管理
            Dim ClsSafeUser As cls_base_safe.ClassSafe
            Set ClsSafeUser = New cls_base_safe.ClassSafe
            ClsSafeUser.FunShowFrmSafe_User PcnnHisDb
            
        Case "700203"       '权限设置
            Dim ClsSafeRight As cls_base_safe.ClassSafe
            Set ClsSafeRight = New cls_base_safe.ClassSafe
            ClsSafeRight.FunShowFrmSafe_Privilege PcnnHisDb
            
        Case "700204"       '修改口令
            Dim ClsSafePwd As cls_base_safe.ClassSafe
            Set ClsSafePwd = New cls_base_safe.ClassSafe
            ClsSafePwd.PropUserID = PStrUserID
            ClsSafePwd.PropUserName = PStrUserName
            ClsSafePwd.FunShowFrmSafe_PwdUpdate PcnnHisDb
            Set ClsSafePwd = Nothing
        
        Case "700301"       '员工管理
            Dim ClsMangeStaffe As cls_managetran.ClassManageTran
            Set ClsMangeStaffe = New cls_managetran.ClassManageTran
            ClsMangeStaffe.PropUserID = PStrUserID
            ClsMangeStaffe.PropUserName = PStrUserName
            ClsMangeStaffe.FunShowFrmMangeTran_Gy PcnnHisDb
            Set ClsMangeStaffe = Nothing
        
        Case "700302"       '工作评价
            Dim ClsStaffeScore As cls_managetran.ClassManageTran
            Set ClsStaffeScore = New cls_managetran.ClassManageTran
            ClsStaffeScore.PropUserID = PStrUserID
            ClsStaffeScore.PropUserName = PStrUserName
            ClsStaffeScore.FunShowFrmMangeTran_Score PcnnHisDb
            Set ClsStaffeScore = Nothing
            
        '=============================================================
        '===========================社区诊断===========================
        '=============================================================
        '1601        社区基本信息设置
'        Case "1601"
'            Dim ClsCommScore_Base As cls_comm_score.ClassCommScore
'            Set ClsCommScore_Base = New cls_comm_score.ClassCommScore
'            ClsCommScore_Base.PropUserID = PStrUserID
'            ClsCommScore_Base.PropUserName = PStrUserName
'            ClsCommScore_Base.FunShowFrmCommScore_Base PcnnHisDb
'            Set ClsCommScore_Base = Nothing
'
'        '160201      社区年龄性别统计
'        Case "160201"
'            Dim ClsCommScore_Sex As cls_comm_score.ClassCommScore
'            Set ClsCommScore_Sex = New cls_comm_score.ClassCommScore
'            ClsCommScore_Sex.PropUserID = PStrUserID
'            ClsCommScore_Sex.PropUserName = PStrUserName
'            ClsCommScore_Sex.FunShowFrmCommScore_Count_Base_Sex PcnnHisDb
'            Set ClsCommScore_Sex = Nothing
'
'        '160202      社区付费类型统计
'        Case "160202"
'            Dim ClsCommScore_Fee As cls_comm_score.ClassCommScore
'            Set ClsCommScore_Fee = New cls_comm_score.ClassCommScore
'            ClsCommScore_Fee.PropUserID = PStrUserID
'            ClsCommScore_Fee.PropUserName = PStrUserName
'            ClsCommScore_Fee.FunShowFrmCommScore_Count_Base_Fee PcnnHisDb
'            Set ClsCommScore_Fee = Nothing
'
'        '160203      社区职业统计
'        Case "160203"
'            Dim ClsCommScore_Job As cls_comm_score.ClassCommScore
'            Set ClsCommScore_Job = New cls_comm_score.ClassCommScore
'            ClsCommScore_Job.PropUserID = PStrUserID
'            ClsCommScore_Job.PropUserName = PStrUserName
'            ClsCommScore_Job.FunShowFrmCommScore_Count_Base_Job PcnnHisDb
'            Set ClsCommScore_Job = Nothing
'
'        '160204      社区学历统计
'        Case "160204"
'            Dim ClsCommScore_Study As cls_comm_score.ClassCommScore
'            Set ClsCommScore_Study = New cls_comm_score.ClassCommScore
'            ClsCommScore_Study.PropUserID = PStrUserID
'            ClsCommScore_Study.PropUserName = PStrUserName
'            ClsCommScore_Study.FunShowFrmCommScore_Count_Base_Study PcnnHisDb
'            Set ClsCommScore_Study = Nothing
'
'        '160205      社区户籍统计
'        Case "160205"
'            Dim ClsCommScore_Regist As cls_comm_score.ClassCommScore
'            Set ClsCommScore_Regist = New cls_comm_score.ClassCommScore
'            ClsCommScore_Regist.PropUserID = PStrUserID
'            ClsCommScore_Regist.PropUserName = PStrUserName
'            ClsCommScore_Regist.FunShowFrmCommScore_Count_Base_Regist PcnnHisDb
'            Set ClsCommScore_Regist = Nothing
'
'        '160206      社区婚姻统计
'        Case "160206"
'            Dim ClsCommScore_Marriage As cls_comm_score.ClassCommScore
'            Set ClsCommScore_Marriage = New cls_comm_score.ClassCommScore
'            ClsCommScore_Marriage.PropUserID = PStrUserID
'            ClsCommScore_Marriage.PropUserName = PStrUserName
'            ClsCommScore_Marriage.FunShowFrmCommScore_Count_Base_Marriage PcnnHisDb
'            Set ClsCommScore_Marriage = Nothing
'
'        '160207      社区籍贯统计
'        Case "160207"
'            Dim ClsCommScore_Native As cls_comm_score.ClassCommScore
'            Set ClsCommScore_Native = New cls_comm_score.ClassCommScore
'            ClsCommScore_Native.PropUserID = PStrUserID
'            ClsCommScore_Native.PropUserName = PStrUserName
'            ClsCommScore_Native.FunShowFrmCommScore_Count_Base_Native PcnnHisDb
'            Set ClsCommScore_Native = Nothing
'
'        '160208      AFP主动监测年汇总表
'        Case "160208"
'            Dim ClsCommScore_AFP As cls_comm_score.ClassCommScore
'            Set ClsCommScore_AFP = New cls_comm_score.ClassCommScore
'            ClsCommScore_AFP.PropUserID = PStrUserID
'            ClsCommScore_AFP.PropUserName = PStrUserName
'            ClsCommScore_AFP.FunShowFrmCommScore_Count_Base_AFP PcnnHisDb
'            Set ClsCommScore_AFP = Nothing
'
'        '=============================================================
'        '===========================数据维护===========================
'        '=============================================================
'        Case "183001"       '数据导出
'            Dim ClsBaseDataOut As cls_base_data.ClassBaseData
'            Set ClsBaseDataOut = New cls_base_data.ClassBaseData
'            ClsBaseDataOut.PropUserID = PStrUserID
'            ClsBaseDataOut.PropUserName = PStrUserName
'            ClsBaseDataOut.FunShowFrmBaseDataSetup_Out PcnnHisDb
'            Set ClsBaseDataOut = Nothing
'
'        Case "183002"       '数据导入
'            Dim ClsBaseDataIn As cls_base_data.ClassBaseData
'            Set ClsBaseDataIn = New cls_base_data.ClassBaseData
'            ClsBaseDataIn.PropUserID = PStrUserID
'            ClsBaseDataIn.PropUserName =