22-11-16, 12:33 PM
22-11-16, 04:14 PM
اخى انشي مربع نص textbox واجعل خاصية passworld =true
نفرض انك لديك جدول 1 به الاسم و الوظيفة والكود وتريد حذف الشخص الذى كوده 10
كل ما عليك ان تضع متغير نسميه passmode مثلا ونضع فيه كلمة السر مثلا 123
قبل الحذف سوف تدخل كلمة السر فى مربع النص ولو مطابقة لقيمة المتغير يقوم بالحذف لو غير مطابقة يلغى العملية
الكود
اخى وضعت جملة الاستعلام فقط للتوضيح ولاكن يلزمك نص اتصال واجراء لتفيذها
نفرض انك لديك جدول 1 به الاسم و الوظيفة والكود وتريد حذف الشخص الذى كوده 10
كل ما عليك ان تضع متغير نسميه passmode مثلا ونضع فيه كلمة السر مثلا 123
قبل الحذف سوف تدخل كلمة السر فى مربع النص ولو مطابقة لقيمة المتغير يقوم بالحذف لو غير مطابقة يلغى العملية
الكود
PHP كود :
الباسورد dim st as string="123"
if textbox1.text=st then
جملة الاستعلام فقط طبعا كمل الاتصال والامر لتفيذها "delete * from table1 where id=10"
else
msgbox("كلمة السر خاطئة")
end if
22-11-16, 09:20 PM
هل تقصد ان قاعدة البيانات بها كلمة سر او كلمة سر خاصة عند عملية الحذف مثل ما موجود في كود اخوي محمود
23-11-16, 12:37 AM
كود :
Dim value As String
value = InputBox("صلاحية خاصة", "الحذف", "ادخل الرقم السري")
If value = "123" Then
BindingSource.RemoveCurrent()
Else
MsgBox("الرقم خطأ", vbOKOnly + vbCritical, "تحذير")
End If
End Subمشاركة
23-11-16, 11:43 AM
(23-11-16, 12:37 AM)hglogtd كتب : [ -> ]كود :
Dim value As String
value = InputBox("صلاحية خاصة", "الحذف", "ادخل الرقم السري")
If value = "123" Then
BindingSource.RemoveCurrent()
Else
MsgBox("الرقم خطأ", vbOKOnly + vbCritical, "تحذير")
End If
End Sub
مشاركة
شكرا جزيلا
23-11-16, 05:21 PM
العفو والبركة في العباقرة اللي في هالمنتدى