منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

زهرة الازهار

قناص المدينة

قناص المدينة

زهرة الازهار

سعود

زهرة الازهار

سعود

زهرة الازهار

سعود

زهرة الازهار