طريقة قفل الفورم برقم سري

وينكم شباب

هل تقصد في وقت التصميم

السوال غي واضح

من الواضح في الصوره

أنك تريد قبل أن يستخدم الفورم الخلفي يجب عليه أن يدخل كلمة السر

أكتب كود بعد ما يتأكد من كلمة السر ينتقل ألى الصفحه الأخرى

ويخفي فورم دخول

أظن توجود مواضيع مشابه في المنتدى

ربما تقصد عمل user authentication اي التعرف علي المستخدم قبل الدخول الي البرنامج

و ربما تستخدم لتخزين بيانات المستخدمين قاعدة بياانت او ملفات او حتي في الكود (Hard Coded)

و الامر بسيط فانت تقوم بعمل الفورم الرئيسية للبرنامج او فورم اخري عبارة عن login form و في حالة ادخال البيانات بشكل غير صحيح قم بغلق البرنامج او عدم غلق ال login form و في حالة صحة البيانات يتمكن من الدخول لباقي الفورم (تقوم بفتح الفورم المناسب له )

اقتباس

ربما تقصد عمل user authentication اي التعرف علي المستخدم قبل الدخول الي البرنامج

و ربما تستخدم لتخزين بيانات المستخدمين قاعدة بياانت او ملفات او حتي في الكود (Hard Coded)

و الامر بسيط فانت تقوم بعمل الفورم الرئيسية للبرنامج او فورم اخري عبارة عن login form و في حالة ادخال البيانات بشكل غير صحيح قم بغلق البرنامج او عدم غلق ال login form و في حالة صحة البيانات يتمكن من الدخول لباقي الفورم (تقوم بفتح الفورم المناسب له )

ما هي طريقة عمل هذا لو سمحت نعم انا اريد ان يكتب الرقم السري قبل الدخول الى الفورم الخلفي وهو الرئيسي واذا لم يضع الرقم الصحيح يتم غلق البرنامج او تظهر له رسالة تقول له انك أدخلت معلومات غير صحيحة

لكن ما هو الكود واين هي المواضيع التي تتكلم عن هذه الموضوع

وينكم شباب

بفرض وجود login Page بالشكل التالي

Public Class Login

	Dim IsAuthenticated As Boolean = False
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		If txtUserName.Text = "username" And txtPassword.Text = "password" Then
			IsAuthenticated = True
			Me.Close()
		Else
			MessageBox.Show("Invalid Login.")
		End If


	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Application.Exit()
	End Sub

	Private Sub Login_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
		If IsAuthenticated = False Then
			e.Cancel = True
		End If
	End Sub
End Class

نقوم باستدعائها من ال main form بالكل التالي

Public Class Form1

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Login.ShowDialog()
	End Sub
End Class

المثال في المرفقات vs 2008

LoginForm.rar

IsAuthenticated يقول لي ان هذا الأسم غير صحيح لقد عدلت على اسماء التكست لتناسب الكود ولكن يخرج لي خطئ وهو اسم هذه IsAuthenticated

ولقد حذفت هذا المتغير IsAuthenticated وقد نجح فعلا عندما اضغط الرقم السري الصحيح يغلق البرنامج وعندما اضع رقم سري غير صحيح تخرج لي رسالة تقول خطئ

وحذفت هذا المتغير Me.Close ووضعت بدل منه متغير Form1.show فعندما اضع الرقم السري الصحيح يتم تحويلي الى النافذة الرئيسية للبرنامج شكراً لك

والمثال لا يعمل على vb 2005

طيب لنفرض أني اريد عمل قاعدة بيانات تحوي على أسماء اعضاء كثير يستطيعون تسجيل الدخول بإسماء مختلفة ما هي الطريقة لعمل هذا هل يوجد دروس او كتب

بإمكانك استخدام عبارة sql,,,

ربما افيدك غداً

شكراً لك سوف أبحث عن Sql