基于PB供存货管理系统

在线咨询详情

Public Sub 创建系统菜单()
    On Error Resume Next
    With ActiveWindow
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayZeros = False
        .DisplayWorkbookTabs = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
    End With
    With Application
        .CommandBars("Formatting").Visible = False
        .CommandBars("Standard").Visible = False
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
        .Caption = ""
    End With
    MenuBars("存货管理系统").Delete
    '建立一个自定义菜单栏"进销存"
    MenuBars.Add "存货管理系统"
    '为"进销存"自定义菜单栏添加菜单
    With MenuBars("存货管理系统").Menus
        .Add "系统设置"
        .Add "基本资料"
        .Add "存货管理"
        .Add "系统帮助"
    End With
运行结果
经过测试，存货管理系统基本运行正常，达到了预期的目标，能够实现相应的功能，可实际投入使用。不过，这个系统的开发只是我在会计软件设计学习道路上的第一步，还有很多方面需要进一步完善。
 

以上内容只是毕业设计作品的部分资料介绍,如果了解更多详情请联系客服QQ:57510459
     购买帮助>>