ساختن فرم لاگین
سلام دوستان
به کمکتون نیاز داشتم
من تو برنامه نویسی تازه کارم و اینم بگم که جستجو کردم اما به نتیجه نرسیدم
تو همین اول کار پروژه موندم
میخوام یه فرم لاگین درست کنم که کاربر اسم کاربری و رمز عبور خود رو که داد با چک کردن صحت اون اجازه ورود به کاربر برای ورود به برنامه رو بده.
اون کدهایی هم که تو فرم لاگین استفاده کردم رو براتون نوشتم که همشون هم از سایت خودمون کمک گرفتم.
حالا تو قسمت if موندم که نمیدونم وقتی دستور select اجرا میشه ، اگه نام کاربری و پسورد مشابه یافت شد ، چه چیزی رو مقدار دهی میکنه که من بخوام اونو چک کنم.
ممنون میشم از دوستان که منو راهنمایی کنن.
Imports System.Data
Imports System.Data.SqlClient
Public Class frmlogin
Dim cnn As New SqlConnection()
Dim cmd As New SqlCommand()
Dim sda As New SqlDataAdapter()
Dim ds As New DataSet()
Private Sub Connect()
cnn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=D:\daftardata base.mdf;Integrated Security=True;User Instance=True"
End Sub
Private Function LoadAll() As DataSet
Connect()
cmd.CommandText = "select * from karbaran where username='" + txtusername.Text + "' and password='" + txtpassword.Text + "'"
cmd.Connection = cnn
sda.SelectCommand = cmd
sda.SelectCommand.Connection = cnn
cnn.Open()
sda.Fill(ds, "Barnamenevis")
cnn.Close()
Return ds
End Function
Private Sub btnenter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenter.Click
Connect()
cmd.Connection = cnn
cnn.Open()
cmd.ExecuteReader()
If ..................Then
frmmain.Show()
End If
End Sub
End Class
پاسخ با نقل قول
نوشته شده توسط feridoon
