frmmain.frm

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

         Caption         =   "体检结论与建议"
      End
      Begin VB.Menu mnuQF_Split3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_TJPLLR 
         Caption         =   "体检批量录入"
      End
      Begin VB.Menu mnuQF_JKDAWH 
         Caption         =   "健康档案维护"
      End
      Begin VB.Menu mnuQF_TJDWWH 
         Caption         =   "体检单位维护"
      End
   End
   Begin VB.Menu mnuQF_TJBGXT 
      Caption         =   "体检报告"
      Begin VB.Menu mnuQF_MBBB 
         Caption         =   "打印与预览"
      End
      Begin VB.Menu mnuQF_Split4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_DWYXHZDC 
         Caption         =   "阳性汇总导出"
      End
      Begin VB.Menu mnuQF_DWTJBGDC 
         Caption         =   "团检报告导出"
      End
      Begin VB.Menu mnuQF_DWTJXJCX 
         Caption         =   "单位体检小结"
      End
      Begin VB.Menu mnuQF_GPKL 
         Caption         =   "光盘刻录"
         Shortcut        =   {F5}
      End
   End
   Begin VB.Menu mnuQF_TJCXXT 
      Caption         =   "体检查询"
      Begin VB.Menu mnuQF_TJRSTJ 
         Caption         =   "体检人数"
      End
      Begin VB.Menu mnuQF_FQCX 
         Caption         =   "放弃项目查询"
      End
      Begin VB.Menu mnuQF_DWYXHZ 
         Caption         =   "阳性查询"
      End
      Begin VB.Menu mnuQF_BHHZ 
         Caption         =   "病患统计"
      End
      Begin VB.Menu mnuQF_JBQCTJ 
         Caption         =   "疾病趋势统计"
      End
      Begin VB.Menu mnuQF_Split5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_TJJGCX 
         Caption         =   "体检花名册"
      End
   End
   Begin VB.Menu mnuQF_TJGLXT 
      Caption         =   "体检管理"
      Begin VB.Menu mnuQF_YYTX 
         Caption         =   "预约查询"
      End
      Begin VB.Menu mnuQF_TJPQ 
         Caption         =   "体检排期"
      End
      Begin VB.Menu mnuQF_YYHDJRS 
         Caption         =   "预约和登记人数"
      End
      Begin VB.Menu mnuTTMDDC 
         Caption         =   "团体名单导出"
      End
      Begin VB.Menu mnuQF_Split6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_KSGZLTJ 
         Caption         =   "科室工作量统计"
      End
      Begin VB.Menu mnuQF_YSGZLTJ 
         Caption         =   "医生工作量统计"
      End
      Begin VB.Menu mnuQF_Split7 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_SJKBF 
         Caption         =   "数据备份/恢复"
      End
      Begin VB.Menu mnuQF_DataExport 
         Caption         =   "网站数据导出"
      End
      Begin VB.Menu mnuQF_Split20 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_KHGL 
         Caption         =   "客户管理"
      End
      Begin VB.Menu mnuQF_HCSYQK 
         Caption         =   "耗材使用情况"
      End
   End
   Begin VB.Menu mnuQF_Pay 
      Caption         =   "体检收费"
      Begin VB.Menu mnuQF_TTFYHZ 
         Caption         =   "团体费用汇总"
      End
      Begin VB.Menu mnuQF_Split19 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_TotalPay 
         Caption         =   "个人费用明细"
      End
      Begin VB.Menu mnuQF_CWHZ 
         Caption         =   "财务报表"
      End
      Begin VB.Menu mnuQF_Split15 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_DJKFF 
         Caption         =   "代金卡管理"
      End
   End
   Begin VB.Menu mnuQF_Tools 
      Caption         =   "工具"
      Begin VB.Menu mnuQF_GGMM 
         Caption         =   "更改密码"
      End
      Begin VB.Menu mnuSplit20 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_Calculator 
         Caption         =   "计算器"
      End
      Begin VB.Menu mnuQF_NotePad 
         Caption         =   "记事本"
      End
      Begin VB.Menu mnuSplit23 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAppendMenu 
         Caption         =   "Temp"
         Index           =   0
         Visible         =   0   'False
      End
   End
   Begin VB.Menu mnuQF_CKGL 
      Caption         =   "会员管理"
      Begin VB.Menu mnuQF_ZhuXiao 
         Caption         =   "注销"
      End
      Begin VB.Menu mnuSplit21 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_BuFa 
         Caption         =   "补发"
      End
      Begin VB.Menu mnuSplit22 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_JFHBCX 
         Caption         =   "积分/回报查询"
      End
      Begin VB.Menu mnuQF_JFXF 
         Caption         =   "积分消费"
      End
   End
   Begin VB.Menu mnuQF_XTSZ 
      Caption         =   "系统设置"
      Begin VB.Menu mnuQF_XTZC 
         Caption         =   "系统注册"
      End
      Begin VB.Menu mnuQF_Split8 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_CSSZTJKS 
         Caption         =   "科室与项目组合"
      End
      Begin VB.Menu mnuQF_CSSZTJXM 
         Caption         =   "项目设置"
      End
      Begin VB.Menu mnuQF_XMZH 
         Caption         =   "项目组合"
      End
      Begin VB.Menu mnuQF_XMDC 
         Caption         =   "项目导出"
      End
      Begin VB.Menu mnuQF_CSSZTJTC 
         Caption         =   "体检套餐"
      End
      Begin VB.Menu mnuQF_Split9 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_CSSZSJMB 
         Caption         =   "数据字典维护"
      End
      Begin VB.Menu mnuQF_ZYBSJZDWH 
         Caption         =   "职业病数据字典维护"
      End
      Begin VB.Menu mnuQF_SJZDDC 
         Caption         =   "数据字典导出"
      End
      Begin VB.Menu mnuQF_TJJYWH 
         Caption         =   "体检建议维护"
      End
      Begin VB.Menu mnuQF_TJBZ 
         Caption         =   "体检标准维护"
      End
      Begin VB.Menu mnuQF_BBMBWH 
         Caption         =   "体检报告设置"
      End
      Begin VB.Menu mnuQF_Split10 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_JSDY 
         Caption         =   "权限设置"
      End
      Begin VB.Menu mnuQF_RYGL 
         Caption         =   "人员管理"
      End
      Begin VB.Menu mnuQF_Split11 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_XTCS 
         Caption         =   "系统参数"
      End
      Begin VB.Menu mnuQF_Split12 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_TJHCGL 
         Caption         =   "体检耗材管理"
      End
      Begin VB.Menu mnuQF_TJHCSZ 
         Caption         =   "体检耗材设置"
      End
      Begin VB.Menu mnuQF_TJHCDC 
         Caption         =   "体检耗材导出"
      End
      Begin VB.Menu mnuQF_Split13 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQF_SJKQK 
         Caption         =   "数据库初始化"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助"
      Begin VB.Menu mnuAbout 
         Caption         =   "关于"
      End
   End
   Begin VB.Menu mnuPrint_ 
      Caption         =   "打印费用清单"
      Visible         =   0   'False
      Begin VB.Menu mnuPrint 
         Caption         =   "打印费用清单"
         Index           =   0
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Const EM_UNDO = &HC7
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Const ScrCopy = &HCC0020
Dim mblnShowBack As Boolean
Dim mblnLoaded As Boolean '主窗体是否已经加载。主窗体居然被加载了两次，原因未知

Private Sub MDIForm_Click()
    MDIForm_Resize
End Sub

Public Sub MDIForm_Load()
    '防止主窗体被加载两次
    If mblnLoaded Then
        Exit Sub
    Else
        mblnLoaded = True
    End If
    '产生当前用户的临时表名
    TempTable = "[TEMP_Table_" & GetUserNameW & "_" & gstrManagerName & "]"
    
    '如果是网络版，则判断是千福菜单还是正清源菜单
    If genuVersion = WLB Then
        Me.Caption = g_strDevelopCompany & "健康体检网络版"
'        If gQianFu = False Then                 '非千福版本
'            MsgBox "gQianFu变量设置错", vbInformation, "提示"
'            End
'
'        Else       '千福版本
            '首先屏蔽非千福版本的所有菜单
            mnuTJGL.Visible = False
            mnuSJCX.Visible = False
            mnuBBTJ.Visible = False
            mnuXTSZ.Visible = False
            
    '        '根据用户类型决定显示菜单
    '        SetQFRank gstrClassifyID
    
            '******************20040530加入 闻****************************
            '根据用户角色决定显示菜单
            If gstrClassifyID = GManager.SystemXTGL Then
                SetAllMenu True
            Else
                SetMnuFromJS gstrClassifyID
            End If
            '******************20040530加入完 闻**************************
    
            '是否显示注册菜单
            If gstrClassifyID = GManager.SystemXTGL Then
                If gblnRegister = True Then
                    mnuQF_XTZC.Visible = False
                    mnuQF_Split8.Visible = False
                End If
            End If
                
            '会员卡管理控制
            If gICSupport = False Then
                mnuQF_CKGL.Visible = False
            End If
    
            '客户管理
            If gKHGL = True Then
'                mnuQF_KHGL.Visible = True
'                mnuQF_TJDWWH.Visible = False
            Else
                mnuQF_KHGL.Visible = False
'                mnuQF_TJDWWH.Visible = True
            End If
            
            '耗材管理控制
            If gHCGL = False Then
                mnuQF_TJHCGL.Visible = False
                mnuQF_TJHCSZ.Visible = False
                mnuQF_TJHCDC.Visible = False
    '            mnuQF_Split5.Visible = False
                mnuQF_HCSYQK.Visible = False
                mnuQF_Split13.Visible = False
            End If
            
            '收费管理
            If gPay = False Then
                mnuQF_Pay.Visible = False
            End If
            '报表模板控制
            If gBBMB = False Then
                mnuQF_BBMBWH.Visible = False
                mnuQF_XMDC.Visible = False
            End If
            
            '网站数据导出控制
            If gWWW = False Then
                mnuQF_DataExport.Visible = False
            End If
            
            '显示注销和退出菜单
            mnuQF_TJDJXT.Visible = True
            mnuQF_UnReg.Visible = True
            mnuQF_FileExit.Visible = True
            
            '去掉标准版中的菜单
            mnuTJGL.Visible = False '体检管理
            mnuSJCX.Visible = False '体检查询
'            mnuTTDJ.Visible = False
            mnuBBTJ.Visible = False '体检报告
'            mnuBZB_ZX.Visible = False
'            mnuBZB_EXIT.Visible = False
'            mnuBZB_TJDWWH.Visible = False
            mnuXTSZ.Visible = False '系统设置
'        End If
    Else    '非网络版
        If genuVersion = BZB Then
            Me.Caption = g_strDevelopCompany & "健康体检标准版"
        ElseIf genuVersion = PJB Then
            Me.Caption = g_strDevelopCompany & "健康体检普及版"
        ElseIf genuVersion = ZYB Then
            Me.Caption = g_strDevelopCompany & "健康体检专业版"
        End If
'        首先屏蔽千福版本的菜单
        mnuQF_TJDJXT.Visible = False
        mnuQF_TJJLXT.Visible = False
        mnuQF_TJBGXT.Visible = False
        mnuQF_TJCXXT.Visible = False
        mnuQF_TJGLXT.Visible = False
        mnuQF_Tools.Visible = False
        If gPay = False Then
            mnuQF_Pay.Visible = False
        Else
            mnuQF_Pay.Visible = True
        End If
        mnuQF_CKGL.Visible = False
        mnuQF_XTSZ.Visible = False

        '再屏蔽非千福版本的所有菜单
        mnuTJGL.Visible = False
        mnuSJCX.Visible = False
        mnuBBTJ.Visible = False
        mnuXTSZ.Visible = False
        
        '是否显示注册菜单
        If gstrClassifyID = GManager.SystemXTGL Then
            If gblnRegister = True Then
                mnuXTZC.Visible = False
                mnuSplit1.Visible = False
            End If
        End If
        
        '******************20040530加入 闻****************************
        '根据用户角色决定显示菜单
        If gstrClassifyID = GManager.SystemXTGL Then
            SetAllMenu True
        Else
            SetMnuFromJS gstrClassifyID