21-12-20, 09:23 PM
لسلام عليكم
اريد تصميم شاشه login
[/url]
كتبت كود لم يعمل
اريد تصميم شاشه login
[/url]
كتبت كود لم يعمل
كود :
Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
If (Txtuser_name.Text.Trim() And Txtuser_password.Text.Trim()) = True Then
Dim db = New db_accountDataContext
Dim xname = (From s In db.user7s Where s.user_name = Txtuser_name.Text And s.user_password = Txtuser_password.Text Select s.user_name).SingleOrDefault
If xname = IsDBNull(Txtuser_name.Text) Then
MsgBox("ادخل بيانات صحيحه", MsgBoxStyle.Information, Application.ProductName)
Return
Else
Form1.Show()
Me.Hide()
End If
End If
End Sub