PDA

View Full Version : کلمه عبور را وارد کرده به فرم دیگری برمد



iman pakrah
پنج شنبه 31 اردیبهشت 1388, 15:38 عصر
میخوام وقتی در فرم ورود , کد کاربری و کلمه رمز را وارد میکنیم با دیتا بیس مربوطه چک شود اگر درست بو مثلا فرم 2 را باز کند خواهشا اگه کسی میدونه سریع جواب بده خیلی لازم دارم:عصبانی++::عصبانی++:

Unknownlive
پنج شنبه 31 اردیبهشت 1388, 16:45 عصر
خوب یه جدول درست می کنی که دارای فیلد های نام کاربری و کلمه عبور باشه بعد در فرم یک DataRows ایجاد می کنی و رمز عبور های دیتابیس را در ان می ریزی و در یک حلقه Foreach چک می کنی که رمز وارد شده با یکی از مقادیر DataRows برابر است یا خیر برای نام کاربری هم همین کار را می کنید اگه نمی دونی DataRows چیه بگو تا بیشتر توضیح بدم

iman pakrah
پنج شنبه 31 اردیبهشت 1388, 17:35 عصر
اگه میشه 1 کدی بدید که بنویسم با کد بهتر متوجه میشم بعد نمیدونم چه جوری باید تعریف کنم که به فرم دیگری برود(اگر کد وارد شده درست بود)

Amir_nzh
پنج شنبه 31 اردیبهشت 1388, 17:48 عصر
Try
Dim con As New SqlConnection(DatabaseConnectionString)
Dim cmd As New SqlCommand("SELECT count(*) FROM Users where user='username' and pass='password'", con)
con.Open()
Dim count As Integer
count = cmd.ExecuteScalar
If count = 1 Then
Fram2.Show()
Me.Close()
Else
MsgBox("نام کاربری یا کلمه عبور اشتباه است")
End If
con.Close()
Catch ex As Exception
MsgBox("خطا در خواندن اطلاعات از بانک اطلاعاتي")
End Try

Majid&Masoud
پنج شنبه 31 اردیبهشت 1388, 18:31 عصر
خب اگه فقط مشکل باز کردن فرم جدیده بعد از شرط درست بودن پسورد بنویسید


formname f2=new formname();
f2.show(this);

Majid&Masoud
پنج شنبه 31 اردیبهشت 1388, 18:33 عصر
البته قبلش باید از solution Explorer یه windows Form جدید Add کرده باشید

HamidNazari
پنج شنبه 31 اردیبهشت 1388, 22:49 عصر
دوستان کامل توضیح دادن ولی من باب محکم کاری من قبلاً یه کد مشابه نوشته بودن که میتونین از اینجا ببینین http://barnamenevis.org/forum/showpost.php?p=616058&postcount=8

h_r_sh
پنج شنبه 31 اردیبهشت 1388, 23:18 عصر
Try
Dim con As New SqlConnection(DatabaseConnectionString)
Dim cmd As New SqlCommand("SELECT count(*) FROM Users where user='username' and pass='password'", con)
con.Open()
Dim count As Integer
count = cmd.ExecuteScalar
If count = 1 Then
Fram2.Show()
Me.Close()
Else
MsgBox("نام کاربری یا کلمه عبور اشتباه است")
End If
con.Close()
Catch ex As Exception
MsgBox("خطا در خواندن اطلاعات از بانک اطلاعاتي")
End Try

اينجا مربوط به برنامه نويسي در C# است. چرا كد زبان VB را اينجا وارد كرده ايد؟