seattable.vb

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

Imports System.Data
Imports System.Data.SqlClient       '新增命名空間 for SQL Server

Public Class SeatTable

    '---------------------------選擇桌號 start-------------------------------

    '\\\\\\\\\\\\\\\\\ 宣告 \\\\\\\\\\\\\\\\\\\
    Dim Pager As Integer = 1 '目前是第幾頁
    Dim SumPager As Integer = Math.Ceiling(SumTable / 12)  '總頁數
    Dim x As Integer

    Dim errorMsg As String
    Dim ConnString As String

    Dim conn As SqlConnection
    Dim cmd As SqlCommand
    Dim dr As SqlDataReader
    '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

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

        TextBox1.Text = Pager

        btn_table()

    End Sub

#Region "資料庫初始化"

    ''' <summary>
    ''' 資料庫初始化
    ''' </summary>
    Public Sub InitDB()

        ConnString = SQLConnectionString()
        conn = New SqlConnection(ConnString)
        conn.Open()

    End Sub

#End Region

    '---------------------------選擇桌號 start-------------------------------

    '下一頁
    Private Sub btn_Down_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Down.Click

        Pager = Pager + 1

        TextBox1.Text = Pager

        btn_table()

    End Sub

    '上一頁
    Private Sub btn_Up_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Up.Click

        Pager = Pager - 1

        TextBox1.Text = Pager

        btn_table()

    End Sub

    Sub btn_table()

        If Pager = 1 Then
            btn_Up.Enabled = False
        Else
            btn_Up.Enabled = True
        End If

        If SumPager = 1 Then
            btn_Down.Enabled = False
        Else
            btn_Down.Enabled = True
        End If

        If SumPager = Pager Then
            btn_Down.Enabled = False
        Else
            btn_Down.Enabled = True
        End If

        For Each btn As Button In Panel1.Controls

            btn.Text = "桌"
            btn.Enabled = False

            x = (Pager - 1) * 12 + btn.TabIndex

            If SumTable >= x Then

                btn.Text = x & "桌"
                btn.Enabled = True

            End If

            If VerifyTable(btn.Text, 0) Then

                btn.ForeColor = Color.Red
                btn.Tag = True

            Else

                btn.ForeColor = Color.Blue
                btn.Tag = False

            End If

        Next

    End Sub

#Region "驗證桌號"

    Public Function VerifyTable(ByVal TableId As String, ByVal Pay As String) As Boolean

        Dim TableName As String = "ConsumeRecord"

        Dim selectCmd As String

        selectCmd = "Select * From " + TableName + " Where TableId='" + TableId + "' And Pay=" + Pay
        '注意：欄位名稱不可為Password

        Try
            InitDB()
            cmd = New SqlCommand(selectCmd, conn)
            dr = cmd.ExecuteReader()
            If (dr.Read()) Then
                conn.Close()
                Return True
            Else
                conn.Close()
                Return False
            End If

        Catch ex As Exception

            errorMsg = ex.Message
            conn.Close()
            Return False

        End Try

    End Function

#End Region

    Private Sub clsd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Table01.Click, btn_Table02.Click, btn_Table03.Click, btn_Table04.Click, btn_Table05.Click, btn_Table06.Click, btn_Table07.Click, btn_Table08.Click, btn_Table09.Click, btn_Table10.Click, btn_Table11.Click, btn_Table12.Click
        If CType(sender, Button).Tag = True Then

            MsgBox("使用中！")

        Else

            MsgBox("未使用！")

        End If
    End Sub

    '---------------------------選擇桌號 End-------------------------------
End Class