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
هل هذا هو المسمى الاجراءات المحزنة؟؟؟؟
وهل استعلمت بالدالة من جدول بقاعدة بيانات نفس الشي؟