mdifrmmain.frm

本公司开发得大请油田人事管理系统c/s结构

            .Tools("ID_政策信息").Enabled = False
            .Tools("ID_综合查询").Enabled = False
            .Tools("ID_职工基本信息").Enabled = True '用于新增单位的人员输入 add by bxm 2002-08-02
            .Tools("ID_机构调整").Enabled = False
            .Tools("ID_合同预警").Enabled = False
            .Tools("ID_机构合并").Enabled = False
            
            If frmStart.ProgressBar4Init.Value < 100 Then frmStart.ProgressBar4Init.Value = frmStart.ProgressBar4Init.Value + 50
            
'            .Tools("ID_MENU_LABOUR_REPORT").Enabled = False
'            .Tools("ID_MENU_CADRE_REPORT").Enabled = False
            '.Tools("ID_MENU_EMP_CARD").Enabled = False
'            .Tools("ID_MENU_EMP_BASIC_CARD").Enabled = False
'            .Tools("ID_MENU_EMP_OTHER_CARD").Enabled = False
'
        End With
    Else
        Call CheckMenu
        If g_str4LoginUnitLevel <> C_BUREAUE_LEVEL Then SSActiveToolBarsMain.Tools("ID_政策信息").Visible = False
    End If
    If g_FSO.FileExists(App.Path & "\CQ.atb") = True Then SSActiveToolBarsMain.LoadLayout App.Path & "\CQ.atb"
    g_strDateTime4Start = Format(Now, "yyyy-mm-dd hh:mm:ss")
    frmStart.ProgressBar4Init.Value = 100
    Unload frmStart
End Sub

Private Sub MDIForm_Resize()
    If WindowState <> 1 Then SetBackgroud Me, frmBackgroud, App.Path & "\Res\CQBureau.jpg"
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    InsertSysLog
    End
End Sub

Private Sub SSActiveToolBarsMain_AfterCustomize()
    With Me.SSActiveToolBarsMain
        .SaveLayout App.Path & "\CQ.atb"
    End With
End Sub

Private Sub SSActiveToolBarsmain_ToolClick(ByVal Tool As ActiveToolBars.SSTool)
    Select Case Tool.ID
        Case "ID_单位信息"
            SSActiveToolBarsMain.Tools("ID_单位信息").Enabled = False
            frmSplash.Show
            DoEvents
            frmOrganEdit.Show
        Case "ID_机构合并"
            SSActiveToolBarsMain.Tools("ID_机构合并").Enabled = False
            frmSplash.Show
            DoEvents
            frmUnit.Show
        Case "ID_机构调整"
            SSActiveToolBarsMain.Tools("ID_机构调整").Enabled = False
            frmSplash.Show
            DoEvents
            frmUnitConsolidation.Show
        Case "ID_职工基本信息"
            SSActiveToolBarsMain.Tools("ID_职工基本信息").Enabled = False
            frmSplash.Show
            DoEvents
            frmEmpBasic.Show
        Case "ID_干部基本信息"
            SSActiveToolBarsMain.Tools("ID_干部基本信息").Enabled = False
            frmSplash.Show
            DoEvents
            frmCadre.Show
        Case "ID_工人工种信息"
            SSActiveToolBarsMain.Tools("ID_工人工种信息").Enabled = False
            frmSplash.Show
            DoEvents
            frmWorkerSort.Show
        Case "ID_职工调动信息"
            SSActiveToolBarsMain.Tools("ID_职工调动信息").Enabled = False
            frmSplash.Show
            DoEvents
            frmEmpRemove.Show
        Case "ID_职工其他信息"
            SSActiveToolBarsMain.Tools("ID_职工其他信息").Enabled = False
            frmSplash.Show
            DoEvents
            frmEmpOtherMessage.Show
        Case "ID_职工工资信息"
            SSActiveToolBarsMain.Tools("ID_职工工资信息").Enabled = False
            frmSplash.Show
            DoEvents
            frmWage.Show
        Case "ID_工资演变信息"
            SSActiveToolBarsMain.Tools("ID_工资演变信息").Enabled = False
            frmSplash.Show
            DoEvents
            frmWageEvolvment.Show
        Case "ID_标准代码"
            SSActiveToolBarsMain.Tools("ID_标准代码").Enabled = False
            frmSplash.Show
            DoEvents
            frmOtherStandardCode.Show
        Case "ID_合同信息"
            SSActiveToolBarsMain.Tools("ID_合同信息").Enabled = False
            frmSplash.Show
            DoEvents
            frmCompact.Show
        Case "ID_合同预警"
            SSActiveToolBarsMain.Tools("ID_合同预警").Enabled = False
            frmSplash.Show
            DoEvents
            frmCompactAlert.Show
        Case "ID_政策信息"
            SSActiveToolBarsMain.Tools("ID_政策信息").Enabled = False
            frmSplash.Show
            DoEvents
            frmPolicy.Show
        Case "ID_综合查询"
            SSActiveToolBarsMain.Tools("ID_综合查询").Enabled = False
            frmSplash.Show
            DoEvents
            frmSearch.Show
        Case "ID_人员信息统计报表"
            SSActiveToolBarsMain.Tools("ID_劳资报表系统").Enabled = False
            SSActiveToolBarsMain.Tools("ID_干部报表系统").Enabled = False
            g_str4Report = "劳资报表系统-人员信息统计报表"
            frmSplash.Show
            DoEvents
            frmReport.Show
        Case "ID_机构信息统计报表"
            SSActiveToolBarsMain.Tools("ID_劳资报表系统").Enabled = False
            SSActiveToolBarsMain.Tools("ID_干部报表系统").Enabled = False
            g_str4Report = "劳资报表系统-机构信息统计报表"
            frmSplash.Show
            DoEvents
            frmReport.Show
        Case "ID_工资信息统计报表"
            SSActiveToolBarsMain.Tools("ID_劳资报表系统").Enabled = False
            SSActiveToolBarsMain.Tools("ID_干部报表系统").Enabled = False
            g_str4Report = "劳资报表系统-工资信息统计报表"
            frmSplash.Show
            DoEvents
            frmReport.Show
        Case "ID_局内报表"
            SSActiveToolBarsMain.Tools("ID_劳资报表系统").Enabled = False
            SSActiveToolBarsMain.Tools("ID_干部报表系统").Enabled = False
            g_str4Report = "干部报表系统-局内报表"
            frmSplash.Show
            DoEvents
            frmReport.Show
        Case "ID_集团公司报表"
            SSActiveToolBarsMain.Tools("ID_劳资报表系统").Enabled = False
            SSActiveToolBarsMain.Tools("ID_干部报表系统").Enabled = False
            g_str4Report = "干部报表系统-集团公司报表"
            frmSplash.Show
            DoEvents
            frmReport.Show
        Case "ID_国家报表"
            SSActiveToolBarsMain.Tools("ID_劳资报表系统").Enabled = False
            SSActiveToolBarsMain.Tools("ID_干部报表系统").Enabled = False
            g_str4Report = "干部报表系统-国家报表"
            frmSplash.Show
            DoEvents
            frmReport.Show
        Case "ID_系统环境设置"
            SSActiveToolBarsMain.Tools("ID_系统环境设置").Enabled = False
            DoEvents
            frmSystemSet.Show 1
        Case "ID_角色权限维护"
            SSActiveToolBarsMain.Tools("ID_角色权限维护").Enabled = False
            frmSplash.Show
            DoEvents
            frmRolePermission.Show
        Case "ID_用户权限维护"
            SSActiveToolBarsMain.Tools("ID_用户权限维护").Enabled = False
            frmSplash.Show
            DoEvents
            frmEmpPermission.Show
        Case "ID_用户口令变更"
            SSActiveToolBarsMain.Tools("ID_用户口令变更").Enabled = False
            frmSplash.Show
            DoEvents
            frmChangePassword.Show 1
        Case "ID_系统日志信息"
            SSActiveToolBarsMain.Tools("ID_系统日志信息").Enabled = False
            frmSplash.Show
            DoEvents
            frmSystemLog.Show
        Case "ID_水平排列"
            Me.Arrange vbTileHorizontal
        Case "ID_垂直排列"
            Me.Arrange vbTileVertical
        Case "ID_层叠排列"
            Me.Arrange vbCascade
        Case "ID_排列图标"
            Me.Arrange vbArrangeIcons
        Case "ID_帮助"
            App.HelpFile = App.Path & "\Help\CQBureauHelp.chm"
            SendKeys "{F1}"
        Case "ID_关于本系统..."
            SSActiveToolBarsMain.Tools("ID_关于本系统...").Enabled = False
            frmAbout.Show 1
        Case "ID_退出系统"
'            g_strDateTime4End = Format(Now, "yyyy-mm-dd hh:mm:ss")
'            Call InsertSysLog
'            End
            Unload Me
    End Select
End Sub

Private Sub SetBackgroud(MDIForm As Form, frmBackgroud As Form, strFileName4Backgroud As String, Optional lDrawMode As Long)
    If strFileName4Backgroud = "" Then Exit Sub
    MDIForm.Picture = LoadPicture()
    Dim i, j As Long

    Load frmBackgroud
    frmBackgroud.Height = Me.ScaleHeight
    frmBackgroud.Width = Me.ScaleWidth
    frmBackgroud.ScaleMode = 1
    frmBackgroud!Picture1.top = 0
    frmBackgroud!Picture1.left = 0
    frmBackgroud!Picture1.Picture = LoadPicture(strFileName4Backgroud)

    If lDrawMode = 1 Then   '平铺
        For i = 0 To Me.Height Step frmBackgroud!Picture1.ScaleHeight
            For j = 0 To Me.Width Step frmBackgroud!Picture1.ScaleWidth
                frmBackgroud.PaintPicture frmBackgroud!Picture1.Picture, j, i
            Next
        Next
    Else                    '扩展
        frmBackgroud.PaintPicture frmBackgroud!Picture1.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight, 0, 0, frmBackgroud!Picture1.ScaleWidth, frmBackgroud!Picture1.ScaleHeight
    End If
    
    MDIForm.Picture = frmBackgroud.Image
    frmBackgroud.Show
    Unload frmBackgroud
End Sub

Private Sub CheckMenu()
    m_str4Permission = "select PERMISSION_CHAR_NO,PERMISSION_CHAR_FORM from T_PERMISSION_CHAR"
    If m_oRs4Permission.State = adStateOpen Then m_oRs4Permission.Close
    m_oRs4Permission.Open m_str4Permission, g_oConnection4This, adOpenKeyset, adLockOptimistic
    If frmStart.ProgressBar4Init.Value < 100 Then frmStart.ProgressBar4Init.Value = frmStart.ProgressBar4Init.Value + 1
    Do While m_oRs4Permission.EOF = False
        m_str4Permission = "select OPRROLE_PERMISSION from T_PERMISSION_CHAR_DETAIL where PERMISSION_CHAR_NO=" & m_oRs4Permission.Fields("PERMISSION_CHAR_NO").Value & " and OPRROLE_NO=" & g_lOprroleNo
        If m_oRs4Temp.State = adStateOpen Then m_oRs4Temp.Close
        m_oRs4Temp.CursorLocation = adUseClient
        m_oRs4Temp.Open m_str4Permission, g_oConnection4This, adOpenKeyset, adLockOptimistic
        If frmStart.ProgressBar4Init.Value < 100 Then frmStart.ProgressBar4Init.Value = frmStart.ProgressBar4Init.Value + 1
        If m_oRs4Temp.EOF = False Then
            If left(m_oRs4Permission.Fields("PERMISSION_CHAR_FORM").Value, 14) Like "MENU_OTHER_EMP" Then
                If Mid(Trim(m_oRs4Temp.Fields("OPRROLE_PERMISSION").Value), 1, 1) = "1" Then SSActiveToolBarsMain.Tools("ID_职工其他信息").Enabled = True
            Else
                If Mid(Trim(m_oRs4Temp.Fields("OPRROLE_PERMISSION").Value), 1, 1) = "0" Then
                    SSActiveToolBarsMain.Tools("ID_" & m_oRs4Permission.Fields("PERMISSION_CHAR_FORM").Value).Enabled = False
                Else
                    SSActiveToolBarsMain.Tools("ID_" & m_oRs4Permission.Fields("PERMISSION_CHAR_FORM").Value).Enabled = True
                End If
            End If
        Else
            If left(m_oRs4Permission.Fields("PERMISSION_CHAR_FORM").Value, 14) Like "MENU_OTHER_EMP" Then
            Else
                SSActiveToolBarsMain.Tools("ID_" & m_oRs4Permission.Fields("PERMISSION_CHAR_FORM").Value).Enabled = False
            End If
        End If
        m_oRs4Permission.MoveNext
    Loop
End Sub