mainwan.frm

金算盘软件代码

         Caption         =   "插入行(&I)"
         Enabled         =   0   'False
         Shortcut        =   +{INSERT}
      End
      Begin VB.Menu mnuEditDelLine 
         Caption         =   "删除行(&L)"
         Enabled         =   0   'False
         Shortcut        =   +{DEL}
      End
      Begin VB.Menu mnuEditBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEditEdit 
         Caption         =   "修改(&E)"
         Enabled         =   0   'False
         Shortcut        =   ^E
      End
      Begin VB.Menu mnuEditNew 
         Caption         =   "新增(&N)"
         Enabled         =   0   'False
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuEditDel 
         Caption         =   "删除(&D)         "
         Enabled         =   0   'False
         Shortcut        =   ^D
      End
      Begin VB.Menu mnuEditBar3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEditInActive 
         Caption         =   "停用(&H)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuEditShowAll 
         Caption         =   "全部显示(&W)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuEditBar4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEditShowList 
         Caption         =   "关联编码(&R)"
         Enabled         =   0   'False
         Shortcut        =   ^L
      End
      Begin VB.Menu mnuEditUse 
         Caption         =   "引用编码(&B) "
         Enabled         =   0   'False
         Shortcut        =   ^U
      End
      Begin VB.Menu mnuEditBar5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEditNotepad 
         Caption         =   "记事薄(&O)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuEditBar6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEditFilter 
         Caption         =   "筛选(&F) "
         Enabled         =   0   'False
         Shortcut        =   ^F
      End
      Begin VB.Menu mnuEditColumn 
         Caption         =   "栏目设置(&M)"
         Enabled         =   0   'False
         Shortcut        =   ^M
      End
      Begin VB.Menu mnuEditBar7 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEditSearch 
         Caption         =   "搜索(&S) "
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu mnuAccount 
      Caption         =   "财务(&A)"
      Begin VB.Menu mnuAccountVoucher 
         Caption         =   "日常业务(&V)"
      End
      Begin VB.Menu mnuAccountARAP 
         Caption         =   "应收应付(&W)"
         Begin VB.Menu mnuAccountSale 
            Caption         =   "销售发票(&S)"
         End
         Begin VB.Menu mnuAccountARDebit 
            Caption         =   "应收借项(&R)"
         End
         Begin VB.Menu mnuAccountARCrebit 
            Caption         =   "应收贷项(&Q)"
         End
         Begin VB.Menu mnuAccountFinanceCharge 
            Caption         =   "应收计息(&J)"
         End
         Begin VB.Menu mnuAccountARAPBar1 
            Caption         =   "-"
         End
         Begin VB.Menu mnuAccountPurchase 
            Caption         =   "采购发票(&P)"
         End
         Begin VB.Menu mnuAccountAPDebit 
            Caption         =   "应付借项(&D)"
         End
         Begin VB.Menu mnuAccountAPCrebit 
            Caption         =   "应付贷项(&F)"
         End
         Begin VB.Menu mnuAccountARAPBar2 
            Caption         =   "-"
         End
         Begin VB.Menu mnuAccountARAPVoucher 
            Caption         =   "往来凭证(&M)"
         End
      End
      Begin VB.Menu mnuAccountDtail 
         Caption         =   "银行对帐(&B)"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuAccountBankMoney 
         Caption         =   "现金银行(&C)"
         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 mnuAccountReconcile 
            Caption         =   "银行对帐(&B)"
         End
         Begin VB.Menu mnuAccountBillAdmin 
            Caption         =   "票据管理(&H)"
         End
         Begin VB.Menu mnuAccountBankMoneyBar 
            Caption         =   "-"
         End
         Begin VB.Menu mnuAccountRPVoucher 
            Caption         =   "收支凭证(&V)"
         End
      End
      Begin VB.Menu mnuAccountJobMain 
         Caption         =   "在建工程(&P)"
         Begin VB.Menu mnuAccountJobProject 
            Caption         =   "在建工程(&C)"
         End
         Begin VB.Menu mnuAccountJobCheck 
            Caption         =   "预算批复(&Q)"
         End
      End
      Begin VB.Menu mnuAccountSalaryMain 
         Caption         =   "工资(&S)"
         Begin VB.Menu mnuAccountCreatSalary 
            Caption         =   "建工资表(&C)"
         End
         Begin VB.Menu mnuAccountSalary 
            Caption         =   "工资发放(&Y)"
         End
         Begin VB.Menu mnuAccountSalaryVoucher 
            Caption         =   "工资凭证(&L)"
         End
      End
      Begin VB.Menu mnuAccountFixed 
         Caption         =   "固定资产(&F)"
         Begin VB.Menu mnuAccountFixedAdd 
            Caption         =   "固资增加(&A)"
         End
         Begin VB.Menu mnuAccountFixedSub 
            Caption         =   "固资减少(&J)"
         End
         Begin VB.Menu mnuAccountFixedOther 
            Caption         =   "其它变动(&X)"
         End
         Begin VB.Menu mnuAccountFixedBar 
            Caption         =   "-"
         End
         Begin VB.Menu mnuAccountDepreciation 
            Caption         =   "计提折旧(&D)"
         End
         Begin VB.Menu mnuAccountFixedAssetVoucher 
            Caption         =   "固资凭证(&P)"
         End
      End
      Begin VB.Menu mnuAccountTemp 
         Caption         =   "万能转帐(&M)"
         Begin VB.Menu mnuAccountTemplate 
            Caption         =   "万能转帐(&M)"
         End
         Begin VB.Menu mnuAccountMoneyRate 
            Caption         =   "科目计息(&K)"
         End
         Begin VB.Menu mnuAccountCalcExchange 
            Caption         =   "期末调汇(&C)"
         End
         Begin VB.Menu mnuAccountProfitLoss 
            Caption         =   "损益结转(&T)"
         End
      End
      Begin VB.Menu mnuAccountEndActivity 
         Caption         =   "期末业务(&E)"
         Begin VB.Menu mnuAccountFees 
            Caption         =   "费用分摊(&G)"
         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
   End
   Begin VB.Menu mnuTask 
      Caption         =   "供应链(&S)"
      Begin VB.Menu mnuTaskPurchaseOrder 
         Caption         =   "采购订单(&U)"
      End
      Begin VB.Menu mnuTaskSaleOrder 
         Caption         =   "销售订单(&O)"
      End
      Begin VB.Menu mnuTaskBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuTaskPurchase 
         Caption         =   "采购单(&P)"
      End
      Begin VB.Menu mnuTaskSale 
         Caption         =   "销售单(&S)"
      End
      Begin VB.Menu mnuTaskBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuTaskPurchaseInvoice 
         Caption         =   "采购发票(&D)"
      End
      Begin VB.Menu mnuTaskSaleInvoice 
         Caption         =   "销售发票(&A)"
      End
      Begin VB.Menu mnuTaskBar3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuInventoryStockTaking 
         Caption         =   "商品盘点(&K)"
      End
      Begin VB.Menu mnuInventoryInventoryCost 
         Caption         =   "成本计算(&C)"
      End
      Begin VB.Menu mnuTaskBar4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuTaskPurchaseMain 
         Caption         =   "采购(&P)"
         Begin VB.Menu mnuTaskPurchaseExpense 
            Caption         =   "采购分摊(&X)"
         End
         Begin VB.Menu mnuTaskPurchaseBar1 
            Caption         =   "-"
         End
         Begin VB.Menu mnuTaskBorrowIn 
            Caption         =   "受托入库(&B)"
         End
         Begin VB.Menu mnuTaskBorrowPurchase 
            Caption         =   "受托结算(&R)"
         End
         Begin VB.Menu mnuTaskPurchaseBar2 
            Caption         =   "-"
         End
         Begin VB.Menu mnuTaskItemPurchaseVoucher 
            Caption         =   "采购凭证(&V)"
         End
      End
      Begin VB.Menu mnuTaskSaleMain 
         Caption         =   "销售(&T)"
         Begin VB.Menu mnuTaskDirectPurchase 
            Caption         =   "直运采购(&D)"
         End
         Begin VB.Menu mnuTaskDirectSale 
            Caption         =   "直运销售(&I)"
         End
         Begin VB.Menu mnuTaskSaleBar1 
            Caption         =   "-"
         End
         Begin VB.Menu mnuTaskStageOut 
            Caption         =   "分期出库(&T)"
         End
         Begin VB.Menu mnuTaskStageSale 
            Caption         =   "分期结算(&G)"
         End
         Begin VB.Menu mnuTaskSaleBar2 
            Caption         =   "-"
         End
         Begin VB.Menu mnuTaskLendOut 
            Caption         =   "委托出库(&L)"
         End
         Begin VB.Menu mnuTaskLendSale 
            Caption         =   "委托结算(&E)"
         End
         Begin VB.Menu mnuTaskLendPosition 
            Caption         =   "委托调拨(&N)"
         End
         Begin VB.Menu mnuTaskSaleBar3 
            Caption         =   "-"
         End
         Begin VB.Menu mnuTaskItemSaleVoucher 
            Caption         =   "销售凭证(&O)"
         End
      End
      Begin VB.Menu mnuInventoryEntrust 
         Caption         =   "委托加工(&M)"
         Begin VB.Menu mnuInventoryEntrustOut 
            Caption         =   "加工出库(&N)"
         End
         Begin VB.Menu mnuInventoryEntrustIn 
            Caption         =   "加工入库(&E)"
         End
         Begin VB.Menu mnuInventoryEntrustExpense 
            Caption         =   "加工费用(&P)"
         End
         Begin VB.Menu mnuInventoryEntrustApportion 
            Caption         =   "加工分摊(&A)"
         End
         Begin VB.Menu mnuInventoryEntrustBar 
            Caption         =   "-"
         End
         Begin VB.Menu mnuInventoryEntrustVoucher 
            Caption         =   "加工凭证(&I)"
         End
      End
      Begin VB.Menu mnuInventory 
         Caption         =   "库存(&P)"
         Begin VB.Menu mnuInventoryCheckIn 
            Caption         =   "验收入库(&F)"
         End
         Begin VB.Menu mnuInventoryCheckOut 
            Caption         =   "出库发货(&G)"
         End
         Begin VB.Menu mnuInventoryBar0 
            Caption         =   "-"
         End
         Begin VB.Menu mnuInventoryIn 
            Caption         =   "自制入库(&I)"
         End
         Begin VB.Menu mnuInventoryOut 
            Caption         =   "领用出库(&O)"
         End
         Begin VB.Menu mnuInventoryBar1 
            Caption         =   "-"
         End
         Begin VB.Menu mnuInventoryOtherIn 
            Caption         =   "其它入库(&T)"
         End
         Begin VB.Menu mnuInventoryOtherOut