تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
شاشه login
#1
لسلام عليكم
اريد تصميم شاشه 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
الرد
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم