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

بارك الله فيك وجزاك الله خير 

ونحن بانتظار ابداعاتك على احر من الجمر

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

بسم الله الرحمن الرحيم وبه نستعين وعليه نتوكل وهوخير متوكل ومعين وصل الله على رسوله محمد وعلى آله الطيبين الطاهرين وعلى أصحابه الأخيار الخلص المنتجبين.

أما بعد....

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

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

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

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

أنا بانتظاركم إخواني.......

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

تصميم البرنامج:

- جدول المستخدمين UsersT

- واجهة المستخدم Login

- إنشاء ثمانية نماذج نسميها Form1 to Form8

- الواجهة الرئيسية Interface

1- جدول المستخدمين:

نضع بداخله الحقول التالية:

- ID (الرقم ويجب أن يكون ترقيم تلقائي)

- UserName (إسم المستخدم ويجب أن يكون نص)

- Password (كلمة السر ويجب أن تكون نص)

- Description (نوع المستخدم ويجب أن يكون خانة إختيار)

- Form1 (نموذج1 ويجب أن يكون خانة إختيار)

- Form2 (نموذج2 ويجب أن يكون خانة إختيار)

- Form3 (نموذج3 ويجب أن يكون خانة إختيار)

- Form4 (نموذج4 ويجب أن يكون خانة إختيار)

- Form5 (نموذج5 ويجب أن يكون خانة إختيار)

- Form6 (نموذج6 ويجب أن يكون خانة إختيار)

- Form7 (نموذج7 ويجب أن يكون خانة إختيار)

- Form8 (نموذج8 ويجب أن يكون خانة إختيار)

- Add (إضافة ويجب أن يكون خانة إختيار)

- Edit (تعديل ويجب أن يكون خانة إختيار)

- Delete (حذف ويجب أن يكون خانة إختيار)

وهذا الصورة التي سأرفقها ستوضح ما ذكرناه أعلاه

جدول المستخدمين

بارك الله بك اخي الكريم  : خضر

متابعين معاك الموضوع  

الله يعينك ويوفقك لما فيه الخير

هناك ملاحظة : لماذا لا يوجد خانة اختنيار اضافية  وهي للعرض  View ( سواء لعرض النموذج المطلوب من عدمه اسوة بخانة الإضافة والتعديل والحذف )

بالتوفيق

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

أما بالنسبة للملاحظة فقد وضعت النماذج الثمانية محل ال View.

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

وفقك الله ورعاك

ويسر لك امرك

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

إخواني الأعزاء، السلام عليكم ورحمة الله وبركاته .

المشاركة الثانية:

- إنشاء ثمانية نماذج ونسميها على الشكل التالي:

- Form1

- Form2

- Form3

- Form4

- Form5

- Form6

- Form7

- Form8

ثم نضع في كل Form ثلاثة أوامر وهي:

- Add (إضافة) نسميها في تبويب (غير ذلك) في ورقة الخصائص (cmdAdd)

- Edit (تعديل) نسميها في تبويب (غير ذلك) في ورقة الخصائص (cmdEdit)

- Delete (حذف) نسميها في تبويب (غير ذلك) في ورقة الخصائص (cmdDelete)

ثم ننشئ أيضا في كل فورم 3 خانات إختيار (CheckBox) التالية:

- التسمية 1 : Add نسميها في تبويب (غير ذلك) في ورقة الخصائص (chkAdd)

- التسيمة 2 : Edit نسميها في تبويب (غير ذلك) في ورقة الخصائص (chkEdit)

- التسمية 3 : Delete نسميها في تبويب (غير ذلك) في ورقة الخصائص (chkDelete)

طبعا أقصد بالتسمية 1,2,3  الـ Label لخانة الإختيار.

وهذه صورة مرفقة توضح لكم ما أشرت إليه أعلاه:

هذه صورة عن تصميم أحد النماذج

المشاركة الثالثة:

قم بإنشاء نموذج جديد بعنوان InterFace (الواجهة الرئيسية) وضع فيه ثمانية أزرار وسمها:

الزر الأول : Form1 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command1)

الزر الثاني : Form2 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command2)

الزر الثالث : Form3 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command3)

الزر الرابع : Form4 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command4)

الزر الخامس : Form5 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command5)

الزر السادس :Form6 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command6)

الزر السابع : Form7 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command7)

الزر الثامن : Form8 وفي تبويب (غير ذلك) في ورقة الخصائص قم بتسميته (Command8)

بعد ذلك قم بإنشاء مربعي نص:

مربع النص الأول : التسمية : User والإسم: txtUser

مربع التص الثاني : التسمية : Description والإسم : txtDesc

ثم قم بإنشاء 8 خانات إختيار:

خانة الإختيار الأولى : التسمية : Form1 والإسم : chkForm1

خانة الإختيار الثانية: التسمية : Form2 والإسم :chkForm2

خانة الإختيار الثالثة: التسمية : Form3 والإسم : chkForm3

خانة الإختيار الرابعة: التسمية : Form4 والإسم : chkForm4

خانة الإختيار الخامسة: التسمية : Form5 والإسم : chkForm5

خانة الإختيار السادسة: التسمية : Form6 والإسم : chkForm6

خانة الإختيار السابعة: التسمية : Form7 والإسم : chkForm7

خانة الإختيار الثامنة: التسمية : Form8 والإسم : chkForm8

وهكذا نكون قد انتهينا من تصميم الواجهة الرئيسية (InterFace)

سأرفق لكم صورة لتوضيح المشهد

هذه صورة الواجهة الرئيسية 

منتظرينك يا برنس

ربنا يسدد خطاك

تم عمل المطلوب ومنتظرين باقي الدرس

جزاك الله خير

متابع ..

احببت ان ارفق الخطوات السابق شرحها من اخي خضير

حتي اوفر علي الاعضاء متابعي المشاركة الجدد عناء التجهيز

وسنتابع الجديد والي الامام

نموذج صلاحيات.rar

اخوكم ----------- محمود المصري

فكرة جميلة وعمل اجمل 

سلامي لك اخ خضر والى جميع الاعضاء

مثل هكذا موضوع يكون فيه ثراء بالعلم لجميع الاعضاء 

وتقديم الملاحظات والاراء والاسئلة والمتابعة هي احسن وسيلة للتفاعل

متابعة جميلة من الاخت زهرة

متابعة جميلة من الاخ محمود المصري

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

إخواني المشرفين على هذا المنتدى القيم، الإخوة الأعضاء المهتمين والمبدعين،

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

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

المشاركة الثالثة:

تصميم واجهة المستخدم Login:

أحسنت أخي العزيز محمود المصري فقد اطلعت على مرفقك،

شكرا على اهتمامك.

بعد أن انتهينا من تصميم المشروع، سنبدأ أولا في وضع أكواد الـ VBA في نموذج Login وهو واجهة المستخدم.

نضع في تبويب بعد التحديث لمربع النص txtUser الكود التالي:

الخطوة الأولى

الخطوة الثانية

الخطوة الثالثة

الخطوة الثانية في نفس النموذج InterFace واجهة المستخدم سنحدد أيضا الإجراء التالي:

نضع الكود التالي في تبويب عند الضغط OnClick لزر الأمر cmdYes:

On Error Resume Next
If IsNull(Me.txtUser.Value) Then
MsgBox "Please insert UserName", vbCritical, "Caution"
Exit Sub
End If

If IsNull(Me.txtPass.Value) Then
MsgBox "Please insert Password", vbCritical, "Caution"
Exit Sub
End If

If IsNull(Me.txtUser.Value) And IsNull(Me.txtPass.Value) Then
MsgBox "Please insert UserName and Password", vbCritical, "Caution"
Exit Sub
End If

If Me.txtPass.Value = DLookup("Password", "UsersT", "UserName = '" & Me.txtUser.Value & "'") Then
ID = Me.txtUser
DoCmd.OpenForm "Interface"
Exit Sub
End If

Value1 = Me.txtUser
Dim i
i = DLookup("UserName", "UsersT", "Password = '" & Me.txtPass & "'")
If Not (IsNull(i)) Then
MsgBox "The userName is wrong", vbCritical, "Caution"
Me.txtUser.BackColor = RGB(217, 181, 189)
Exit Sub
End If

Value2 = Me.txtPass
Dim m
m = DLookup("Password", "UsersT", "UserName = '" & Me.txtUser & "'")
If Not (IsNull(m)) Then
MsgBox "The Password is wrong", vbCritical, "Caution"
Me.txtPass.BackColor = RGB(217, 181, 189)
Exit Sub
End If

Value3 = Me.txtUser
Value4 = Me.txtPass
Dim x
Dim y

x = DLookup("UserName", "UsersT", "Password = '" & Me.txtPass & "'") And y = DLookup("Password", "UsersT", "UserName = '" & Me.txtUser & "'")
If Not (IsNull(x And y)) Then
MsgBox "The UserName and Password are wrong"
Exit Sub
End If

End Sub

وهذه الصور ستوضح المشهد

وبهذا نكون قد انتهينا من تحديد الإجراءات لواجهة المستخدم

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

المشاركة الرابعة:

تنفيذ جملة من الإجراءات في الواجهة الرئيسية InterFace:

نضع الكود التالي في تبويب البيانات / مصدر عنصر التحكم لمربع النص txtUser:

=[Forms]![Login]![txtUser]

ونضع أيضا في مربع النص txtDesc:

=[Forms]![Login]![txtDesc]

قد يسأل البعض من أين جئت بهذا التعبير؟

الجواب على السؤال:

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

أرجو أن أكون قد أوصلت الفكرة.

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

سأضع جملة من الصور لتوضيح المشهد

النموذج المرجع في منشئ التعبير لمربعات النصوص وخانات الإختيار.

الخطوة الأولى

الخطوة الثانية

الخطوة الثالثة

الخطوة

أتمنى أن أكون قد أوصلت الفكرة، وأي إستفسار فأنا بالخدمة إن شاء الله

بالتوفيق

Khodor1985 كتب:

 

بعد أن انتهينا من تصميم المشروع، سنبدأ أولا في وضع أكواد الـ VBA في نموذج Login وهو واجهة المستخدم.

نضع في تبويب بعد التحديث لمربع النص txtUser الكود التالي:

On Error Resume Next
txtDesc = DLookup("Description", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm1 = DLookup("Form1", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm2 = DLookup("Form2", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm3 = DLookup("Form3", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm4 = DLookup("Form4", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm5 = DLookup("Form5", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm6 = DLookup("Form6", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm7 = DLookup("Form7", "UsersT", "UserName = '" & Me.txtUser & "'")
chkForm8 = DLookup("Form8", "UsersT", "UserName = '" & Me.txtUser & "'")
chkAdd = DLookup("Add", "UsersT", "UserName = '" & Me.txtUser & "'")
chkEdit = DLookup("Edit", "UsersT", "UserName = '" & Me.txtUser & "'")
chkDelete = DLookup("Delete", "UsersT", "UserName = '" & Me.txtUser & "'")

لاحظ أننا استخدمنا في هذا الكود الدالة DLookup والهدف منها هو استرجاع القيم الموجودة في جدول UsersT من خلال مربع النص txtUser

وهذا شرح صوري يوضح المشهد بصورة أفضل:

1.jpg الخطوة الأولى

2.jpg الخطوة الثانية

3.jpg الخطوة الثالثة

بالتوفيق

 

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

مرفق اخر خطوة وقفنا عليها

يتابع

نموذج صلاحيات2.rar

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

بعد أن قمنا بتحديد الإجراءات لمربعات النصوص وخانات الإختيار في نموذج الواجهة الرئيسية InterFace، سنضع الإجراء الأخير في هذه الواجهة هو على الشكل الآتي:

نضع في تبويب الحدث / في الحالي OnCurrent للنموذج الكود التالي وهو:

If Me.chkForm1.Value = False Then
Me.Command0.Enabled = False

End If
If Me.chkForm2.Value = False Then
Me.Command1.Enabled = False
End If

If Me.chkForm3.Value = False Then
Me.Command2.Enabled = False
End If

If Me.chkForm4.Value = False Then
Me.Command3.Enabled = False
End If

If Me.chkForm5.Value = False Then
Me.Command4.Enabled = False
End If

If Me.chkForm6.Value = False Then
Me.Command5.Enabled = False
End If

If Me.chkForm7.Value = False Then
Me.Command6.Enabled = False
End If

If Me.chkForm8.Value = False Then
Me.Command7.Enabled = False
End If

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

وسنأتي على ذلك بعد تطبيق الإخوة الكرام لهذه المشاركة.

وهذه صورة توضح المشهد

بالتوفيق

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

يقول الرجل العادل : "ليس العلم بالتعلم إنما العالم نور يقذفه الله في قلب من يشاء من عباده الصالحين".

ويقول أيضا: "العلم يزكو على الإنفاق".

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

المشاركة الخامسة والأخيرة:

سنضع جملة من الإجراءات في أحد النماذج الثمانية وهو Form1 ثم نسحب نفس الإجراءات على كافة النماذج المتبقية:

طبعا هذه الإجراءات تستهدف 3 خانات إختيار وهي:

خانة الإختيار الأولى نضع فيها التعبير التالي في منشئ التعبير:

=[Forms]![Login]![chkAdd]

خانة الإختيار الثانية chkEdit نضع فيعا التعبير التالي:

=[Forms]![Login]![chkEdit]

خانة الإختيار الثالثة chkDelete نضع فيها التعبير التالي:

=[Forms]![Login]![chkDelete]

ثم نضع في تبويب الحدث / في الحالي onCurrent الكود التالي:

On Error Resume Next
If Me.chkAdd.Value = False Then
Me.cmdAdd.Enabled = False
End If

If Me.chkEdit.Value = False Then
Me.cmdEdit.Enabled = False
End If

If Me.chkDelete.Value = False Then
Me.cmdDelete.Enabled = False
End If
End Sub

وبهذا نكون قد انتهينا من تصميم البرنامج وتحديد الإجراءات والتعابير له.

تبصرة: 

جدول التحكم في صلاحيات المستخدمين هو UsersT.

بالتوفيق إخواني الأعزاء، ولا تنسونا من الدعاء.