form2.vb

是一个酒店管理信息系统。 用VB.NET以及SQL开发 包括程序

        Me.Menu = Me.MainMenu1
        Me.Name = "Form2"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "酒店管理系统"
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public b As Integer = 1
    Private Sub timeupdate()
        StatusBarPanel3.ToolTipText = System.DateTime.Now.ToShortTimeString
        ' Set the text of the panel to the current date.
        StatusBarPanel3.Text = System.DateTime.Today.ToLongDateString
    End Sub
    '用于系统托盘的变量声明
    Friend WithEvents NotifyIcon1 As New System.Windows.Forms.NotifyIcon
    Friend WithEvents ContextMenu1 As New System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItemshow As New System.Windows.Forms.MenuItem
    Friend WithEvents MenuItemhide As New System.Windows.Forms.MenuItem
    Friend WithEvents MenuItemclose As New System.Windows.Forms.MenuItem
    Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

        timeupdate()
        '设置系统托盘
        Dim user As New Form1
        StatusBarPanel2.Text = "当前登陆帐户为:" & Form1.logonuser
        Try
            ''在ContextMenu实例中加入菜单项 
            Me.NotifyIcon1.ContextMenu = Me.ContextMenu1
            Me.ContextMenu1.MenuItems.Add(Me.MenuItemshow)
            Me.ContextMenu1.MenuItems.Add(Me.MenuItemhide)
            Me.ContextMenu1.MenuItems.Add(Me.MenuItemclose)
            Me.MenuItemshow.Index = 0
            Me.MenuItemshow.Text = "显示主窗口"
            Me.MenuItemhide.Index = 1
            Me.MenuItemhide.Text = "隐藏主窗口"
            Me.MenuItemclose.Index = 2
            Me.MenuItemclose.Text = "退出"
            ''对NotifyIcon实例的Icon属性赋值，完成简单托盘程序 
            Me.NotifyIcon1.Icon = Me.Icon
            '如果要实现图标的动态,在此处设置默认图标,再在Timer1_Tick 时间中写相应的代码
            Me.AutoScaleBaseSize = New System.Drawing.Size(6, 13)
            'Me.ShowInTaskbar = False
            Me.NotifyIcon1.Text = "酒店管理系统"
            Me.NotifyIcon1.Visible = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub MenuItemshow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItemshow.Click
        Me.Show()
    End Sub

    Private Sub MenuItemhide_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItemhide.Click
        Me.Hide()

    End Sub

    Private Sub MenuItemclose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItemclose.Click
        NotifyIcon1.Dispose()
        '此处调用关闭的处理事件
        MenuItem9_Click(sender, e)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'timeupdate
        If Now().ToShortTimeString <> StatusBarPanel3.ToolTipText Then
            StatusBarPanel3.ToolTipText() = Now().ToShortTimeString
        End If
        'font colorchange
        If b = 1 Then
            b += 1
            Label1.ForeColor = ColorDialog1.Color.Honeydew
        ElseIf b = 2 Then
            b += 1
            Label1.ForeColor = ColorDialog1.Color.GreenYellow
        ElseIf b = 3 Then
            b += 1
            Label1.ForeColor = ColorDialog1.Color.Red
        ElseIf b = 4 Then
            b -= 3
            Label1.ForeColor = ColorDialog1.Color.SpringGreen
        End If
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Dim krxx As New Form3(Me)
        krxx.Show()
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Dim ftxx As New Form4(Me)
        ftxx.Show()
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Dim jcxx As New Form5(Me)
        jcxx.Show()
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub MenuItem19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem19.Click
        Dim yhhdxx As New Form15(Me)
        yhhdxx.Show()
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        Dim dc As New Form6
        dc.Show()
    End Sub

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        If MessageBox.Show("您要退回登陆界面吗？", "询问？", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            f1.Show()
            GC.Collect()
            Me.NotifyIcon1.Dispose()
            Me.Name = Nothing
            Me.Close()
        End If
    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        Dim ftshy As New Form7
        ftshy.Show()
    End Sub

    Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        Dim krxfjl As New Form8
        krxfjl.Show()
    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        Dim dy As New printform
        dy.Show()
        dy.connection("select * from 消费打印v", "消费清单v", "")
    End Sub

    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
        Dim yshj As New Form9
        yshj.Show()
    End Sub

    Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
        Dim rshj As New Form10
        rshj.Show()
    End Sub

    Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
        Dim shre As New Form11
        shre.Show()
    End Sub

    Private Sub MenuItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem23.Click
        Dim glygl As New Form12(Me)
        glygl.Show()
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click
        '此处实现更改登陆帐户,当打开更改窗口时此时登陆的用户注销
        Me.Close()
        f1.Show()
    End Sub

    Private Sub MenuItem25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem25.Click
        Dim gy As New Form14
        gy.Show()
    End Sub

    Private Sub MenuItem32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem32.Click
        Dim note As New help
        note.notepad()
    End Sub

    Private Sub MenuItem33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem33.Click
        Dim count As New help
        count.calculator()
    End Sub

    Private Sub MenuItem42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem42.Click
        Dim sound As New help
        sound.sound()
    End Sub

    Private Sub MenuItem26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem26.Click
        Dim mail As New help
        mail.CreateMail("[e-mail]", "感谢您的支持请留下您的联系方式：", "请输入您要跟我交流的内容……", "")
    End Sub

    Private Sub MenuItem36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem36.Click
        Dim backup As New help
        backup.backup()

    End Sub

    Private Sub MenuItem37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem37.Click
        Dim restore As New help
        restore.restore()
    End Sub

    Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem22.Click
        Dim chushihua As New help
        chushihua.initializition()

    End Sub
    Private Sub MenuItem45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem45.Click
        Dim screenborad As New help
        screenborad.osk()
    End Sub

    Private Sub MenuItem39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem39.Click
        Dim total As New total
        total.Show()
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0
                MenuItem5_Click(sender, e)
            Case 1
                Dim krxfjl As New Form8
                krxfjl.Show()
            Case 2
                Dim yshj As New Form9
                yshj.Show()
            Case 3
                Dim dy As New printform
                dy.Show()
                dy.connection("select * from 消费打印v", "消费清单v", "")
            Case 4
                MenuItem23_Click(sender, e)
            Case 5
                Dim count As New help
                count.calculator()
            Case 6
                Dim gy As New Form14
                gy.Show()
        End Select
    End Sub
    Private Sub Form2_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        ' API函数库里有一个函数IsIconic（ByVal hwnd As Long），它就是专门判断窗口是否已最小化的
        '判断窗口是否最小化
        If IsIconic(Me.Handle.ToInt32) <> 0 Then
            Me.Hide()
        End If
    End Sub

    Private Sub Form2_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Dim dl As New Form1
        dl.Show()
        GC.Collect()
        Me.NotifyIcon1.Dispose()
    End Sub

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click

    End Sub
End Class