إدارة الصلاحيات في أكسس بمصادقة ويندوز

السلام عليكم

إذا كنت قد فتحت المثال على جهاز حاسب قائم بذاته، فقد تفاجأ أن الاسم الكامل لا يظهر، لأن الغالب على المستخدمين أنهم لا يقومون بإكمال بيانات حساباتهم الشخصية، إما لعدم معرفتهم كيفية ذلك، وإما لعدم الرغبة. أما إذا كنت فتحت المثال على شبكة محلية فسوف تجد بياناتك على الشبكة ظهرت ضمن النموذج.

إذا كنت ترغب في إكمال بيانات حسابك الشخصي قم بعمل التالي:

- انقر بالزر الأيمن للفارة على أيقونة جهاز الكمبيوتر

- من القائمة المنسدلة اختر (إدارة)، عندها سيظهر مربع حوار (إدارة الكمبيوتر)

- من القائمة الشجرية اختر (مستخدمون محليون ومجموعات محلية)، ثم اختر مجلد(مستخدمون)، ستظهر قائمة منسدلة على الجانب الأخر بكافة المستخدمين المسجلين على الحاسب.

- ابحث عن اسم المستخدم الحالي (يظهر في رأس قائمة ابدأ) وانقرعليه نقرا مزدوجا، عندها سيظهر مربع حوار خصائص...

- اكتب الاسم الكامل للمستخدم، والوصف الذي ينطبق على وظيفته

اعد فتح قاعدة البيانات وسوف تلاحظ أن الاسم الكامل للمستخدم قد ظهر أخيرا...

وللعلم.. سوف يظهر هذا الاسم في قائمة ابدأ عند تسجيل الدخول في المرة القادمة

بارك الله فيك وجزاك الله خير اكي الفاضل القحم

وفقك الله ونفع بعلمك

السلام عليكم

في هذه الجلسة سوف أقوم بمناقشة المثال المرفق مع الجلسة الأولى للتعرف على كيفية قراءة بيانات المستخدم وتوظيفها في إدارة الصلاحية.

قبل أن أبدأ في تبسيط وشرح الشفرة أود التنويه إلى أن Microsoft Windows قدمت هذا النمط من البيانات ابتداءً من الإصدار 2000، وهو متوفر إلى الآن ضمن بيئة ويندوز الافتراضية، وبالتالي فلا ينبغي التخوف من عدم توفر المكتبات الخاصة بهذا النمط في جهاز ما، إلا أنه يجب التأكد من أنه تم التأشير عليها في قائمة المراجع

الشيء الآخر هو أن التأشير على المكتبة ضمن قائمة المراجع والتصريح عنها هو أمر اختياري يساعد المطور في التعرف على المكونات المتوفرة ضمن المكتبة عن طريق مستعرض المكتبات أو عن طريق قائمة السرد التفاعلية التي تظهر عند كتابة الكود.

المكتبات التي سوف نتعامل معها في إدارة الصلاحيات هي كالتالي:

المكتبة الأولى هي المعنية بتوفير بيانات المستخدم الأساسية؛ وهي: Windows Script Host Object Model

تتألف هذه المكتبة من عدة مكونات يمكن التعرف عليها عن طريق مستعرض المكونات، والذي يهمنا منها هو المكون WshNetwork، يوفر هذا المكون الخصائص (UserName, UserDomain, ComputerName).

يتم التصريح عن هذا المكون بأحد الطرق التالية:

- الطريقة الأولى وهي المفضلة لدي:

Dim wtsn As New WshNetwork

هذه الطريقة لا تحتاج إلى إسناد؛ أي لا تحتاج إلى عبارة Set، بل تستخدم مباشرة على نحو wsnt.UserName، وسيكون استخدامها في الوظيفة على النحو التالي:

Function xUserName()
Dim wsnt As New WshNetwork
xUserName=wsnt.UserName
End Function

- الطريقة الثانية هي الموجود في المثال المدرج في الجلسة الأولى، إلا إنه ينبغي التنويه إلى أن التصريح مع عبارة CreateObject() هو اختياري. سيكون استخدامها في الوظيفة على النحو التالي:

Function xUserName()
Dim wsnt As WshNetwork
Set wsnt=CreateObject("Wscript.Network")
xUserName=wsnt.UserName
End Function

المكتبة الثانية هي المعنية بالبيانات التفصيلية لحساب المستخدم؛ وهي: Active DS Type Library

تتألف هذه المكتبة من العديد من المكونات التي يمكن التعرف عليها عن طريق مستعرض المكونات، والذي يهمنا منها هو المكون IADsUser، يوفر هذا المكون العديد من الوظائف والخصائص، وما يهمنا منها هو الخصيصة FullName، والوظيفة Groups، وسوف نستخدم لقراءة البيانات الدليل WinNT:// .

الجدير بالذكر أنه يوجد أكثر من دليل لقراءة البيانات؛ لكن ليس هذا مكان ذكرها.

يتم التصريح عن هذا المكون بالطريقة التالية؛ وهو هنا اختياري

Dim usr As IADsUser

وسوف تكون طريقة الإسناد على النحو التالي:

Set usr=GetObject("WinNT://{USER DOMAIN}/{USER NAME},User)

الدليل WinNT:// يتطلب معرف لدليل البيانات؛ وهو هنا "User"، وهو الذي تم التصريح عنه في عبارة التصريح أعلاه. كما أنه يتطلب تمرير اسم المجال واسم المستخدم تحديد البيانات المطلوب قراءتها. سيكون استخدامها في الوظيفة على النحو التالي:

Function xUserFullName() 
Dim usr As IADsUser
Set usr = GetObject("WinNT://Home/AlGhamdi ",user")
XUserFullName = usr.FullName
End Function

سوف أنهي الجلسة الآن، وسوف أكمل في الجلسة التالية بمشيئة الله

مشكور استاذي وخبيرنا القحم

مثال جميل وفكره جميلة

وبتساهم في تاسيس طريقة جديدة لحماية برامجنا عن طريق الويندوس

واتمنا عليك شرح كيفية الاستفادة من المثال برنامجنا العادي

جزاك الله خير ورحم والديك

+ 1

شكلي كتبت قبل ما اشوف المشاركة الاخيرة

بارك الله فيك أخي القحم ، وجزاك الله كل خير ،

كلنا آذان صاغية

شرح رائع ، أسلوب بسيط ومحترف +

جزاك الله كل خير

اخى بارك الله فيك

شرح رائع و باسلوب بسيط و واضح

جعله الله فى ميزان حسناتك

السلام عليكم

بداية أو أن أشكر كل من أجزل عبارة شكر أو ثناء على هذه المشاركة أو كاتبها، وأسل الله لي ولهم التوفيق والسداد... آمين.

تضمن المثال وحدتين نمطيتين؛ الأولى تضمنت وظائف لقراءة بيانات مستخدم ويندوز، والثانية تضمنت إجراءات تطبيق مكونات قاعدة البيانات.

الجدير بالذكر هنا أن المصادقة مبنية على مجموعات المستخدمين لويندوز! وفي الوحدة النمطية Authentication يقوم SetUserPermission بقراءة المجموعات التي يتبع لها المستخدم، ومن ثم يتم تمريرها إلى العبارة Select Case من أجل مطابقتها مع الشروط المحددة في مفرداتها، فإذا تطابق الشرط مع أي من مجموعات المستخدم فسيتم تنفيذ الإجرات SetStatus. هذا الإجراء وظيفته تحديد صلاحية المستخدم في التعامل مع السجلات (إضافة، تعديل، حذف)، وقد تم تطبيق الشروط على المجموعات الافتراضية في ويندوز؛ وإلا بالإمكان إضافة مجموعات إضافية تناسب الصلاحيات المطلوب إعاطاءها لكل مستخدم، ومن ثم إضافة المستخدمين إلى تلك المجموعات.

إذا أرت تطبق هذه النمط من الصلاحية على أي قاعدة بيانات قم بعمل التالي:

- قم بإضافة مستخدمين جدد إلى ويندوز.. ولعمل ذلك افتح مربع حوار إدارة بالطريقة التي سبق ذكراها في الجلسة السابقة

- ثم انقر بالزر الأيمن على مجلد المستخدمين، ثم انقر على مستخدم جديد من في رأس القائمة المنسدلة

- ثم قم بتعبئة مربع الحوار (يفضل كتابة اسم المستخدم بالأحرف اللاتينية).. اقترح أن يكون اسم المستخدم هو رقم الوظيفة مبدوء بحرف.

- كرر هذه الخطوات لجميع المستخدمين.. بواقع مستخدم واحد لكل نوع من الصلاحيات.

- قم بإضافة مجموعات المستخدمين حسب أنواع الصلاحيات الممنوحة.. ولعمل ذلك انقر بالزر على مجلد المجموعات، ثم مجموعة جديد..

- اكتب اسما مميزا لمجموعة المستخدمين.. أقترح أن تبدأ اسم المجموعة بحروف مختصرة لاسم قاعدة البيانات.. إذا كنت ستكتب اسما غير مفهوم فيتوجب عليك إضافة وصف واضح للمجموعة.

- ثم قم بإضافة المستخدمين.. ولإضافة المستخدمين؛ انقر فوق زر إضافة ثم اكتب اسم المستخدم.. إذا لم تكن متأكد من اسم المستخدم.. انقر فوق متقدم ثم زر البحث الآن.. اختر من القائمة اسم المستخدم (يمكن اختيار أكثر من مستخدم) ثم موافق

- الآن قم بتغيير أسماء المجموعات في الإجراء SetUserPermission لتعكس المجموعات التي أضافتها..ثم أضف الإجراء SetStatus بعد كل عبارة من عبارات Select Case .. قم بتغيير خصائص التعامل مع السجلات حسب متطلبات الصلاحية الممنوحة لكل مجموعة.

** فائدة

يمكن أن تنشئ نموذج إقلاع رئيسي لكل مجموعة من مجموعات المستخدمين.. بحيث يقوم أكسس بفحص بيانات المستخدم ومن ثم يقوم بفتح النموذج الرئيسي المناسب لمجموعته ولعمل ذلك..

- قم بإنشاء وظيفة (وليس إجراء) وسمها ما شئت.. أقترح StartUp ومن ثم قم بإنشاء مكون يقوم بفحص مجموعات المستخدمين بناء على اسم المستخدم ــــ يجب أن تكون الوظيفة XUsername متوفرة لديك ـــ

- قم بالبحث داخل مجموعات المستخدمين عن طريق عبارة For … Each

- قم بنشاء عبارة Select Case داخل العبارة Forلفحص المجموعة التي ينتمي إليها المستخدم فإذا تمت المطابقة تقوم العبارة Docmd.OpenForm بفتح النموذج... الشفرة التالية للتوضيح

Function StartUp()
Dim usr As IADsUser
Set usr = GetObject("WinNT://./" & XUserName & ",user")
For Each grp In usr.Groups
    Select Case grp.Name
        Case "Administrators"
            DoCmd.OpenForm "Admins"
    Case "Users"
            DoCmd.OpenForm "Users"
    End Select
Next
End Function

- قم بإنشاء وحدة مايكرو وسمها Autoexec (التسمية إجبارية)

- في قائمة الإجراء اختر RunCod، وفي الأسفل أكتب اسم الوظيفة متبوعا بالأقواس، أو انقر على ... النقاط الثلاث، ثم ابحث على الوظيفة وقم بأدرجها

إليك هذا المثال..

UserInfo4.zip

** تنبيه

يجب أن يكون لديك حسابين على الأقل حساب في مجموعة Administrators، وحساب في مجموعة Users من أجل تطبيق المثال بصورة صحيحة.. وأيضا أن تكون قاعدة البيانات في مجلد المستندات المشتركة على الأقل، أو إنشاء نسخة لكل مستخدم

بهذه الجلسة ينتهي شرح مثال قاعدة البيانات.. أرجو أن تحوز على رضاكم

** للأهمية

سوف أقوم بإرفاق المشروع المشار إليه في الجلسة الثانية في الجلسة التالية إن شاء الله تعالى

ماشاء الله أخي القحم ، بارك الله فيك ، وأدامك ذخرا للمسلمين

جزاك الله خيرا ، بوركت يمينك

إلى الأمام إن شاء الله تعالى

بسم الله الرحمن الرحيم

ما شاء الله

بارك الله فيك اخي الكريم كلنا في انتظار المزيد

hamidymom كتب:

ماشاء الله أخي القحم ، بارك الله فيك ، وأدامك ذخرا للمسلمين

جزاك الله خيرا ، بوركت يمينك

إلى الأمام إن شاء الله تعالى

أشكر على هذا الثناء العطر، وأن يستجيب الله دعاءك

sx1 كتب:

بسم الله الرحمن الرحيم

ما شاء الله

بارك الله فيك اخي الكريم كلنا في انتظار المزيد

شكرا لك.. ولن تحرم الخير

السلام عليكم

إليكم هذا المشروع الصغير كمثال يمكن تطبيق ما سبق عليه: LogBook1.zip

صورة توضيحية

أرجو أن يكون بمقدوركم فهم طريقة عمل هذا المثال...

- اعتمد كثير على الواجهة الوحيدة في تصميمي لقواعد البيانات. قد يكون عيبا في الاسلوب، وقد يعجب آخرين!

- أميل إلى تجميع الشفرة دائما.. خاصة إذا كانت ستكرر اكثر من مرة.. وهذا كسابقه!

- اعتمدت في منح الصلاحية على الجدول Permit .. عن طريق نوع الصلاحية

- عند إقلاع قاعدة البيانات تقوم الشفرة بتفحص اسم المستخدم ومطابقته مع بينات الجدول؛ فإذا لم يكن تطابق؛ تقوم الشفرة بتسجيل بيانات المستخدم وإعطاءه صلاحية تصفح (1)

- يتوجب عليك تغيير هذه القيمة إلى (2) من أجل رؤية المفاتيح المخفية

- أيضا يتوجب عليك تغيير اسم الصورة alghamdi إلى اسم المستخدم لتظهر في موقعها في الجانب الأيمن من بيانات المستخدم

** هذا كل شيء الآن.. أتمنى لكم التوفيق

مشكور استاذي القحم على المثال الجميل

بصراحة فكرة التجميع جميل

وهل تسمح لي استخدام واجه مشابه للواجه هذه للبرامج التي انشئها

وجزاك الله الف خير على ورحم والديك ونفع بعملك وعملك المسلمين

مشارف كتب:

مشكور استاذي القحم على المثال الجميل

بصراحة فكرة التجميع جميل

وهل تسمح لي استخدام واجه مشابه للواجه هذه للبرامج التي انشئها

وجزاك الله الف خير على ورحم والديك ونفع بعملك وعملك المسلمين

هذا خلق نبيل مشارف.. أنا لنا بمثله... لك ماطلبت ياموفق

استاذي القحم اسمح لي على هذا السؤال اذا ما كان فيه كلافة

حاولت احط الموحدة النبطية الخاصة باخفاء بخلفية الاكسيس الموجودة في المنتدى والمعروفة باسم api_ShowWindow

وتختفي شاشة الاكسيس لكن عند التنقل بين النماذج مثلا الوارد او الصادر تظهر النافذه مره اخرى هل لانه كل نموذج يعتبر مستقل لحالة

لقد لاحظة في المثال المرفق انه يوجد استدعاء لوحدة من اسمها يظهر انها خاصة باخفاء شاشة الاكسيس لكنها غير موجوده في المثال

واسمح لي استاذي على السؤال

أهلا مشارف

اقتباس

لقد لاحظة في المثال المرفق انه يوجد استدعاء لوحدة من اسمها يظهر انها خاصة باخفاء شاشة الاكسيس لكنها غير موجوده في المثال

نعم لقد قمت بتغير اسم الوظيفة في الوحدة النمطية APIFunctions ولم أجر التعديل على النموذج الرئيسي Main. آسف لهذا الخطاء وأرجو المعذرة

لحل هذه المشكلة قم بحذف استدعاء الوظيفة HideApplicationScreen واستبداله بالإجراء ShowAppWindow(vbHide)

Private Sub Form_Open(Cancel As Integer)
Call ShowAppWindow(vbHide)
End Sub

يمكن الرجوع إلى الوحدة النمطية APIFunctions لمعرفة كيف تم بناء الإجراء المتعلق بوظيفة إخفاء التطبيق

صورة للتوضيح

صديقنا .. لا .. بل أخونا القديم المتجدد : الاستاذ القحم

لافض فوك ولا شلت يمينك شكرا لك على هذه

الدرر وفقك الله .. جزاك الله خيرا

مشكور استاذي القحم

فعلا كود خفيف لاخفاء شاشة الاكسيس بطريقة جميلة

الفكرة كلها جميل لكن اكثر ما عجبني فكرة التحكم بالصلاحيات عن طريقة الويندوس

وطريقة النماذج حيث انها تشبه طريقة عمل البرامج الكبيرة مثل برامج النورتون وبرامج وغيرها لشركات كبيرة حيث اغلبها يعتمد على نموذج رئيسي

ويكون التبديل من داخله

والحمدالله حصل لي فرصه لرأية مثال مشابة وطريقة عمله واعتقد انها افضل من ناحية عدم تشتيت المستخدم في التنقل بين النماذج

جزاك الله خير ورحم والديك

اكسيرالحياة كتب:

صديقنا .. لا .. بل أخونا القديم المتجدد : الاستاذ القحم

لافض فوك ولا شلت يمينك شكرا لك على هذه

الدرر وفقك الله .. جزاك الله خيرا

أهل بك أستاذ أكسير..

أشكر لك ثناءك ودعاك

ولا حرمنا الله إرشادك ومشورتك

أهلا مشارف

اقتباس

الفكرة كلها جميل لكن اكثر ما عجبني فكرة التحكم بالصلاحيات عن طريقة الويندوس

أرجو أن أكون أضفت شيئا جديدا ومفيدا..

اقتباس

والحمدالله حصل لي فرصه لرأية مثال مشابة وطريقة عمله واعتقد انها افضل من ناحية عدم تشتيت المستخدم في التنقل بين النماذج

الحمد لله أولا وآخرا

اقتباس

جزاك الله خير ورحم والديك

آمين... ولك بمثله

السلام عليكم ورحمة الله وبركاته

كلما عاودت الزيارة لهذا المنتدى بعد طول إنقطاع أتفاجأ بمشاركات رائعة! وأعضاء أشد روعة...

أشكرك أخي القحم و أسأل الله أن يكون ماقدمت من العلم النافع الذي ينفعك الله به في دنياك وأخراك...

أجمل تحياتي للجميع.

المزيني كتب:

السلام عليكم ورحمة الله وبركاته

كلما عاودت الزيارة لهذا المنتدى بعد طول إنقطاع أتفاجأ بمشاركات رائعة! وأعضاء أشد روعة...

أشكرك أخي القحم و أسأل الله أن يكون ماقدمت من العلم النافع الذي ينفعك الله به في دنياك وأخراك...

أجمل تحياتي للجميع.

وعلكيم السلام ورحمة الله وبركاته يالمزيني

وجودك في هذه المشاركة إنجاز لي بحد ذاته...

وصدقني أضافت مشاركتك نكهة عتيقة.. أظنها عبقت من جديد...

سعيد جدا بمرورك وثناءك..

السلام عليكم

الخبير المزيني هو أحد ثلة قليلة من الأولين الذين قام منتدى أكسس على جهودهم المباركة.. مرورهم على هذا المنتدي يذكر بتلك الأيام ويثير المشاعر.. أعذروني أن بدأت هذه المشاركة بهذه الكلمات..

أسأل الله العلي القدير أن يبارك في أعماهم وأعمالهم، وأن يجعلهم قدوة لغيرهم في البذل والعطاء.. آمين

أريد أن أنهي هذا المشروع: وعليه هل بقي علي شيء لم أذكره، أو يريد أحد السؤال عنه؟

مارأيكم أن أبادر أنا بالسؤال...

ماذا لو أردنا إدارة حسابات ويندوز من داخل أكسس؟.. هل بالإمكان إنشاء قاعدة بيانات تقوم بتجميع بيانات حسابات مستخدمي ويندوز ومعالجتها ومن ثم إعاتها إلى ويندوز؟.. هل بالإمكان إضافة مستخدمين جدد لويندوز من داخل قاعدة بيانات أكسس؟

هل تريد إجابة على هذا السؤال؟....

السلام عليكم

أخي القحم الله يعطيك العافية على هذه الطريقة الجديدة والمبتكره للإستفادة من نظام التشغيل ومشاركة أكثر من رائعة.

تقبل تحياتي