取消的登錄功能



            'Using cn As New SqlConnection()
            '    cn.ConnectionString = ConfigurationManager.ConnectionStrings("Sample_Room_ProgressConnectionString").ConnectionString
            '    cn.Open()
            '    Dim cmd As New SqlCommand("SELECT * FROM People WHERE People_Name=@People_Name", cn)
            '    cmd.Parameters.Add(New SqlParameter("@People_Name", SqlDbType.NVarChar))
            '    cmd.Parameters("@People_Name").Value = Log_In_People_Name.Text

            '    Dim dr As SqlDataReader
            '    dr = cmd.ExecuteReader
            '    If dr.Read Then
            '        Session("People_ID") = dr.Item("People_ID").ToString
            '        Session("People_Name") = dr.Item("People_Name").ToString
            '        Session("People_Password") = dr.Item("People_Password").ToString
            '        Session("Title") = dr.Item("Title").ToString
            '        Session("Role") = dr.Item("Role").ToString
            '        Session("Inline_No") = dr.Item("Inline_No").ToString
            '        Session("Sales_Team") = dr.Item("Sales_Team").ToString

            '        If dr.Item("People_Password").ToString = Log_In_People_Password.Text Then
            '            Dim a As String = "", b As String = "", c As String = "", d As String = "", e As String = ""
            '            Select Case Demo.Text
            '                Case "款式登記"
            '                    a = dr.Item("Style_Authority").ToString
            '                    b = dr.Item("Last_Log_In_Style_Date").ToString
            '                    c = dr.Item("Log_In_Style_Total").ToString
            '                    d = dr.Item("Style_Modify").ToString
            '                    e = dr.Item("Style_Delete").ToString
            '                Case "辦房管理"
            '                    a = dr.Item("Sample_Authority").ToString
            '                    b = dr.Item("Last_Log_In_Sample_Date").ToString
            '                    c = dr.Item("Log_In_Sample_Total").ToString
            '                    d = dr.Item("Sample_Modify").ToString
            '                    e = dr.Item("Sample_Delete").ToString
            '                Case "排料管理"
            '                    a = dr.Item("Consumption_Authority").ToString
            '                    b = dr.Item("Last_Log_In_Consumption_Date").ToString
            '                    c = dr.Item("Log_In_Consumption_Total").ToString
            '                    d = dr.Item("Consumption_Modify").ToString
            '                    e = dr.Item("Consumption_Delete").ToString
            '                Case "成本表"
            '                    a = dr.Item("Costing_Authority").ToString
            '                    b = dr.Item("Last_Log_In_Costing_Date").ToString
            '                    c = dr.Item("Log_In_Costing_Total").ToString
            '                    d = dr.Item("Costing_Modify").ToString
            '                    e = dr.Item("Costing_Delete").ToString
            '                Case "布料採購"
            '                    a = dr.Item("Fabric_Authority").ToString
            '                    b = dr.Item("Last_Log_In_Fabric_Date").ToString
            '                    c = dr.Item("Log_In_Fabric_Total").ToString
            '                    d = dr.Item("Fabric_Modify").ToString
            '                    e = dr.Item("Fabric_Delete").ToString
            '                Case "布料質檢"
            '                    a = dr.Item("Fabric_QC_Authority").ToString
            '                    b = dr.Item("Last_Log_In_Fabric_QC_Date").ToString
            '                    c = dr.Item("Log_In_Fabric_QC_Total").ToString
            '                    d = dr.Item("Fabric_QC_Modify").ToString
            '                    e = dr.Item("Fabric_QC_Delete").ToString
            '                Case "用戶管理"
            '                    a = dr.Item("User_Authority").ToString
            '                    b = dr.Item("Last_Log_In_User_Date").ToString
            '                    c = dr.Item("Log_In_User_Total").ToString
            '                    d = dr.Item("User_Modify").ToString
            '                    e = dr.Item("User_Delete").ToString
            '            End Select
            '            Session("Demo_Authority") = a
            '            Session("Last_Log_In_Demo_Date") = b
            '            Session("Log_In_Demo_Total") = IIf(c = "", "0", c)
            '            Session("Demo_Modify") = d
            '            Session("Demo_Delete") = e

            '            If Session("Demo_Authority") = "True" Then
            '                Session("Log_In_Demo_Total") = Val(c) + 1
            '                Call Update_People(Demo.Text)
            '            Else
            '                Warning.Text = "*您無權限登入!"
            '            End If
            '        Else
            '            Warning.Text = "*密碼錯誤!"
            '            Log_In_People_Password.Text = ""
            '            Log_In_People_Password.Focus()
            '            Return
            '        End If
            '    Else
            '        Warning.Text = "*用戶不存在!"
            '        Log_In_People_Name.Focus()
            '        Return
            '    End If
            'End Using