+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده فى تعديل الكود ده لو سمحتوا يا جماعه (/showthread.php?tid=20086)
مساعده فى تعديل الكود ده لو سمحتوا يا جماعه - نبيل كونكت - 20-04-17
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
RE: مساعده فى تعديل الكود ده لو سمحتوا يا جماعه - Adrees - 20-04-17
جرب تغير السطر التالي
PHP كود :
If DTA.TableName("SANF") = True Then
إلى
PHP كود :
If DTA.Item("SANF") = True Then
RE: مساعده فى تعديل الكود ده لو سمحتوا يا جماعه - عبـدالله - 22-04-17
تفضل التعديل
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