mainform.vb

This program is designed for a menu ordering system under pocket pc platform .

Public Class MainForm

    Dim shutdown As Boolean = False '當按下[關閉]鈕時,shutdown為true;若直接按下[ok]鈕則shutdown為false

    '登入系統
    Private Sub MenuLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLogin.Click

        Dim LF As LoginForm = New LoginForm()
        LF.ShowDialog()

        If LoginYesNo = True Then

            MenuItem1.Enabled = True
            MenuChangePwd.Enabled = True
            MenuLogout.Enabled = True
            MenuLogin.Enabled = False
            StatusBar1.Text = "目前登入使用者：" + LoginUserID

        Else

            MenuItem1.Enabled = False
            MenuChangePwd.Enabled = False
            MenuLogout.Enabled = False
            MenuLogin.Enabled = True
            StatusBar1.Text = "未登入！"

        End If

    End Sub

    '修改密碼
    Private Sub MenuChangePwd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuChangePwd.Click
        ChagePwd.ShowDialog()
    End Sub

    '登出系統
    Private Sub MenuLogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLogout.Click
        LoginYesNo = False 'WinEvents.vb
        MenuItem1.Enabled = False
        MenuChangePwd.Enabled = False
        MenuLogout.Enabled = False
        MenuLogin.Enabled = True
        StatusBar1.Text = "未登入！"
    End Sub

    '主選單
    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        MenuForm.ShowDialog()
    End Sub

    '離開系統
    Private Sub MenuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuExit.Click
        Me.Close()
    End Sub

    '當直接按下[x]鈕時,執行的處理動作
    Private Sub MainForm_Closing(ByVal sender As Object, ByVal e As ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If shutdown = False Then
            Dim Dr As DialogResult = MessageBox.Show("是否關閉系統?", "訊息", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)

            If Dr = Windows.Forms.DialogResult.Yes Then
                shutdown = True
                Me.Close()
            Else
                e.Cancel = True
            End If
        End If
    End Sub 'MainForm_Closing


    '關於
    Private Sub MenuReadMe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuReadMe.Click

    End Sub
End Class