تقييم الموضوع :
  • 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 ([email protected]_user)and([email protected]_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
----------------------
السؤال هو اين اضع الشرط 
او ما هو النقص ؟ ارجو التعديل في الاكواد لمعرفة اين المشكلة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة لتصميم برنامج إسلامي بإمتياز hichem1 0 30 أمس, 02:10 PM
آخر رد: hichem1
Information مساعدة لتونسي مبتدأ عن برنامج صلاة hichem1 0 49 أمس, 02:17 AM
آخر رد: hichem1
  مشكلة في الإتصال بقاعدة الAccess ارجوكم مساعدة فراس صلاح 1 63 20-04-18, 09:20 PM
آخر رد: elmezo
  مساعدة جزاكم الله خيرا fouadhdfouad 1 42 20-04-18, 09:11 PM
آخر رد: elmezo
  سوالي هوا بخصوص الbutton mawadaalmogrbi 3 63 18-04-18, 10:19 PM
آخر رد: محمد كريّم
  [VB.NET] مساعدة في ارسال الصوت Beep dubai.eig 0 64 16-04-18, 10:55 AM
آخر رد: dubai.eig
  طلب بخصوص الكومبو بوكس احمد خطاب خطاب 0 43 13-04-18, 08:56 AM
آخر رد: احمد خطاب خطاب
  مساعدة في ربط قاعدة البيانات عزف الرياح 0 58 13-04-18, 12:41 AM
آخر رد: عزف الرياح
  [سؤال] سؤال بخصوص الكومبو بوكس احمد خطاب خطاب 2 75 12-04-18, 01:17 AM
آخر رد: احمد خطاب خطاب
  [كود] ممكن مساعدة لسه مبتدئ 2 68 11-04-18, 09:32 AM
آخر رد: لسه مبتدئ

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


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