+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] الحذف من قاعدة البيانات بواسطة كلمة سر (/showthread.php?tid=18113)
الحذف من قاعدة البيانات بواسطة كلمة سر - المبرمج العبقري - 22-11-16
السلام عليكم
كنت اريد يا اخواني
كود الحذف من قاعدة البيانات بواسطة كلمة سر
RE: الحذف من قاعدة البيانات بواسطة كلمة سر - محمود بكرى - 22-11-16
اخى انشي مربع نص textbox واجعل خاصية passworld =true
نفرض انك لديك جدول 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
RE: الحذف من قاعدة البيانات بواسطة كلمة سر - السرور - 22-11-16
هل تقصد ان قاعدة البيانات بها كلمة سر او كلمة سر خاصة عند عملية الحذف مثل ما موجود في كود اخوي محمود
RE: الحذف من قاعدة البيانات بواسطة كلمة سر - hglogtd - 23-11-16
كود :
Dim value As String
value = InputBox("صلاحية خاصة", "الحذف", "ادخل الرقم السري")
If value = "123" Then
BindingSource.RemoveCurrent()
Else
MsgBox("الرقم خطأ", vbOKOnly + vbCritical, "تحذير")
End If
End Subمشاركة
RE: الحذف من قاعدة البيانات بواسطة كلمة سر - المبرمج العبقري - 23-11-16
(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
مشاركة
شكرا جزيلا
RE: الحذف من قاعدة البيانات بواسطة كلمة سر - hglogtd - 23-11-16
العفو والبركة في العباقرة اللي في هالمنتدى