frmmain.frm

针对农资系统的管理模式而开发的业务部门与财务部门的转账模式和过程

Private Sub mnuChangeManager_Click()
    FrmChangeManager.Show vbModal
    If FrmChangeManager.m_bOk Then
        sbStatusBar.Panels("OPERATOR").Text = "操作员：" & m_gsOperator
    End If
    Unload FrmChangeManager
End Sub

Private Sub mnuChangePassword_Click()
    FrmChangePassword.Show vbModal
End Sub

Private Sub mnuExit_Click()
    End
End Sub

'////////////////////////////////////////
'//
Private Sub mnuStockUpCharge_Click()
    frmStockUpCharge.Show
    frmStockUpCharge.SetFocus
End Sub

Private Sub mnuStockUpCost_Click()
    If GetForm(fStockUpCost) Is Nothing Then
        Set fStockUpCost = New frmStockUpCost
        fStockUpCost.FormAttribute = 0
    End If
    fStockUpCost.Show
    fStockUpCost.SetFocus
End Sub

Private Sub mnuUnderwayWares_Click()
    If GetForm(fUnderway) Is Nothing Then
        Set fUnderway = New frmStockUpCost
        fUnderway.FormAttribute = 1
    End If
    fUnderway.Show
    fUnderway.SetFocus
End Sub

'//
Private Sub mnuDesktopLedger_Click()
    frmDesktopLedger.Show
    frmDesktopLedger.SetFocus
End Sub

Private Sub mnuDealInReport_Click()
    frmDealInReport.Show
    frmDealInReport.SetFocus
End Sub

Private Sub mnuStockListing_Click()
    If GetForm(frmStockListing) Is Nothing Then
        Set frmStockListing = New frmStockWares
        frmStockListing.FormAttribute = 2
    End If
    frmStockListing.Show
    frmStockListing.SetFocus
End Sub

Private Sub mnuLackWares_Click()
    If GetForm(frmLackWares) Is Nothing Then
        Set frmLackWares = New frmStockWares
        frmLackWares.FormAttribute = 0
    End If
    frmLackWares.Show
    frmLackWares.SetFocus
End Sub

Private Sub mnuOverstockWares_Click()
    If GetForm(frmOverstock) Is Nothing Then
        Set frmOverstock = New frmStockWares
        frmOverstock.FormAttribute = 1
    End If
    frmOverstock.Show
    frmOverstock.SetFocus
End Sub

'//
Private Sub mnuDaiFa_Click()
    If GetForm(frmNotPickUp) Is Nothing Then
        Set frmNotPickUp = New frmAnalyze
        frmNotPickUp.ReportType = 0
    End If
    frmNotPickUp.Show
    frmNotPickUp.SetFocus
End Sub

Private Sub mnuIncomeAnalyze_Click()
    If GetForm(frmIncomeAnalyze) Is Nothing Then
        Set frmIncomeAnalyze = New frmAnalyze
        frmIncomeAnalyze.ReportType = 2
    End If
    frmIncomeAnalyze.Show
    frmIncomeAnalyze.SetFocus
End Sub

Private Sub mnuProfitAnalyze_Click()
    If GetForm(frmProfitAnalyze) Is Nothing Then
        Set frmProfitAnalyze = New frmAnalyze
        frmProfitAnalyze.ReportType = 1
    End If
    frmProfitAnalyze.Show
    frmProfitAnalyze.SetFocus
End Sub

'////////////////////////////////////////////////////
'//进货管理单据
Private Sub mnuStockUpInvoice_Click()
    If GetForm(frmStockUpInvoice) Is Nothing Then
        Set frmStockUpInvoice = New frmStockUp
        GetOperatorPower "mnuStockUpInvoice", m_bEdit, m_bAuditer, m_bKeeper
        frmStockUpInvoice.InvoiceType(m_bEdit, m_bAuditer, m_bKeeper) = STOCKUP_INVOICE
    End If
    frmStockUpInvoice.Show
    frmStockUpInvoice.SetFocus
End Sub

Private Sub mnuInformalInvoice_Click()
    If GetForm(frmInformalInvoice) Is Nothing Then
        Set frmInformalInvoice = New frmStockUp
        GetOperatorPower "mnuInformalInvoice", m_bEdit, m_bAuditer, m_bKeeper
        frmInformalInvoice.InvoiceType(m_bEdit, m_bAuditer, m_bKeeper) = INFORMAL_INVOICE
    End If
    frmInformalInvoice.Show
    frmInformalInvoice.SetFocus
End Sub

Private Sub mnuStockUpReturn_Click()
    If GetForm(frmStockUpReturn) Is Nothing Then
        Set frmStockUpReturn = New frmStockUp
        GetOperatorPower "mnuStockUpReturn", m_bEdit, m_bAuditer, m_bKeeper
        frmStockUpReturn.InvoiceType(m_bEdit, m_bAuditer, m_bKeeper) = RETURN_INVOICE
    End If
    frmStockUpReturn.Show
    frmStockUpReturn.SetFocus
End Sub

'////////////////////////////////////////////////////
'//入库管理单据
Private Sub mnuWaresIn_Click()
    If GetForm(frmWaresIn) Is Nothing Then
        Set frmWaresIn = New frmIn
        GetOperatorPower "mnuWaresIn", m_bEdit, m_bAuditer, m_bKeeper
        frmWaresIn.InvoiceType(m_bEdit, m_bAuditer, m_bKeeper) = IN_INVOICE
    End If
    frmWaresIn.Show
    frmWaresIn.SetFocus
End Sub

Private Sub mnuWaresSurrogate_Click()
    If GetForm(frmWaresSurrogate) Is Nothing Then
        Set frmWaresSurrogate = New frmIn
        GetOperatorPower "mnuWaresSurrogate", m_bEdit, m_bAuditer, m_bKeeper
        frmWaresSurrogate.InvoiceType(m_bEdit, m_bAuditer, m_bKeeper) = SURROGATE_INVOICE
    End If
    frmWaresSurrogate.Show
    frmWaresSurrogate.SetFocus
End Sub

Private Sub mnuWaresWastage_Click()
    If GetForm(frmWaresWastage) Is Nothing Then
        Set frmWaresWastage = New frmIn
        GetOperatorPower "mnuWaresWastage", m_bEdit, m_bAuditer, m_bKeeper
        frmWaresWastage.InvoiceType(m_bEdit, m_bAuditer, m_bKeeper) = WASTAGE_INVOICE
    End If
    frmWaresWastage.Show
    frmWaresWastage.SetFocus
End Sub

Private Sub mnuWaresBack_Click()
    If GetForm(frmWaresBack) Is Nothing Then
        Set frmWaresBack = New frmIn
        GetOperatorPower "mnuWaresBack", m_bEdit, m_bAuditer, m_bKeeper
        frmWaresBack.InvoiceType(m_bEdit, m_bAuditer, m_bKeeper) = BACK_INVOICE
    End If
    frmWaresBack.Show
    frmWaresBack.SetFocus
End Sub

'////////////////////////////////////////////////////
'//出库管理单据
Private Sub mnuWaresOut_Click()
    If GetForm(frmWaresOut) Is Nothing Then
        Set frmWaresOut = New frmOut
        GetOperatorPower "mnuWaresOut", m_bEdit, m_bAuditer, m_bKeeper
        frmWaresOut.OutType(m_bEdit, m_bAuditer, m_bKeeper) = OUT_SELL
    End If
    frmWaresOut.Show
    frmWaresOut.SetFocus
End Sub

Private Sub mnuWaresOutOther_Click()
    If GetForm(frmWaresOutOther) Is Nothing Then
        Set frmWaresOutOther = New frmOut
        GetOperatorPower "mnuWaresOutOther", m_bEdit, m_bAuditer, m_bKeeper
        frmWaresOutOther.OutType(m_bEdit, m_bAuditer, m_bKeeper) = OUT_OTHER
    End If
    frmWaresOutOther.Show
    frmWaresOutOther.SetFocus
End Sub

Private Sub mnuRedSellBill_Click()
    If GetForm(frmwaresOutRed) Is Nothing Then
        Set frmwaresOutRed = New frmOut
        GetOperatorPower "mnuRedSellBill", m_bEdit, m_bAuditer, m_bKeeper
        frmwaresOutRed.OutType(m_bEdit, m_bAuditer, m_bKeeper) = OUT_RED
    End If
    frmwaresOutRed.Show
    frmwaresOutRed.SetFocus
End Sub

'////////////////////////////////////////////////////
'//销售管理单据
Private Sub mnuWaresSell_Click()
    If GetForm(frmWaresSellBill) Is Nothing Then
        Set frmWaresSellBill = New frmWaresSell
        GetOperatorPower "mnuWaresSell", m_bEdit, m_bAuditer, m_bKeeper
        frmWaresSellBill.SellType(m_bEdit, m_bAuditer, m_bKeeper) = SELL_INVOICE
    End If
    frmWaresSellBill.Show
    frmWaresSellBill.SetFocus
End Sub

Private Sub mnuSelfUse_Click()
    If GetForm(frmWaresSelfUse) Is Nothing Then
        Set frmWaresSelfUse = New frmWaresSell
        GetOperatorPower "mnuSelfUse", m_bEdit, m_bAuditer, m_bKeeper
        frmWaresSelfUse.SellType(m_bEdit, m_bAuditer, m_bKeeper) = SELFUSE_INVOICE
    End If
    frmWaresSelfUse.Show
    frmWaresSelfUse.SetFocus
End Sub

Private Sub mnuRedSell_Click()
    If GetForm(frmWaresRedSell) Is Nothing Then
        Set frmWaresRedSell = New frmWaresSell
        GetOperatorPower "mnuRedSell", m_bEdit, m_bAuditer, m_bKeeper
        frmWaresRedSell.SellType(m_bEdit, m_bAuditer, m_bKeeper) = REDSELL_INVOICE
    End If
    frmWaresRedSell.Show
    frmWaresRedSell.SetFocus
End Sub

'////////////////////////////////////////////////////
'//
Private Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button)
    On Error Resume Next
   Exit Sub
    Select Case UCase(Button.Key)
        Case UCase("mnuSetWarehouse")
            mnuSetWarehouse_Click
        Case UCase("mnuSetDepart")
            mnuSetDepart_Click
        Case UCase("mnuSupplier")
            mnuSupplier_Click
        Case UCase("mnuCustomer")
            mnuCustomer_Click
        Case UCase("mnuWaresList")
            mnuWaresList_Click
        Case UCase("mnuCharge")
            mnuCharge_Click

        Case UCase("mnuInitBalance")
            mnuInitBalance_Click
        Case UCase("mnuInitStockDetail")
            mnuInitStockDetail_Click

        Case UCase("mnuRights")
            mnuRights_Click
        Case UCase("mnuOperatorLogin")
            mnuOperatorLogin_Click
        Case UCase("mnuChangePassword")
            mnuChangePassword_Click
        Case UCase("mnuChangeManager")
            mnuChangeManager_Click
        Case UCase("mnuExit")
            mnuExit_Click

        Case UCase("mnuStockUpInvoice")
            mnuStockUpInvoice_Click
        Case UCase("mnuInformalInvoice")
            mnuInformalInvoice_Click
        Case UCase("mnuStockUpReturn")
            mnuStockUpReturn_Click
            
        Case UCase("mnuWaresIn")
            mnuWaresIn_Click
        Case UCase("mnuWaresSurrogate")
            mnuWaresSurrogate_Click
        Case UCase("mnuWaresBack")
            mnuWaresBack_Click
        Case UCase("mnuWaresWastage")
            mnuWaresWastage_Click
            
        Case UCase("mnuWaresOut")
            mnuWaresOut_Click
        Case UCase("mnuWaresOutOther")
            mnuWaresOutOther_Click
        Case UCase("mnuRedSellBill")
            mnuRedSellBill_Click
            
        Case UCase("mnuWaresSell")
            mnuWaresSell_Click
        Case UCase("mnuSelfUse")
            mnuSelfUse_Click
        Case UCase("mnuRedSell")
            mnuRedSell_Click
            
        Case UCase("mnuStockUpCost")
            mnuStockUpCost_Click
        Case UCase("mnuStockUpCharge")
            mnuStockUpCharge_Click
        Case UCase("mnuUnderwayWares")
            mnuUnderwayWares_Click
            
        Case UCase("mnuDesktopLedger")
            mnuDesktopLedger_Click
        Case UCase("mnuDealInReport")
            mnuDealInReport_Click
        Case UCase("mnuStockListing")
            mnuStockListing_Click
        Case UCase("mnuLackWares")
            mnuLackWares_Click
        Case UCase("mnuOverstockWares")
            mnuOverstockWares_Click
            
        Case UCase("mnuDaiFa")
            mnuDaiFa_Click
        Case UCase("mnuIncomeAnalyze")
            mnuIncomeAnalyze_Click
        Case UCase("mnuProfitAnalyze")
            mnuProfitAnalyze_Click
    End Select
End Sub

Private Sub mnuHelpAbout_Click()
    frmAbout.Show vbModal, Me
End Sub

Private Sub mnuHelpSearchForHelpOn_Click()
    Dim nRet As Integer

  
'    如果这个工程没有帮助文件，显示消息给用户
'    可以在“工程属性”对话框中为应用程序设置帮助文件
    If Len(App.HelpFile) = 0 Then
        MsgBox "无法显示帮助目录，该工程没有相关联的帮助。", vbInformation, Me.Caption
    Else

    On Error Resume Next
        nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0)
        If Err Then
            MsgBox Err.Description
        End If
    End If

End Sub

Private Sub mnuHelpContents_Click()
'    Dim nRet As Integer
'
'
'    '如果这个工程没有帮助文件，显示消息给用户
'    '可以在“工程属性”对话框中为应用程序设置帮助文件
'    If Len(App.HelpFile) = 0 Then
'        MsgBox "无法显示帮助目录，该工程没有相关联的帮助。", vbInformation, Me.Caption
'    Else
'        On Error Resume Next
'        nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)
'        If Err Then
'            MsgBox Err.Description
'        End If
'    End If
frmSeriesDef.Show vbModal
End Sub

Private Sub mnuWindowTileVertical_Click()
    Me.Arrange vbTileVertical
End Sub

Private Sub mnuWindowTileHorizontal_Click()
    Me.Arrange vbTileHorizontal
End Sub

Private Sub mnuWindowCascade_Click()
    Me.Arrange vbCascade
End Sub