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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 137 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] مساعدة التحقق من الاتصال بالانترنت dubai.eig 3 96 19-05-17, 06:46 PM
آخر رد: dubai.eig
  مساعدة بخصوص تشفير ملف exe OakenShield 1 58 18-05-17, 11:27 AM
آخر رد: OakenShield
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 6 525 16-05-17, 01:12 AM
آخر رد: salah mansour
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 81 11-05-17, 09:56 AM
آخر رد: جميل علي
  مساعدة في البحث في الداتا جريد فيو khaled12345 2 97 10-05-17, 11:17 AM
آخر رد: khaled12345
  مساعدة لسه مبتدئ 1 67 10-05-17, 01:18 AM
آخر رد: محمود بكرى
  مساعدة في ربط برنامج بالسكنر zinab ali 3 82 09-05-17, 10:55 PM
آخر رد: mansoor
  طلب مساعدة محمد بن عطية 0 61 05-05-17, 06:38 PM
آخر رد: محمد بن عطية
  محتاج مساعدة في اكمال الكود bidaya 7 220 04-05-17, 05:14 PM
آخر رد: bidaya

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


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