[نبيل كونكت]

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