20-04-17, 12:56 AM
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