البحث في الموقع

بداية دعونا نتفق طالما فكرنا فى الموضوع ده ووصلنا له اذن نريد اضافة حماية لتطبيقاتنا طالما سوف نتحدث عن الحماية فلسوف يتم ان شاء الله العمل على افكار تطبيق ذلك خطوة بعد خطوة تدريجيا للارتقاء بالتوازى برفع مستوى الحماية مع الانتهاء من التطبيق مشروحا خطوة بعد خطوة تفصيليا 1- كل اسماء الجداول والنماذج والاستعلامات والموديول التى تخص المستخدمين ونظام الحماية سوف تبدأ بالمقطع Usys حتى يتعامل معها االاكسس على انها من كائنات النظام فيخفيها اليا عن المستخدم العادى 2- تشفير / فك تشفير البيانات التى تخص تطبيق نظام الصلاحيات وبما اننا سوف نبدأ بتلك الجزئية يستوجب تقديم الشكـر والامتنان لاستاذى الجليل ومعلمى القدير الدكتور @SEMO.Pa3x لاننى ان شاء الله سوف استخدم نظام التشفير الذى تقدم به استاذى الجليل اولا ـــــــــ الروتين المستخدم فى تشفير الكلمات والذى يتم وضعه فى موديول Function Encoder(ByVal strWordDecrypt As String) As String Dim iIndex As Integer Dim iEncoder As Integer Dim iEncodedVal As Integer Randomize Encoder = "" For iIndex = 1 To Len(strWordDecrypt) Do iEncoder = Int(98 * Rnd + 89) iEncodedVal = Asc(Mid(strWordDecrypt, iIndex, 1)) Xor iEncoder Loop While iEncodedVal = 1000 Or iEncodedVal < 99 Encoder = Encoder & Chr(iEncodedVal) & Chr(iEncoder) Next iIndex End Function ويتم استدعاءه كلاتى Encoder(text) حيث ان text هو النص المراد تشفيره أو انه اسم الحقل ( تيكست بوكس , كمبو بوكس ..) المراد تشفير القيم الموجوده بهم ------------------- العملية العكسية وهى فك تشفير الكلمات واعادتها الى وضعها الطبيعى الروتين المستخدم فى فك تشفير الكلمات والذى يتم وضعه فى موديول Function Decodeder(ByVal strWordEncrypt As String) As String Dim iIndex As Integer Dim iDecodedVal As Integer Decodeder = "" For iIndex = 1 To Len(strWordEncrypt) Step 2 iDecodedVal = Asc(Mid(strWordEncrypt, iIndex, 1)) Xor Asc(Mid(strWordEncrypt, iIndex + 1, 1)) Decodeder = Decodeder & Chr(iDecodedVal) Next iIndex End Function ويتم استدعاءه كلاتى Decodeder(EncoderText) حيث ان EncoderText هو النص المشفر المراد فك تشفيره أو انه اسم الحقل ( تيكست بوكس , كمبو بوكس ..) المراد فك تشفير القيم الموجوده بهم واخيرا المرفق Encrypt&Decrypt.mdb

السلام عليكم، كثيراً ما ارى طلبات "كيفية عمل صلاحيات المستخدمين" قمت بعمل مثال بطريقة مبسطة جدا لكيفية عمل هذه الصلاحيات في تحديد فتح النماذج لمن لا يعرف ماذا اقصد بصلاحيات المستخدمين, مثال: اليوزر A غير مسموح له بفتح فورم الاعدادات مثلاً، اما اليوزر B مسموح له بفتح فورم الاعدادات اي سؤال انا موجود. تحياتي لكم Permission.accdb

السلام عليكم ورحمة الله تعالى وبركاته كانت حاجتى ملحة فى وضع صلاحيات للمستخدمين للحفاظ على البيانات التى يتم ادخالها وعدم التلاعب بها وذلك لحساسية البيانات المدخلة واصناء البحث وجدت البرنامج الخاص بالاستاذ محمد مهند العبادى بإسم Users Maker قمت بإضافة المعالج الى قاعدة البيانات الخاصة بى وبصراحة حاولت التعديل عليها فقمت بالاتى - جعل المستخدم يقوم باختيار الاسم من كمبوبوكس بدلا من كتابة اسمه كل مرة من خلال تيكست بوكس - بعد التعديلات على النموذج user name وذلك لجعل المستخدم يستطيع تغيير كلمة السر الخاصة به دون الرجوع الى المسئول عن البرنامج - قما قمت بوضع زر يفتح فورم الاذونات للمستخدمين من فورم الدخول ولكن الية العمل تكون كالاتى عند إضافة الصلاحيات من خلال معالج اضافة الصلاحيات لاى قاعدة بيتم الاتى انشاء مستخدم ادمن لقاعدة البياااانات ادراج جدول frm وبيتم وضع كل اسماء النماذج الموجوده بالقاعدة بطريقة الية ادراج جدول Frm Ability ادراج نموذج Users Ability ادراج الجدول Users هناك اكثر من ذلك ولكن ذكرت ما يهمنى ذكره فقط النموذج Users Ability من خلاله يتم من خلاله اولا : انشاء مستخدمين ثانيا : اعطاء التصاريح لكل مستخدم بما يتناسب معه من قبل الادمن ملاحظات هامة جدا جدا جدا عند انشاء مستخدمين من النموذج Users Ability يتم الاتى 1- ادراج سجلات فى الجدول Frm Ability عن طريق الجدول Frm وذلك طبقا لكل النماذج الموجودة بعددها 2-رقم المستخدم SN ومصدره الجدول Users وبهذا بعد انشاء عدد من المستخدمين تتمكن من اعطاء التصاريح اللازمة لكل مستخدم لفتح النموذج او الاضافة او التعديل او الحذف لكل على حده وذلك عن طريق النموذج Users Ability ----------------------------------هذا هو الاصل فى الية المعالج والية عمل قاعدة البيانات بعد معالجتها -------- ما أريد تحقيقه هو الاتى اولا النموذج Users Ability يتم تغيير إسمه مثلا إلى Group Ability وبهذا يتم اعطاء التصاريح اللازمة لمجموعة العمل وليس لكل مستخدم منفردا ثانيا : عند انشاء مستخدم جديد يتم الاتى 1- تحديد اسم الجروب / رقم الجروب الذى نريد اضافة المستخدم له فيدرج فى الجدول Users 2-ادراج سجلات فى الجدول Frm Ability عن طريق الجدول Frm وذلك طبقا لكل النماذج الموجودة بعددها 2-رقم الجروب / اسم الجروب "WG مثلا بدلا من SN" ويكون مصدره الجدول Users فينتج من هذا اعطاء التصاريح لمجموعة العمل وليس للمستخدم برجاء النظر للموديول ففيه اكواد التحكم الخاصة بالتصاريح Cuser Public Function GetAbility(FormName As String, Ability As AbilityType) Dim c As String c = "[" & Choose(Ability, "o", "A", "d", "e") & "]" GetAbility = DLookup(c, "FRM Ability", "FRM = '" & FormName & "' and SN = " & Str(UserNum)) End Function ------------------ Private Function CheckValid() As Boolean On Error GoTo Err CheckValid = False CheckValid = decode(DLookup("[PW]", "Users", "deCode([uname],'User')='" & Trim(UserName) & "'"), "Pass") = Trim(Me.pass) If CheckValid Then LogTime = Now() UserNum = DLookup("[SN]", "Users", "deCode([uname],'User')='" & Trim(UserName) & "'") End If Err: End Function الاستاذ مهند جعل التخصيص من خلال الاسماء عن طريق السيريال نمبر الخاص بكل يوزر ليكون فريد من نوعه امممممم هل يمكن التعديل وتغير sn الى رقم فريد لمجموعة العمل ولتكن wg ؟ ويتم تخصيص رقم لكل مجموعة عمل بإدراج جدول workgroup ويكون فى هذا الجدول مثلا اسماء المجموعات ورقم معرف لكل مجموعه مثلا اسم المجموعه رقم تعريف المجموعه admin 1 2 data entry 3 editor 4 viewer هذا الجزء من الكود فى نموذج user name فى حدث عند الضغط على الزر موافق DoCmd.RunSQL "INSERT INTO [Frm Ability] (SN,FRM,FRMDESC) SELECT" & Str(n) & " AS Expr1,FRMS.FRM,FRMDESC FROM FRMS;" على حسب فهمى هو استعلام الحاق عند الضغط على الزر يقوم بالحاق اسماء النماذج ووصفها من الجدول frm وكذلك الـ sn الخاص بالمستخدم الجديد الذى يتم انشائه الى الجدول frm apility وبصراحة عندما سالت عن استعلام الالحاق كنت افكر فى ان اغير هذه الجملة حتى تتم كالاتى الحاق اسماء النماذج ووصفها من الجدول frm وكذلك الحاق رقم مجموعة العمل للمستخدم الجديد بناء على تحديدها من كومبوكس فى النموذج user name الى الجدول frm apility ولكن تتم بنفس الالية التى تتم بها مع الـ sn ارفق قاعدة تم عمل المعالج الخاص بالصلاحيات عليها للاطلاع عليها وان شاء الله لو تم التعديل عليها كما اتمنى سوف اقوم بوضع هذا التعديل على المعالج وان شاء الله يمكننى ذلك تطوير صلاحيات المستخدمين.rar

السلام عليكم لقد بحثت كثيرا في المنتدى ولكن لم اجد المطلوب ربما للقليل خبرتي في المرفق لدي قاعدة البيانات وله 2 المستخدمين المطلوب : 1- عندما الرقم السرى يساوي رقم سري (password1) في الجدول (tblpassword) لده كل الصلاحيات . 2- عندما الرقم السري يساوي رقم سري (password2) في الجدول (tblpassword) ليس لده اي صلاحيات الا المشاهدة . هل هذا ممكن ؟؟؟؟ مع تحياتى Multi-Users.rar

السلام عليكم ورحمة الله وبركاته .. موضوع مهم جداً ويسأل عنه الكثير من الأعضاء ،، وهو موضوع المستخدمين وتوزيع الصلاحيات أنا شخصياً مهتم بأمر المستخدمين وتوزيع الصلاحيات وأستفذت كثيراً من هذا المنتدى الرائع ،، مرفق برنامج صغير من تصميم الأخوان في المنتدى Users maker -Third Edition أستخدمته من قبل وكان ينقصه تحديد نموذج صفحة البداية وكان غير معرب ... بعد أذن الأخوان أرجوا أن يتقبلوا التعديلات التي أدخلتها عليه وهي التعريب و إضافة صفحة البداية كل ما عليك هو أن تعيد تسمية النموذج الذي تريده أن يظهر مع تشغيل البرنامج إلى index ثم تقوم بتشغيل البرنامج ومتابعة الخطوات ... Users maker -Third Edition (1).rar تقبلوا تحياتي أخوكم .. eng-Hussam