[زهرة الازهار]

السلام عليكم
ممكن مساعدة
محتاجة شاشة باسوورد لمشروع تخرج بالدوت نت

[قناص المدينة]

تعتمد على قاعدة بيانات او على فورم

[قناص المدينة]

على اعتبار انه قاعدة بيانات
الحقول
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

[زهرة الازهار]

اخي اني اريد باسورد فقط للبرنامج مااريد لقاعدة البيانات اذا سمحت

[سعود]

كود بسيط باستخدام الـ 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 


او ممكن تستخدم دوال التشفير الجاهزة
ارجو ان اكون قدمت ما تريد

[زهرة الازهار]

مشكور اخي اني ضفت فورم للباسورد وكتبت فيه هذا الكود
بس اريد اظهر فورم الباسورد اول فورم كيف اخلي يظهر اول فورم ثم يدخل للبرنامج

[سعود]

(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 


لحظة اظن المطلوب غير مافهمته
طبعا عن طريق خصائص المشروع

[زهرة الازهار]

مشكور اخي اشتغل
بس ممكن من حضرتك توضحلي هذا الكود
Dim reg As New Regex(str)
Dim ma As Match = reg.Match(TextBox1.Text)
If ma.Success Then

[سعود]

(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

[زهرة الازهار]

مشكور رحم الله والديك