saeednadery
شنبه 09 آذر 1387, 13:38 عصر
با سلام خدمت همه دوستان گرامي
من مي خواستم بر روي برنامه ام username و password تعريف كنم طبق كد زير اينكار را انجام داده ام
Imports System.Data.SqlClient
Public Class LoginForm1
Dim strcon As String = "Data Source=naderi;Initial Catalog=device;Integrated Security=True"
Dim strsql, strsql1 As String
Dim ds As New DataSet
Dim i As Integer
Dim v As Boolean
Dim da As SqlDataAdapter
Dim con As New SqlConnection(strcon)
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("نام كاربري يا رمز عبور وارد نشده است")
Else
For i = 0 To Me.BindingContext(ds, "logins").Count - 1
' Label1.Text = ds.Tables("logins").Rows(i).Item("usern")
' Label2.Text = ds.Tables("logins").Rows(i).Item("password")
If TextBox1.Text = Trim(ds.Tables("logins").Rows(i).Item("usern")) And TextBox2.Text = Trim(ds.Tables("logins").Rows(i).Item("password")) Then
v = True
Form1.Show()
ElseIf i = Me.BindingContext(ds, "logins").Count - 1 And v = False Then
MsgBox("نام كاربري و يا كلمه عبور اشتباه مي باشد ")
End If
Next
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.Open()
v = False
strsql = "select usern , password from logins"
da = New SqlDataAdapter(strsql, con)
da.Fill(ds, "logins")
End Sub
End Class
حال مي خواستم بدانم آيا VB.NET امكاني براي Encrypt كردن پسورد دارد يا اينكه بايد خودمان يك الگوريتم براي آن بنويسيم
من مي خواستم بر روي برنامه ام username و password تعريف كنم طبق كد زير اينكار را انجام داده ام
Imports System.Data.SqlClient
Public Class LoginForm1
Dim strcon As String = "Data Source=naderi;Initial Catalog=device;Integrated Security=True"
Dim strsql, strsql1 As String
Dim ds As New DataSet
Dim i As Integer
Dim v As Boolean
Dim da As SqlDataAdapter
Dim con As New SqlConnection(strcon)
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("نام كاربري يا رمز عبور وارد نشده است")
Else
For i = 0 To Me.BindingContext(ds, "logins").Count - 1
' Label1.Text = ds.Tables("logins").Rows(i).Item("usern")
' Label2.Text = ds.Tables("logins").Rows(i).Item("password")
If TextBox1.Text = Trim(ds.Tables("logins").Rows(i).Item("usern")) And TextBox2.Text = Trim(ds.Tables("logins").Rows(i).Item("password")) Then
v = True
Form1.Show()
ElseIf i = Me.BindingContext(ds, "logins").Count - 1 And v = False Then
MsgBox("نام كاربري و يا كلمه عبور اشتباه مي باشد ")
End If
Next
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.Open()
v = False
strsql = "select usern , password from logins"
da = New SqlDataAdapter(strsql, con)
da.Fill(ds, "logins")
End Sub
End Class
حال مي خواستم بدانم آيا VB.NET امكاني براي Encrypt كردن پسورد دارد يا اينكه بايد خودمان يك الگوريتم براي آن بنويسيم