mainform.vb

通版开发平台

 

Public Class MainForm

    Public Shared fcConn As String = ""

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



        Me.TSSLCurrentAccount.Text = Login.fcAccountBook
        Me.TSSLLoginDate.Text = Login.fdLoginDate.ToShortDateString.ToString
        Me.TSSLLoginUserName.Text = Login.fcLoginName.ToString

        'Dim nf As New NavigatorForm
        'nf.MdiParent = Me
        'nf.Show()

    End Sub

    Private Sub MainFormInitialize()
        Me.Width = 800
        Me.Height = 600
        Me.Text = "MyErp"

    End Sub

    Private Sub FillMenuStrip()
        Dim menuStrip As New MenuStrip
        Dim tsmi As MyToolStripMenuItem = Nothing
        Dim subTsmi As MyToolStripMenuItem = Nothing
        Dim menuItemDirectory As New Dictionary(Of Integer, MyToolStripMenuItem)

        menuStrip.Name = "menuStrip"
        Me.Controls.Add(menuStrip)

        For Each m As S_MenuItem In DAO_MenuItem.findAll().Values
            If m.ParentID = 0 Then
                tsmi = New MyToolStripMenuItem
                AddHandler tsmi.Click, AddressOf ToolStripMenuItem_Click
                tsmi.Text = m.Text
                tsmi.MenuItem = m
                menuStrip.Items.Add(tsmi)
                menuItemDirectory.Add(tsmi.MenuItem.ID, tsmi)
                If m.Text.Contains("窗口") Then
                    menuStrip.MdiWindowListItem = tsmi
                End If
            Else
                If menuItemDirectory.TryGetValue(m.ParentID, tsmi) Then
                    If m.TypeID = 3 Then
                        Dim d As New ToolStripSeparator
                        tsmi.DropDownItems.Add(d)

                    Else
                        subTsmi = New MyToolStripMenuItem
                        subTsmi.Text = m.Text
                        subTsmi.MenuItem = m
                        tsmi.DropDownItems.Add(subTsmi)
                        menuItemDirectory.Add(m.ID, subTsmi)
                        AddHandler subTsmi.Click, AddressOf ToolStripMenuItem_Click
                    End If

                End If
            End If
        Next
    End Sub


    Private Sub ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim tsmi As MyToolStripMenuItem = DirectCast(sender, MyToolStripMenuItem)
        Dim menuItem As S_MenuItem = tsmi.MenuItem
        Dim form As S_Forms = Nothing
        If S.SForms.TryGetValue(menuItem.FormID, form) Then
            Select Case form.FormTypeID
                Case 2
                    Dim f2 As New Form_2(form)
                    f2.MdiParent = Me
                    f2.Show()
                Case 5
                    Dim f5 As New Form_5(form)
                    f5.MdiParent = Me
                    f5.Show()
                Case 35
                    My.Forms.LoginForm.ShowDialog()
                Case Else
                    MsgBox("没有为该FormID" & Str(menuItem.FormID) + "设置Form！")
            End Select
        End If
    End Sub

 

 
    Private Sub MainForm_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        End
    End Sub
End Class