Imports System.Data
Imports System.Data.OleDb
Partial Class ShopLogin
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(sender As Object, e As System.EventArgs)
        '使用資料庫驅動程式的名稱
        Dim tk_provider = "Provider=Microsoft.ACE.OLEDB.12.0"
        '資料庫所在的路徑
        Dim tk_database = "Data Source=" & Server.MapPath("ShopDB.accdb")
        Dim tk_conn As New OleDbConnection(tk_provider & ";" & tk_database)
        Dim tk_sql As String
        Dim tk_data As String
        Dim tk_datareader As OleDbDataReader
        tk_sql = "SELECT 密碼 FROM(會員資料表) WHERE((帳號 = '" & TextBox1.Text & "'))"
        tk_conn.Open()
        Dim tk_cmd As New OleDbCommand(tk_sql, tk_conn)
        tk_datareader = tk_cmd.ExecuteReader()
        Label1.Text = ""
        If tk_datareader.Read() = True Then
            If TextBox2.Text = tk_datareader.Item(0) Then
                Session("account") = TextBox1.Text
                Label1.Text = "登入成功"
                Response.Redirect("shop02.aspx?PNO=" & Session("PNO"))
            Else
                Label1.Text = "密碼錯誤!"
            End If
        Else
            Label1.Text = "帳號不存在!"
        End If

        tk_datareader.Close()
        tk_conn.Close()


    End Sub

    Protected Sub Button2_Click(sender As Object, e As System.EventArgs)
        Dim tk_provider = "Provider=Microsoft.ACE.OLEDB.12.0"
        '資料庫所在的路徑
        Dim tk_database = "Data Source=" & Server.MapPath("ShopDB.accdb")
        Dim tk_conn As New OleDbConnection(tk_provider & ";" & tk_database)
        Dim tk_sql As String
        Dim tk_datareader As OleDbDataReader
        tk_sql = "SELECT 密碼 FROM(會員資料表) WHERE((帳號 = '" & TextBox1.Text & "'))"
        tk_conn.Open()


        Dim tk_cmd As New OleDbCommand(tk_sql, tk_conn)
        tk_datareader = tk_cmd.ExecuteReader()
        Label1.Text = ""
        If tk_datareader.Read() = True Then
            Label1.Text = "帳號已存在!"
        Else
            tk_datareader.Close()

            tk_sql = "Insert Into 會員資料表 (帳號,密碼) Values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
            tk_cmd = New OleDbCommand(tk_sql, tk_conn)

            tk_cmd.ExecuteNonQuery()
            If Err.Number = 0 Then
                Label1.Text = "新增成功！"
            Else
                Label1.Text = Err.Description
            End If
        End If

        tk_conn.Close()
    End Sub
End Class