frmnavigate2.frm

金算盘软件代码

               If frmMain.mnuInventoryOut.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuInventoryOut_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 13  ''其它出库
               If frmMain.mnuInventoryOtherOut.Enabled Then
                  Me.Enabled = False
                  frmMain.mnuInventoryOtherOut_Click
                  Me.Enabled = True
               Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
               End If
             Case 14  ''加工凭证
                If IsCanDo(223, 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 16 '货位
                 If frmMain.mnuListCustomer.Enabled Then
                    Me.Enabled = False
'                    Me.MousePointer = vbHourglass
'                    With frmItemList
'                         .Show
'                         .sstTypAct.Tab = 4
'                         .ZOrder 0
'                    End With
'                    Me.MousePointer = vbDefault
                    frmMain.mnuListCustomer_Click
                    frmCustomerList.sstCustomer.Tab = 1
                    Me.Enabled = True
                 Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                 End If
             Case 20  ''委托加工明细帐
                Report.ShowAcntBook 1707, 1016
             Case 21  '委托加工商品余额表
                Report.ShowSumReport 1721, 1103
             Case 22  '加工发出汇总表
                Report.ShowSumReport 1553, 578
             Case 23  '加工收回汇总表
                Report.ShowSumReport 1555, 750
             Case 24  '加工费用汇总表
                Report.ShowSumReport 1557, 691
             Case 25  '我的报表
                 frmMain.ShowMyReport
             
             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_3
           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.mnuInventoryCostPrice.Enabled Then
                   Me.Enabled = False
                   frmMain.mnuInventoryCostPrice_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
                   Me.Enabled = False
                   frmMain.mnuInventoryVoucher_Click
                   Me.Enabled = True
                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  ''领用出库
                If frmMain.mnuInventoryOut.Enabled Then
                   Me.Enabled = False
                   frmMain.mnuInventoryOut_Click
                   Me.Enabled = True
                Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
             Case 13  ''其它出库
                If frmMain.mnuInventoryOtherOut.Enabled Then
                   Me.Enabled = False
                   frmMain.mnuInventoryOtherOut_Click
                   Me.Enabled = True
                Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
             Case 14  ''成本调整
                If frmMain.mnuInventoryCostAdjust.Enabled Then
                   Me.Enabled = False
                   frmMain.mnuInventoryCostAdjust_Click
                   Me.Enabled = True
                Else
                    MsgBox "没有使用" & m_udtPageInfo(m_lngPageNo).udtItem(m_lngSelectedItem).strDescript & "的权限！"
                End If
             Case 20  '存货余额表
                Report.ShowSumReport 904, 549
             Case 21  ''存货进销存汇总表
                 Report.ShowSumReport 592, 541
             Case 22  ''存货入库汇总表
                 Report.ShowSumReport 1631, 568
             Case 23  '存货出库汇总表
                Report.ShowSumReport 1632, 568
             Case 24  ''商品盘点空表
                Report.ShowSumReport 1646, 764
             Case 25  '我的报表
                 frmMain.ShowMyReport
             Case 16 '货位
                 If IsCanDo(18, gclsBase.OperatorID) Then
                    Me.Enabled = False
                    Me.MousePointer = vbHourglass
                    With frmItemList
                         .Show
                         .sstTypAct.Tab = 4
                         .ZOrder 0
                    End With
                    Me.MousePointer = vbDefault
                    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 '商品