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

[dx2003]

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

[محب العلم]

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

[dx2003]

الله يعطيك العافية لكن لو وضعة مثل للفائدة ولك الشكر صراحة ما فهمت

[dx2003]

الف شكر ولكن ارغب في شرح اكثر

[محب العلم]

حياك الله أخي ،

العملية تتم بفحص كلمة السر في حدث عند الحدف (يعني قبيل الحذف) تضع الكود الآتي :

كود

Private Sub Form_Delete(Cancel As Integer)

TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
str_Title = "إدخال كلمة المرور"
str_Prompt = "الرجاء إدخال كلمة مرور"

If InputBox(str_Prompt, str_Title) = "good" Then
Exit Sub
Else
Cancel = True
End If

End Sub

 

لاحظ هنا أننا من خلال صندوق الادخال InputBox ندخل كلمة السر قبل الحذف فإن كانت صحيحة لا نعمل شيء بمعنى exit sub نخرج من الإجراء، وإن كانت خاطئة نلغي عملية الحذف وذلك عن طريق الكود cancel = true حيث cancel كما تلاحظ هي معلمة الحدث .

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

كود

TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
str_Title = "إدخال كلمة المرور"
str_Prompt = "الرجاء إدخال كلمة مرور"

 

إذا أردت حل بسيط جدا بدون النجوم stars (****) التي تظهر مكان كلمة السر يكون الحل هكذا

كود

Private Sub Form_Delete(Cancel As Integer)

If InputBox("إدخال كلمة المرور", "الرجاء إدخال كلمة مرور") = "good" Then
Exit Sub
Else
Cancel = True
End If

End Sub

 

وبإمكانك في هذه الحالة حذف الوحدة النمطية

delete.rar

أنصحك بالحل الكامل وهو الحل الأول



تحياتي لك

تم تعديل أبريل 5, 2014 بواسطه أبا عمر

[أبا عمر]

يُنقل 

.....