frmbase_main.frm

医院管理方面的例子

'        '========================================================
'        '=====================预警管理===========================
'        '========================================================
'        '1401        计免预警
'        Case "1401"
'            Dim Class_Warn_Jhmy    As cls_warn.ClassWarn
'            Set Class_Warn_Jhmy = New cls_warn.ClassWarn
'            Class_Warn_Jhmy.PropUserID = PStrUserID
'            Class_Warn_Jhmy.PropUserName = PStrUserName
'            Class_Warn_Jhmy.FunShowFrmWarn_Jhmy PcnnHisDb
'            Set Class_Warn_Jhmy = Nothing
'
'        '1402        慢病预警
'        Case "1402"
'            Dim Class_Warn_Sick    As cls_warn.ClassWarn
'            Set Class_Warn_Sick = New cls_warn.ClassWarn
'            Class_Warn_Sick.PropUserID = PStrUserID
'            Class_Warn_Sick.PropUserName = PStrUserName
'            Class_Warn_Sick.FunShowFrmWarn_Sick PcnnHisDb
'            Set Class_Warn_Sick = Nothing
'
'        '1403        契约服务
'        Case "1403"
'            Dim Class_Warn_Service  As cls_warn.ClassWarn
'            Set Class_Warn_Service = New cls_warn.ClassWarn
'            Class_Warn_Service.PropUserID = PStrUserID
'            Class_Warn_Service.PropUserName = PStrUserName
'            Class_Warn_Service.FunShowFrmWarn_Service PcnnHisDb
'            Set Class_Warn_Service = Nothing
'
'        '1404        其它预警
'        Case "1404"
'            Dim Class_Warn_Other  As cls_warn.ClassWarn
'            Set Class_Warn_Other = New cls_warn.ClassWarn
'            Class_Warn_Other.PropUserID = PStrUserID
'            Class_Warn_Other.PropUserName = PStrUserName
'            Class_Warn_Other.FunShowFrmWarn_Other PcnnHisDb
'            Set Class_Warn_Other = Nothing
'
'        '========================================================
'        '=====================学生体检===========================
'        '========================================================
'        '小学生
'        Case "070101"
'            Dim Class_Tj_Xs_Xxs    As cls_tj_xs.Class_Tj_Xs
'            Set Class_Tj_Xs_Xxs = New cls_tj_xs.Class_Tj_Xs
'            Class_Tj_Xs_Xxs.PropUserID = PStrUserID
'            Class_Tj_Xs_Xxs.PropUserName = PStrUserName
'            Class_Tj_Xs_Xxs.FunShowFrmTj_Xs_Xxs PcnnHisDb
'            Set Class_Tj_Xs_Xxs = Nothing
'
'        '中学生
'        Case "070102"
'            Dim Class_Tj_Xs_Zxs    As cls_tj_xs.Class_Tj_Xs
'            Set Class_Tj_Xs_Zxs = New cls_tj_xs.Class_Tj_Xs
'            Class_Tj_Xs_Zxs.PropUserID = PStrUserID
'            Class_Tj_Xs_Zxs.PropUserName = PStrUserName
'            Class_Tj_Xs_Zxs.FunShowFrmTj_Xs_Zxs PcnnHisDb
'            Set Class_Tj_Xs_Zxs = Nothing
'
'        '========================================================
'        '=====================成人体检===========================
'        '========================================================
'        '<45
'        Case "070201"
'            Dim Class_Tj_Cr_U45    As cls_tj_cr.Class_Tj_Cr
'            Set Class_Tj_Cr_U45 = New cls_tj_cr.Class_Tj_Cr
'            Class_Tj_Cr_U45.PropUserID = PStrUserID
'            Class_Tj_Cr_U45.PropUserName = PStrUserName
'            Class_Tj_Cr_U45.FunShowFrm_Tj_Cr_D45 PcnnHisDb
'            Set Class_Tj_Cr_U45 = Nothing
'
'        Case "070202"
'            Dim Class_Tj_Cr_D45    As cls_tj_cr.Class_Tj_Cr
'            Set Class_Tj_Cr_D45 = New cls_tj_cr.Class_Tj_Cr
'            Class_Tj_Cr_D45.PropUserID = PStrUserID
'            Class_Tj_Cr_D45.PropUserName = PStrUserName
'            Class_Tj_Cr_D45.FunShowFrm_Tj_Cr_D45 PcnnHisDb
'            Set Class_Tj_Cr_D45 = Nothing
'
'        '========================================================
'        '=====================全科诊疗===========================
'        '========================================================
'        Case "0801"
'            Dim Class_AllSub    As cls_allsubject.ClassAllSubject
'            Set Class_AllSub = New cls_allsubject.ClassAllSubject
'            Class_AllSub.PropUserID = PStrUserID
'            Class_AllSub.PropUserName = PStrUserName
'            Class_AllSub.FunShowFrmAllSub_Gy PcnnHisDb
'            Set Class_AllSub = Nothing
'
'        '========================================================
'        '=====================家庭病床管理========================
'        '========================================================
'        Case "10"
'            Dim Class_HomeBed    As cls_homeBed.ClassHomeBed
'            Set Class_HomeBed = New cls_homeBed.ClassHomeBed
'            Class_HomeBed.PropUserID = PStrUserID
'            Class_HomeBed.PropUserName = PStrUserName
'            Class_HomeBed.FunShowFrmHomeBed_Gy PcnnHisDb
'            Set Class_HomeBed = Nothing
'
'        '========================================================
'        '=====================药品收费管理========================
'        '========================================================
'
'        '------------收费管理-----------
'        Case "600101"       '收费操作
'            Dim ClsYpglSf    As cls_ypsf.ClassYpsf
'            Set ClsYpglSf = New cls_ypsf.ClassYpsf
'            ClsYpglSf.PropUserID = PStrUserID
'            ClsYpglSf.PropUserName = PStrUserName
'            ClsYpglSf.FunShowFrmYpgl_Sf_Ptbrsf PcnnHisDb
'            Set ClsYpglSf = Nothing
'
'        Case "600102"       '退费操作
'            Dim ClsYpglTf    As cls_ypsf.ClassYpsf
'            Set ClsYpglTf = New cls_ypsf.ClassYpsf
'            ClsYpglTf.PropUserID = PStrUserID
'            ClsYpglTf.PropUserName = PStrUserName
'            ClsYpglTf.FunShowFrmYpgl_Sf_Ptbrtf PcnnHisDb
'            Set ClsYpglTf = Nothing
'
'        Case "600103"       '结帐操作
'            Dim ClsYpglJz    As cls_ypsf.ClassYpsf
'            Set ClsYpglJz = New cls_ypsf.ClassYpsf
'            ClsYpglJz.PropUserID = PStrUserID
'            ClsYpglJz.PropUserName = PStrUserName
'            ClsYpglJz.FunShowFrmYpgl_Sf_CzyJz PcnnHisDb
'            Set ClsYpglJz = Nothing
'
'        '------------库存管理-----------
'        Case "600201"         '药品入库
'            Dim ClsYpglYprk    As cls_ypsf.ClassYpsf
'            Set ClsYpglYprk = New cls_ypsf.ClassYpsf
'            ClsYpglYprk.PropUserID = PStrUserID
'            ClsYpglYprk.PropUserName = PStrUserName
'            ClsYpglYprk.FunShowFrmYpgl_Ypgl_Yprk PcnnHisDb
'            Set ClsYpglYprk = Nothing
'
'        Case "600202"         '药品调价
'            Dim ClsYpglYptj    As cls_ypsf.ClassYpsf
'            Set ClsYpglYptj = New cls_ypsf.ClassYpsf
'            ClsYpglYptj.PropUserID = PStrUserID
'            ClsYpglYptj.PropUserName = PStrUserName
'            ClsYpglYptj.FunShowFrmYpgl_Ypgl_Yptj PcnnHisDb
'            Set ClsYpglYptj = Nothing
'
'        Case "600203"         '药品盘点
'            Dim ClsYpglYppd    As cls_ypsf.ClassYpsf
'            Set ClsYpglYppd = New cls_ypsf.ClassYpsf
'            ClsYpglYppd.PropUserID = PStrUserID
'            ClsYpglYppd.PropUserName = PStrUserName
'            ClsYpglYppd.FunShowFrmYpgl_Ypgl_Yppd PcnnHisDb
'            Set ClsYpglYppd = Nothing
'
'        Case "600204"         '药品退货
'            Dim ClsYpglYpth    As cls_ypsf.ClassYpsf
'            Set ClsYpglYpth = New cls_ypsf.ClassYpsf
'            ClsYpglYpth.PropUserID = PStrUserID
'            ClsYpglYpth.PropUserName = PStrUserName
'            ClsYpglYpth.FunShowFrmYpgl_Ypgl_Ypth PcnnHisDb
'            Set ClsYpglYpth = Nothing
'
'        Case "600205"         '药品报损
'            Dim ClsYpglYpbs    As cls_ypsf.ClassYpsf
'            Set ClsYpglYpbs = New cls_ypsf.ClassYpsf
'            ClsYpglYpbs.PropUserID = PStrUserID
'            ClsYpglYpbs.PropUserName = PStrUserName
'            ClsYpglYpbs.FunShowFrmYpgl_Ypgl_Ypbs PcnnHisDb
'            Set ClsYpglYpbs = Nothing
'
'        Case "600206"         '药品调拨
'            Dim ClsYpglYpdb    As cls_ypsf.ClassYpsf
'            Set ClsYpglYpdb = New cls_ypsf.ClassYpsf
'            ClsYpglYpdb.PropUserID = PStrUserID
'            ClsYpglYpdb.PropUserName = PStrUserName
'            ClsYpglYpdb.FunShowFrmYpgl_Ypgl_Ypdb PcnnHisDb
'            Set ClsYpglYpdb = Nothing
'
'        Case "600207"         '效期管理
'            Dim ClsYpglYpxq    As cls_ypsf.ClassYpsf
'            Set ClsYpglYpxq = New cls_ypsf.ClassYpsf
'            ClsYpglYpxq.PropUserID = PStrUserID
'            ClsYpglYpxq.PropUserName = PStrUserName
'            ClsYpglYpxq.FunShowFrmYpgl_Ypgl_Xqgl PcnnHisDb
'            Set ClsYpglYpxq = Nothing
'
'        '------------数据查询-----------
'        Case "600301"         '处方查询
'            Dim ClsYpglCxcf    As cls_ypsf.ClassYpsf
'            Set ClsYpglCxcf = New cls_ypsf.ClassYpsf
'            ClsYpglCxcf.PropUserID = PStrUserID
'            ClsYpglCxcf.PropUserName = PStrUserName
'            ClsYpglCxcf.FunShowFrmYpgl_Cx_Cfcx PcnnHisDb
'            Set ClsYpglCxcf = Nothing
'
'        Case "600302"         '结帐查询
'            Dim ClsYpglCxjz    As cls_ypsf.ClassYpsf
'            Set ClsYpglCxjz = New cls_ypsf.ClassYpsf
'            ClsYpglCxjz.PropUserID = PStrUserID
'            ClsYpglCxjz.PropUserName = PStrUserName
'            ClsYpglCxjz.FunShowFrmYpgl_Cx_Jzcx PcnnHisDb
'            Set ClsYpglCxjz = Nothing
'
'        Case "600303"         '入库查询
'            Dim ClsYpglCxrk    As cls_ypsf.ClassYpsf
'            Set ClsYpglCxrk = New cls_ypsf.ClassYpsf
'            ClsYpglCxrk.PropUserID = PStrUserID
'            ClsYpglCxrk.PropUserName = PStrUserName
'            ClsYpglCxrk.FunShowFrmYpgl_Cx_Rkcx PcnnHisDb
'            Set ClsYpglCxrk = Nothing
'
'        Case "600304"         '调价查询
'            Dim ClsYpglCxtj    As cls_ypsf.ClassYpsf
'            Set ClsYpglCxtj = New cls_ypsf.ClassYpsf
'            ClsYpglCxtj.PropUserID = PStrUserID
'            ClsYpglCxtj.PropUserName = PStrUserName
'            ClsYpglCxtj.FunShowFrmYpgl_Cx_Tjcx PcnnHisDb
'
'        Case "600305"         '盘点查询
'            Dim ClsYpglCxpd    As cls_ypsf.ClassYpsf
'            Set ClsYpglCxpd = New cls_ypsf.ClassYpsf
'            ClsYpglCxpd.PropUserID = PStrUserID
'            ClsYpglCxpd.PropUserName = PStrUserName
'            ClsYpglCxpd.FunShowFrmYpgl_Cx_Pdcx PcnnHisDb
'
'        Case "600306"         '退货查询
'            Dim ClsYpglCxth    As cls_ypsf.ClassYpsf
'            Set ClsYpglCxth = New cls_ypsf.ClassYpsf
'            ClsYpglCxth.PropUserID = PStrUserID
'            ClsYpglCxth.PropUserName = PStrUserName
'            ClsYpglCxth.FunShowFrmYpgl_Cx_Thcx PcnnHisDb
'
'        Case "600307"         '报损查询
'            Dim ClsYpglCxbs    As cls_ypsf.ClassYpsf
'            Set ClsYpglCxbs = New cls_ypsf.ClassYpsf
'            ClsYpglCxbs.PropUserID = PStrUserID
'            ClsYpglCxbs.PropUserName = PStrUserName
'            ClsYpglCxbs.FunShowFrmYpgl_Cx_Bscx PcnnHisDb
'
'        Case "600308"         '调拨查询
'
'        Case "600309"         '库存查询
'            Dim ClsYpglCxkc    As cls_ypsf.ClassYpsf
'            Set ClsYpglCxkc = New cls_ypsf.ClassYpsf
'            ClsYpglCxkc.PropUserID = PStrUserID
'            ClsYpglCxkc.PropUserName = PStrUserName
'            ClsYpglCxkc.FunShowFrmYpgl_Cx_Kccx PcnnHisDb
'            Set ClsYpglCxkc = Nothing
'
'        '------------数据统计-----------
'        Case "600401"         '处方统计
'            Dim ClsYpglCftj    As cls_ypsf.ClassYpsf
'            Set ClsYpglCftj = New cls_ypsf.ClassYpsf
'            ClsYpglCftj.PropUserID = PStrUserID
'            ClsYpglCftj.PropUserName = PStrUserName
'            ClsYpglCftj.FunShowFrmYpgl_Tj_Cftj PcnnHisDb
'            Set ClsYpglCftj = Nothing
'
'        Case "600402"         '结帐统计
'            Dim ClsYpglTjjz    As cls_ypsf.ClassYpsf
'            Set ClsYpglTjjz = New cls_ypsf.ClassYpsf
'            ClsYpglTjjz.PropUserID = PStrUserID
'            ClsYpglTjjz.PropUserName = PStrUserName
'            ClsYpglTjjz.FunShowFrmYpgl_Tj_Jztj PcnnHisDb
'            Set ClsYpglTjjz = Nothing
'
'        Case "600403"         '入库统计
'            Dim ClsYpglTjrk    As cls_ypsf.ClassYpsf
'            Set ClsYpglTjrk = New cls_ypsf.ClassYpsf
'            ClsYpglTjrk.PropUserID = PStrUserID
'            ClsYpglTjrk.PropUserName = PStrUserName
'            ClsYpglTjrk.FunShowFrmYpgl_Tj_Rktj PcnnHisDb
'            Set ClsYpglTjrk = Nothing
'
'        Case "600404"         '调价统计
'            Dim ClsYpglTjtj    As cls_ypsf.ClassYpsf
'            Set ClsYpglTjtj = New cls_ypsf.ClassYpsf
'            ClsYpglTjtj.PropUserID = PStrUserID
'            ClsYpglTjtj.PropUserName = PStrUserName
'            ClsYpglTjtj.FunShowFrmYpgl_Tj_Tjtj PcnnHisDb
'            Set ClsYpglTjtj = Nothing
'
'        Case "600405"         '盘点统计
'            Dim ClsYpglTjpd    As cls_ypsf.ClassYpsf
'            Set ClsYpglTjpd = New cls_ypsf.ClassYpsf
'            ClsYpglTjpd.PropUserID = PStrUserID
'            ClsYpglTjpd.PropUserName = PStrUserName
'            ClsYpglTjpd.FunShowFrmYpgl_Tj_Pdtj PcnnHisDb
'            Set ClsYpglTjpd = Nothing
'
'        Case "600406"         '退货统计