welcome.vb

需要在.net环境下运行需要安装框架

        'MQFamily
        '
        Me.MQFamily.Index = 3
        Me.MQFamily.Text = "家庭成员"
        '
        'MQGarage
        '
        Me.MQGarage.Index = 4
        Me.MQGarage.Text = "停车场"
        '
        'MQMend
        '
        Me.MQMend.Index = 5
        Me.MQMend.Text = "报修"
        '
        'MQLodge
        '
        Me.MQLodge.Index = 6
        Me.MQLodge.Text = "投诉"
        '
        'MenuItem20
        '
        Me.MenuItem20.Index = 4
        Me.MenuItem20.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MIHelp, Me.MIAbout})
        Me.MenuItem20.Text = "帮助"
        '
        'MIHelp
        '
        Me.MIHelp.Index = 0
        Me.MIHelp.Text = "帮助"
        '
        'MIAbout
        '
        Me.MIAbout.Index = 1
        Me.MIAbout.Text = "关于"
        '
        'MenuItem23
        '
        Me.MenuItem23.Index = 5
        Me.MenuItem23.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MIExit})
        Me.MenuItem23.Text = "退出"
        '
        'MIExit
        '
        Me.MIExit.Index = 0
        Me.MIExit.Text = "退出"
        '
        'MMSUser
        '
        Me.MMSUser.Index = 3
        Me.MMSUser.Text = "用户管理"
        '
        'MMQRecord
        '
        Me.MMQRecord.Index = 7
        Me.MMQRecord.Text = "操作记录"
        '
        'PictureBox1
        '
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Bitmap)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(616, 461)
        Me.PictureBox1.TabIndex = 0
        Me.PictureBox1.TabStop = False
        '
        'Label1
        '
        Me.Label1.BackColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label1.Font = New System.Drawing.Font("宋体", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label1.ForeColor = System.Drawing.Color.SteelBlue
        Me.Label1.Location = New System.Drawing.Point(16, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(216, 32)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "小区管理系统"
        '
        'Welcome
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(612, 461)
        Me.ControlBox = False
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.PictureBox1})
        Me.Menu = Me.MainMenu1
        Me.Name = "Welcome"
        Me.Text = "欢迎使用小区管理系统"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Welcome_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim checkMe As CheckValid = New CheckValid()
        checkMe.ShowDialog()
    End Sub

    Private Sub MIXQ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIXQ.Click
        Dim fmxq As FRMXQ = New FRMXQ()
        fmxq.ShowDialog()
    End Sub

    Private Sub MQXQ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MQXQ.Click
        Dim fmqxq As FRMQXQ = New FRMQXQ()
        fmqxq.ShowDialog()
    End Sub

    Private Sub MIExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIExit.Click
        Dim sqlStr As String
        sqlStr = "update operaRecord set orEndTime='" & Date.Now.ToString() & "' where orStartTime='" & useStart & "'"
        Dim dbopera1 As DbOpera = New DbOpera(sqlStr)
        dbopera1.opera()
        Application.Exit()
    End Sub

    Private Sub MIHouse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIHouse.Click
        Dim fmh As FRMH = New FRMH()
        fmh.ShowDialog()
    End Sub

    Private Sub MQHouse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MQHouse.Click
        Dim fmqh As FRMQH = New FRMQH()
        fmqh.ShowDialog()
    End Sub

    Private Sub MIGarage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIGarage.Click
        Dim fmg As FRMG = New FRMG()
        fmg.ShowDialog()
    End Sub

    Private Sub MQGarage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MQGarage.Click
        Dim fmqg As FRMQG = New FRMQG()
        fmqg.ShowDialog()
    End Sub

    Private Sub MIBuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIBuy.Click
        Dim fmb As FRMB = New FRMB()
        fmb.ShowDialog()
    End Sub

    Private Sub MQHouseOwner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MQHouseOwner.Click
        Dim fmqho As FRMQHOWNER = New FRMQHOWNER()
        fmqho.ShowDialog()
    End Sub

    Private Sub MMIFamily_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MMIFamily.Click
        Dim fmfa As FRMFA = New FRMFA()
        fmfa.ShowDialog()
    End Sub

    Private Sub MQFamily_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MQFamily.Click
        Dim fmqfa As FRMQFA = New FRMQFA()
        fmqfa.ShowDialog()
    End Sub

    Private Sub MIAttorn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIAttorn.Click
        Dim fmz As FRMZ = New FRMZ()
        fmz.ShowDialog()
    End Sub

    Private Sub MIWater_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIWater.Click
        Dim fmw As FRMW = New FRMW()
        fmw.ShowDialog()
    End Sub

    Private Sub MIEletrity_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIEletrity.Click
        Dim fme As FRME = New FRME()
        fme.ShowDialog()
    End Sub

    Private Sub MMIMend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MMIMend.Click
        Dim fmm As FRMM = New FRMM()
        fmm.ShowDialog()
    End Sub

    Private Sub MQMend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MQMend.Click
        Dim fmqm As FRMQMend = New FRMQMend()
        fmqm.ShowDialog()
    End Sub

    Private Sub MMILodge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MMILodge.Click
        Dim fml As FRML = New FRML()
        fml.ShowDialog()
    End Sub

    Private Sub MQLodge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MQLodge.Click
        Dim fmql As FRMQL = New FRMQL()
        fmql.ShowDialog()
    End Sub

    Private Sub MIPay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIPay.Click
        Dim fmc As FRMC = New FRMC()
        fmc.ShowDialog()
    End Sub

    Private Sub MMIPark_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MMIPark.Click
        Dim fmp As FRMP = New FRMP()
        fmp.ShowDialog()
    End Sub

    Private Sub MIAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIAbout.Click
        Dim fmhelp As FRMHelp = New FRMHelp()
        fmhelp.ShowDialog()
    End Sub

    Private Sub MISum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MISum.Click
        Dim fms As FRMS = New FRMS()
        fms.ShowDialog()
    End Sub

    Private Sub MMSUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MMSUser.Click
        Dim fmu As FRMUser = New FRMUser()
        fmu.ShowDialog()
    End Sub

    Private Sub MMQRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MMQRecord.Click
        Dim fmqu As FRMQUser = New FRMQUser()
        fmqu.ShowDialog()
    End Sub

    Private Sub MIHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MIHelp.Click
        'Shell("F:\短期要读的书\VBAPI.chm", AppWinStyle.NormalFocus)
    End Sub
End Class