الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف امنع المستخدم من الدخول في قائمة معين

مغلق
بدأه الفجر المنسي في 29 يناير 2007 · 3 رد · 579 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخواني عندي سؤال و اتمنى ان تساعدوني...

عندي شاشه دخول فيه زر دخول عند الضغط عليه تظهر فورم فيها قوائم

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

اريد ان امنع المستخدم العادي من الدخول الى قائمه الاداره

يعني ابغي اضع رقم سري على قائمة الاداره

كيف اعملها ؟؟

او اني اعمل في شاشه الدخول كمبو بوكس يختار فيها انه موظف او مدير

اذا اختار مدير و وضع رقم سري فيقدر يدخل على كل القوائم

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

تحياتي:

اختكم الفجر المنسي

#2

لتفعيل أو إلغاء تفعيل بند في القائمة يمكن عمل ذلك مثل أي تحكم

		Me.OpenToolStripMenuItem.Enabled = False

		Me.OpenToolStripMenuItem.Enabled = True

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

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#3

أخي

يمكنك إضافة كود على كل زر لطلب كلمة سر قبل الفتح كالتالي مع مراعاة تغيير كلمة السر لكل زر

Private Sub Command0_Click()
y = InputBox("Enter password", Authentication, 1)
Select Case y
Case "xyz"
DoCmd.OpenForm "Doctor form"
case else
msgbox "أنت غير مصرح لك بدخول هذه المنطقة أو كلمة مرور خاطئه"
End Select
End Sub
#4

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

تم تعديل هذه المشاركة بواسطة ahmedd في 2 فبراير 2007 في 03:59

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…