📄 frmmain.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
Begin VB.MDIForm frmMain
BackColor = &H8000000C&
Caption = "Account"
ClientHeight = 4215
ClientLeft = 165
ClientTop = 735
ClientWidth = 8910
HelpContextID = 1
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
Begin ComctlLib.StatusBar stbMain
Align = 2 'Align Bottom
Height = 285
Left = 0
TabIndex = 0
Top = 3930
Width = 8910
_ExtentX = 15716
_ExtentY = 503
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 8
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 3175
MinWidth = 3175
Text = "操作员"
TextSave = "操作员"
Key = "Operator"
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 2646
MinWidth = 2646
Text = "会计年度"
TextSave = "会计年度"
Key = "Year"
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 2293
MinWidth = 2293
Text = "会计期间"
TextSave = "会计期间"
Key = "Period"
Object.Tag = ""
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 2
Object.Width = 1235
MinWidth = 1235
Text = "日期:"
TextSave = "日期:"
Key = "Date"
Object.Tag = ""
EndProperty
BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 2028
MinWidth = 2028
Text = "1998-06-19"
TextSave = "1998-06-19"
Key = "DateValue"
Object.Tag = ""
EndProperty
BeginProperty Panel6 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 2
Object.Width = 1235
MinWidth = 1235
Text = "时间:"
TextSave = "时间:"
Key = "Time"
Object.Tag = ""
EndProperty
BeginProperty Panel7 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 1235
MinWidth = 1235
Text = "12:59"
TextSave = "12:59"
Key = "TimeValue"
Object.Tag = ""
EndProperty
BeginProperty Panel8 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Bevel = 2
Text = "菜单提示"
TextSave = "菜单提示"
Key = "Menu"
Object.Tag = ""
EndProperty
EndProperty
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuFileNew
Caption = "新建帐套(&N)..."
End
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 mnuFileBackup
Caption = "数据备份(&B)..."
End
Begin VB.Menu mnuFileRestore
Caption = "数据恢复(&R)..."
End
Begin VB.Menu mnuFileImport
Caption = "数据导入(&M)..."
End
Begin VB.Menu mnuFileExport
Caption = "数据导出(&E)..."
End
Begin VB.Menu mnuFileBar2
Caption = "-"
End
Begin VB.Menu mnuFilePack
Caption = "帐套整理(&K)..."
End
Begin VB.Menu mnuFileCondense
Caption = "帐套结转(&O)..."
End
Begin VB.Menu mnuFileBar3
Caption = "-"
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)"
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) "
Shortcut = ^F
End
Begin VB.Menu mnuEditColumn
Caption = "栏目设置(&M)"
Enabled = 0 'False
End
Begin VB.Menu mnuEditBar7
Caption = "-"
End
Begin VB.Menu mnuEditSearch
Caption = "搜索(&S) "
Enabled = 0 'False
Shortcut = ^S
End
End
Begin VB.Menu mnuList
Caption = "列表(&L)"
Begin VB.Menu mnuListAccount
Caption = "会计科目(&A)"
End
Begin VB.Menu mnuListBar1
Caption = "-"
End
Begin VB.Menu mnuListCustomer
Caption = "往来单位(&C)"
End
Begin VB.Menu mnuListDepartment
Caption = "部门职员(&E)"
End
Begin VB.Menu mnuListClass1
Caption = "统计核算(&L)"
End
Begin VB.Menu mnuListClass2
Caption = "项目核算(&J)"
End
Begin VB.Menu mnuListJob
Caption = "工程核算(&J)"
End
Begin VB.Menu mnuListBar2
Caption = "-"
End
Begin VB.Menu mnuListItem
Caption = "商品劳务(&I)"
End
Begin VB.Menu mnuListCustom
Caption = "自定项目(&U)"
End
Begin VB.Menu mnuListPosition
Caption = "仓储货位(&S)"
End
Begin VB.Menu mnuListTax
Caption = "税种税率(&X)"
End
Begin VB.Menu mnuListBar3
Caption = "-"
End
Begin VB.Menu mnuListFixedAsset
Caption = "固资类别(&D)"
End
Begin VB.Menu mnuListFixedMethod
Caption = "变动方式(&M)"
End
Begin VB.Menu mnuListBar4
Caption = "-"
End
Begin VB.Menu mnuListCurrency
Caption = "币种汇率(&F)"
End
Begin VB.Menu mnuListVoucherType
Caption = "凭证类型(&T)"
End
Begin VB.Menu mnuListBar5
Caption = "-"
End
Begin VB.Menu mnuListPaymentMethod
Caption = "付款方式(&P)"
End
Begin VB.Menu mnuListTerm
Caption = "付款条件(&T)"
End
Begin VB.Menu mnuListBar6
Caption = "-"
End
Begin VB.Menu mnuListBudget
Caption = "计划预算(&G)"
End
End
Begin VB.Menu mnuTask
Caption = "购销(&S)"
Begin VB.Menu mnuTaskPurchaseOrder
Caption = "采购订单(&U)"
End
Begin VB.Menu mnuTaskPurchase
Caption = "商品进货(&P)"
End
Begin VB.Menu mnuTaskPurchaseExpense
Caption = "费用分摊(&E)"
End
Begin VB.Menu mnuSaleTaskBar1
Caption = "-"
End
Begin VB.Menu mnuTaskSaleOrder
Caption = "销售订单(&O)"
End
Begin VB.Menu mnuTaskSale
Caption = "商品出货(&S)"
End
Begin VB.Menu mnuSaleTaskBar2
Caption = "-"
End
Begin VB.Menu mnuTaskBorrowPrice
Caption = "受托调价(&B)"
End
Begin VB.Menu mnuTaskLendPosition
Caption = "代销调拨(&A)"
End
Begin VB.Menu mnuTaskLendPrice
Caption = "代销调价(&M)"
End
Begin VB.Menu mnuSaleTaskBar3
Caption = "-"
End
Begin VB.Menu mnuTaskItemPosition
Caption = "商品调拨(&I)"
End
Begin VB.Menu mnuTaskItemPrice
Caption = "商品调价(&R)"
End
Begin VB.Menu mnuSaleTaskBar4
Caption = "-"
End
Begin VB.Menu mnuTaskAdjustItem
Caption = "拆卸组装(&D)"
End
Begin VB.Menu mnuTaskCostPrice
Caption = "入库成本(&T)"
End
Begin VB.Menu mnuTaskStockTaking
Caption = "商品盘点(&K)"
End
Begin VB.Menu mnuSaleTaskBar5
Caption = "-"
End
Begin VB.Menu mnuTaskInventoryCost
Caption = "成本计算(&C)"
End
Begin VB.Menu mnuSaleTaskBar6
Caption = "-"
End
Begin VB.Menu mnuTaskItemVoucher
Caption = "购销凭证(&V)"
End
End
Begin VB.Menu mnuAccount
Caption = "财务(&A)"
Begin VB.Menu mnuAccountAR
Caption = "应收款项(&R)"
End
Begin VB.Menu mnuAccountAP
Caption = "应付款项(&P)"
End
Begin VB.Menu mnuAccountFinanceCharge
Caption = "财务费用(&F)"
End
Begin VB.Menu mnuAccountTaskBar1
Caption = "-"
End
Begin VB.Menu mnuAccountReceive
Caption = "收入款项(&E)"
End
Begin VB.Menu mnuAccountPayment
Caption = "支付款项(&A)"
End
Begin VB.Menu mnuAccountReconcile
Caption = "银行对帐(&N)"
End
Begin VB.Menu mnuAccountTaskBar2
Caption = "-"
End
Begin VB.Menu mnuAccountVoucher
Caption = "记帐凭证(&V)"
End
Begin VB.Menu mnuAccountTaskBar3
Caption = "-"
End
Begin VB.Menu mnuAccountSalary
Caption = "工资发放(&S)"
End
Begin VB.Menu mnuAccountSalaryVoucher
Caption = "工资凭证(&L)"
End
Begin VB.Menu mnuAccountTaskBar4
Caption = "-"
End
Begin VB.Menu mnuAccountFixedAsset
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -