frmmain.vb

应急系统(Emergency System, ES)主要是针对自然灾害,安全事故

Public Class Frmmain
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写处置以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意：以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MIsystem As System.Windows.Forms.MenuItem
    Friend WithEvents MIadduser As System.Windows.Forms.MenuItem
    Friend WithEvents MImodifyuserpassword As System.Windows.Forms.MenuItem
    Friend WithEvents MIexit As System.Windows.Forms.MenuItem
    Friend WithEvents MIaccident As System.Windows.Forms.MenuItem
    Friend WithEvents MIaccidentsearch As System.Windows.Forms.MenuItem
    Friend WithEvents MIaccidentadd As System.Windows.Forms.MenuItem
    Friend WithEvents MIaccidentmodify As System.Windows.Forms.MenuItem
    Friend WithEvents Msource As System.Windows.Forms.MenuItem
    Friend WithEvents MIsourcesearch As System.Windows.Forms.MenuItem
    Friend WithEvents MIsourceadd As System.Windows.Forms.MenuItem
    Friend WithEvents MIsourcemodify As System.Windows.Forms.MenuItem
    Friend WithEvents MIman As System.Windows.Forms.MenuItem
    Friend WithEvents MImanadd As System.Windows.Forms.MenuItem
    Friend WithEvents MImanmodify As System.Windows.Forms.MenuItem
    Friend WithEvents MIhelp As System.Windows.Forms.MenuItem
    Friend WithEvents MIabout As System.Windows.Forms.MenuItem
    Friend WithEvents MImansearch As System.Windows.Forms.MenuItem
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Frmmain))
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.MIsystem = New System.Windows.Forms.MenuItem()
        Me.MIadduser = New System.Windows.Forms.MenuItem()
        Me.MImodifyuserpassword = New System.Windows.Forms.MenuItem()
        Me.MIexit = New System.Windows.Forms.MenuItem()
        Me.MIaccident = New System.Windows.Forms.MenuItem()
        Me.MIaccidentsearch = New System.Windows.Forms.MenuItem()
        Me.MIaccidentadd = New System.Windows.Forms.MenuItem()
        Me.MIaccidentmodify = New System.Windows.Forms.MenuItem()
        Me.Msource = New System.Windows.Forms.MenuItem()
        Me.MIsourcesearch = New System.Windows.Forms.MenuItem()
        Me.MIsourceadd = New System.Windows.Forms.MenuItem()
        Me.MIsourcemodify = New System.Windows.Forms.MenuItem()
        Me.MIman = New System.Windows.Forms.MenuItem()
        Me.MImansearch = New System.Windows.Forms.MenuItem()
        Me.MImanadd = New System.Windows.Forms.MenuItem()
        Me.MImanmodify = New System.Windows.Forms.MenuItem()
        Me.MIhelp = New System.Windows.Forms.MenuItem()
        Me.MIabout = New System.Windows.Forms.MenuItem()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MIsystem, Me.MIaccident, Me.Msource, Me.MIman, Me.MIhelp})
        '
        'MIsystem
        '
        Me.MIsystem.Index = 0
        Me.MIsystem.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MIadduser, Me.MImodifyuserpassword, Me.MIexit})
        Me.MIsystem.Text = "系统"
        '
        'MIadduser
        '
        Me.MIadduser.Index = 0
        Me.MIadduser.Text = "添加用户"
        '
        'MImodifyuserpassword
        '
        Me.MImodifyuserpassword.Index = 1
        Me.MImodifyuserpassword.Text = "修改密码"
        '
        'MIexit
        '
        Me.MIexit.Index = 2
        Me.MIexit.Text = "退出"
        '
        'MIaccident
        '
        Me.MIaccident.Index = 1
        Me.MIaccident.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MIaccidentsearch, Me.MIaccidentadd, Me.MIaccidentmodify})
        Me.MIaccident.Text = "突发事件信息管理"
        '
        'MIaccidentsearch
        '
        Me.MIaccidentsearch.Index = 0
        Me.MIaccidentsearch.Text = "查询突发事件信息"
        '
        'MIaccidentadd
        '
        Me.MIaccidentadd.Index = 1
        Me.MIaccidentadd.Text = "添加突发事件信息"
        '
        'MIaccidentmodify
        '
        Me.MIaccidentmodify.Index = 2
        Me.MIaccidentmodify.Text = "修改突发事件信息"
        '
        'Msource
        '
        Me.Msource.Index = 2
        Me.Msource.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MIsourcesearch, Me.MIsourceadd, Me.MIsourcemodify})
        Me.Msource.Text = "应急物资信息管理"
        '
        'MIsourcesearch
        '
        Me.MIsourcesearch.Index = 0
        Me.MIsourcesearch.Text = "查询应急物资信息"
        '
        'MIsourceadd
        '
        Me.MIsourceadd.Index = 1
        Me.MIsourceadd.Text = "添加应急物资信息"
        '
        'MIsourcemodify
        '
        Me.MIsourcemodify.Index = 2
        Me.MIsourcemodify.Text = "修改应急物资信息"
        '
        'MIman
        '
        Me.MIman.Index = 3
        Me.MIman.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MImansearch, Me.MImanadd, Me.MImanmodify})
        Me.MIman.Text = "应急人员信息管理"
        '
        'MImansearch
        '
        Me.MImansearch.Index = 0
        Me.MImansearch.Text = "查询应急人员信息"
        '
        'MImanadd
        '
        Me.MImanadd.Index = 1
        Me.MImanadd.Text = "添加应急人员信息"
        '
        'MImanmodify
        '
        Me.MImanmodify.Index = 2
        Me.MImanmodify.Text = "修改应急人员信息"
        '
        'MIhelp
        '
        Me.MIhelp.Index = 4
        Me.MIhelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MIabout})
        Me.MIhelp.Text = "帮助"
        '
        'MIabout
        '
        Me.MIabout.Index = 0
        Me.MIabout.Text = "关于..."
        '
        'PictureBox1
        '
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Bitmap)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(544, 304)
        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox1.TabIndex = 0
        Me.PictureBox1.TabStop = False
        '
        'Label1
        '
        Me.Label1.BackColor = System.Drawing.SystemColors.Desktop
        Me.Label1.Font = New System.Drawing.Font("华文彩云", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label1.ForeColor = System.Drawing.SystemColors.Control
        Me.Label1.Location = New System.Drawing.Point(112, 80)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(320, 112)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "     欢迎使用           应急信息系统"
        '
        'Frmmain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(544, 309)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.PictureBox1})
        Me.Menu = Me.MainMenu1
        Me.Name = "Frmmain"
        Me.Text = "应急信息系统主界面"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIadduser.Click
        Dim newFrmadduser As New Frmadduser()
        newFrmadduser.Show()
        Me.Hide()
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIaccidentsearch.Click
        Dim newFrmaccidentsearch As New Frmaccidentsearch()
        newFrmaccidentsearch.Show()
        Me.Hide()
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIexit.Click
        Dim newFrmidentify As New Frmidentify()
        newFrmidentify.Show()
        Me.Hide()
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MImodifyuserpassword.Click
        Dim newFrmmodifypassword As New Frmmodifypassword()
        newFrmmodifypassword.Show()
        Me.Hide()
    End Sub

    Private Sub MIaccidentadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIaccidentadd.Click
        Dim newFrmaccidentadd As New Frmaccidentadd()
        newFrmaccidentadd.Show()
        Me.Hide()
    End Sub

   

    Private Sub MIaccidentmodify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIaccidentmodify.Click
        Dim newFrmaccidentmodify As New Form1()
        newFrmaccidentmodify.Show()
        Me.Hide()
    End Sub

    

    Private Sub MIsourcesearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIsourcesearch.Click
        Dim newFrmsourcesearch As New Frmsourcesearch()
        newFrmsourcesearch.Show()
        Me.Hide()
    End Sub

    Private Sub MIsourceadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIsourceadd.Click
        Dim newFrmsourceadd As New Frmsourceadd()
        newFrmsourceadd.Show()
        Me.Hide()
    End Sub

    

    Private Sub MIsourcemodify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIsourcemodify.Click
        Dim newFrmsourmodify As New Frmsourcemodify()
        newFrmsourmodify.Show()
        Me.Hide()
    End Sub

    Private Sub MImansearce_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MImansearch.Click
        Dim newFrmmansearch As New Frmmansearch()
        newFrmmansearch.Show()
        Me.Hide()
    End Sub

    Private Sub MImanadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MImanadd.Click
        Dim newFrmmanadd As New Frmmanadd()
        newFrmmanadd.Show()
        Me.Hide()
    End Sub

    

    Private Sub MImanmodify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MImanmodify.Click
        Dim newfrmmanmodify As New Frmmanmodify()
        newfrmmanmodify.Show()
        Me.Hide()
    End Sub

    Private Sub MIsystem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIsystem.Click

    End Sub

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

    End Sub

    
   
    Private Sub MIabout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIabout.Click
        Dim newFrmabout As New Frmabout()
        newFrmabout.Show()
        Me.Hide()
    End Sub
End Class