تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] برنامج صلاحيات متقدم هدية الشهر الكريم
#1
داله عرض الصلاحيات توضع داخل كلاس او موديل

Public Sub Permission(ByVal Form As Form, ByVal FormName As String)

       Dim da As New SqlDataAdapter("select use_no,frm_name,use_Add,use_Modify,use_Del,use_Ser,use_show from users where use_no=" & UserId, con)
       Dim ds As New DataSet
       da.Fill(ds, "users")
       Dim dt As DataTable = ds.Tables("users")
       Dim NameFrm As String
       For Each btnname As DataRow In dt.Rows

           NameFrm = btnname("frm_name")
           If NameFrm = Trim(CStr(FormName.ToString)) Then

               If btnname("use_show") = False Then

                   MessageBox.Show("!!! عفواً لا تمتلك صلاحيات الدخول لشاشة " & FormName.ToString, "", _
                   MessageBoxButtons.OK, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1, _
                   MessageBoxOptions.RightAlign) : Form.Close() : frm_main.Show() : frm_main.Timer5.Start() _
                       : frm_main.Timer6.Start() : Exit Sub

               Else

                   Form.Controls.Item("btn_new").Enabled = btnname("use_Add")
                   Form.Controls.Item("btn_modify").Enabled = btnname("use_Modify")
                   Form.Controls.Item("btn_delete").Enabled = btnname("use_Del")
                   Form.Controls.Item("btn_search").Enabled = btnname("use_Ser")

               End If

           End If
       Next

   End Sub


كود الاستدعاء اثناء الإقلاع
في الحدث Load في كل النوافذ
Permission(Me, Me.Text)


الملفات المرفقة
.rar   script.rar (الحجم : 946 بايت / التحميلات : 191)
الرد }}}}
تم الشكر بواسطة: ابو ليلى , الكاتب , الكاتب
#2
مشكور اخي الفاضل :

لكن من فضلك راجع ملف قاعدة البيانات
الرد }}}}
تم الشكر بواسطة:
#3
(26-06-16, 06:03 AM)زكريا النابهي كتب : برنامج صغير لكيفية استخدام الصلاحيات في المشاريع التجارية اول برنامج متقدم ومفيد في هذا المنتدى لكيفية عمل الصلاحيات بإستخدام داله واحدة لعرض الصلاحيات وشاشة لحفظ الصلاحيات والمستخدمين ارجو ان ينال اعجابكم


وشكراً

المهندس / زكريا النابهي

لكن اين البرنامج يا بشمهندس زكريا ؟
الرد }}}}
تم الشكر بواسطة:
#4
جزاك الله خيراً
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سورس كود برنامج نقاط البيع linksys code3x 6 332 04-05-17, 04:34 PM
آخر رد: code3x
  [مشروع] برنامج الناشر التلقائي للفيس بوك قروبات + صفحات + اضافات اخرى Basil Abdallah 9 609 23-04-17, 11:26 PM
آخر رد: nabil.1710
  [VB.NET] برنامج كيفية حماية البرنامج من استخدامه اكثر من مرة shwehdi4pc 5 1,124 06-04-17, 09:57 PM
آخر رد: ashfa
Brick [مشروع] مشروع تخرج برنامج عن وحدة التدريب والتوظيف مبرمج أوتار 56 74,792 05-04-17, 10:30 PM
آخر رد: emadmohamed
  [VB.NET] برنامج مسابقة زكريا النابهي 5 591 02-04-17, 09:46 AM
آخر رد: المبرمج العبقري
  [مشروع] برنامج الجرس المدرسي الناطق سيد درويش 9 2,245 31-03-17, 03:26 AM
آخر رد: IBRA939
  كود سورس برنامج SekraniSOFT SQL Query Builder ndjakoub 3 328 21-03-17, 09:11 PM
آخر رد: m_nader
Information [مشروع] طريقة تصميم برنامج قواعد بيانات يحتوي على علاقات بين الجداول (باستخدام الكود فقط) Mohamad Anan 9 5,610 25-02-17, 11:23 PM
آخر رد: sendbad100
  سورس كود برنامج تسجيل الدخول للفيس بوك من صنعي Basil Abdallah 2 536 18-02-17, 06:13 PM
آخر رد: C0MNDS
  [مشروع] سورس كود برنامج إدارة كافية المبرمج العبقري 3 543 08-02-17, 10:51 PM
آخر رد: المبرمج العبقري

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


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