📄 main.vb

📁 本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等事宜
💻 VB
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
        Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Label1.ForeColor = System.Drawing.Color.Blue
        Me.Label1.Location = New System.Drawing.Point(0, 0)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(196, 24)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "采购系统管理模块"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        Me.Label1.Visible = False
        '
        'TreeView1
        '
        Me.TreeView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TreeView1.BackColor = System.Drawing.SystemColors.Info
        Me.TreeView1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.TreeView1.ForeColor = System.Drawing.Color.Navy
        Me.TreeView1.ImageIndex = 6
        Me.TreeView1.ImageList = Me.ImageList1
        Me.TreeView1.Indent = 25
        Me.TreeView1.ItemHeight = 28
        Me.TreeView1.Location = New System.Drawing.Point(0, 24)
        Me.TreeView1.Name = "TreeView1"
        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("基本信息管理", 0, 0, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("浏览资源", 5, 5), New System.Windows.Forms.TreeNode("登记账单", 9, 9), New System.Windows.Forms.TreeNode("点菜菜谱", 8, 8), New System.Windows.Forms.TreeNode("结账清单", 3, 3)}), New System.Windows.Forms.TreeNode("采购管理", 0, 0, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("预定订单", 10, 10), New System.Windows.Forms.TreeNode("酒宴服务", 12, 12)}), New System.Windows.Forms.TreeNode("盘点和报销管理", 0, 0, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("外卖订单", 11, 11), New System.Windows.Forms.TreeNode("送货服务", 13, 13)}), New System.Windows.Forms.TreeNode("查询管理", 0, 0, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("员工管理", 9, 9)})})
        Me.TreeView1.SelectedImageIndex = 7
        Me.TreeView1.Size = New System.Drawing.Size(220, 343)
        Me.TreeView1.TabIndex = 2
        Me.TreeView1.Visible = False
        '
        'Splitter1
        '
        Me.Splitter1.Location = New System.Drawing.Point(220, 30)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(4, 353)
        Me.Splitter1.TabIndex = 4
        Me.Splitter1.TabStop = False
        '
        'Timer1
        '
        Me.Timer1.Interval = 1000
        '
        'Timer2
        '
        Me.Timer2.Interval = 10
        '
        'NotifyIcon1
        '
        Me.NotifyIcon1.ContextMenu = Me.ContextMenu1
        Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon)
        Me.NotifyIcon1.Text = "采购管理系统"
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem16, Me.MenuItem17})
        '
        'MenuItem16
        '
        Me.MenuItem16.Index = 0
        Me.MenuItem16.Text = "显示主窗体"
        '
        'MenuItem17
        '
        Me.MenuItem17.Index = 1
        Me.MenuItem17.Text = "退出"
        '
        'Timer3
        '
        Me.Timer3.Enabled = True
        Me.Timer3.Interval = 1000
        '
        'Timer4
        '
        Me.Timer4.Enabled = True
        Me.Timer4.Interval = 60000
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(654, 405)
        Me.Controls.Add(Me.Splitter1)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.ToolBar1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.Text = "采购管理系统"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel4, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim yy As Integer

    Private Sub menuModPwd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frmPswd As New Form11
        If OpenOnce(frmPswd) = False Then
            frmPswd.MdiParent = Me
            frmPswd.Show()
        End If

    End Sub

    '判断该窗体是否存在
    Public Function OpenOnce(ByVal myform As Form) As Boolean
        Dim form As Form
        For Each form In Me.MdiChildren
            If form.Text = myform.Text Then
                form.Activate()
                Return True
            End If
        Next
        Return False
    End Function

 
  
    '通过窗体的右上角的小叉关闭本窗体
    Private Sub Form1_Closing(ByVal sender As Object, _
    ByVal e As System.ComponentModel.CancelEventArgs) _
    Handles MyBase.Closing
        If MsgBox("您真的要退出采购管理系统吗？", _
        MsgBoxStyle.YesNo + MsgBoxStyle.Question, "退出系统") _
        = MsgBoxResult.Yes Then
            Application.Exit()
        Else
            e.Cancel = True
        End If
    End Sub

   
    '主窗体Load事件
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Authority()
        'StatusBar()
        Me.Timer1.Enabled = True
        Me.StatusBarPanel3.Text = UserName

        pandun_yincang_caidan() '根据职务影藏不该看到的菜单
    End Sub

    '根据职务影藏不该看到的菜单
    Private Sub pandun_yincang_caidan()
        If pub_zhiwei = "现场文员" Then
            MenuItem52.Visible = False
            MenuItem53.Visible = False
            MenuItem54.Visible = False
            MenuItem24.Visible = False
            MenuItem64.Visible = False
            MenuItem60.Visible = False
            MenuItem26.Visible = False
            MenuItem81.Visible = False
            MenuItem80.Visible = False
            MenuItem83.Visible = False
            MenuItem85.Visible = False
            MenuItem39.Visible = False
            MenuItem41.Visible = False
            MenuItem77.Visible = False
            MenuItem82.Visible = False
            MenuItem84.Visible = False
            MenuItem62.Visible = False
            MenuItem30.Visible = False
            MenuItem35.Visible = False
            MenuItem37.Visible = False
            MenuItem38.Visible = False
            MenuItem40.Visible = False
            MenuItem42.Visible = False
            MenuItem56.Visible = False
            MenuItem90.Visible = False
            MenuItem2.Visible = False
            MenuItem116.Visible = False
        ElseIf pub_zhiwei = "项目部经理" Then
            MenuItem52.Visible = False
            MenuItem53.Visible = False
            MenuItem54.Visible = False
            MenuItem55.Visible = False
            MenuItem60.Visible = False
            MenuItem63.Visible = False
            MenuItem26.Visible = False
            MenuItem80.Visible = False
            MenuItem83.Visible = False
            MenuItem85.Visible = False
            MenuItem79.Visible = False
            MenuItem41.Visible = False
            MenuItem77.Visible = False
            MenuItem82.Visible = False
            MenuItem84.Visible = False
            MenuItem36.Visible = False
            MenuItem61.Visible = False
            MenuItem30.Visible = False
            MenuItem37.Visible = False
            MenuItem38.Visible = False
            MenuItem40.Visible = False
            MenuItem42.Visible = False
            MenuItem34.Visible = False
            MenuItem90.Visible = False
            MenuItem2.Visible = False
            MenuItem117.Visible = False
            MenuItem135.Visible = False
        ElseIf pub_zhiwei = "分公司经理" Then
            MenuItem51.Visible = False
            MenuItem52.Visible = False
            MenuItem54.Visible = False
            MenuItem53.Visible = False
            MenuItem59.Visible = False
            MenuItem26.Visible = False
            MenuItem81.Visible = False
            MenuItem79.Visible = False
            MenuItem83.Visible = False
            MenuItem85.Visible = False
            MenuItem81.Visible = False
            MenuItem78.Visible = False
            MenuItem28.Visible = False
            MenuItem34.Visible = False
            MenuItem35.Visible = False
            MenuItem37.Visible = False
            MenuItem38.Visible = False
            MenuItem40.Visible = False
            MenuItem42.Visible = False
            MenuItem2.Visible = False

            MenuItem24.Visible = False

        ElseIf pub_zhiwei = "采购文员" Then
            MenuItem51.Visible = False
            MenuItem58.Visible = False
            MenuItem54.Visible = False
            MenuItem53.Visible = False
            MenuItem25.Visible = False
            MenuItem74.Visible = False
            MenuItem70.Visible = False
            MenuItem71.Visible = False
            MenuItem76.Visible = False
            MenuItem36.Visible = False
            MenuItem39.Visible = False
            MenuItem28.Visible = False
            MenuItem77.Visible = False
            MenuItem82.Visible = False
            MenuItem84.Visible = False
            MenuItem24.Visible = False
            MenuItem35.Visible = False
            MenuItem37.Visible = False
            MenuItem38.Visible = False
            MenuItem40.Visible = False
            MenuItem42.Visible = False
            MenuItem90.Visible = False
            MenuItem2.Visible = False
            MenuItem116.Visible = False
        ElseIf pub_zhiwei = "采购部经理" Then
            MenuItem51.Visible = False
            MenuItem57.Visible = False
            MenuItem54.Visible = False
            MenuItem53.Visible = False
            MenuItem25.Visible = False
            MenuItem72.Visible = False
            MenuItem70.Visible = False
            MenuItem73.Visible = False
            MenuItem76.Visible = False
            MenuItem36.Visible = False
            MenuItem41.Visible = False
            MenuItem28.Visible = False
            MenuItem39.Visible = False
            MenuItem82.Visible = False
            MenuItem84.Visible = False

            MenuItem34.Visible = False
            MenuItem37.Visible = False
            MenuItem38.Visible = False
            MenuItem40.Visible = False
            MenuItem42.Visible = False
            MenuItem90.Visible = False

            MenuItem2.Visible = False


            MenuItem119.Visible = False
        ElseIf pub_zhiwei = "财务负责人" Then
            MenuItem51.Visible = False
            MenuItem52.Visible = False
            MenuItem53.Visible = False

            MenuItem25.Visible = False
            MenuItem26.Visible = False
            MenuItem79.Visible = False
            MenuItem81.Visible = False
            MenuItem80.Visible = False
            MenuItem85.Visible = False

            MenuItem36.Visible = False
            MenuItem39.Visible = False
            MenuItem41.Visible = False
            MenuItem77.Visible = False
            MenuItem84.Visible = False

            MenuItem34.Visible = False
            MenuItem35.Visible = False
            MenuItem37.Visible = False
            MenuItem38.Visible = False
            MenuItem42.Visible = False
            MenuItem90.Visible = False
            MenuItem2.Visible = False


            MenuItem119.Visible = False
            MenuItem117.Visible = False
        ElseIf pub_zhiwei = "总经理" Then
            MenuItem51.Visible = False
            MenuItem52.Visible = False
            MenuItem54.
上一页 1 2 3 45
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -