frmmain.vb

本系统利用vb.net前台开发工具sql.server做为后台数据库进行开超市进销存管理系统系统

    Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
    Me.ClientSize = New System.Drawing.Size(778, 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()
        'Me.MdiChildren(i).WindowState = FormWindowState.Maximized
        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
    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
    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
    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
    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
    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
    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
    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
    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
    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
    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