mainwan.frm

金算盘软件代码

            Caption         =   "其它出库(&H)"
         End
         Begin VB.Menu mnuInventoryBar2 
            Caption         =   "-"
         End
         Begin VB.Menu mnuInventoryCheckUp 
            Caption         =   "盘盈入库(&U)"
         End
         Begin VB.Menu mnuInventoryCheckDown 
            Caption         =   "盘亏出库(&D)"
         End
         Begin VB.Menu mnuInventoryBar3 
            Caption         =   "-"
         End
         Begin VB.Menu mnuInventoryAdjustItem 
            Caption         =   "拆卸组装(&X)"
         End
         Begin VB.Menu mnuInventoryItemPosition 
            Caption         =   "商品调拨(&S)"
         End
         Begin VB.Menu mnuInventoryItemPrice 
            Caption         =   "商品调价(&R)"
         End
         Begin VB.Menu mnuInventoryBar4 
            Caption         =   "-"
         End
         Begin VB.Menu mnuInventoryCostPrice 
            Caption         =   "入库成本(&Y)"
         End
         Begin VB.Menu mnuInventoryCostAdjust 
            Caption         =   "成本调整(&B)"
         End
         Begin VB.Menu mnuInventoryBar5 
            Caption         =   "-"
         End
         Begin VB.Menu mnuInventoryVoucher 
            Caption         =   "库存凭证(&V)"
         End
      End
   End
   Begin VB.Menu mnuEnd 
      Caption         =   "期末(&N)"
      Begin VB.Menu mnuEndExchange 
         Caption         =   "期末调汇(&C)"
      End
      Begin VB.Menu mnuEndFees 
         Caption         =   "费用分摊(&G)"
      End
      Begin VB.Menu mnuEndProfitLoss 
         Caption         =   "损益结转(&T)"
      End
      Begin VB.Menu mnuEndRest 
         Caption         =   "结余分配(&J)"
      End
      Begin VB.Menu mnuEndBar1 
         Caption         =   "-"
      End
      Begin VB.Menu muEndFinish 
         Caption         =   "期末结帐(&N)"
      End
      Begin VB.Menu muEndUnFinish 
         Caption         =   "取消结帐(&I)"
      End
   End
   Begin VB.Menu mnuReport 
      Caption         =   "帐表(&R)"
      Begin VB.Menu mnuReportAccount 
         Caption         =   "帐务(&A)"
      End
      Begin VB.Menu mnuReportAR 
         Caption         =   "应收(&V)"
      End
      Begin VB.Menu mnuReportAP 
         Caption         =   "应付(&F)"
      End
      Begin VB.Menu mnuReportCash 
         Caption         =   "现金银行(&C)"
      End
      Begin VB.Menu mnuReportBar8 
         Caption         =   "-"
      End
      Begin VB.Menu mnuReportJobProject 
         Caption         =   "在建工程(&B)"
      End
      Begin VB.Menu mnuReportBar9 
         Caption         =   "-"
      End
      Begin VB.Menu mnuReportSalary 
         Caption         =   "工资(&R)"
      End
      Begin VB.Menu mnuReportFixed 
         Caption         =   "固定资产(&D)"
      End
      Begin VB.Menu mnuReportBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuReportPurchase 
         Caption         =   "采购(&P)"
      End
      Begin VB.Menu mnuReportStorage 
         Caption         =   "库存(&G)"
      End
      Begin VB.Menu mnuReportSale 
         Caption         =   "销售(&S)"
      End
      Begin VB.Menu mnuReportWt 
         Caption         =   "委托加工(&W)"
      End
      Begin VB.Menu mnuReportBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuReporAnalysis 
         Caption         =   "财务分析(&Y)"
      End
      Begin VB.Menu mnuReporFareAnalysis 
         Caption         =   "经营分析(&J)"
      End
      Begin VB.Menu mnuReporAudit 
         Caption         =   "内部稽查(&I)"
      End
      Begin VB.Menu mnuReportHead 
         Caption         =   "领导查询(&H)"
      End
      Begin VB.Menu mnuReportBar5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuReportMy 
         Caption         =   "我的报表(&M)"
      End
      Begin VB.Menu mnuReportBar6 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuReportQuick 
         Caption         =   "快捷报表(&Q)"
         Enabled         =   0   'False
         Shortcut        =   ^Q
         Visible         =   0   'False
      End
   End
   Begin VB.Menu mnuList 
      Caption         =   "建帐(&L)"
      Begin VB.Menu mnuListAccount 
         Caption         =   "会计科目(&A)"
      End
      Begin VB.Menu mnuListAccountInit 
         Caption         =   "科目期初(&B)"
      End
      Begin VB.Menu mnuListMoney 
         Caption         =   "现金项目(&X)"
      End
      Begin VB.Menu mnuListBudget 
         Caption         =   "财务预算(&H)"
      End
      Begin VB.Menu mnuListCurrency 
         Caption         =   "币种汇率(&F)"
      End
      Begin VB.Menu mnuListVoucherType 
         Caption         =   "凭证类型(&T)"
      End
      Begin VB.Menu mnuListBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuListCustomer 
         Caption         =   "往来单位(&C)"
      End
      Begin VB.Menu mnuListCustomerInit 
         Caption         =   "往来期初(&G)"
      End
      Begin VB.Menu mnuListDepartment 
         Caption         =   "部门职员(&E)"
      End
      Begin VB.Menu mnuListClass1 
         Caption         =   "统计项目(&L)"
      End
      Begin VB.Menu mnuListBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuListItem 
         Caption         =   "商品劳务(&I)"
      End
      Begin VB.Menu mnuListCustom 
         Caption         =   "自定项目(&U)"
      End
      Begin VB.Menu mnuListItemInit 
         Caption         =   "商品期初(&K)"
      End
      Begin VB.Menu mnuListFance 
         Caption         =   "经营预算(&M)"
      End
      Begin VB.Menu mnuListBar3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuListPaymentMethod 
         Caption         =   "付款方式(&P)"
      End
      Begin VB.Menu mnuListTerm 
         Caption         =   "付款条件(&R)"
      End
      Begin VB.Menu mnuListBar6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuListFixedAsset 
         Caption         =   "固定资产(&D)"
      End
      Begin VB.Menu mnuListFixedInit 
         Caption         =   "固资期初(&J)"
      End
   End
   Begin VB.Menu mnuTool 
      Caption         =   "工具(&T)"
      Begin VB.Menu mnuToolRight 
         Caption         =   "财务分工(&P)"
      End
      Begin VB.Menu mnuToolLog 
         Caption         =   "操作日志(&L)"
      End
      Begin VB.Menu mnuToolBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuToolCalc 
         Caption         =   "计算器(&C)"
      End
      Begin VB.Menu mnuToolNote 
         Caption         =   "备忘录(&M)"
      End
      Begin VB.Menu mnuToolAlert 
         Caption         =   "报警器(&A)"
      End
      Begin VB.Menu mnuToolBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuToolReceipt 
         Caption         =   "单据格式(&Y)"
      End
      Begin VB.Menu mnuToolReceiptNO 
         Caption         =   "单据前缀(&X)"
      End
      Begin VB.Menu mnuToolArrange 
         Caption         =   "业务重组(&J)"
      End
      Begin VB.Menu mnuToolBar3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuToolRefresh 
         Caption         =   "刷新(&R)"
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "窗口(&W)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuWindowTileHorizontal 
         Caption         =   "水平平铺(&H)"
      End
      Begin VB.Menu mnuWindowTileVertical 
         Caption         =   "垂直平铺(&V)"
      End
      Begin VB.Menu mnuWindowCascade 
         Caption         =   "层叠(&C)"
      End
      Begin VB.Menu mnuWindowArrangeIcons 
         Caption         =   "排列图标(&A)"
      End
      Begin VB.Menu mnuWindowCloseAll 
         Caption         =   "全部关闭(&L)"
      End
      Begin VB.Menu mnuWindowBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuWindowDiagram 
         Caption         =   "导航图(&D)"
      End
      Begin VB.Menu mnuWindowStatusBar 
         Caption         =   "状态栏(&B)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuHelpBar 
         Caption         =   "帮助栏(&E)"
         Checked         =   -1  'True
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuHelpContent 
         Caption         =   "使用入门(&U)"
      End
      Begin VB.Menu mnuHelpSearch 
         Caption         =   "搜索帮助主题(&S)..."
      End
      Begin VB.Menu mnuHelpHowToUse 
         Caption         =   "怎样使用帮助(&U)"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuHelpInsideTip 
         Caption         =   "日积月累(&T)..."
      End
      Begin VB.Menu mnuHelpSupport 
         Caption         =   "技术支持(&O)..."
         Visible         =   0   'False
      End
      Begin VB.Menu mnuHelpBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuHelpAbout 
         Caption         =   "关于(&A)..."
      End
   End
   Begin VB.Menu mnuListEdit 
      Caption         =   "列表编辑"
      Visible         =   0   'False
      Begin VB.Menu mnuListEditMenu 
         Caption         =   "列表编辑菜单"
         Index           =   0
      End
   End
   Begin VB.Menu mnuListActivity 
      Caption         =   "列表业务  "
      Visible         =   0   'False
      Begin VB.Menu mnuListActivityMenu 
         Caption         =   "列表业务操作"
         Index           =   0
      End
   End
   Begin VB.Menu mnuListReport 
      Caption         =   "列表报表"
      Visible         =   0   'False
      Begin VB.Menu mnuListReportMenu 
         Caption         =   "列表报表菜单"
         Index           =   0
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''
'  MDI主窗体
'  作者：黄涛
'  日期：1998.02.21
''

Option Explicit
Public intWaitCount As Integer
Private lngPos As Long      '帮助栏移动位置 Hebing 1999.4
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
   
Private Sub cMsgBox(strMsg As String, Optional strTitle As String)
    If Trim(strTitle) = "" Then
        strTitle = "提示信息"
    End If

    ShowMsg Me.hwnd, strMsg, MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL, strTitle
End Sub

Public Sub cmdFlow_Click()
    On Error GoTo Errsub
     mnuWindowDiagram_Click
Errsub:
End Sub