15-06-13, 08:10 PM
بسم الله الرحمن الرحيم
لوسمحتم انا ليا سوالين ياريت حد يقدر يجاوبنى عليهم
المشكلة انى كان عندى database معمولة بااكسيس حولتها من الاكسس خلتها SQL Server
دلوقتى عايز اعمل فورم تسجيل الدخول للبرنامج ومش عارف بكتب الكود داه
اسم الدتا بيس SGG
اسم الجدول ائلى فيه المستخدمين user
اسم العمود ائلى فيه اسم المستخدم User Name
اسم العمود ائلى فيه اسم المستخدم Password
وداه الكود ائلى باكتبه يارب تساعدونى
فالوسمحتم حد يقولى المشكلة فين لما بكتب user name & Password البرنامج بيقف ومش عارف ايه المشكلة
تانى حاجة لو سمحتم عندى 3 كومبو بوكس عايز لما فيهم بيلنات من جداول تانية وعندى تيكست بوكس عايز محتوياته تتملى اتوماتيك لما اختار القيمة من كل كومبو بوكس مثال يعنى كومبو بوكس 1 الدولة هايبقا محتوياته الدول متسجلة فى الداتا بيز هاختار مثلا "مصر"
كومبو بوكس 2 اسمه المحافظة محتوياته هاتبقا اسماء المحافظات هاختار مثلا " القاهرة "
كومبو بوكس 3 اسمه المدينة هانختار مثلا " وسط البلد "
كدا يبقا ناقص التيكست بوكس ائلى اسمه العنوان عايز لما اختار الحاجات ديه يبقا العنوان على طول الدولة مصر محافظة القاهرة مدينة وسط البلد
وارجو الاهتمام جزاكم الله كل خير
لوسمحتم انا ليا سوالين ياريت حد يقدر يجاوبنى عليهم
المشكلة انى كان عندى database معمولة بااكسيس حولتها من الاكسس خلتها SQL Server
دلوقتى عايز اعمل فورم تسجيل الدخول للبرنامج ومش عارف بكتب الكود داه
اسم الدتا بيس SGG
اسم الجدول ائلى فيه المستخدمين user
اسم العمود ائلى فيه اسم المستخدم User Name
اسم العمود ائلى فيه اسم المستخدم Password
وداه الكود ائلى باكتبه يارب تساعدونى
Private Sub BtnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
Dim connection As New SqlClient.SqlConnection
Dim command As New SqlClient.SqlCommand
Dim adaptor As New SqlClient.SqlDataAdapter
Dim dataset As New DataSet
connection.ConnectionString = ("Provider=SQLOLEDB;Data Source=7-PC\SQLEXP;Integrated Security=SSPI;Initial Catalog=SGG")
command.CommandText = "select * from [user] where User Name '" & TextBox1.Text & "'And Password='" & TextBox2.Text & "';"
connection.Open()
command.Connection = connection
adaptor.SelectCommand = command
adaptor.Fill(dataset, "0")
Dim count = dataset.Tables(0).Rows.Count
If count > 0 Then
MainMenu.show()
Me.Hide()
Else
MsgBox("هناك خطاء فى اسم المستخدم او كلمة المرور")
TextBox1.Clear()
TextBox2.Clear()
End If
Dim connection As New SqlClient.SqlConnection
Dim command As New SqlClient.SqlCommand
Dim adaptor As New SqlClient.SqlDataAdapter
Dim dataset As New DataSet
connection.ConnectionString = ("Provider=SQLOLEDB;Data Source=7-PC\SQLEXP;Integrated Security=SSPI;Initial Catalog=SGG")
command.CommandText = "select * from [user] where User Name '" & TextBox1.Text & "'And Password='" & TextBox2.Text & "';"
connection.Open()
command.Connection = connection
adaptor.SelectCommand = command
adaptor.Fill(dataset, "0")
Dim count = dataset.Tables(0).Rows.Count
If count > 0 Then
MainMenu.show()
Me.Hide()
Else
MsgBox("هناك خطاء فى اسم المستخدم او كلمة المرور")
TextBox1.Clear()
TextBox2.Clear()
End If
فالوسمحتم حد يقولى المشكلة فين لما بكتب user name & Password البرنامج بيقف ومش عارف ايه المشكلة
تانى حاجة لو سمحتم عندى 3 كومبو بوكس عايز لما فيهم بيلنات من جداول تانية وعندى تيكست بوكس عايز محتوياته تتملى اتوماتيك لما اختار القيمة من كل كومبو بوكس مثال يعنى كومبو بوكس 1 الدولة هايبقا محتوياته الدول متسجلة فى الداتا بيز هاختار مثلا "مصر"
كومبو بوكس 2 اسمه المحافظة محتوياته هاتبقا اسماء المحافظات هاختار مثلا " القاهرة "
كومبو بوكس 3 اسمه المدينة هانختار مثلا " وسط البلد "
كدا يبقا ناقص التيكست بوكس ائلى اسمه العنوان عايز لما اختار الحاجات ديه يبقا العنوان على طول الدولة مصر محافظة القاهرة مدينة وسط البلد
وارجو الاهتمام جزاكم الله كل خير