frmnavigate2.frm

金算盘软件代码

                   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
             Case 19 ''商品
                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_1
           Select Case m_lngSelectedItem
             
             Case 0  ''采购订单
               If frmMain.mnuTaskPurchaseOrder.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuTaskPurchaseOrder_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 1  ''采购分摊
               If frmMain.mnuTaskPurchaseExpense.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuTaskPurchaseExpense_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 2  ''商品采购
               If frmMain.mnuTaskPurchase.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuTaskPurchase_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 3  ''直运采购
               If frmMain.mnuTaskDirectPurchase.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuTaskDirectPurchase_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 4  ''受托入库
               If frmMain.mnuTaskBorrowIn.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuTaskBorrowIn_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 5  ''受托结算
               If frmMain.mnuTaskBorrowPurchase.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuTaskBorrowPurchase_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 6  ''采购发票
                If frmMain.mnuTaskPurchaseInvoice.Enabled Then
                   Me.Enabled = False
                   frmMain.mnuTaskPurchaseInvoice_Click
                   Me.Enabled = True
                Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
             Case 7  ''采购凭证
                If IsCanDo(66, gclsBase.OperatorID) 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  ''采购汇总表
                Report.ShowSumReport 1568, 694
             Case 11  ''直运采购汇总表
                Report.ShowSumReport 1585, 710
             Case 12  ''受托结算商品汇总表
                Report.ShowSumReport 1578, 704
             Case 13  ''商品采购费用汇总表
                Report.ShowSumReport 1570, 696
             Case 14  ''采购订单执行情况表
                Report.ShowSumReport 1563, 688
             Case 15  ''我的报表
                frmMain.ShowMyReport
             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
             Case 19 '商品
                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_2
           Select Case m_lngSelectedItem
           
             Case 0  '加工分摊
               If frmMain.mnuInventoryEntrustApportion.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuInventoryEntrustApportion_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 1  '加工入库
               If frmMain.mnuInventoryEntrustIn.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuInventoryEntrustIn_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 2  ''自制入库
               If frmMain.mnuInventoryIn.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuInventoryIn_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 3  ''其它入库
               If frmMain.mnuInventoryOtherIn.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuInventoryOtherIn_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 4  ''加工费用
               If frmMain.mnuInventoryEntrustExpense.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuInventoryEntrustExpense_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 5  ''商品盘点
               If frmMain.mnuInventoryStockTaking.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuInventoryStockTaking_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 6  ''成本计算
               If frmMain.mnuInventoryInventoryCost.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuInventoryInventoryCost_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 7  ''库存凭证
               If IsCanDo(113, gclsBase.OperatorID) 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 8  ''商品调拨
               If frmMain.mnuInventoryItemPosition.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuInventoryItemPosition_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 9  ''商品调价
               If frmMain.mnuInventoryItemPrice.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuInventoryItemPrice_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 10  ''拆卸组装
               If frmMain.mnuInventoryAdjustItem.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuInventoryAdjustItem_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 11  ''加工出库
               If frmMain.mnuInventoryEntrustOut.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuInventoryEntrustOut_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 12  ''领用出库