تقييم الموضوع :
  • 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
مشكور رحم الله والديك
الرد }}}}
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 57 منذ 2 ساعة مضت
آخر رد: أبوبكر سويدان
  ممكن مساعدة توفي العراقي 1 41 اليوم, 12:23 AM
آخر رد: ali.alfoly
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 43 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 59 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 169 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 281 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 70 21-11-16, 11:24 PM
آخر رد: السرور
  مساعدة بخصوص Listbox CLARO 3 78 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 83 16-11-16, 11:58 AM
آخر رد: أبووسم
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 75 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان

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


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