frmmain.frm

金算盘软件代码

End Sub

'商品劳务
Private Sub mnuListItem_Click()
End Sub

'仓储货位
Private Sub mnuListPosition_Click()

End Sub

'统计项目
Private Sub mnuListClass1_Click()

End Sub

'工程项目
Private Sub mnuListJob_Click()
End Sub

'凭证类型
Private Sub mnuListVoucherType_Click()

End Sub

'外币汇率
Private Sub mnuListCurrency_Click()
    Me.MousePointer = vbHourglass
    With frmCurrencysList
        Debug.Print "Main Menu Call Start:" & Timer
        .Show
        Debug.Print "Main Menu Call End:" & Timer
        .ZOrder 0
    End With
    Me.MousePointer = vbDefault
End Sub

'固定资产变动方式
Private Sub mnuListFixedMethod_Click()
    Me.MousePointer = vbHourglass
    With frmFixedMethodList
        Debug.Print "Main Menu Call Start:" & Timer
        .Show
        Debug.Print "Main Menu Call End:" & Timer
        .ZOrder 0
    End With
    Me.MousePointer = vbDefault
End Sub

'付款方式
Private Sub mnuListPaymentMethod_Click()
    Me.MousePointer = vbHourglass
    With frmPaymentmethodList
        Debug.Print "Main Menu Call Start:" & Timer
        .Show
        Debug.Print "Main Menu Call End:" & Timer
        .ZOrder 0
    End With
    Me.MousePointer = vbDefault
End Sub

'付款条件
Private Sub mnuListTerm_Click()
    Me.MousePointer = vbHourglass
    With frmTermList
        Debug.Print "Main Menu Call Start:" & Timer
        .Show
        Debug.Print "Main Menu Call End:" & Timer
        .ZOrder 0
    End With
    Me.MousePointer = vbDefault
End Sub

'商品税率
Private Sub mnuListTax_Click()

End Sub


Private Sub mnuReportAccount_Click()
   Report.ShowBookManage
End Sub

Private Sub mnuReportAP_Click()
   Report.ShowBookManage
End Sub

Private Sub mnuReportAR_Click()
   Report.ShowBookManage
End Sub

Private Sub mnuReportCasher_Click()
   Report.ShowBookManage
End Sub

'
'以下是购销业务菜单的列表...
'

'采购定单
Private Sub mnuTaskPurchaseOrder_Click()
    With frmListPurchaseOrder
      .Show
      .ZOrder
   End With
End Sub

'商品进货
Private Sub mnuTaskPurchase_Click()
    With frmListPurchase
      .Show
      .ZOrder
   End With
End Sub


'费用分摊
Private Sub mnuTaskPurchaseExpense_Click()

End Sub

'销售定单
Private Sub mnuTaskSaleOrder_Click()
    With frmListSalesOrder
      .Show
      .ZOrder
   End With
End Sub

'商品发货
Private Sub mnuTaskSale_Click()
    With frmListSales
      .Show
      .ZOrder
   End With
End Sub


'受托调价
Private Sub mnuTaskBorrowPrice_Click()
    With frmListConsignee
      .Show
      .ZOrder
   End With
End Sub

'代销调拨
Private Sub mnuTaskLendPosition_Click()

End Sub

'代销调价
Private Sub mnuTaskLendPrice_Click()

End Sub

'商品调价
Private Sub mnuTaskItemPrice_Click()
    With frmListAdjustPrice
      .Show
      .ZOrder
   End With
End Sub

'商品调拨
Private Sub mnuTaskItemPosition_Click()
    With frmListAdjust
      .Show
      .ZOrder
   End With
End Sub

'拆卸组装
Private Sub mnuTaskAdjustItem_Click()

End Sub

'入库成本
Private Sub mnuTaskCostPrice_Click()

End Sub

'商品盘点
Private Sub mnuTaskStockTaking_Click()

End Sub

'成本计算
Private Sub mnuTaskInventoryCost_Click()

End Sub

'
'以下是财务业务菜单的列表...
'

'应收业务
Private Sub mnuAccountAR_Click()
   With frmInvoiceList
      .Show
      .ZOrder
   End With
End Sub

'应付业务
Private Sub mnuAccountAP_Click()
   With frmPayableList
      .Show
      .ZOrder
   End With
End Sub

'财务费用
Private Sub mnuAccountFinanceCharge_Click()

End Sub


'收款业务
Private Sub mnuAccountReceive_Click()
   With frmReceiveList
      .Show
      .ZOrder
   End With
End Sub

'付款业务
Private Sub mnuAccountPayment_Click()
   With frmPaymentList
      .Show
      .ZOrder
   End With
End Sub

'记帐凭证
Private Sub mnuAccountVoucher_Click()
   With frmVoucherList
      .Show
      .ZOrder
   End With
End Sub


'通用转帐
Private Sub mnuAccountTemplate_Click()

End Sub

'购销凭证
Private Sub mnuTaskItemVoucher_Click()

End Sub

'银行对帐
Private Sub mnuAccountReconcile_Click()

End Sub

'期末结帐
Private Sub mnuAccountFinish_Click()
    FrmBanlanceBook.Show
End Sub

'以下是帐册报表的内容

'快捷报表
Private Sub mnuReportQuick_Click()
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIReportQuick
End Sub


'以下是工具菜单的列表...

'财务分工
Private Sub mnuToolRight_Click()
    Me.MousePointer = vbHourglass
    With frmRightList
        Debug.Print "Main Menu Call Start:" & Timer
        .Show
        Debug.Print "Main Menu Call End:" & Timer
        .ZOrder 0
    End With
    Me.MousePointer = vbDefault
End Sub

'备忘录
Private Sub mnuToolNote_Click()

End Sub

'报警器
Private Sub mnuToolAlert_Click()

End Sub

'计算器
Private Sub mnuToolCalc_Click()

End Sub

'上机日志
Private Sub mnuToolLog_Click()
    With frmLog
        .Show
        .ZOrder 0
    End With
End Sub


'单据模版
Private Sub mnuToolReceipt_Click()
    frmDesignList.Show
End Sub

'刷新
Private Sub mnuToolRefresh_Click()
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).MDIToolRefresh
End Sub


'以下是对窗口的管理

'水平平铺
Private Sub mnuWindowTileHorizontal_Click()
    Me.Arrange vbTileHorizontal
End Sub

'垂直平铺
Private Sub mnuWindowTileVertical_Click()
    Me.Arrange vbTileVertical
End Sub

'层叠
Private Sub mnuWindowCascade_Click()
    Me.Arrange vbCascade
End Sub

'排列图标
Private Sub mnuWindowArrangeIcons_Click()
    Me.Arrange vbArrangeIcons
End Sub

'全部关闭
Private Sub mnuWindowCloseAll_Click()
   Dim clsX As New ListSet
   Dim strSql As String
   
   clsX.ViewId = 6
   clsX.SaveList
   clsX.ShowListSet 6
End Sub

'流程图
Private Sub mnuWindowDiagram_Click()

End Sub

'状态栏
Private Sub mnuWindowStatusBar_Click()

End Sub

'
'以下是对帮助菜单的处理...
'

'目录
Private Sub mnuHelpContent_Click()

End Sub

'搜索帮助主题
Private Sub mnuHelpSearch_Click()

End Sub

'怎样使用帮助
Private Sub mnuHelpHowToUse_Click()

End Sub

'技术支持
Private Sub mnuHelpSupport_Click()
    frmTest.Show
End Sub

'关于...
Private Sub mnuHelpAbout_Click()

End Sub


'
'以下是对列表窗体三个PopupMenu的处理...
'

'列表窗体编辑PopupMenu
Private Sub mnuListEditMenu_Click(intIndex As Integer)
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).ListEditMenu (intIndex)
End Sub

'列表窗体业务PopupMenu
Private Sub mnuListActivityMenu_Click(intIndex As Integer)
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).ListActivityMenu (intIndex)
End Sub

'列表窗体报表PopupMenu
Private Sub mnuListReportMenu_Click(intIndex As Integer)
    gclsSys.MainControls(Trim(str(frmMain.ActiveForm.hWnd))).ListReportMenu (intIndex)
End Sub



'
'以下是对MDI主窗体标题、菜单项可见性和可用性的处理...
'

'根据帐套状态，设置MDI主窗口标题及菜单可见性。
Private Sub UpdateMenuStatus()
    Dim blnStatus As Boolean
    
    blnStatus = Not gclsBase.BaseDB Is Nothing
    With frmMain
        .mnuEdit.Visible = blnStatus
        .mnuList.Visible = blnStatus
        .mnuTask.Visible = blnStatus
        .mnuAccount.Visible = blnStatus
        .mnuReport.Visible = blnStatus
        .mnuTool.Visible = blnStatus
        
        .mnuFileClose.Enabled = blnStatus
        .mnuFileProperty.Enabled = blnStatus
        .mnuFileBackup.Enabled = blnStatus
        .mnuFileImport.Enabled = blnStatus
        .mnuFileExport.Enabled = blnStatus
        .mnuFilePack.Enabled = blnStatus
        .mnuFileCondense.Enabled = blnStatus
        .mnuFilePrintSetup.Enabled = blnStatus
        .mnuFilePrintReceipt.Enabled = blnStatus
                
        If blnStatus Then
            .Caption = App.title + ":" + gclsBase.BaseFile
        Else
            .Caption = App.title
        End If
    End With
End Sub

Private Sub UpdateStatus()
   With stbMain
       .Panels("Operator").AutoSize = sbrContents
       .Panels("Year").AutoSize = sbrContents
       .Panels("Period").AutoSize = sbrContents
       
       .Panels("Date").AutoSize = sbrContents
       .Panels("DateValue").AutoSize = sbrContents
       .Panels("DateValue").Style = sbrDate
       
       .Panels("Time").AutoSize = sbrContents
       .Panels("TimeValue").AutoSize = sbrContents
       .Panels("TimeValue").Style = sbrTime
       
       .Panels("Menu").AutoSize = sbrSpring
   End With
End Sub