تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مساعدة في شاشة باسوورد
#1
السلام عليكم
ممكن مساعدة
محتاجة شاشة باسوورد لمشروع تخرج بالدوت نت
الرد }}}}
تم الشكر بواسطة:
#2
تعتمد على قاعدة بيانات او على فورم
الرد }}}}
تم الشكر بواسطة:
#3
على اعتبار انه قاعدة بيانات
الحقول
user_name
pass_user

الواجهه
في مربعي نص الاول اسمة txt_user
والثاني اسمة txt_pass


كود :
If txt_user.Text = "" Or txt_pass.Text = "" Then


         MsgBox("يرجى ملئ الحقول", MsgBoxStyle.Critical, "لاتوجد بيانات")

         Exit Sub


      End If

      adapt = New OleDbDataAdapter("select * from user_tab  where user_name ='" & txt_user.Text & "'", con)

      adapt.Fill(dts)

    
      If dts.Rows.Count > 0 Then

         If txt_pass.Text = dts.Rows.Item(0).Item("pass_user") Then
          
             اكتب هنا اسم الفورم المراد عرضه
'form1.show
        

            Me.Close()
         Else

            MsgBox("كلمة المرور خاطئة", MsgBoxStyle.Critical, "خروج")
            Exit Sub

         End If


      Else

         MsgBox("هذا الاسم غير موجود", MsgBoxStyle.Critical, "خروج")
         Exit Sub
      End If
الرد }}}}
تم الشكر بواسطة: زهرة الازهار
#4
اخي اني اريد باسورد فقط للبرنامج مااريد لقاعدة البيانات اذا سمحت
الرد }}}}
تم الشكر بواسطة:
#5
كود بسيط باستخدام الـ regex
اولا استدعاء
PHP كود :
Imports System.Text.RegularExpressions 
ضع مربع نص وزر امر وبحدث النقر لزر الامر اكتب:
PHP كود :
Dim str As String "^(makkah-madina-2014-1435)$"
        
Dim reg As New Regex(str)
        
Dim ma As Match reg.Match(TextBox1.Text)
        If 
ma.Success Then
            MsgBox
("أهلا وسهلا بك"MsgBoxStyle.Information"")
        Else
            
MsgBox("خطا في بيانات الدخول"MsgBoxStyle.Critical"")

        
End If 

او ممكن تستخدم دوال التشفير الجاهزة
ارجو ان اكون قدمت ما تريد
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: kslawy , زهرة الازهار
#6
مشكور اخي اني ضفت فورم للباسورد وكتبت فيه هذا الكود
بس اريد اظهر فورم الباسورد اول فورم كيف اخلي يظهر اول فورم ثم يدخل للبرنامج
الرد }}}}
تم الشكر بواسطة:
#7
(18-04-14, 10:59 PM)زهرة الازهار كتب : مشكور اخي اني ضفت فورم للباسورد وكتبت فيه هذا الكود
بس اريد اظهر فورم الباسورد اول فورم كيف اخلي يظهر اول فورم ثم يدخل للبرنامج

بدل مربع الرسالة اكتب كود فتح الفورم المحمي مثلا
PHP كود :
Dim str As String "^(makkah-madina-2014-1435)$"
        
Dim reg As New Regex(str)
        
Dim ma As Match reg.Match(TextBox1.Text)
        If 
ma.Success Then
          form2
.show
me
.hide
      

  
Else
            
MsgBox("خطا في بيانات الدخول"MsgBoxStyle.Critical"")

        
End If 


لحظة اظن المطلوب غير مافهمته
طبعا عن طريق خصائص المشروع
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: زهرة الازهار
#8
مشكور اخي اشتغل
بس ممكن من حضرتك توضحلي هذا الكود
Dim reg As New Regex(str)
Dim ma As Match = reg.Match(TextBox1.Text)
If ma.Success Then
الرد }}}}
تم الشكر بواسطة:
#9
(19-04-14, 12:07 AM)زهرة الازهار كتب : مشكور اخي اشتغل
بس ممكن من حضرتك توضحلي هذا الكود
Dim reg As New Regex(str)
Dim ma As Match = reg.Match(TextBox1.Text)
If ma.Success Then

الرابط هذا هو بدايتي لفهم هذه اللغة


او هذا الكتاب يشرح باسلوب افضل
http://kutub.info/library/book/5647
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: زهرة الازهار
#10
مشكور رحم الله والديك
الرد }}}}
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة في اضافة save & restore trakktour 7 92 منذ 1 ساعه مضت
آخر رد: trakktour
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 186 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  مساعدة فى xml Mohamed20 2 98 02-02-17, 05:40 PM
آخر رد: Mohamed20
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 214 24-01-17, 08:32 PM
آخر رد: gmailali
  [كود] مساعدة في كود keyDown المبرمج العبقري 2 95 23-01-17, 01:49 AM
آخر رد: مساعدة
  [VB.NET] مساعدة في بحث CoderMM 0 74 22-01-17, 06:02 PM
آخر رد: CoderMM
  [VB.NET] اخ مساعدة الرجاء النظر الي هذا موضوع 3asfa~mdmra 5 192 21-01-17, 12:33 AM
آخر رد: 3asfa~mdmra
  [VB.NET] مساعدة حول تحيديث بينات جدول من جدول آخر kassa djeffal 1 81 19-01-17, 09:16 PM
آخر رد: ahmed.nabil
  [VB.NET] مساعدة لنشر موقعي safa 1 97 18-01-17, 11:11 AM
آخر رد: أبو عمر
  مساعدة فى انشاء نظام تسجيل و تسحيل الدخول Mohamed20 2 180 15-01-17, 11:48 PM
آخر رد: Mohamed20

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


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