+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=20058)
مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا - نبيل كونكت - 18-04-17
PHP كود :
Imports System.Data.OleDb
Public Class frmlodin
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=dbv.accdb;Jet OLEDB:Database Password=NABIL_1102;")
Dim cmd As OleDbCommand
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (String.IsNullOrWhiteSpace(txtname.Text)) Then
MsgBox("لا يمكن الدخول واسم المستخدم فارغ")
Exit Sub
End If
If (String.IsNullOrWhiteSpace(txtpass.Text)) Then
MsgBox("من فضلك ادخل كلمة السر")
Exit Sub
End If
Try
cmd = New OleDbCommand("select fullname from user_name where username = @username and pass = @pass", con)
cmd.Parameters.Add(New OleDbParameter("username", OleDbType.VarChar)).Value = txtname.Text
cmd.Parameters.Add(New OleDbParameter("pass", OleDbType.VarChar)).Value = txtpass.Text
con.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader
dr.Read()
Dim sa As New frmmain
If dr.HasRows Then
sa.Show()
Me.Close()
fullname = dr(0)
Else
MsgBox("هناك خطا فى اسم المستخدم او كلمة السر")
End If
'تعطيل جميع الصلاحيات
Dim DTA As New DataTable
Dim da As New OleDbDataAdapter
Dim sa As New frmmain
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 dr.Item("SANF") = True Then
sa.الاصنافToolStripMenuItem.Enabled = True
End If
If dr.Item("MOST") = True Then
sa.المستخدمينToolStripMenuItem.Enabled = True
End If
If dr.Item("MOSH") = True Then
sa.ToolStripButton5.Enabled = True
End If
If dr.Item("OMA") = True Then
sa.tscos.Enabled = True
End If
If dr.Item("MOWA") = True Then
sa.ToolStripButton4.Enabled = True
End If
If dr.Item("MAKH") = True Then
sa.tspto.Enabled = True
End If
If dr.Item("DORG") = True Then
sa.الدرجToolStripMenuItem.Enabled = True
End If
dr.Close()
Catch ex As Exception
Exit Sub
Finally
con.Close()
End Try
End Sub
Private Sub txtpass_KeyDown(sender As Object, e As KeyEventArgs) Handles txtpass.KeyDown
If (e.KeyCode = Keys.Enter) Then
Button1_Click(Nothing, Nothing)
End If
End Sub
End Class
RE: مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا - أسامة السالمي - 18-04-17
بما أنك عرضت النافذة (frmmain) على شكل نسخة موجودة في متغير "Dim sa As New frmmain" فيجدر عليك حينها التعامل مع المتغير لا مع النافذة مباشرة فيكون الكود :
PHP كود :
sa.الاصنافToolStripMenuItem.Enabled = False
RE: مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا - نبيل كونكت - 19-04-17
المشكله ما زالت موجوده
وفى خطا
RE: مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا - ابو محمد القحطاني - 19-04-17
اثناء التنفيذ اذا ظهرت رسالة خطاء اكتبها
RE: مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا - أسامة السالمي - 19-04-17
أرفق مثال صغير، أو أرفق الكود بعد التعديل بالإضافة الى صورة الخطأ
RE: مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا - نبيل كونكت - 19-04-17
(19-04-17, 12:45 AM)أسامة السالمي كتب : أرفق مثال صغير، أو أرفق الكود بعد التعديل بالإضافة الى صورة الخطأ
حدثت الكود فوق ومش عارف اربط الصلاحيات بالبرنامج والكود ده فى فورم الدخول وهل بيكون مكانه صح ولا فى الفورم الى فيه الصلاحيات نفسها الفورم الرئيسى فى اللود وشكرا للاهتمام وارجو المساعده
RE: مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا - أسامة السالمي - 20-04-17
صحيح، في نافذة الدخول.
بالنسبة للكود، عليك أن تتعامل مع متغير واحد أي (Dim sa As New frmmain) تكتب مرة واحدة فقط.
الكود بعد التعديل :
PHP كود :
Imports System.Data.OleDb
Public Class frmlodin
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=dbv.accdb;Jet OLEDB:Database Password=NABIL_1102;")
Dim cmd As OleDbCommand
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (String.IsNullOrWhiteSpace(txtname.Text)) Then
MsgBox("لا يمكن الدخول واسم المستخدم فارغ")
Exit Sub
End If
If (String.IsNullOrWhiteSpace(txtpass.Text)) Then
MsgBox("من فضلك ادخل كلمة السر")
Exit Sub
End If
Try
cmd = New OleDbCommand("select fullname from user_name where username = @username and pass = @pass", con)
cmd.Parameters.Add(New OleDbParameter("username", OleDbType.VarChar)).Value = txtname.Text
cmd.Parameters.Add(New OleDbParameter("pass", OleDbType.VarChar)).Value = txtpass.Text
con.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader
dr.Read()
Dim sa As New frmmain
If dr.HasRows Then
sa.Show()
Me.Close()
fullname = dr(0)
Else
MsgBox("هناك خطا فى اسم المستخدم او كلمة السر")
End If
'تعطيل جميع الصلاحيات
Dim DTA As New DataTable
Dim da As New OleDbDataAdapter
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 dr.Item("SANF") = True Then
sa.الاصنافToolStripMenuItem.Enabled = True
End If
If dr.Item("MOST") = True Then
sa.المستخدمينToolStripMenuItem.Enabled = True
End If
If dr.Item("MOSH") = True Then
sa.ToolStripButton5.Enabled = True
End If
If dr.Item("OMA") = True Then
sa.tscos.Enabled = True
End If
If dr.Item("MOWA") = True Then
sa.ToolStripButton4.Enabled = True
End If
If dr.Item("MAKH") = True Then
sa.tspto.Enabled = True
End If
If dr.Item("DORG") = True Then
sa.الدرجToolStripMenuItem.Enabled = True
End If
dr.Close()
Catch ex As Exception
Exit Sub
Finally
con.Close()
End Try
End Sub
Private Sub txtpass_KeyDown(sender As Object, e As KeyEventArgs) Handles txtpass.KeyDown
If (e.KeyCode = Keys.Enter) Then
Button1_Click(Nothing, Nothing)
End If
End Sub
End Class
RE: مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا - نبيل كونكت - 20-04-17
الف شكر يا بشمهندس بس كانت المشكله لسه موجوده وهى كانت دى cmd = New OleDbCommand("select fullname from user_name where username = @username and pass = @pass", con)
هى المفروض cmd = New OleDbCommand("select * from user_name where username = @username and pass = @pass", con)
والف الف شكر يا باشا
RE: مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا - أسامة السالمي - 20-04-17
العفو،