📄 main.frm
字号:
EndProperty
BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Help"
Object.ToolTipText = "帮助"
ImageIndex = 18
EndProperty
BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Exit"
Object.ToolTipText = "退出"
ImageIndex = 11
EndProperty
EndProperty
Begin VB.CommandButton cmdFlow
Height = 255
Left = 6000
Picture = "Main.frx":3E58
Style = 1 'Graphical
TabIndex = 2
TabStop = 0 'False
Top = 30
UseMaskColor = -1 'True
Width = 915
End
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuFileOpen
Caption = "打开帐套(&O)..."
End
Begin VB.Menu mnuFileClose
Caption = "关闭帐套(&C)"
End
Begin VB.Menu mnuFileProperty
Caption = "帐套属性(&I)..."
End
Begin VB.Menu mnuFileBar1
Caption = "-"
End
Begin VB.Menu mnuFileImport
Caption = "数据导入(&M)..."
Visible = 0 'False
End
Begin VB.Menu mnuFileExport
Caption = "数据导出(&E)..."
Visible = 0 'False
End
Begin VB.Menu mnuFileBar2
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuFilePrintSetup
Caption = "打印设置(&U)..."
Enabled = 0 'False
End
Begin VB.Menu mnuFilePrint
Caption = "打印(&P)..."
Enabled = 0 'False
Shortcut = ^P
End
Begin VB.Menu mnuFilePrintReceipt
Caption = "打印单据(&T)..."
End
Begin VB.Menu mnuFileBar4
Caption = "-"
End
Begin VB.Menu mnuFileLogin
Caption = "系统登录(&L)..."
End
Begin VB.Menu mnuFileBar5
Caption = "-"
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 0
Visible = 0 'False
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 1
Visible = 0 'False
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 2
Visible = 0 'False
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 3
Visible = 0 'False
End
Begin VB.Menu mnuFileMRUBar
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuFileExit
Caption = "退出(&X)"
End
End
Begin VB.Menu mnuEdit
Caption = "编辑(&E)"
HelpContextID = 1100
Begin VB.Menu mnuEditUndo
Caption = "取消(&U)"
Enabled = 0 'False
Shortcut = ^Z
End
Begin VB.Menu mnuEditBar1
Caption = "-"
End
Begin VB.Menu mnuEditCut
Caption = "剪切(&T)"
Enabled = 0 'False
Shortcut = ^X
End
Begin VB.Menu mnuEditCopy
Caption = "复制(&C)"
Enabled = 0 'False
Shortcut = ^C
End
Begin VB.Menu mnuEditPaste
Caption = "粘贴(&P)"
Enabled = 0 'False
Shortcut = ^V
End
Begin VB.Menu mnuEditInsLine
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 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 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 mnuTaskPurchaseExpense
Caption = "采购分摊(&X)"
End
Begin VB.Menu mnuTaskSale
Caption = "商品销售(&S)"
End
Begin VB.Menu mnuTaskBar2
Caption = "-"
End
Begin VB.Menu mnuTaskDirectPurchase
Caption = "直运采购(&D)"
End
Begin VB.Menu mnuTaskDirectSale
Caption = "直运销售(&I)"
End
Begin VB.Menu mnuTaskBar3
Caption = "-"
End
Begin VB.Menu mnuTaskBorrowIn
Caption = "受托入库(&B)"
End
Begin VB.Menu mnuTaskBorrowPurchase
Caption = "受托结算(&R)"
End
Begin VB.Menu mnuTaskBar4
Caption = "-"
End
Begin VB.Menu mnuTaskStageOut
Caption = "分期出库(&T)"
End
Begin VB.Menu mnuTaskStageSale
Caption = "分期结算(&G)"
End
Begin VB.Menu mnuTaskBar5
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 mnuTaskBar6
Caption = "-"
End
Begin VB.Menu mnuTaskPurchaseInvoice
Caption = "采购发票(&C)"
End
Begin VB.Menu mnuTaskSaleInvoice
Caption = "销售发票(&A)"
End
Begin VB.Menu mnuTaskBar7
Caption = "-"
End
Begin VB.Menu mnuTaskItemVoucher
Caption = "购销凭证(&V)"
End
End
Begin VB.Menu mnuInventory
Caption = "库存(&I)"
Begin VB.Menu mnuInventoryCheckIn
Caption = "验收入库(&F)"
End
Begin VB.Menu mnuInventoryCheckOut
Caption = "出库发货(&G)"
End
Begin VB.Menu mnuInventoryBar0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -