morteza@z
دوشنبه 12 دی 1390, 13:48 عصر
سلام من خیلی در سایت جستجو کرده ام ولی اون چیزی که من می خواستم یافت نکرده ام من می خوام یک برنامه بنویسم که فرم لاگین دارد و از sql2000 استفاده میکنم میخوام که کاربر یوزر نیم و پسورد را که زد وارد بشود ودر فرم دیگه بتونه یوزر نیم و پسورد را عوض کنه ودر جدولی در sql هست ذخیره بشود و دفعه بعد با یوزر نیم و پسورد خودش وارد شود راستی میخوام که در زمان تغییر دادن یوزر نیم و پسورد نام کاربری و رمز عبور قبلی را گرفته چکه کرده و نام کاربری و رمز عبور چدیذ را ثبت کند با تشکر لطفا کمکم کنید که خیلی محتاج هستم ؟:خجالت::گریه:
klinton
دوشنبه 12 دی 1390, 15:56 عصر
80032
این فرم فرم استارتاپ شما.
تعریف و ویرایش یوزر و پسورد هم که کاری نداره
کد ورود:
if(select count username where username='' and password='' from tbl_logins>0 then .....)
morteza@z
دوشنبه 12 دی 1390, 17:57 عصر
دوست من منظور من این نبود که فرم را به چ شکلی در بیاورم منظور م کدهای که یوزرنیم و پپسورد را در برنامه بگیرئ و در sql ذخیره کند؟
klinton
دوشنبه 12 دی 1390, 20:34 عصر
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()
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.