frmnavigate2.frm

金算盘软件代码

                If frmMain.mnuListItem.Enabled Then
                   Me.Enabled = False
                   frmMain.mnuListItem_Click
                   Me.Enabled = True
                Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
            End Select
    
        ''*****************************************************************************************************************
         
         
         ''帐务
         Case m_page_4  ''4
'           If frmMain.mnuReportAccount.Enabled Or m_lngSelectedItem = 15 Then
            Select Case m_lngSelectedItem
             Case 0  ''记帐凭证
                If IsCanDo(27, gclsBase.OperatorID) Then
                   Me.Enabled = False
                   frmMain.mnuAccountVoucher_Click
                   Me.Enabled = True
                Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
             Case 1  ''通用转帐
                  If IsCanDo(31, gclsBase.OperatorID) Then
                     Me.Enabled = False
                     frmMain.mnuAccountTemplate_Click
                     Me.Enabled = True
                  Else
                     MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                  End If
             Case 4  ''复核
               If IsCanDo(27, gclsBase.OperatorID) Then
                  Me.Enabled = False
                  With frmListVoucher
                           .Show
                           .ZOrder
                  End With
                  Me.Enabled = True
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
               
             Case 5  ''记帐
               If IsCanDo(27, gclsBase.OperatorID) Then
                  Me.Enabled = False
                  With frmListVoucher
                           .Show
                           .ZOrder
                  End With
                  Me.Enabled = True
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
               
             Case 6  ''期末结帐
               If IsCanDo(34, gclsBase.OperatorID) Then
                  Me.Enabled = False
                  frmMain.mnuAccountFinish_Click
                  Me.Enabled = True
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 3  ''损益结转
               If IsCanDo(33, gclsBase.OperatorID) Then
                  Me.Enabled = False
                  frmMain.mnuAccountProfitLoss_Click
                  Me.Enabled = True
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 2
               If IsCanDo(32, gclsBase.OperatorID) Then
                  Me.Enabled = False
                  frmMain.mnuAccountCalcExchange_Click
                  Me.Enabled = True
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 7  ''费用分摊
                    If IsCanDo(222, gclsBase.OperatorID) Then
                        MousePointer = vbHourglass
                        If CheckLoss(frmExpense.Caption) Then
                            frmExpense.Show vbModal
                        End If
                        MousePointer = vbDefault
                        Set frmExpense = Nothing
                   Else
                      MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                   End If
                               
             Case 8  ''结余分配
                    If IsCanDo(221, gclsBase.OperatorID) Then
                        MousePointer = vbHourglass
                        If CheckLoss(frmDispart.Caption) Then
                            frmDispart.Show vbModal
                        End If
                        MousePointer = vbDefault
                        Set frmDispart = Nothing
                    Else
                      MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                    End If
               
             Case 10 ''总分类帐(报表)???
               Report.ShowAcntBook 122, 5
             Case 11 ''试算平衡表 ''
               Report.ShowBalance 1437, 662
             Case 12 ''科目汇总表(报表)???
               Report.ShowBalance 1783, 680
             Case 13 ''科目余额表(报表)???
                Report.ShowBalance 1419, 636
             Case 14 ''凭证汇总表  ''
                Report.ShowBalance 1483, 680
             Case 15 ''我的报表
                frmMain.ShowMyReport
    
             Case 19 ''科目编码
               If frmMain.mnuListAccount.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuListAccount_Click
                  Me.Enabled = True
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 16 ''单位编码
               If frmMain.mnuListCustomer.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuListCustomer_Click
                  frmCustomerList.sstCustomer.Tab = 1
                  Me.Enabled = True
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 17 ''部门编码
                If frmMain.mnuListDepartment.Enabled Then
                   Me.Enabled = False
                   Me.MousePointer = vbHourglass
                   UserRight.CallShowList 0, msgDepartment
                   Me.MousePointer = vbDefault
                   Me.Enabled = True
                Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 18 ''职员编码
               If frmMain.mnuListDepartment.Enabled Then
                  Me.Enabled = False
                  Me.MousePointer = vbHourglass
'                  With frmEmployeeList
'                      .Show
'                      .sstDepEmp.Tab = 1
'                      .ZOrder 0
'                  End With
                  UserRight.CallShowList 0, msgEmployee
                  Me.MousePointer = vbDefault
                  Me.Enabled = True
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
            End Select
'           Else
'              If m_lngSelectedItem >= 0 Then
'                MsgBox "不能操作" & m_udtPageInfo(m_lngPageNo).strPageName & "页!"
'              End If
'           End If
         ''应收
         Case m_page_5        ''5
'          If frmMain.mnuReportAR.Enabled Or m_lngSelectedItem = 14 Then
           Select Case m_lngSelectedItem
             Case 0  ''应收借项''#####################################################################
               If frmMain.mnuAccountAR.Enabled Then
                    Me.Enabled = False
                    frmMain.mnuAccountAR_Click
                    Me.Enabled = True
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 4  ''应付借项''#####################################################################
               If frmMain.mnuAccountAR.Enabled Then
                    Me.Enabled = False
                    frmMain.mnuAccountAR_Click
                    Me.Enabled = True
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 2  ''应收利息???
               If frmMain.mnuAccountFinanceCharge.Enabled Then
                 Me.Enabled = False
                 frmMain.mnuAccountFinanceCharge_Click
                 Me.Enabled = True
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 1  ''应收贷项
               If frmMain.mnuAccountAR.Enabled Then
                    Me.Enabled = False
                    frmMain.mnuAccountAR_Click
                    Me.Enabled = True
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 3  ''销售发票''
                If IsCanDo(124, gclsBase.OperatorID) Then
                     Me.Enabled = False
                   #If conVersionType = 16 Then    '财务版
                       frmMain.mnuTaskSale_Click 'ShowBillOfType 13
                   #Else
                       frmMain.mnuTaskSaleInvoice_Click 'ShowBillOfType 20
                   #End If
                    Me.Enabled = True
                Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
             Case 5  ''应收凭证''
                If frmMain.mnuAccountARAPVoucher.Enabled Then
                    If Not gclsBase.PeriodClosed(gclsBase.BaseDate) Then
                        Me.Enabled = False
                        frmPurchaseSaleVoucher.SetManner ("应收")
                        frmPurchaseSaleVoucher.Show vbModal
                        Set frmPurchaseSaleVoucher = Nothing
                        Me.Enabled = True
                    Else
                        ShowMsg frmMain.hwnd, "本期已结帐，不能再制作凭证！", vbCritical + vbOKOnly, m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript
                    End If
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
            Case 10 '应收明细''
                If gclsBase.ControlAccount = True Then
                    Report.ShowAcntBook 125, 2
                Else
                    Report.ShowAcntBook 1738, 1107
                End If
            Case 11 '应收余额表
                If gclsBase.ControlAccount = True Then
                    Report.ShowBalance 1723, 638
                Else
                    Report.ShowBalance 1723, 638
                End If
            Case 12 '应收帐龄分析汇总表
                If gclsBase.ControlAccount = True Then
                    Report.ShowAgeReport 120, 610
                Else
                    Report.ShowAgeReport 1691, 1005
                End If
            Case 13 '应收帐龄分析明细表
                If gclsBase.ControlAccount = True Then
                    Report.ShowAgeReport 118, 611
                Else
                    Report.ShowAgeReport 1690, 1004
                End If
            Case 14 '我的报表....
                frmMain.ShowMyReport
            Case 15 ''应收明细表''
                 If gclsBase.ControlAccount = True Then
                    Report.ShowStandardReport 254, 212
                Else
                    Report.ShowStandardReport 1694, 1008
                End If
           
             Case 19 ''科目编码
               If frmMain.mnuListAccount.Enabled Then
                 Me.Enabled = False
                 frmMain.mnuListAccount_Click
                 Me.Enabled = True
               Else
                  MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 16 ''单位编码