mainform.vb

来自「千寻销售系统 文件说明：一个采用三层结构的分部式应用程序」· VB 代码 · 共 50 行

Imports System.Runtime.Remoting
Public Class MainForm

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '调用配置文件注册通道
        RemotingConfiguration.Configure(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile, False)
        'MsgBox("d")
    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

    '添加货物
    Private Sub AddGoodsMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGoodsMenuItem.Click
        If AddGoodsForm.Visible = True Then
            AddGoodsForm.Focus()
        Else
            AddGoodsForm.Show()
            AddGoodsForm.MdiParent = Me
        End If
    End Sub

    '添加营业员
    Private Sub AddUserMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddUserMenuItem.Click
        If AddUserForm.Visible = True Then
            AddUserForm.Focus()
        Else
            AddUserForm.Show()
            AddUserForm.MdiParent = Me
        End If
    End Sub
End Class