非常6+1超市管理系统.vb

来自「用VB开发了一个超市管理系统」· VB 代码 · 共 139 行

Public Class Form3
    Private Sub Mnu_rk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_rk.Click
        
        If USER.userno <> "001" And USER.userno <> "003" Then
            MsgBox("只有系统管理员和库存管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Dim FrmObj As New Form4()
        FrmObj.Show()
    End Sub

    Private Sub Mnu_th_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_th.Click

        If USER.userno <> "001" And USER.userno <> "003" Then
            MsgBox("只有系统管理员和库存管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        tuihuo.Show()
    End Sub

    Private Sub Mnu_xt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_xt.Click
        If user.userno <> "001" Then
            MsgBox("只有系统管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
    End Sub

    Private Sub Mnu_qt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_qt.Click
        If USER.userno <> "001" And USER.userno <> "002" Then
            MsgBox("只有系统管理员和销售管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
    End Sub


    Private Sub Mnu_ht_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_ht.Click
        If USER.userno <> "001" And USER.userno <> "003" Then
            MsgBox("只有系统管理员和库存管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
    End Sub

    Private Sub Mnu_sp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_sp.Click
        If USER.userno <> "001" And USER.userno <> "003" Then
            MsgBox("只有系统管理员和库存管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
    End Sub

    
    Private Sub Mnu_yh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_yh.Click

        If USER.userno <> "001" Then
            MsgBox("只有系统管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        FrmMain.Show()
    End Sub

    Private Sub Mnu_sj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_sj.Click
        If USER.userno <> "001" Then
            MsgBox("只有系统管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        frmbackupandrecover.Show()
    End Sub

    Private Sub Mnu_hy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_hy.Click
        If USER.userno <> "001" Then
            MsgBox("只有系统管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        huiyuan.Show()
    End Sub

    Private Sub Mnu_tc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_tc.Click
        Me.Close()
    End Sub

    Private Sub Mnu_xs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_xs.Click
        If USER.userno <> "001" And USER.userno <> "002" Then
            MsgBox("只有系统管理员和销售管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        qiantai.Show()
    End Sub

    Private Sub Mnu_cxsp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_cxsp.Click
        If USER.userno <> "001" And USER.userno <> "002" Then
            MsgBox("只有系统管理员和销售管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Form7.Show()
    End Sub

    Private Sub Mnu_cxxs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_cxxs.Click
        If USER.userno <> "001" And USER.userno <> "002" Then
            MsgBox("只有系统管理员和销售管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Form6.Show()
    End Sub

    Private Sub Mnu_lb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_lb.Click
        If USER.userno <> "001" And USER.userno <> "003" Then
            MsgBox("只有系统管理员和库存管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        leibie.Show()
    End Sub

    Private Sub Mnu_gys_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_gys.Click
        If USER.userno <> "001" And USER.userno <> "003" Then
            MsgBox("只有系统管理员和库存管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        gongyingshang.Show()
    End Sub

    Private Sub Mnu_spxx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_spxx.Click
        If USER.userno <> "001" And USER.userno <> "003" Then
            MsgBox("只有系统管理员和库存管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        shangpinxinxi.Show()
    End Sub

    Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
        Me.Close()
    End Sub

   

    Private Sub Mnu_guanyu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_guanyu.Click
        guanyu.Show()
    End Sub

   
End Class