mainform.frm

餐饮管理系统 登记模板

         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "房台分析"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "酒菜分析"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "员工管理"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出系统"
            ImageIndex      =   9
         EndProperty
      EndProperty
   End
   Begin VB.Menu menu_qtyy 
      Caption         =   "前台营业"
      Begin VB.Menu menu_qtyy_rsrj 
         Caption         =   "日始日结"
      End
      Begin VB.Menu menu_qtyy_jdyd 
         Caption         =   "接待预定"
      End
      Begin VB.Menu menu_qtyy_dcsy 
         Caption         =   "点菜收银"
      End
      Begin VB.Menu menu_qtyy_bccp 
         Caption         =   "吧厨出品"
      End
   End
   Begin VB.Menu menu_yysz 
      Caption         =   "营业设置"
      Begin VB.Menu menu_yysz_jcsz 
         Caption         =   "酒菜设置"
      End
      Begin VB.Menu menu_yysz_ftsz 
         Caption         =   "房台设置"
      End
      Begin VB.Menu menu_yysz_qtsz 
         Caption         =   "其他设置"
      End
   End
   Begin VB.Menu menu_yyfx 
      Caption         =   "营业分析"
      Begin VB.Menu menu_yyfx_xsfx 
         Caption         =   "销售分析"
      End
      Begin VB.Menu menu_yyfx_ftfx 
         Caption         =   "房台分析"
      End
      Begin VB.Menu menu_yyfx_jcfx 
         Caption         =   "酒菜分析"
      End
      Begin VB.Menu menu_yyfx_ygfx 
         Caption         =   "员工分析"
      End
   End
   Begin VB.Menu menu_cwcx 
      Caption         =   "财务查询"
      Begin VB.Menu menu_cwcx_zdcx 
         Caption         =   "帐单查询"
      End
      Begin VB.Menu menu_cwcx_ddcx 
         Caption         =   "点单查询"
      End
      Begin VB.Menu menu_cwcx_hycx 
         Caption         =   "会员查询"
      End
      Begin VB.Menu menu_cwcx_gzcx 
         Caption         =   "挂帐查询"
      End
   End
   Begin VB.Menu menu_kcgl 
      Caption         =   "库存管理"
      Begin VB.Menu menu_kcgl_kcgl 
         Caption         =   "库存管理"
      End
      Begin VB.Menu menu_kcgl_wlgl 
         Caption         =   "物流管理"
      End
      Begin VB.Menu menu_kcgl_wlgl2 
         Caption         =   "往来管理"
      End
      Begin VB.Menu menu_kcgl_kczw 
         Caption         =   "库存帐务"
      End
   End
   Begin VB.Menu menu_fzgl 
      Caption         =   "辅助管理"
      Begin VB.Menu menu_fzgl_yggl 
         Caption         =   "员工管理"
      End
      Begin VB.Menu menu_fzgl_hygl 
         Caption         =   "会员管理"
      End
      Begin VB.Menu menu_fzgl_gzgl 
         Caption         =   "挂帐管理"
      End
   End
   Begin VB.Menu menu_xtgl 
      Caption         =   "系统管理"
      Begin VB.Menu menu_xtgl_xtxx 
         Caption         =   "系统信息"
      End
      Begin VB.Menu menu_xtgl_xtwh 
         Caption         =   "系统维护"
      End
      Begin VB.Menu menu_xtgl_wlgl 
         Caption         =   "网络管理"
      End
      Begin VB.Menu menu_xtgl_kh 
         Caption         =   "-"
      End
      Begin VB.Menu menu_xtgl_cxdl 
         Caption         =   "重新登录"
      End
      Begin VB.Menu menu_xtgl_tcxt 
         Caption         =   "推出系统"
      End
   End
   Begin VB.Menu menu_bzxx 
      Caption         =   "帮助信息"
      Begin VB.Menu menu_bzxx_sysm 
         Caption         =   "使用说明"
      End
      Begin VB.Menu menu_bzxx_gy 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
Dim clmX As ColumnHeader '标题栏
Dim itmX As ListItem '列表项目
    
    '设置ListView1的显示标题和图标
    Set itmX = ListView1.ListItems.Add(, , "前台营业")
    itmX.Icon = 1
    Set itmX = ListView1.ListItems.Add(, , "营业设置")
    itmX.Icon = 2
    Set itmX = ListView1.ListItems.Add(, , "营业分析")
    itmX.Icon = 3
    Set itmX = ListView1.ListItems.Add(, , "财务查询")
    itmX.Icon = 4
    Set itmX = ListView1.ListItems.Add(, , "库存管理")
    itmX.Icon = 5
    Set itmX = ListView1.ListItems.Add(, , "辅助管理")
    itmX.Icon = 6
    Set itmX = ListView1.ListItems.Add(, , "系统管理")
    itmX.Icon = 7
    Set itmX = ListView1.ListItems.Add(, , "帮助信息")
    itmX.Icon = 8
    '设定ListView2的标题和图标
    Set itmX = ListView2.ListItems.Add(, , "日始日结")
    itmX.Icon = 9
    Set itmX = ListView2.ListItems.Add(, , "接待预定")
    itmX.Icon = 10
    Set itmX = ListView2.ListItems.Add(, , "点菜收银")
    itmX.Icon = 11
    Set itmX = ListView2.ListItems.Add(, , "吧厨出品")
    itmX.Icon = 12
End Sub


Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
ListView2.ListItems.Clear
Select Case Item.Text
    Case "前台营业"
        Set itmX = ListView2.ListItems.Add(, , "日始日结")
        itmX.Icon = 9
        Set itmX = ListView2.ListItems.Add(, , "接待预定")
        itmX.Icon = 10
        Set itmX = ListView2.ListItems.Add(, , "点菜收银")
        itmX.Icon = 11
        Set itmX = ListView2.ListItems.Add(, , "吧厨出品")
        itmX.Icon = 12
    Case "营业设置"
        Set itmX = ListView2.ListItems.Add(, , "酒菜设置")
        itmX.Icon = 13
        Set itmX = ListView2.ListItems.Add(, , "房台设置")
        itmX.Icon = 14
        Set itmX = ListView2.ListItems.Add(, , "其他设置")
        itmX.Icon = 15
    Case "营业分析"
        Set itmX = ListView2.ListItems.Add(, , "销售分析")
        itmX.Icon = 16
        Set itmX = ListView2.ListItems.Add(, , "房台分析")
        itmX.Icon = 17
        Set itmX = ListView2.ListItems.Add(, , "酒菜分析")
        itmX.Icon = 18
        Set itmX = ListView2.ListItems.Add(, , "操作分析")
        itmX.Icon = 19
        Set itmX = ListView2.ListItems.Add(, , "业绩分析")
        itmX.Icon = 34
    Case "财务查询"
        Set itmX = ListView2.ListItems.Add(, , "帐单查询")
        itmX.Icon = 20
        Set itmX = ListView2.ListItems.Add(, , "点单查询")
        itmX.Icon = 21
        Set itmX = ListView2.ListItems.Add(, , "会员查询")
        itmX.Icon = 22
        Set itmX = ListView2.ListItems.Add(, , "挂帐查询")
        itmX.Icon = 23
    Case "库存管理"
        Set itmX = ListView2.ListItems.Add(, , "库存管理")
        itmX.Icon = 24
        Set itmX = ListView2.ListItems.Add(, , "物流管理")
        itmX.Icon = 25
        Set itmX = ListView2.ListItems.Add(, , "往来管理")
        itmX.Icon = 26
        Set itmX = ListView2.ListItems.Add(, , "库存帐务")
        itmX.Icon = 27
    Case "辅助管理"
        Set itmX = ListView2.ListItems.Add(, , "员工管理")
        itmX.Icon = 28
        Set itmX = ListView2.ListItems.Add(, , "会员管理")
        itmX.Icon = 21
        Set itmX = ListView2.ListItems.Add(, , "挂帐管理")
        itmX.Icon = 29
        Set itmX = ListView2.ListItems.Add(, , "员工业绩")
        itmX.Icon = 12
    Case "系统管理"
        Set itmX = ListView2.ListItems.Add(, , "系统信息")
        itmX.Icon = 30
        Set itmX = ListView2.ListItems.Add(, , "系统设置")
        itmX.Icon = 31
        Set itmX = ListView2.ListItems.Add(, , "重新登陆")
        itmX.Icon = 33
        Set itmX = ListView2.ListItems.Add(, , "退出系统")
        itmX.Icon = 34
End Select
End Sub


Private Sub ListView2_ItemClick(ByVal Item As MSComctlLib.ListItem)
Select Case Item.Text
    Case "接待预定"
        JDYD.Show 1
    Case "点菜收银"
        DCSY.Show 1
    Case "吧厨出品"
        BCCP.Show 1
    Case "酒菜设置"
        JCSZ.Show 1
    Case "房台设置"
        FTSZ.Show 1
    Case "其他设置"
        QTSZ.Show 1
    Case "销售分析"
        XSFX.Show 1
    Case "房台分析"
        FTFX.Show 1
    Case "酒菜分析"
        JCFX.Show 1
    Case "操作分析"
        CZFX.Show 1
    Case "业绩分析"
        YJFX.Show 1
    Case "帐单查询"
        ZDCX.Show 1
    Case "点单查询"
        DDCX.Show 1
    Case "会员查询"
        HYCX.Show 1
    Case "挂帐查询"
        GZCX.Show 1
    Case "库存管理"
        KCGL.Show 1
    Case "物流管理"
        WLGL.Show 1
    Case "往来管理"
        WLaiGL.Show 1
    Case "库存帐务"
        KCGL.Show 1
    Case "员工权限"
        YGQX.Show 1
    Case "员工业绩"
        YGYJ.Show 1
    Case "会员管理"
        HYGL.Show 1
    Case "挂帐管理"
        GZGL.Show 1
    Case "系统设置"
        XTSZ.Show 1
    Case "重新登陆"
        DLXX.Show 1
    Case "数据维护"
        SJWH.Show 1
End Select
End Sub


Private Sub menu_qtyy_dcsy_Click()
    DCSY.Show 1
    
End Sub

Private Sub menu_xtgl_xtxx_Click()
'Main.Show 1
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case 1
        DCSY.Show 1
    Case 2
        JCSZ.Show 1
    Case 3
        FTSZ.Show 1
    Case 4
        QTSZ.Show 1
    Case 5
        XSFX.Show 1
    Case 6
        FTFX.Show 1
    Case 7
        JCFX.Show 1
    Case 8
        YGQX.Show 1
    Case 9
        End
End Select
End Sub