dx2003 قام بنشر يناير 4, 2008 مشاركة قام بنشر يناير 4, 2008 السلام عليكم عندي برنامج وارعب منع الحذف الا عن طريق رقم السري او اي طريقة رابط هذا التعليق شارك More sharing options...
محب العلم قام بنشر يناير 4, 2008 مشاركة قام بنشر يناير 4, 2008 في حدث قبيل الحذف في النموذج تعطي المستخدم رسالة لإدخال رقم السر فإن كان صحيحا أكملنا وإلا حذفنا رابط هذا التعليق شارك More sharing options...
dx2003 قام بنشر يناير 4, 2008 الكاتب مشاركة قام بنشر يناير 4, 2008 الله يعطيك العافية لكن لو وضعة مثل للفائدة ولك الشكر صراحة ما فهمت رابط هذا التعليق شارك More sharing options...
dx2003 قام بنشر يناير 4, 2008 الكاتب مشاركة قام بنشر يناير 4, 2008 الف شكر ولكن ارغب في شرح اكثر رابط هذا التعليق شارك More sharing options...
أفضل إجابة محب العلم قام بنشر يناير 4, 2008 أفضل إجابة مشاركة قام بنشر يناير 4, 2008 (معدل) حياك الله أخي ، العملية تتم بفحص كلمة السر في حدث عند الحدف (يعني قبيل الحذف) تضع الكود الآتي : كود 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 بواسطه أبا عمر رابط هذا التعليق شارك More sharing options...
أبا عمر قام بنشر أبريل 5, 2014 مشاركة قام بنشر أبريل 5, 2014 يُنقل ..... رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان