[نبيل كونكت]

PHP كود :

'تعطيل جميع الصلاحيات  
            Dim da As New OleDbDataAdapter("select * from user_name where username = @username and pass = @pass", con)
            Dim DTA As New DataTable
            da.Fill(DTA)

            sa.الاصنافToolStripMenuItem.Enabled = False
            sa.المستخدمينToolStripMenuItem.Enabled = False
            sa.الدرجToolStripMenuItem.Enabled = False
            sa.ToolStripButton5.Enabled = False
            sa.tscos.Enabled = False
            sa.ToolStripButton4.Enabled = False
            sa.tspto.Enabled = False

            If DTA.TableName("SANF") = True Then
                sa.الاصنافToolStripMenuItem.Enabled = True
            End If
            If DTA.Item("MOST") = True Then
                sa.المستخدمينToolStripMenuItem.Enabled = True
            End If
            If DTA.Item("MOSH") = True Then
                sa.ToolStripButton5.Enabled = True
            End If
            If DTA.Item("OMA") = True Then
                sa.tscos.Enabled = True
            End If
            If DTA.Item("MOWA") = True Then
                sa.ToolStripButton4.Enabled = True
            End If
            If DTA.Item("MAKH") = True Then
                sa.tspto.Enabled = True
            End If
            If DTA.Item("DORG") = True Then
                sa.الدرجToolStripMenuItem.Enabled = True
            End If 


[Adrees]

جرب تغير السطر التالي 

PHP كود :

 If DTA.TableName("SANF") = True Then 


إلى

PHP كود :

 If DTA.Item("SANF") = True Then 


[عبـدالله]

تفضل التعديل

PHP كود :

Using da As New OleDbDataAdapter("SELECT * FROM [user_name] WHERE ([username]=@username) AND ([pass]=@pass)", con)
    da.SelectCommand.Parameters.AddWithValue("@username", TextBox1.Text)
    da.SelectCommand.Parameters.AddWithValue("@pass", TextBox2.Text)
    Using dt As New DataTable
        If da.Fill(dt) > 0 Then
            Dim r As DataRow = dt.Rows(0)
            sa.الاصنافToolStripMenuItem.Enabled = r("SANF")
            sa.المستخدمينToolStripMenuItem.Enabled = r("MOST")
            sa.ToolStripButton5.Enabled = r("MOSH")
            sa.tscos.Enabled = r("OMA")
            sa.ToolStripButton4.Enabled = r("MOWA")
            sa.tspto.Enabled = r("MAKH")
            sa.الدرجToolStripMenuItem.Enabled = r("DORG")
        End If
    End Using
End Using