mainform.vb

千寻销售系统 文件说明：一个采用三层结构的分部式应用程序

Imports System.Runtime.Remoting
Public Class MainForm
    '定义用户名
    Dim User As String
#Region " 菜单代码 "

    '退出代码
    Private Sub ExitMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitMenuItem.Click
        Me.Close()
    End Sub

    '显示出售窗体
    Private Sub SellMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellMenuItem.Click
        If SellForm.Visible = True Then
            SellForm.Focus()
        Else
            SellForm.Show()
            SellForm.MdiParent = Me
        End If

    End Sub

    '显示订货窗体
    Private Sub ReserveMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveMenuItem.Click
        If ReserveForm.Visible = True Then
            ReserveForm.Focus()
        Else
            ReserveForm.Show()
            ReserveForm.MdiParent = Me
        End If
    End Sub

    '显示退货窗体
    Private Sub QuitMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitMenuItem.Click
        If QuitForm.Visible = True Then
            QuitForm.Focus()
        Else
            QuitForm.Show()
            QuitForm.MdiParent = Me
        End If
    End Sub

    '出售货物查询
    Private Sub SellSearchMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellSearchMenuItem.Click
        If SellSearchForm.Visible = True Then
            SellSearchForm.Focus()
        Else
            SellSearchForm.Show()
            SellSearchForm.MdiParent = Me
        End If
    End Sub

    '货物订单查询
    Private Sub ReserveSearchMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveSearchMenuItem.Click
        If ReserveSearchForm.Visible = True Then
            ReserveSearchForm.Focus()
        Else
            ReserveSearchForm.Show()
            ReserveSearchForm.MdiParent = Me
        End If
    End Sub

    '退货查询
    Private Sub QuitSearchMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitSearchMenuItem.Click
        If QuitSearchForm.Visible = True Then
            QuitSearchForm.Focus()
        Else
            QuitSearchForm.Show()
            QuitSearchForm.MdiParent = Me
        End If
    End Sub

    '显示选项窗体
    Private Sub OptionsMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsMenuItem.Click
        If OptionsForm.Visible = True Then
            OptionsForm.Focus()
        Else
            OptionsForm.Show()
            OptionsForm.MdiParent = Me
        End If
    End Sub

    '帮助
    Private Sub HelpMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpMenuItem.Click
        MsgBox("还没有做帮助文档", , "千寻工作室")
    End Sub

    '显示关于窗体
    Private Sub AboutMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutMenuItem.Click
        If AboutForm.Visible = True Then
            AboutForm.Focus()
        Else
            AboutForm.Show()
            AboutForm.MdiParent = Me
        End If
    End Sub

    '显示意见（邮件）窗体
    Private Sub MailMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MailMenuItem.Click
        If MailForm.Visible = True Then
            MailForm.Focus()
        Else
            MailForm.Show()
            MailForm.MdiParent = Me
        End If
    End Sub
#End Region

    Public Property UserName()
        Get
            Return User
        End Get
        Set(ByVal value)
            User = value
        End Set
    End Property

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

    End Sub

    Private Sub 计算器ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 计算器ToolStripMenuItem.Click
        Shell("calc.exe", AppWinStyle.NormalFocus)
    End Sub
End Class