frmmain.frm

本系统可用于医院和专业体检中心的健康体检管理

                Case 28
                    mnuQF_TJPQ.Visible = True
                Case 29
                    mnuQF_YYHDJRS.Visible = True
                Case 30
                    mnuQF_KSGZLTJ.Visible = True
                Case 31
                    mnuQF_YSGZLTJ.Visible = True
                Case 32
                    mnuQF_SJKBF.Visible = True
                Case 33
                    mnuQF_DataExport.Visible = True
                Case 34
                    mnuQF_Tools.Visible = True
                Case 35
                    mnuQF_GGMM.Visible = True
                Case 36
                    mnuQF_Calculator.Visible = True
                Case 37
                    mnuQF_NotePad.Visible = True
                Case 38
                    mnuQF_CKGL.Visible = True
                Case 39
                    mnuQF_ZhuXiao.Visible = True
                Case 40
                    mnuQF_BuFa.Visible = True
                Case 41
                    mnuQF_XTSZ.Visible = True
                Case 42
                    mnuQF_CSSZTJKS.Visible = True
                Case 43
                    mnuQF_CSSZTJXM.Visible = True
                Case 44
                    mnuQF_XMZH.Visible = True
                Case 45
                    mnuQF_XMDC.Visible = True
                Case 46
                    mnuQF_CSSZTJTC.Visible = True
                Case 47
                    mnuQF_CSSZSJMB.Visible = True
                Case 48
                    mnuQF_SJZDDC.Visible = True
                Case 49
                    mnuQF_TJJYWH.Visible = True
                Case 50
                    mnuQF_TJBZ.Visible = True
                Case 51
                    mnuQF_RYGL.Visible = True
                Case 54
                    mnuQF_BBMBWH.Visible = True
                Case 55
                    mnuQF_TJHCGL.Visible = True
                Case 56
                    mnuQF_TJHCSZ.Visible = True
                Case 57
                    mnuQF_TJHCDC.Visible = True
                Case 58
                    mnuQF_SJKQK.Visible = True
                Case 59
                    mnuTJGL.Visible = True
                Case 60
                    mnuTTDJ.Visible = True
                Case 61
                    mnuTJJGLR.Visible = True
                Case 62
                    mnuTJPLLR.Visible = True
                Case 63
                    mnuJKDAWH.Visible = True
                Case 64
                    mnuBZB_TJDWWH.Visible = True
                Case 65
                    mnuBZB_ZX.Visible = True
                Case 66
                    mnuBZB_EXIT.Visible = True
                Case 67
                    mnuSJCX.Visible = True
                Case 68
                    mnuDWYXHZ.Visible = True
                Case 69
                    mnuDWYXHZDC.Visible = True
                Case 70
                    mnuBHHZ.Visible = True
                Case 72
                    mnuDWTJXJCX.Visible = True
                Case 73
                    mnuTJJGCX.Visible = True
                Case 74
                    mnuKSGZLTJ.Visible = True
                Case 75
                    mnuYSGZLTJ.Visible = True
                Case 76
                    mnuBBTJ.Visible = True
                Case 79
                    mnuBZB_SJKBF.Visible = True
                Case 80
                    mnuXTSZ.Visible = True
                Case 81
                    mnuCSSZTJKS.Visible = True
                Case 82
                    mnuCSSZTJXM.Visible = True
                Case 83
                    mnuXMZH.Visible = True
                Case 84
                    mnuXMDC.Visible = True
                Case 85
                    mnuCSSZTJTC.Visible = True
                Case 86
                    mnuCSSZSJMB.Visible = True
                Case 87
                    mnuSJZDDC.Visible = True
                Case 88
                    mnuTJJYWH.Visible = True
                Case 89
                    mnuTJBZ.Visible = True
                Case 90
                    mnuRYGL.Visible = True
                Case 93
                    mnuBBMBWH.Visible = True
                Case 94
                    mnuSJKQK.Visible = True
                Case 95
                    mnuJSDY.Visible = True
                Case 96
                    mnuQF_JSDY.Visible = True
                Case 97
                    mnuQF_Pay.Visible = True
                Case 98
                    mnuQF_TTFYHZ.Visible = True
                Case 99
                    mnuQF_TotalPay.Visible = True
                Case 100
                    mnuMMGG.Visible = True
                Case 101
                    mnuQF_TJRSTJ.Visible = True
                Case 102
                    mnuTJRSTJ.Visible = True
                Case 103
                    mnuQF_JBQCTJ.Visible = True
                Case 104
'                    mnuJBQCTJ.Visible = True
                Case 105
                    mnuDataExport.Visible = True
                Case 106
                    mnuDWTJBGDC.Visible = True
                Case 107
                    mnuQF_DWTJBGDC.Visible = True
                Case 108 '系统参数
                    mnuQF_XTCS.Visible = True
                Case 109 '组单工具
                    mnuQF_ZDGJ.Visible = True
                Case 110 '光盘刻录
                    mnuGPKL.Visible = True
                Case 111 '光盘刻录
                    mnuQF_GPKL.Visible = True
                Case 112
                    mnu_BZBTTMDDC.Visible = True
                Case 155  '放弃项目查询
                  mnuFQCX.Visible = True
                Case 156  '放弃项目查询
                    mnuQF_FQCX.Visible = True
                Case 157  '已检项目未见异常
                    mnuWJYC.Visible = True
                Case Else
            End Select
            rstemp.MoveNext
        Loop
    End If
    
    '检查是否需要显示注册菜单
    If gblnRegister Then
        If genuVersion = WLB Then
            mnuQF_XTZC.Visible = False
            mnuQF_Split8.Visible = False
        Else
            mnuXTZC.Visible = False
            mnuSplit1.Visible = False
        End If
    Else
        If genuVersion = WLB Then
            mnuQF_XTZC.Visible = True
            mnuQF_Split8.Visible = True
        Else
            mnuXTZC.Visible = True
            mnuSplit1.Visible = True
        End If
    End If
End Sub

Private Sub SetAllMenu(inblOpen As Boolean)
    
    If genuVersion = WLB Then
'        If gQianFu = False Then    '非千福版本
'            MsgBox "gQianFu变量设置错", vbInformation, "提示"
'            End
'        Else    '千福版本
            mnuQF_TJDJXT.Visible = inblOpen
            mnuQF_TTYY.Visible = inblOpen
            mnuQF_TJYY.Visible = inblOpen
            mnuQF_TJDJ.Visible = inblOpen
            mnuQF_ZDGJ.Visible = inblOpen
'            mnuQF_DRRY.Visible = inblOpen
            mnuQF_UnReg.Visible = inblOpen
            mnuQF_FileExit.Visible = inblOpen
            mnuQF_TJJLXT.Visible = inblOpen
            mnuQF_TJJGLR.Visible = inblOpen
            mnuQF_ZSJYLR.Visible = inblOpen
            mnuQF_TJPLLR.Visible = inblOpen
            mnuQF_JKDAWH.Visible = inblOpen
            mnuQF_KHGL.Visible = inblOpen
            mnuQF_TJDWWH.Visible = inblOpen
            mnuQF_TJBGXT.Visible = inblOpen
            mnuQF_DWYXHZDC.Visible = inblOpen
            mnuQF_DWTJXJCX.Visible = inblOpen
            mnuQF_GPKL.Visible = inblOpen '光盘刻录
            mnuQF_TJCXXT.Visible = inblOpen
            mnuQF_DWYXHZ.Visible = inblOpen
            mnuQF_BHHZ.Visible = inblOpen
            mnuQF_TJJGCX.Visible = inblOpen
            mnuQF_HCSYQK.Visible = inblOpen
            mnuQF_TJGLXT.Visible = inblOpen
            mnuQF_YYTX.Visible = inblOpen
            mnuQF_TJPQ.Visible = inblOpen
            mnuQF_YYHDJRS.Visible = inblOpen
            mnuQF_KSGZLTJ.Visible = inblOpen
            mnuQF_YSGZLTJ.Visible = inblOpen
            mnuQF_SJKBF.Visible = inblOpen
            mnuQF_DataExport.Visible = inblOpen
            mnuQF_Tools.Visible = inblOpen
            mnuQF_Calculator.Visible = inblOpen
            mnuQF_NotePad.Visible = inblOpen
            mnuQF_GGMM.Visible = inblOpen
            mnuQF_CKGL.Visible = inblOpen
            mnuQF_BuFa.Visible = inblOpen
            mnuQF_ZhuXiao.Visible = inblOpen
            mnuQF_XTSZ.Visible = inblOpen
            mnuQF_CSSZTJKS.Visible = inblOpen
            mnuQF_CSSZTJXM.Visible = inblOpen
            mnuQF_XMDC.Visible = inblOpen
            mnuQF_XMZH.Visible = inblOpen
            mnuQF_CSSZTJTC.Visible = inblOpen
            mnuQF_CSSZSJMB.Visible = inblOpen
            mnuQF_SJZDDC.Visible = inblOpen
            mnuQF_TJJYWH.Visible = inblOpen
            mnuQF_TJBZ.Visible = inblOpen
            mnuQF_JSDY.Visible = inblOpen
            mnuQF_RYGL.Visible = inblOpen
            mnuQF_BBMBWH.Visible = inblOpen
            mnuQF_XTCS.Visible = inblOpen
            mnuQF_TJHCGL.Visible = inblOpen
            mnuQF_TJHCSZ.Visible = inblOpen
            mnuQF_TJHCDC.Visible = inblOpen
            mnuQF_SJKQK.Visible = inblOpen
            mnuQF_Pay.Visible = inblOpen
            mnuQF_TTFYHZ.Visible = inblOpen
            mnuQF_TotalPay.Visible = inblOpen
            mnuQF_FQCX.Visible = inblOpen
            mnuWJYC.Visible = inblOpen
            
            mnuQF_ZYBSJZDWH.Visible = inblOpen '职业病数据字典维护
            mnuQF_XTCS.Visible = inblOpen '系统参数
'        End If

    Else    '专业版标准版普及版
        mnuTJGL.Visible = inblOpen
        mnuTTDJ.Visible = inblOpen
        mnuTJJGLR.Visible = inblOpen
        mnuTJPLLR.Visible = inblOpen
        mnuJKDAWH.Visible = inblOpen
        mnuBZB_TJDWWH.Visible = inblOpen
        mnuBZB_ZX.Visible = inblOpen
        mnuBZB_EXIT.Visible = inblOpen
        mnuSJCX.Visible = inblOpen
        mnuDWYXHZ.Visible = inblOpen
        mnuDWYXHZDC.Visible = inblOpen
        mnuBHHZ.Visible = inblOpen
        mnuDWTJXJCX.Visible = inblOpen
        mnuGPKL.Visible = inblOpen '光盘刻录
        mnuTJJGCX.Visible = inblOpen
        mnuKSGZLTJ.Visible = inblOpen
        mnuYSGZLTJ.Visible = inblOpen
        mnuBBTJ.Visible = inblOpen
        mnuBZB_SJKBF.Visible = inblOpen
        mnuMMGG.Visible = inblOpen
        mnuXTSZ.Visible = inblOpen
        mnuCSSZTJKS.Visible = inblOpen
        mnuCSSZTJXM.Visible = inblOpen
        mnuXMDC.Visible = inblOpen
        mnuXMZH.Visible = inblOpen
        mnuCSSZTJTC.Visible = inblOpen
        mnuCSSZSJMB.Visible = inblOpen
        mnuSJZDDC.Visible = inblOpen
        mnuTJJYWH.Visible = inblOpen
        mnuTJBZ.Visible = inblOpen
        mnuRYGL.Visible = inblOpen
        mnuBBMBWH.Visible = inblOpen
        mnuSJKQK.Visible = inblOpen
        mnuJSDY.Visible = inblOpen
        mnuFQCX.Visible = inblOpen
         mnuWJYC.Visible = inblOpen
        mnuZYBSJZDWH.Visible = inblOpen '职业病数据字典维护
        mnuXTCS.Visible = inblOpen '系统参数
        mnuDataExport.Visible = inblOpen '网站数据导出
        mnu_BZBTTMDDC.Visible = inblOpen   '团体名单导出
    End If
    
End Sub

'数据库初始化
Private Sub InitializeSystem()
On Error GoTo ErrMsg
    Dim Status
    Dim cmdTemp As ADODB.Command
    Dim rstemp As ADODB.Recordset
    Dim strSQL As String
    
    If MsgBox("该操作将删除数据库中所有历史数据，您确认要清空吗？", vbCritical + vbOKCancel + vbDefaultButton2, "警告") = vbOK Then
        Me.MousePointer = vbHourglass
        
        '写入操作日志
        Call WriteToLog("清空数据库！")
        
        Set cmdTemp = New ADODB.Command
        Set cmdTemp.ActiveConnection = GCon
        '删除SET_GRXX中的数据
        strSQL = "delete from SET_GRXX"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        
        '删除SET_DW中的数据
        strSQL = "delete from SET_DW"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
    
        '***************************20040428 加入 闻*****************************
        '删除SET_DW_APPEND中的数据
        strSQL = "delete from SET_DW_APPEND"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
    
        '删除SET_DW_HT中的数据
        strSQL = "delete from SET_DW_HT"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        '***************************20040428 加入完 闻***************************
    
        '初始化SET_GUID中的数据
        strSQL = "delete from SET_GUID"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        strSQL = "insert SET_GUID(GUID) values(0)"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        
        '删除YY_SJDJ中的数据
        strSQL = "delete from YY_SJDJ"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute

        '删除YY_SJDJDX中的数据
        strSQL = "delete from YY_SJDJDX"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        
        DoEvents
        
        '删除YY_TJDJ中的数据
        strSQL = "delete from YY_TJDJ"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        
        '删除YY_TJDJDX中的数据
        strSQL = "delete from YY_TJDJDX"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        
        '删除YY_TJDJTC中的数据
        strSQL = "delete from YY_TJDJTC"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        
        '删除YY_XLH中的数据
        strSQL = "delete from YY_XLH"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        
        '删除YY_QRXLH中的数据
        strSQL = "delete from YY_QRXLH"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        
        '删除JKDA_Basic中的数据
        strSQL = "delete from JKDA_Basic"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        
        '删除JKDA_XYS中的数据
        strSQL = "delete from JKDA_XYS"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        
        '删除JKDA_YJS中的数据
        strSQL = "delete from JKDA_YJS"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        
        DoEvents
        
        '删除FZ_FZSY中的数据
        strSQL = "delete from FZ_FZSY"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        
        '删除FZ_FZSJ中的数据
        strSQL = "delete from FZ_FZSJ"
        cmdTemp.CommandText = strSQL
        cmdTemp.Execute
        
        '删除DATA_ZJJL中的数据
        strSQL = "delete from DATA_ZJJL"
        cmdTemp.Com