تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب مساعدة بخصوص صلاحيات المستخدمين
#1
السلام عليكم 
احتاج كود مبسط لصلاحيات المستخدمين ... اي يقوم بإدخال المستخدم ويقوم بفتح بعض الصلاحيات وإغلاق البعض 
ارجو الشرح لي بالتفصيل واين اضع كل كود بإي مكان ؟ 
الامر مستعجل من فضلكم
ولكم جزيل الشكر
الرد
تم الشكر بواسطة:
#2
انظر هذا الموضوع

ابسط مثال للتصاريح
http://vb4arb.com/vb/showthread.php?tid=42
الرد
تم الشكر بواسطة:
#3
السلام عليكم
اخي انا قمت بعمل فورم للصلاحيات المستخدمين وهو فورم رقم 2 
   

وشاشة الدخول فورم رقم 3 
   

اريد عند ادخال اسم مستخدم معين تفتح له بعض الصلاحيات في الفورم 1 كما في المرفقات
   
وهذه الاكواد المستخدمه 
كود فورم 2 
(( كود الاضافة))
   If db.State = ConnectionState.Closed Then db.Open()

        Dim s As String = "insert into pass(no_user,na_user,pass_user,marahel,malyaah,setting_sys)values(@no_user,@na_user,@pass_user,@marahel,@malyaah,@setting_sys)"
        Dim sw As New OleDbCommand(s, db)
        sw.Parameters.AddWithValue("@no_user", TextBox1.Text)
        sw.Parameters.AddWithValue("@na_user", TextBox2.Text)
        sw.Parameters.AddWithValue("@pass_user", TextBox3.Text)
        sw.Parameters.AddWithValue("@marahel", CheckBox1.Checked)
        sw.Parameters.AddWithValue("@malyaah", CheckBox2.Checked)
        sw.Parameters.AddWithValue("@setting_sys", CheckBox3.Checked)
        Try
            sw.ExecuteNonQuery()
            MsgBox("تم اضافة المستخدم", MsgBoxStyle.MsgBoxRight, "تنبية")
            clear1()

        Catch
            MsgBox("المستخدم موجود مسبقا", MsgBoxStyle.MsgBoxRight, "تنبية")
            TextBox1.Clear()
            TextBox1.Focus()
            If db.State = ConnectionState.Open Then db.Close()
        End Try


--------------------------------------------------
كود فورم الدخول
  If ComboBox1.SelectedIndex = -1 Then

            MsgBox("حدد اسم المستخدم")
            Exit Sub
        End If
        If TextBox1.Text = "" Then
            MsgBox("ادخل كلمة المرور")
            Exit Sub
        End If
        On Error Resume Next
        If db.State = ConnectionState.Closed Then db.Open()
        Dim s As String = "select * from pass where (na_user=@na_user)and(pass_user=@pass_user)"
        dco = New OleDbCommand(s, db)
        dco.Parameters.AddWithValue("@x2", ComboBox1.Text)
        dco.Parameters.AddWithValue("@x3", TextBox1.Text)
        Dim reader As OleDbDataReader = dco.ExecuteReader
        If reader.Read = True Then
            reader.Close()
            Form1.ShowDialog()
            Dispose()
        Else
            reader.Close()
            MsgBox("الرجاء ادخال البيانات الصحيحة", MsgBoxStyle.Question, "تنبيه")

        End If
        If db.State = ConnectionState.Open Then db.Close()
-----------------------------------------------------
كود فورم 1 شرط الصلاحية
If CheckBox1.Checked = True Then

            Button1.Enabled = True
            Button2.Enabled = True
            Button4.Enabled = True
            Button5.Enabled = True
            Button6.Enabled = True
            Button7.Enabled = True
            Button8.Enabled = True
            Button9.Enabled = True
            Button10.Enabled = True
            Button11.Enabled = True
            Button12.Enabled = True
            Button13.Enabled = True
            Button14.Enabled = True
            Button15.Enabled = True
        End If

        If CheckBox2.Checked = True Then
            Button18.Enabled = True
            Button26.Enabled = True
            Button24.Enabled = True
            Button17.Enabled = True
            Button16.Enabled = True
            Button27.Enabled = True
            Button19.Enabled = True
            Button20.Enabled = True
        End If

        If CheckBox3.Checked = True Then
            Button22.Enabled = True
        End If
----------------------
السؤال هو اين اضع الشرط 
او ما هو النقص ؟ ارجو التعديل في الاكواد لمعرفة اين المشكلة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تكرار نص بترقيم نور الهدى الهدى 2 24 منذ 17 دقيقة مضت
آخر رد: نور الهدى الهدى
  محتاج مساعدة فى استعداة السورس كود لى برنامجي Mohamed Magdy 0 20 أمس, 12:18 AM
آخر رد: Mohamed Magdy
  مساعدة في كود sofiane-phy 7 109 15-01-19, 10:15 PM
آخر رد: عبد العزيز البسكري
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 14 257 09-01-19, 10:56 PM
آخر رد: abdullhadi999
  [VB.NET] مساعدة في كود حفظ البيانات Hamoody 6 141 07-01-19, 05:54 PM
آخر رد: elgokr
  بخصوص مشكلة فى الفيجوال ستوديو( هام ) salah mansour 11 226 02-01-19, 09:47 PM
آخر رد: salah mansour
  [كود] محتاج مساعدة في الاكواد دي اسامه الهرماوي 6 164 30-12-18, 03:28 PM
آخر رد: alsouf
  [سؤال] أستفسار بخصوص صورة GIF baqaa8 2 97 29-12-18, 01:24 AM
آخر رد: a.wagdi
  بخصوص حفظ البيانات فى ملف داخل مجلد البرنامج salah mansour 0 68 28-12-18, 02:45 AM
آخر رد: salah mansour
  [VB.NET] استفسار :- بخصوص textbox dubai.eig 0 67 27-12-18, 12:27 PM
آخر رد: dubai.eig

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم