frmmain.vb

VB.NET开发的进销存系统,数据库SQLSERVER

Public Class frmMain
    Inherits System.Windows.Forms.Form
    Public UserName As String
    Public UserId As String
#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents MainMenu As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItemArchive As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItemOrder As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItemDepot As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItemSystem As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItemManageRight As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItemDepotSearch As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItemOrderList As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItemClientInfo As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItemGoodsInfo As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItemSupplyInfo As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItemSellManage As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItemSellList As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.MainMenu = New System.Windows.Forms.MainMenu
        Me.MenuItemArchive = New System.Windows.Forms.MenuItem
        Me.MenuItemGoodsInfo = New System.Windows.Forms.MenuItem
        Me.MenuItemSupplyInfo = New System.Windows.Forms.MenuItem
        Me.MenuItemClientInfo = New System.Windows.Forms.MenuItem
        Me.MenuItemOrder = New System.Windows.Forms.MenuItem
        Me.MenuItemOrderList = New System.Windows.Forms.MenuItem
        Me.MenuItemSellManage = New System.Windows.Forms.MenuItem
        Me.MenuItemSellList = New System.Windows.Forms.MenuItem
        Me.MenuItemDepot = New System.Windows.Forms.MenuItem
        Me.MenuItemDepotSearch = New System.Windows.Forms.MenuItem
        Me.MenuItemSystem = New System.Windows.Forms.MenuItem
        Me.MenuItemManageRight = New System.Windows.Forms.MenuItem
        '
        'MainMenu
        '
        Me.MainMenu.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItemArchive, Me.MenuItemOrder, Me.MenuItemSellManage, Me.MenuItemDepot, Me.MenuItemSystem})
        '
        'MenuItemArchive
        '
        Me.MenuItemArchive.Index = 0
        Me.MenuItemArchive.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItemGoodsInfo, Me.MenuItemSupplyInfo, Me.MenuItemClientInfo})
        Me.MenuItemArchive.Text = "资料管理(&V)"
        '
        'MenuItemGoodsInfo
        '
        Me.MenuItemGoodsInfo.Enabled = False
        Me.MenuItemGoodsInfo.Index = 0
        Me.MenuItemGoodsInfo.Text = "商品资料维护(&X)"
        '
        'MenuItemSupplyInfo
        '
        Me.MenuItemSupplyInfo.Enabled = False
        Me.MenuItemSupplyInfo.Index = 1
        Me.MenuItemSupplyInfo.Text = "供货商资料维护(&Y)"
        '
        'MenuItemClientInfo
        '
        Me.MenuItemClientInfo.Enabled = False
        Me.MenuItemClientInfo.Index = 2
        Me.MenuItemClientInfo.Text = "客户资料维护(&Z)"
        '
        'MenuItemOrder
        '
        Me.MenuItemOrder.Index = 1
        Me.MenuItemOrder.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItemOrderList})
        Me.MenuItemOrder.Text = "进货管理(&W)"
        '
        'MenuItemOrderList
        '
        Me.MenuItemOrderList.Enabled = False
        Me.MenuItemOrderList.Index = 0
        Me.MenuItemOrderList.Text = "进货单(&Z)"
        '
        'MenuItemSellManage
        '
        Me.MenuItemSellManage.Index = 2
        Me.MenuItemSellManage.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItemSellList})
        Me.MenuItemSellManage.Text = "销售管理(&X)"
        '
        'MenuItemSellList
        '
        Me.MenuItemSellList.Enabled = False
        Me.MenuItemSellList.Index = 0
        Me.MenuItemSellList.Text = "销售单(&Z)"
        '
        'MenuItemDepot
        '
        Me.MenuItemDepot.Index = 3
        Me.MenuItemDepot.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItemDepotSearch})
        Me.MenuItemDepot.Text = "库存管理(&Y)"
        '
        'MenuItemDepotSearch
        '
        Me.MenuItemDepotSearch.Enabled = False
        Me.MenuItemDepotSearch.Index = 0
        Me.MenuItemDepotSearch.Text = "库存查询(&Z)"
        '
        'MenuItemSystem
        '
        Me.MenuItemSystem.Index = 4
        Me.MenuItemSystem.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItemManageRight})
        Me.MenuItemSystem.Text = "系统管理(&Z)"
        '
        'MenuItemManageRight
        '
        Me.MenuItemManageRight.Enabled = False
        Me.MenuItemManageRight.Index = 0
        Me.MenuItemManageRight.Text = "权限管理(&Z)"
        '
        'frmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(464, 217)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu
        Me.Name = "frmMain"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "进销存管理"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized

    End Sub

#End Region
    '整个程序的入口
    Public Shared Sub Main()
        '显示登陆对话框
        Dim loginFrm As frmLogin = New frmLogin
        loginFrm.ShowDialog()
        '合法用户进入系统
        If loginFrm.bResult = True Then
            Dim frm As frmMain = New frmMain
            frm.UserName = loginFrm.UserName
            frm.UserId = loginFrm.UserId
            Application.Run(frm)
        End If
        'Application.Run(New frmMain)
    End Sub

    Private Sub MenuItemManageRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemManageRight.Click

        If GetInstanceState("frmManage") Then
            Exit Sub
        End If
        Dim childFrm As frmManage = New frmManage
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItemDepotSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemDepotSearch.Click
        If GetInstanceState("frmDepotSearch") Then
            Exit Sub
        End If
        Dim childFrm As frmDepotSearch = New frmDepotSearch
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItemOrderList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemOrderList.Click
        If GetInstanceState("frmOrderList") Then
            Exit Sub
        End If
        Dim childFrm As frmOrderList = New frmOrderList(UserName)
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItemClientInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemClientInfo.Click
        If GetInstanceState("frmClientInfo") Then
            Exit Sub
        End If
        Dim childFrm As frmClientInfo = New frmClientInfo
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub
    '菜单商品资料维护的点击事件响应函数
    Private Sub MenuItemGoodsInfo_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MenuItemGoodsInfo.Click
        '判断商品资料维护窗体是是否已经创建
        If GetInstanceState("frmGoodsInfo") Then
            '商品资料维护窗体已经创建并返回
            Exit Sub
        End If
        '创建并显示商品资料维护窗体
        Dim childFrm As frmGoodsInfo = New frmGoodsInfo
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItemSupplyInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemSupplyInfo.Click
        If GetInstanceState("frmSupplyInfo") Then
            Exit Sub
        End If
        '显示供货商资料维护窗体
        Dim childFrm As frmSupplyInfo = New frmSupplyInfo
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub

    Private Sub MenuItemSellList_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MenuItemSellList.Click
        If GetInstanceState("frmSellList") Then
            Exit Sub
        End If
        Dim childFrm As frmSellList = New frmSellList(UserName)
        childFrm.MdiParent = Me
        childFrm.Show()
    End Sub
    Private Sub SetRight(ByVal sUserId As String)
        If sUserId = "1" Then
            MenuItemGoodsInfo.Enabled = True
            MenuItemSupplyInfo.Enabled = True
            MenuItemClientInfo.Enabled = True
            MenuItemOrderList.Enabled = True
            MenuItemSellList.Enabled = True
            MenuItemDepotSearch.Enabled = True
            MenuItemManageRight.Enabled = True
        End If
        Dim db As DataBase = New DataBase
        '根据当前登陆用户从数据库查询他的权限
        Dim strSQL As String = "SELECT 用户编号, 权限名称 "
        strSQL += " FROM 权限清单 where 用户编号='" + sUserId + "'"
        Dim dvRight As DataView = db.RunSelectSQL(strSQL)
        Dim i As Integer
        Dim sRight As String
        '根据当前登陆用户权限设置菜单项是否可用
        For i = 0 To dvRight.Count - 1
            sRight = dvRight(i)("权限名称")
            sRight = sRight.Trim()
            If sRight = MenuItemGoodsInfo.Text.Trim() Then
                MenuItemGoodsInfo.Enabled = True
            ElseIf sRight = MenuItemSupplyInfo.Text.Trim() Then
                MenuItemSupplyInfo.Enabled = True
            ElseIf sRight = MenuItemClientInfo.Text.Trim() Then
                MenuItemClientInfo.Enabled = True
            ElseIf sRight = MenuItemOrderList.Text.Trim() Then
                MenuItemOrderList.Enabled = True
            ElseIf sRight = MenuItemSellList.Text.Trim() Then
                MenuItemSellList.Enabled = True
            ElseIf sRight = MenuItemDepotSearch.Text.Trim() Then
                MenuItemDepotSearch.Enabled = True
            ElseIf sRight = MenuItemManageRight.Text.Trim() Then
                MenuItemManageRight.Enabled = True
            End If
        Next
        db.Dispose()
    End Sub
    '主窗体frmMain加载时的事件响应函数
    Private Sub frmMain_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        '根据登陆用户的ID设置菜单
        Me.SetRight(Me.UserId)
    End Sub
    Private Function GetInstanceState(ByVal name As String) As Boolean
        '获得frmMain窗体的子窗体的数量
        Dim i As Integer = Me.MdiChildren.Length
        '循环判断是否有名为name的子窗体实例
        For i = 0 To Me.MdiChildren.Length - 1
            If Me.MdiChildren(i).Name = name Then
                '存在名为name的子窗体，是子窗体获得焦点并返回True
                Me.MdiChildren(i).Focus()
                Return True
            End If
        Next
        '不存在名为Name的子窗体False
        Return False
    End Function
End Class