چک کردن یوزر و پسوورد

[twelve]

سلام من یک فرم Login دارم که توی اون یوزر و پسوورد رو از کاربر میگیره و یه دکمه Login هم دارم که با کلیک شدنش باید اون یوزر و پسوورد وارد شده توسط کاربر رو چک کنه که آگر درست باشه ، وارد برنامه بشه اگر هم نه که همون فرم login باقی بمونه


من نمیدونم چطوری باید یوزر و پسوورد وارد شده رو چک کنم ، خودم یه کد نوشتم اما جواب نمیده لطفا راهنماییم کنین مرسی.

[twelve]

Private Sub but1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but1.Click



If box1.Text.Trim = "" And box2.Text.Trim = "" Then
MessageBox.Show("Enter User ID and Password", "Sing In Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)


ElseIf box1.Text.Trim = "" Then
MessageBox.Show("Enter User ID", "Sing In Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
ElseIf box2.Text.Trim = "" Then
MessageBox.Show("Enter Password", "Sing In Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
End If

If IsNumeric(box1.Text.Trim) Then
MessageBox.Show("User ID Can not being a Digit", "Sign In Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
If SignInValid(box1.Text.Trim, box2.Text.Trim) = True Then
ObjMain = New FrmNameAdmin
ObjMain.Enabled = True

MessageBox.Show("Invalid User ID or Password", "Sign In Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If


End Sub

Private Function SignInValid(ByVal UserID As String, ByVal Password As String) As Boolean


Dim Cn As SqlConnection
Dim Cmd As SqlCommand
Dim Sda As SqlDataAdapter
Dim Ds As DataSet
Dim Dr As DataRow
Dim User, Pass As String
Dim CnString As String = "Data Source=localhost;Initial Catalog=MyMovie;" & "Integrated Security=True"
Dim Query As String
Cn = New SqlConnection(CnString)
Cn.Open()

Query = "SELECT UserID, Password FROM Admin WHERE UserID = '" & UserID & "'" & "Password = '" & Password & "'"
Cmd = New SqlCommand(Query, Cn)
Ds = New DataSet
Sda = New SqlDataAdapter
Sda.SelectCommand = Cmd
Sda.SelectCommand.CommandText = Query
Sda.SelectCommand.Connection = Cn
Sda.Fill(Ds, "Result")

For Each Dr In Ds.Tables("Result").Rows
Dim ArrayID As String() = {Dr(0), Dr(1)}

User = ArrayID(0)
Pass = ArrayID(1)

If Compare(User, UserID) = True Then
If Compare(Pass, Password) = True Then
SignInValid = True
Else

SignInValid = False

End If
End If

Next
Cn.Close()
Sda.Dispose()
Sda.SelectCommand.Dispose()

End Function

[twelve]

میخوام کدی رو که برای برنامه نوشتم بفرستم که درموردش نظر بدین ولی نمیدونم چرا این شکلی میشه!!!!

[ghafoori]

این مشکل وقتی پیش می اید که از ورد یا visual stadio پیش می اید که در صورتی که قسمت ویرایش شما بصورت wysiwyg باشه شما باید ابتدا متنتون را داخل نوت پد pasete و سپس کپی کنید یا از ویرایش استاندارت استفاده کنید

[programmermp]

سلام

دوست عزیز

چرا یک کتاب نمی خری مطالعه کنی یا حداقل یه جستجو کنی فکر کنم تو تالار پست های

مشابه باشه

برای این می گم یک کتاب برو بخر مطالعه کن چون اگه بلد باشی دستورات رو دیگه این

سئوال رو که خیلی پیش پا افتاده هست نمی پرسی

قصد جسارت ندارم ها

حالا بعد از کمی توصیه یا به اصطلاح نصحیت یک راهنمایی می کنم:

برای این کار می تونی یا یک stored procedure بنویسی یا از کدی مشابه کد زیر استفاده

کنی :



select pass from table1 where username='ali'


با کد فوق دیتا ستت رو فقط از داده ای پر می کنی که کلمه عبور نام کاربری یک کاربر به نام

علی هست حالا فقط کافیه که اون رو با کد زیر به یک تکست باکس بایند کنی مثل زیر:



textbox1.databindings.add(new binding("text",dataset,"table1.pass))


و کافیه که کلمه عبوری رو که کاربر وارد کرده با مقدار موجود در این تکست باکس مقایسه

کنی در صورت درست بودن اجازه ورود و در غیر اینصورت پیغام مناسب رو صادر کنی

امیدوارم که مفید واقع بشه

موفق باشی

[programmermp]

میخوام کدی رو که برای برنامه نوشتم بفرستم که درموردش نظر بدین ولی نمیدونم چرا این شکلی میشه!!!!

کدهات رو مستقیم باید کپی کنی تو ی ادیتور سایت برنامه نویس

بعد اول کدهات از (code)

و اخرش هم از(/code)استفاده کنی البته باید به جای پرانتز از کروشه [ ]

استفاده کنی

[twelve]

ممنون از راهنماییتون که گفتین چیکار کنم ، ایراد کدم رو پیدا کردم ، اگر سوالم رو ناقص و نا مفهوم پرسیدم ، ببخشید!!!