تعدد المسخدمين وكلمات المرور لدخول قاعدة بيانات واحدة

مرحبا

لقد نسيت ارفاق الملف

وها هو المف المرفق رجاء المشاهدة والافادة

ولكم جزيل الشكر وكل عام وانتم بخير

MultiPass.rar

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

أخى الكريم

جرب الملف المرفق

أضطررت إلى إنشاء جدول Schools للتجريب

MultiPass.rar

مرحبا

بارك الله فيك اخي العمري بن

لقد قمت بتحميل الملف ولا اعرف ما هي فائدة الجدول الثاني school

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

بمعني انه لا يكمل باقي البيانات في الصفحة الثانية

رجاء هناك مثال في شرحي للموضوع

وبارك الله فيك وان شاء الله الملف الثاني يكون فيه المطلوب

:rolleyes:

الجدول Schools هو الجدول المرتبط به الإطار الثانى حتى يفتح على الإطار الأول على بيانات معينة

حتى يفتح على البيانات

عذراُ بالفعل هناك خطأ فى البرنامج والملف المرفق فيه تصحيح لهذا الخطأ

لكن يبدو أن تحليلى للبرنامج كان خطأ

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

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

سأحاول أن أحل المشكلة على هذا الوضع

لكن تبقى المشكلة التى يجب أن تتذكرها أن الإطار FrmMainForm فى الملف المرفق مرتبط مع الجدول Schools الغير موجود فى الملف المرفق

MultiPass.rar

الملف المرفق مبنى على القاعدة الأصلية بدون إضافة جدول Schools لكن تم تغيير مصدر بيانات الإطار FrmMainForm إلى الجدول Pass

MultiPass.rar

أخي العمري بن

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

سؤالي

اذا تم بالفعل العمل بالشكل الذي رايته في داخل البرنامج الاصلي كيف لي ان تكون جميع هذه اليوزر وهي قليلية طبعا بالملف لانه هااي عبارة عن sample , ولكني ساضع مئا ت المدارس لتكون اسماء وكلمات مرور

المقصد

ان تكون هذه المئات عبارة عن مستخدم محدود وانا انا admin

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

لقد قرات عن هذا الموضوع وهناك عدة امثله بامنتدى وفعلتها ولكنى غير مقتنع بالطريقة التي وجدتها

الرجاء الافادة وبارك الله فيك

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

أخى الكريم

عذراً فهناك خطأ فى الكود المرفق فى أخر ملف يؤدى إلى فتح النموذج FrmMainForm لو كان الإدخال خطأ ولكن بدون عرض بيانات وقد أصلحته فى الملف المرفق الأول (عسى أن تكون أخطائى فى هذه المرة أقل من السابقة إن شاء الله)

بالنسبة للموضع الثانى فما فهمته أنك تريد أسم وكلمة مرور عامة لفتح أى مدرسة هناك حلول كثيرة بالطبع ولكن إليك هذا الحل فى الملف الثانى

وهى أن تدخل أسم "سعيد" وكلمة مرور "رمضان" فتظهر قائمة المدارس أنقر على اسم أحدها نقراً مزوجاً فيفتح النموذج FrmMainForm عليها

وهو يعتمد على ثلاث مراحل –ما بين الأقواس من أسماء هى أسماء مقترحة أكتب الأسماء التى تريد-

الأولى :

إنشاء وحدة نمطية وتعريف متغير فيها (الوحدة باسم Inernal_code والمتغير باسم Xopen)

الثانية :

إنشاء نموذج جدولى من الجدول Pass (باسم Mypass )

جعل كل عناصر النموذج مؤمنه(عرض التصميم ثم حدد كل العناصر أو كل عنصر على حدى ثم من خصائص الخاصية "مؤمن"-Lock- نعم - )

كتابة الكود التالى للإجراء Load للنموذج

 

Private Sub Form_Load()

If XOpen <> 2 Then DoCmd.Close

End Sub

هذا الكود سيمنع فتح هذا النموذج

والكود التالى للإجراء Unload للنموذج

 

Private Sub Form_Unload(Cancel As Integer)

XOpen = 1

End Sub

والكود التالى للإجراء DblClick للعنصر SchoolName

 

Private Sub SchoolName_DblClick(Cancel As Integer)
Dim stDocName As String, stLinkCriteria As String
stDocName = "FrmMainForm"
	stLinkCriteria = "[SchoolName]=" & "'" & Me![SchoolName] & "'"

 DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, Me.Name
End Sub

سيؤدى هذا الكود إلى فتح النموذج FrmMainForm على المدرسة التى ستنقر عليها نقراً مزوجاً

الثالثة :

فى النموذج frm-UserLogon

أعد كتابة كود زر الدخول ليكون كالتالى

 

Private Sub أمر83_Click()
On Error GoTo Err_أمر83_Click

Dim X As String, Y As String
Dim rst As Recordset, strsql As String, dbs As Database
Set dbs = CurrentDb
X = Me![UserName]
Y = Me![scrol1]
'********************************
If X = "سعيد" And Y = "رمضان" Then
XOpen = 2
DoCmd.OpenForm "mypass"
DoCmd.Close acForm, Me.Name
Exit Sub
End If


'********************************
strsql = " SELECT Pass.*"
strsql = strsql & " FROM Pass"
strsql = strsql & " WHERE (((Pass.UserName)='" & X & "')"
strsql = strsql & " AND ((Pass.Password)='" & Y & "'));"
Set rst = dbs.OpenRecordset(strsql)
	Dim stDocName As String
	Dim stLinkCriteria As String
rst.MoveFirst
	stDocName = "FrmMainForm"
	stLinkCriteria = "[Password]=" & "'" & Me![scrol1] & "'"

   DoCmd.OpenForm stDocName, , , stLinkCriteria
	DoCmd.Close acForm, Me.Name
Exit_أمر83_Click:
	Exit Sub

Err_أمر83_Click:
If err.Number = 3021 Then MsgBox "خطأ فى الإدخال " Else MsgBox err.Description
	Resume Exit_أمر83_Click

End Sub

الكود بين النجوم هو المؤثر فى الموضوع غير فى الأسماء الموجودة ما تريد

بقيت واحدة خارج الموضوع إذا أردت الإنهاء من نموذج frm-UserLogon إلغى علامة الملاحظة الوحيدة فى الإجراء Cansel_Click فى النموذج

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

MultiPass1.rar

MultiPass2.rar

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

اخي العزيز العمري بن

لا اعرف كيف اشكرك على الاهتمام بالموضوع ... الذي طرح

الملفان المرفقان قيد التحميل وان شاء الله ساراهما ويكون هو ما اطمح اليه ولكني حسب اللي فهمته من العمل الذي قمت به ليس بالمطلوب

اعتقد انه انت كمان سوري ما فهمت الموضوع التاني

على كل

ما قصدته هو انه هاي البرنامج عندما اقوم بتوزيعه على المدارس سوف يكون مغلق لعدم اللعب به ...

طبعا مغلق لها اشكال وطرق حمايه كتيرة

وعندما اقوم بزيارة مدرسة معينه ويكون هناك عطل برمجي او تعديل على كود معين او او فاقوم بالدخول بمستخدم اخر غير اسماء المدارس كلها وليكن admin

واستطيع من خلاله الدخول الى الاكواد والجداول والنماذج ووووو

ومن ثم تعديل ما شئت

بمعنى اخر

هناك مستخدمان

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

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

ارجو ان اكون قد اوضحت الفكرة وان لا اكون عبا عليك

واشكرك جزيل الشكر على عملك الذي قمت به من اجل تسيير نقطة عبا في برنامجي

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

أخى الكريم الإضافة التى قمت بهافى الملف السابق تسمح لك بفتح أى مدرسة تريد بدون إسم أو كلمة مرور موجودة فى الجدول

أخى الكريم أحد طرق حماية التطبيق من المتسخدمين الخيارات فى مربع الحوار "بدء التشغيل" (من القائمة أدوات)

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

كما يمكنك تحديد نموذج بدء التشغيل وعنوان التطبيق وشريط القوائم المخصص

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

 

'********************************
If X = "سعيد" And Y = "رمضان" Then
XOpen = 2
'----------------- يعرض نافذة بدء التشغيل
DoCmd.RunCommand acCmdStartupProperties
'--------------
DoCmd.OpenForm "mypass"
DoCmd.Close acForm, Me.Name
Exit Sub
End If

'********************************

بالنسبة للمستخدم Admin الكود السابق حدد المستخدم" سعيد" وكلمة السر "رمضان"

فقط حدد "سعيد" وضع الإسم الذى تريد بدلاً منه وكذلك حدد "رمضان" وضع كلمة السر التى تريد

هل أخطأت أنا مرة أخرى وأنت تريد التحكم فى العمل عن طريق أذونات المستخمدمين ومجموعات العمل أم أن هذا يكفى

مرحبا اخي العمري بن

اسف جدا على التارخير في الرد فلقد كنت مشغوب في بعض الامور

بالنسبة لموضوع الحماية فالطريقة التي ذكرتها بالتاكيد لن تخفى على فهاااي النسخة الثالثة من البرنامج <_< :rolleyes:

ما قصدته هو طريق أذونات المستخدمين ومجموعات العمل

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

Dove كتب:

ما قصدته هو انه هاي البرنامج عندما اقوم بتوزيعه على المدارس سوف يكون مغلق لعدم اللعب به ...

طبعا مغلق لها اشكال وطرق حمايه كتيرة

وعندما اقوم بزيارة مدرسة معينه ويكون هناك عطل برمجي او تعديل على كود معين او او فاقوم بالدخول بمستخدم اخر غير اسماء المدارس كلها وليكن admin

واستطيع من خلاله الدخول الى الاكواد والجداول والنماذج ووووو

ومن ثم تعديل ما شئت

بمعنى اخر

هناك مستخدمان

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

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

ارجو ان اكون قد اوضحت الفكرة وان لا اكون عبا عليك

واشكرك جزيل الشكر على عملك الذي قمت به من اجل تسيير نقطة عبا في برنامجي

نصيحه فقط

اذا كان البرنامج تجاري اي بمقابل مادي فانني انصح بعدم تعديل البرنامج على كمبيوتر الزبون بل يفضل التعديل على كمبيوتر محمول خاص بالمبرمج

ان انزال البرنامج بامتداد mdb على كمبيوتر الزبون لغرض التعديل قد يعرض البرنامج لضياع

البعض قد ينزل البرنامج على كمبيوتر الزبون بصيغة mdb وبعد ما يتعمل التعديل المطلوب على البرنامج يقوم بانشاء ملف mde وحذف الملف mdb وهذا خطاء حيث ان برامج استعادة الملفات المحذوفه كثيره جداً

والطريقة الصحيحه هي

عندما تنزل البرنامج على كمبيوتر الزبون بصيغة mdb وبعد ما يتم التعديل ويتم التحويل الى mde قم بفتح الملف mdb واحذف جميع النماذج والتقارير والوحدات النمطية وغيره بعد ذالك قم بضغط و اصلاح قاعدة البيانات بعدها يمكن حذف هذا الملف

حتى لو تم استعادة الملف لن يجد اي شي في هذا الملف المحذوف

مع ملاحظة ان بعض انظمة الوندوز تحتفظ ببرامج الوافس في مجلد مخفي

هذا فقط لنصيحه

والله اعلم

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

مرحبا اخي طيب

كنت اتمنى ان يكون هذا العمل بمقابل مادي بل هو بدون مقابل لجميع المدارس التابعة لوزارة التربية والتعليم

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

هي هااي الدنيا

بارك الله فيك اخي طيب على النصيحة الغالية

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

Dove كتب:

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

نعم هذا صحيح وبكل اسف

والله الموفق

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

السلام عليكم

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

ولكن خلينا نحكي بالعربي "هي هيك " .

السلام عليكم

ااسف جدا على التاخير في عرض ما بتج عن استخدام الملف والكود الموجود

فالملف المرفق يدخل للبرنامج في اي من الاسمء الموجودة لديه في الجدول المخصص للمستخدمين

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

والمطلوب طبعا ان يحضر رسالة تفيد بان هذا المستخدم غير مسموح له بالدخول مثلا

هذه نقطة

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

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

مرحبا

هناك عدد كبير من القراء ولكن لا يوجد رد على اخر استفسار

رجاء محاولة المساعدة

وبارك الله فيكم