22-10-12, 07:23 PM
دالة في موديول
وكود ضمن زر امر
هل هذا هو المسمى الاجراءات المحزنة؟؟؟؟
وهل استعلمت بالدالة من جدول بقاعدة بيانات نفس الشي؟
كود :
Function isyes(ByVal us As String, ByVal pass As String) As Boolean
If us = "admin" And pass = "admin2010" Then
Return True
Else
Return False
End If
End Functionوكود ضمن زر امر
كود :
If isyes(TextBox1.Text, TextBox2.Text) Then
MsgBox("welcome here my bb", MsgBoxStyle.Information, "")
Else
MsgBox("ERROR Sorry", MsgBoxStyle.Critical, "")
End Ifهل هذا هو المسمى الاجراءات المحزنة؟؟؟؟
وهل استعلمت بالدالة من جدول بقاعدة بيانات نفس الشي؟
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
