تقييم الموضوع :
  • 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
----------------------
السؤال هو اين اضع الشرط 
او ما هو النقص ؟ ارجو التعديل في الاكواد لمعرفة اين المشكلة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تشغيل اختصارات لوحة المفاتيح مع الالة الحاسبه مرفق المثال nooralcown 7 54 أمس, 07:47 PM
آخر رد: nooralcown
  مساعدة لفهم كود التسجيل abureem93 0 19 أمس, 06:37 PM
آخر رد: abureem93
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 15 1,230 21-01-18, 08:30 PM
آخر رد: محمود صالح
  [VB.NET] محتاج مساعدة في كود في datagirdviwe saudisgames 2 63 20-01-18, 09:31 PM
آخر رد: saudisgames
  [VB.NET] سؤال :- بخصوص ال LOGIN dubai.eig 2 72 14-01-18, 12:53 PM
آخر رد: dubai.eig
  استفسار بخصوص اختصار اسم الصنف في شاشة المبيعات ملهمـ 2 80 02-01-18, 06:23 PM
آخر رد: ملهمـ
  [VB.NET] استفسار :- بخصوص البحث في قاعدة البيانات dubai.eig 4 151 27-12-17, 12:01 PM
آخر رد: dubai.eig
  [سؤال] استفسار بسيط بخصوص الريجكس ابو روضة 0 49 27-12-17, 02:31 AM
آخر رد: ابو روضة
  [كود] مشكله في الكود بخصوص Crystal Report dfouad 1 56 26-12-17, 03:06 PM
آخر رد: adel2012
  مساعدة في عمل برنامج مكتب هندسي المتألق9 0 55 25-12-17, 09:08 PM
آخر رد: المتألق9

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


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