+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مساعدة في شاشة باسوورد (/showthread.php?tid=2603)
مساعدة في شاشة باسوورد - زهرة الازهار - 18-04-14
السلام عليكم
ممكن مساعدة
محتاجة شاشة باسوورد لمشروع تخرج بالدوت نت
RE: مساعدة - قناص المدينة - 18-04-14
تعتمد على قاعدة بيانات او على فورم
RE: مساعدة - قناص المدينة - 18-04-14
على اعتبار انه قاعدة بيانات
الحقول
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 IfRE: مساعدة في شاشة باسوورد - زهرة الازهار - 18-04-14
اخي اني اريد باسورد فقط للبرنامج مااريد لقاعدة البيانات اذا سمحت
RE: مساعدة في شاشة باسوورد - سعود - 18-04-14
كود بسيط باستخدام الـ 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
او ممكن تستخدم دوال التشفير الجاهزة
ارجو ان اكون قدمت ما تريد
RE: مساعدة في شاشة باسوورد - زهرة الازهار - 18-04-14
مشكور اخي اني ضفت فورم للباسورد وكتبت فيه هذا الكود
بس اريد اظهر فورم الباسورد اول فورم كيف اخلي يظهر اول فورم ثم يدخل للبرنامج
RE: مساعدة في شاشة باسوورد - سعود - 18-04-14
(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
لحظة اظن المطلوب غير مافهمته
طبعا عن طريق خصائص المشروع
RE: مساعدة في شاشة باسوورد - زهرة الازهار - 19-04-14
مشكور اخي اشتغل
بس ممكن من حضرتك توضحلي هذا الكود
Dim reg As New Regex(str)
Dim ma As Match = reg.Match(TextBox1.Text)
If ma.Success Then
RE: مساعدة في شاشة باسوورد - سعود - 19-04-14
(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
RE: مساعدة في شاشة باسوورد - زهرة الازهار - 19-04-14
مشكور رحم الله والديك