تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة: ابراهيم ايبو
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم هل انت متأكد من انك تعمل بتقنية LinQ  ؟
اذا كان كذلك اليك هذا الفنكشن لمقارنة اسم المستحدم وكلمة المرور مع مثيلاتها في جدول ال User
ملحوظة : غير التسميات لتتوافق مع التي اسميتها في مشروعك
  

كود :
' انشئ هذا الفنكشن
   Function ValidateLogin(ByVal username As String, ByVal password As String) As Boolean
       Dim DBcontext As New DBDataContext()
       Dim usr = DBcontext.Users.SingleOrDefault(Function(u) u.UName = username AndAlso u.UPassword = password)
       Return (usr IsNot Nothing)
   End Function

   ' في بوتون الدخول
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If Txt_Uname.Text.Trim <> "" Or Txt_Upassword.Text.Trim <> "" Then
           ' اذا كانت القيمة العائدة من الفنكشن  ترو
           If ValidateLogin(Txt_Uname.Text, Txt_Upassword.Text) = True Then
               Dim frm As New Form1()
               Me.Hide()
               frm.Show()
           Else
               MessageBox.Show("اسم المستخدم او كلمة المرور خاطئة")
               Exit Sub
           End If
       Else
           MessageBox.Show("الرجاء ادخال اسم المستخدم و كلمة المرور ")
       End If

   End Sub

وان كنت تستخدم تقنية Ado.net فعليك تغيير الكود ويفضل وضع  مشروعك (فورم الدخول بشكل مختصر ) ليتم التعديل اومساعدتك من قبل اخوتك في المنتدى
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
#3
عدلت الكود و ظهر exception
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#4
السلام عليكم اخي الكريم
الرسالة تفيد بأن الجدول يحوي على اكثر من سجل باسم المستخدم وكلمة المرور
اي ان في الجدول اكثر من سجل بنفس اسم المستخدم ونفس كلمة المرور 
عد الى الجدول واحذف السجل المكرر 
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: سلام و محبه , اسامه الهرماوي
#5
شكراااااااا

اضفت السطر التالى ليظهر اسم المستخدم فى الفورم الاساس للبرنامج
كود :
MDIParentaccounting.Txtuser_name.Text = Txtuser_name.Text
لكن لم يعمل ما الحل ؟
كود :
Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click

       If Txtuser_name.Text.Trim <> "" Or Txtuser_password.Text.Trim <> "" Then
           ' اذا كانت القيمة العائدة من الفنكشن  ترو
           If ValidateLogin(Txtuser_name.Text, Txtuser_password.Text) = True Then
               Dim frm As New MDIParentaccounting
               frm.Show()
               Me.Hide()
               MDIParentaccounting.Txtuser_name.Text = Txtuser_name.Text

               'MDIParentaccounting.TxtCmb_user_id.Text=

           Else
               MessageBox.Show("اسم المستخدم او كلمة المرور خاطئة", Application.ProductName, MessageBoxButtons.OK)
               Exit Sub
           End If
       Else
           MessageBox.Show("الرجاء ادخال اسم المستخدم و كلمة المرور ", Application.ProductName, MessageBoxButtons.OK)
       End If

   End Sub

حاولت ضغط الملف ب winrar لارفعه على الموقع لم ينضغط
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
السلام عليكم اخي الكريم
عندما تضع اسم المستخدم في فورم تسجيل الدخول ثم تريد اظهار هذا الاسم (اي المستخدم الحالي) في الفورم الرئيسية في label 
اكتب التالي :

كود :
 Dim frm As New MDIParentaccounting()
               frm.Txtuser_name.Text = Me.Txtuser_name.Text
               Me.Hide()
               frm.Show()



نعرف نسخة من الفورم الرئيسية frm

ثم نسند القيمة الموجودة في مربع اسم المستخدم من فورم الدخول الى اللايبل الموجود في الفورم الرئيسية
نخفي فورم الدخول
نظهر الفورم الرئيسية
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
#7
شكرا
اريده ان يبحث عن رقم ال user_id اذا كان اسم ال user_name و الباسوورد صح



كود :
Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click

       If Txtuser_name.Text.Trim <> "" Or Txtuser_password.Text.Trim <> "" Then
           ' اذا كانت القيمة العائدة من الفنكشن  ترو
           If ValidateLogin(Txtuser_name.Text, Txtuser_password.Text) = True Then

               Dim frm As New MDIParentaccounting
               frm.Lbluser_name.Text = Me.Txtuser_name.Text
               'frm.TxtCmb_user_id.Text=
               frm.Show()
               Me.Hide()




           Else
               MessageBox.Show("اسم المستخدم او كلمة المرور خاطئة", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
               Exit Sub
           End If
       Else
           MessageBox.Show("الرجاء ادخال اسم المستخدم و كلمة المرور ", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Question)
       End If
     
   End Sub
فى السطر
كود :
 'frm.TxtCmb_user_id.Text=
الرد
تم الشكر بواسطة:
#8
السلام عليكم ورحمة الله وبركاته
اخي الكريم 
ننشء استعلام بحيث يجلب الاي دي للاسم المدخل في مربع نص اسم المستخدم ونضع الناتج في مربع النص في الفورم الرئيسية قبل اظهارها
فقط تاكد من اسم الجدول في جملة الاستعلام
عدل الاسطر للكود في بوتون الدخول هكذا
كود :
 Dim frm As New MDIParentaccounting
               frm.Lbluser_name.Text = Me.Txtuser_name.Text
               frm.TxtCmb_user_id.Text.Text = DBcontext.User7s.SingleOrDefault(Function(u) u.user_name = Txtuser_name.Text).id
               frm.Show()
               Me.Hide()
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: ابو روضة
#9
يظهر
الرد
تم الشكر بواسطة:
#10
يوجد لديك اكثر من user_name كما تشيرين اليه في الصوره وهو c

لعدم قبول تسجيل مكرر مستقبلا اجعلي العمود user_name بحيث يكون unique من خصائصه
الرد
تم الشكر بواسطة:



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


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