منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عمل صلاحيات مستخدمين للبرنامج(((فيجوال بيسك 6)))) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : عمل صلاحيات مستخدمين للبرنامج(((فيجوال بيسك 6)))) (/showthread.php?tid=4293)



عمل صلاحيات مستخدمين للبرنامج(((فيجوال بيسك 6)))) - سانسيفا - 21-09-12

PHP كود :
Dim SS As String
SS 
InputBox("أدخل الرقم السري""التحقق من الدخول")
Select Case SS

Case "123456"
MsgBox "تمتلك صلاحيات المسؤول"
'اكتب الكود الذي تريد هنا لصلاحيات المسؤول

Case "1122"
MsgBox "تمتلك صلاحيات مستخدم عادي"
'
اكتب الكود الذي تريد هنا لصلاحيات المستخدم العادي

Case Else
MsgBox "لا يحق لك الدخول"
'هنا اذا تم ادخال رقم سري غير معروف أو لم يتم ادخال رمز سري
End
End Select 


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

قم بالتعديل عليه حسب رغبتك