Buat class login dulu :
Imports System.DataImports System.SecurityImports
System.Security.CryptographyImports System.Data.SqlClient
Public cnMTC As SqlConnectionPrivate _userId As Integer Private _userName
As String Private _password As String Private _levelId As Integer
Private _group As String
Public Sub New(ByVal server As String, _ ByVal dbName As String,
ByVal userid As String, _ ByVal password As String)
cnMTC = New SqlConnection() cnMTC.ConnectionString = _
("Data Source=" & server & ";" & _ "Initial Catalog=" & dbName
& ";" & _ "User ID=" & userid & ";" & _
"Password=" & password) End Sub
Public ReadOnly Property userId() As Integer Get Return
_userId End Get End Property
Public Property userName() As String Get Return
_userName End Get Set(ByVal value As String) _userName
= value End Set End Property
Public Property password() As String Get Return
_password End Get Set(ByVal value As String) _password
= value End Set End Property Public ReadOnly Property levelId()
As String Get Return _levelId End Get End Property
Public Property Group() As String Get Return _group
End Get Set(ByVal value As String) _group = value End
Set End Property
Public Function loginToDatabase(ByVal loginName As String, ByVal password As
String) As Boolean
Dim passwordMatch As Boolean = False
userName = loginName password = password
Dim cmd As SqlCommand = New SqlCommand("LookupUser", cnMTC)
cmd.CommandType = CommandType.StoredProcedure Dim sqlParam As
SqlParameter = cmd.Parameters.Add("@userName", _
SqlDbType.VarChar, 50) sqlParam.Value = loginName Try
cnMTC.Open() Dim reader As SqlDataReader = cmd.ExecuteReader()
reader.Read() Dim dbPasswordhash As String =
reader.GetString(1) _levelId = reader.GetInt32(2) _group
= reader.GetString(3) reader.Close() Dim enMD5 As
EnkripsiMD5 = New EnkripsiMD5() Dim hashedPasswordAndSalt As String
= enMD5.CalculateMD5Hash(password) passwordMatch =
hashedPasswordAndSalt.Equals(dbPasswordhash)
If passwordMatch = True Then Return True
Else Return False End If Catch ex As
Exception MessageBox.Show(ex.Message) Finally
cnMTC.Close() End Try End Function
Kemudian panggil di form Login ditombol login :
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnLogin.Click
Dim clsLogin As Login = New Login() If
clsLogin.loginToDatabase(txtUserName.Text, txtPassword.Text) Then
Me.Hide() frmMainScreen.Show()
frmMainScreen.stsUserName.Text = "User Name : " &
txtUserName.Text frmMainScreen.stsGroupName.Text = "Group
Login : " & clsLogin.Group
txtUserName.Text = "" txtPassword.Text =
""
Else MessageBox.Show("Incorrect Username or
Password") End Ifend sub
Sekian Terima Kasih
Riyan SugaraIT TenarisSPIJ
--- On Tue, 6/1/10, Frangky Bunga <[email protected]> wrote:
From: Frangky Bunga <[email protected]>
Subject: [programmer-vb] [Reply] Query di VB.NET
To: [email protected]
Date: Tuesday, June 1, 2010, 8:10 PM
Teman-teman saya ucapkan terima kasih untuk Script Query di
VB.Net yang diberikan oleh teman-teman.
Saya masih akan memerlukan bantuan teman-teman yang sudah
lebih dahulu menguasai VB.NET mulai saat ini dan untuk kedepannya.
Saya mohon, kalau bisa script yang diberikan oleh
teman-teman sekalian, disertakan dengan penjelasannya. Karena saya benar-benar
pendatang di VB.NET. Saya lihat sangat berbeda antara ADO VB 6 dan ADO.NET pada
VB.NET. Saya benar-benar tdk mengerti/memahami apa arti Script tersebut.
Kemarin karena lama menunggu email saya diposting oleh
Moderator dimilis, saya berusaha mencari script Query ini di forum lain,
tentunya script tersebut harus sesimple mungkin. dan akhirnya ketemu seperti
ini: ‘Script dibawah ini saya ketemu di http://forums. devx.com/ showthread.
php?t=164343
Private
Sub cmdLogin_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles cmdLogin.Click
Dim dtAdapt As New
MySqlDataAdapter("select nama,pass from tbuser
where nama='" & txtNama.Text & "'
and pass = '" & TextBox1.Text & "'",
cnn)
dtAdapt.Fill( ds, "tbuser")
If ds.Tables(0) .Rows.Count > 0 Then
FormUtama.Show( )
Else
MsgBox("Nama Pengguna atau Password yang
diinput salah", MsgBoxStyle. Critical)
End If
ds.Clear()
End Sub
