frmmain.vb

超市进销存管理系统的源码。基于.NET平台

        '
        Me.StatusBarPanel4.Alignment = System.Windows.Forms.HorizontalAlignment.Center
        Me.StatusBarPanel4.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
        Me.StatusBarPanel4.Width = 10
        '
        'Timer1
        '
        Me.Timer1.Enabled = True
        Me.Timer1.Interval = 5000
        Me.Timer1.SynchronizingObject = Me
        '
        'frmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(768, 433)
        Me.Controls.Add(Me.stbMain)
        Me.Controls.Add(Me.tvwMain)
        Me.Controls.Add(Me.tlbMain)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.MaximizeBox = False
        Me.Menu = Me.mnuMain
        Me.Name = "frmMain"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        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()
        CType(Me.Timer1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
            System.EventArgs) Handles MyBase.Load


        Dim m, n As Integer
        '记录窗体最大的高度和宽度
        Me.WindowState = FormWindowState.Maximized
        m = Me.Width
        n = Me.Height
        Me.WindowState = FormWindowState.Normal
        Me.Width = m
        Me.Height = n
        Me.Left = 0
        Me.Top = 0
        tvwMain.Nodes(0).Expand() '获取分配给树视图控件的树节点集合，并将树展开。
        StatusBarPanel3.Text = "    " & Date.Today & "      "   '初始化状态栏上的显示——当天的日期，此刻的时间。
        StatusBarPanel4.Text = "    " & Now.Hour & "时" & Now.Minute & "分" & "      "

        '激活窗体，
        Me.Activate()
    End Sub
    Private Sub frmMain_Resize(ByVal sender As Object, ByVal e As _
            System.EventArgs) Handles MyBase.Resize
        '调整功能树的大小和位置
        tvwMain.Height = Me.Height - 120
        tvwMain.Width = 230
        tvwMain.Left = 0
        tvwMain.Top = 42
        Dim frm As Windows.Forms.Form
        '调整各个子窗体的大小和位置
        For Each frm In Me.MdiChildren
            frm.Left = tvwMain.Width  '子窗口左侧紧贴着树视图
            frm.Width = Me.Width - tvwMain.Width - 12
            frm.Height = Me.Height - 142
        Next
    End Sub

    Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As _
            System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        StatusBarPanel3.Text = "    " & Date.Today & "      "
        StatusBarPanel4.Text = "    " & Now.Hour & "时" & Now.Minute & "分" & "      "
    End Sub

    Private Sub tvwMain_AfterSelect(ByVal sender As System.Object, ByVal e As _
            System.Windows.Forms.TreeViewEventArgs) Handles tvwMain.AfterSelect
        Select Case tvwMain.SelectedNode.Text   '树视图上各叶子结点被选中时，调用对应的函数。
            Case "商品资料维护"
                Item17Click()
            Case "商品资料查询"
                Item18Click()
            Case "采购单"
                Item20Click()
            Case "采购单统计"
                Item22Click()
            Case "销售单"
                Item23Click()
            Case "销售单统计"
                Item25Click()
            Case "供应商资料维护"
                Item29Click()
            Case "供应商资料查询"
                Item31Click()
            Case "报损单"
                Item26Click()
            Case "报损单统计"
                Item28Click()
        End Select
    End Sub


    Private Sub tlbMain_ButtonClick(ByVal sender As System.Object, ByVal e As _
            System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbMain.ButtonClick
        Select Case tlbMain.Buttons.IndexOf(e.Button)
            ' 利用e参数判断工具栏按钮的序号
        Case 1
                Item20Click()
            Case 3
                Item23Click()
            Case 5
                Item13Click()
        End Select
    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As _
               System.EventArgs) Handles MenuItem11.Click
        Item11Click()
    End Sub

    Private Sub Item11Click()
        If HowShowFrm("frmAbout") = True Then Exit Sub
        Dim myfrm As New frmAbout
        myfrm.MdiParent = Me '获取父窗体
        myfrm.Show()
    End Sub

    Private Function HowShowFrm(ByVal strFrmName As String) As Boolean
        'strFrmName表示需要检查的窗体的名称
        '返回True说明已有实例在运行
        '返回False说明没有此窗体的实例运行
        Dim i As Integer
        '检查主窗体所有的子窗体
        For i = 0 To Me.MdiChildren.Length - 1
            '如果子窗体中有窗体名称和需要打开的窗体同名的
            '说明已经由此窗体的实例在运行，此时显示这个实例即可
            If Me.MdiChildren(i).Name = strFrmName Then
                Me.MdiChildren(i).Focus()
                Return True
                Exit Function
            End If
        Next
        '没有找到同名的窗体，则说明没有此窗体的实例在运行
        Return False
    End Function

    Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        Item13Click()
    End Sub

    Private Sub Item13Click()
        Me.Close()
    End Sub

    Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
        Item17Click()
    End Sub

    Private Sub Item17Click()
        If HowShowFrm("frmEdtPrd") = True Then Exit Sub
        Dim myfrm As New frmEdtPrd  '对应MenuItem17,生成“编辑商品资料”窗口
        myfrm.MdiParent = Me
        myfrm.Show()
        myfrm.Top = 0
        myfrm.Left = 220
    End Sub

    Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
        Item18Click()
    End Sub
    Private Sub Item18Click()
        If HowShowFrm("frmFndPrd") = True Then Exit Sub
        Dim myfrm As New frmFndPrd  '对应MenuItem18,生成"查询商品资料”窗口
        myfrm.MdiParent = Me
        myfrm.Show()
        myfrm.Top = 0
        myfrm.Left = 220
    End Sub

    Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click
        Item20Click()
    End Sub

    Private Sub Item20Click()
        If HowShowFrm("frmPur") = True Then Exit Sub
        Dim myfrm As New frmPur  '对应MenuItem20,生成“采购单”窗口
        myfrm.MdiParent = Me
        myfrm.Show()
        myfrm.Top = 0
        myfrm.Left = 220
    End Sub

    Private Sub MenuItem29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem29.Click
        Item29Click()
    End Sub

    Private Sub Item29Click()
        If HowShowFrm("frmEdtSup") = True Then Exit Sub
        Dim myfrm As New frmEdtSup    '对应MenuItem29,生成“编辑供应商资料”窗口
        myfrm.MdiParent = Me
        myfrm.Show()
        myfrm.Top = 0
        myfrm.Left = 220
    End Sub

    Private Sub MenuItem31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem31.Click
        Item31Click()
    End Sub

    Private Sub Item31Click()
        If HowShowFrm("frmFndSup") = True Then Exit Sub
        Dim myfrm As New frmFndSup   '对应MenuItem31,生成“查询供应商资料”窗口
        myfrm.MdiParent = Me
        myfrm.Show()
        myfrm.Top = 0
        myfrm.Left = 220
    End Sub




    Private Sub Item22Click()
        If HowShowFrm("frmStaPur") = True Then Exit Sub
        Dim myfrm As New frmStaPur  '对应MenuItem22,生成“统计采购信息”窗口
        myfrm.MdiParent = Me
        myfrm.Show()
        myfrm.Top = 0
        myfrm.Left = 220
    End Sub
    Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem22.Click
        Item22Click()
    End Sub

    Private Sub MenuItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem23.Click
        Item23Click()
    End Sub
    Private Sub Item23Click()
        If HowShowFrm("frmSal") = True Then Exit Sub
        Dim myfrm As New frmSal   '对应MenuItem23,生成“销售单”窗口
        myfrm.MdiParent = Me
        myfrm.Show()
        myfrm.Top = 0
        myfrm.Left = 220
    End Sub




    Private Sub MenuItem25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem25.Click
        Item25Click()
    End Sub
    Private Sub Item25Click()
        If HowShowFrm("frmStaSal") = True Then Exit Sub
        Dim myfrm As New frmStaSal  '对应MenuItem25,生成“统计销售信息”窗口
        myfrm.MdiParent = Me
        myfrm.Show()
        myfrm.Top = 0
        myfrm.Left = 220
    End Sub

    Private Sub MenuItem26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem26.Click
        Item26Click()
    End Sub

    Private Sub Item26Click()
        If HowShowFrm("frmDam") = True Then Exit Sub
        Dim myfrm As New frmDam   '对应MenuItem26,生成“报损单”窗口
        myfrm.MdiParent = Me
        myfrm.Show()
        myfrm.Top = 0
        myfrm.Left = 220
    End Sub




    Private Sub Item28Click()
        If HowShowFrm("frmStaDam") = True Then Exit Sub
        Dim myfrm As New frmStaDam  '对应MenuItem28,生成“统计报损信息”窗口
        myfrm.MdiParent = Me
        myfrm.Show()
        myfrm.Top = 0
        myfrm.Left = 220
    End Sub
    Private Sub MenuItem28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem28.Click
        Item28Click()
    End Sub

    Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If MsgBox("确定要退出系统？", MsgBoxStyle.YesNo + MsgBoxStyle.Question) = MsgBoxResult.No Then
            e.Cancel = True
        End If
    End Sub


End Class