فرم لوگین

[morteza@z]

سلام من خیلی در سایت جستجو کرده ام ولی اون چیزی که من می خواستم یافت نکرده ام من می خوام یک برنامه بنویسم که فرم لاگین دارد و از sql2000 استفاده میکنم میخوام که کاربر یوزر نیم و پسورد را که زد وارد بشود ودر فرم دیگه بتونه یوزر نیم و پسورد را عوض کنه ودر جدولی در sql هست ذخیره بشود و دفعه بعد با یوزر نیم و پسورد خودش وارد شود راستی میخوام که در زمان تغییر دادن یوزر نیم و پسورد نام کاربری و رمز عبور قبلی را گرفته چکه کرده و نام کاربری و رمز عبور چدیذ را ثبت کند با تشکر لطفا کمکم کنید که خیلی محتاج هستم ؟:خجالت::گریه:

[klinton]

80032
این فرم فرم استارتاپ شما.

تعریف و ویرایش یوزر و پسورد هم که کاری نداره

کد ورود:


if(select count username where username='' and password='' from tbl_logins>0 then .....)

[morteza@z]

دوست من منظور من این نبود که فرم را به چ شکلی در بیاورم منظور م کدهای که یوزرنیم و پپسورد را در برنامه بگیرئ و در sql ذخیره کند؟

[klinton]

login:



Try


Dim cmm As String = "select userid from tbl_users where username=N'" & TextBox1.Text & "' and pass=N'" & TextBox2.Text & "'"


Dim comm As New SqlCommand(cmm, con)

con.Open()

userid =
CInt(comm.ExecuteScalar)

con.Close()


'''''''''''''''''''''''








Dim cmd As String = "select count(userid) from tbl_users where username=N'" & TextBox1.Text & "' and pass=N'" & TextBox2.Text & "'"


Dim com As New SqlCommand(cmd, con)

con.Open()


Dim qq As Integer = CInt(com.ExecuteScalar)

con.Close()


If qq = 0 Then

MsgBox(
" ", MsgBoxStyle.Critical, "")

TextBox1.Focus()


'frm_main.Show()


' Me.Close()


Else


Me.Hide()

frm_main.Show()


' Me.Hide()


End If


Catch

MsgBox(ErrorToString)




insert:






Dim cmd As String = "insert into tbl_users(name,lname,username,pass,userid)values(N '" & TextBox1.Text & "',N'" & TextBox2.Text & "',N'" & TextBox3.Text & "',N'" & TextBox4.Text & "','" & TextBox5.Text & "')"


Dim com As New SqlCommand(cmd, con)

con.Open()

com.ExecuteNonQuery()

con.Close()





End Try



update:



Dim

cmd As String = "update tbl_users set name=N'" & TextBox1.Text & "',lname=N'" & TextBox2.Text & "',username=N'" & TextBox3.Text & "',pass=N'" & TextBox4.Text & "' where userid='" & TextBox5.Text & "'"


Dim com As New SqlCommand(cmd, con)

con.Open()

com.ExecuteNonQuery()

con.Close()