main.frm

金算盘软件代码

         Caption         =   "-"
      End
      Begin VB.Menu mnuInventoryEntrustIn 
         Caption         =   "加工入库(&E)"
      End
      Begin VB.Menu mnuInventoryEntrustOut 
         Caption         =   "加工出库(&N)"
      End
      Begin VB.Menu mnuInventoryEntrustExpense 
         Caption         =   "加工费用(&P)"
      End
      Begin VB.Menu mnuInventoryEntrustApportion 
         Caption         =   "加工分摊(&A)"
      End
      Begin VB.Menu mnuInventoryBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuInventoryIn 
         Caption         =   "自制入库(&I)"
      End
      Begin VB.Menu mnuInventoryOut 
         Caption         =   "领用出库(&O)"
      End
      Begin VB.Menu mnuInventoryBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuInventoryOtherIn 
         Caption         =   "其它入库(&T)"
      End
      Begin VB.Menu mnuInventoryOtherOut 
         Caption         =   "其它出库(&H)"
      End
      Begin VB.Menu mnuInventoryBar3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuInventoryStockTaking 
         Caption         =   "商品盘点(&K)"
      End
      Begin VB.Menu mnuInventoryCheckUp 
         Caption         =   "盘盈入库(&U)"
      End
      Begin VB.Menu mnuInventoryCheckDown 
         Caption         =   "盘亏出库(&D)"
      End
      Begin VB.Menu mnuInventoryBar4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuInventoryItemPosition 
         Caption         =   "商品调拨(&S)"
      End
      Begin VB.Menu mnuInventoryAdjustItem 
         Caption         =   "拆卸组装(&X)"
      End
      Begin VB.Menu mnuInventoryItemPrice 
         Caption         =   "商品调价(&R)"
      End
      Begin VB.Menu mnuInventoryBar5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuInventoryCostPrice 
         Caption         =   "入库成本(&Y)"
      End
      Begin VB.Menu mnuInventoryCostAdjust 
         Caption         =   "成本调整(&B)"
      End
      Begin VB.Menu mnuInventoryInventoryCost 
         Caption         =   "成本计算(&C)"
      End
      Begin VB.Menu mnuInventoryBar6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuInventoryVoucher 
         Caption         =   "库存凭证(&V)"
      End
   End
   Begin VB.Menu mnuAccount 
      Caption         =   "财务(&A)"
      Begin VB.Menu mnuAccountVoucher 
         Caption         =   "记帐凭证(&V)"
      End
      Begin VB.Menu mnuAccountTaskBar0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAccountAR 
         Caption         =   "应收款项(&R)"
      End
      Begin VB.Menu mnuAccountAP 
         Caption         =   "应付款项(&F)"
      End
      Begin VB.Menu mnuAccountFinanceCharge 
         Caption         =   "应收计息(&J)"
      End
      Begin VB.Menu mnuAccountTaskBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAccountSaleReceive 
         Caption         =   "销售收款(&X)"
      End
      Begin VB.Menu mnuAccountReceive 
         Caption         =   "其他收款(&E)"
      End
      Begin VB.Menu mnuAccountPurPayment 
         Caption         =   "采购付款(&Z)"
      End
      Begin VB.Menu mnuAccountPayment 
         Caption         =   "其他付款(&A)"
      End
      Begin VB.Menu mnuAccountRPVoucher 
         Caption         =   "收支凭证(&U)"
      End
      Begin VB.Menu mnuAccountReconcile 
         Caption         =   "银行对帐(&B)"
      End
      Begin VB.Menu mnuAccountBillAdmin 
         Caption         =   "票据管理(&H)"
      End
      Begin VB.Menu mnuAccountTaskBar4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAccountJobProject 
         Caption         =   "在建工程(&W)"
      End
      Begin VB.Menu mnuAccountJobCheck 
         Caption         =   "预算批复(&Q)"
      End
      Begin VB.Menu mnuAccountTaskBar7 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAccountSalary 
         Caption         =   "工资发放(&Y)"
      End
      Begin VB.Menu mnuAccountSalaryVoucher 
         Caption         =   "工资凭证(&L)"
      End
      Begin VB.Menu mnuAccountTaskBar5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAccountFixedAsset 
         Caption         =   "固资变动(&X)"
      End
      Begin VB.Menu mnuAccountDepreciation 
         Caption         =   "计提折旧(&D)"
      End
      Begin VB.Menu mnuAccountFixedAssetVoucher 
         Caption         =   "固资凭证(&P)"
      End
      Begin VB.Menu mnuAccountTaskBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAccountARAPVoucher 
         Caption         =   "自动凭证(&O)"
      End
      Begin VB.Menu mnuAccountTemplate 
         Caption         =   "通用转帐(&M)"
      End
      Begin VB.Menu mnuAccountMoneyRate 
         Caption         =   "科目计息(&K)"
      End
      Begin VB.Menu mnuAccountCalcExchange 
         Caption         =   "期末调汇(&C)"
      End
      Begin VB.Menu mnuAccountFees 
         Caption         =   "费用分摊(&G)"
      End
      Begin VB.Menu mnuAccountProfitLoss 
         Caption         =   "损益结转(&T)"
      End
      Begin VB.Menu mnuAccountRest 
         Caption         =   "结余分配(&J)"
      End
      Begin VB.Menu mnuAccountTaskBar6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAccountFinish 
         Caption         =   "期末结帐(&N)"
      End
      Begin VB.Menu mnuAccountUnFinish 
         Caption         =   "取消结帐(&I)"
      End
   End
   Begin VB.Menu mnuEnd 
      Caption         =   "期末(&N)"
      Begin VB.Menu mnuEndTrans 
         Caption         =   "通用转帐(&M)"
      End
      Begin VB.Menu mnuEndMoneyRate 
         Caption         =   "科目计息(&K)"
      End
      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 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)"
         Enabled         =   0   'False
      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)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuWindowStatusBar 
         Caption         =   "状态栏(&B)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuHelpBar 
         Caption         =   "帮助栏(&E)"
         Checked         =   -1  'True