Pada contoh form login di atas kita harus menyediakan 1 buah text box untuk NIK, 1 buah text box untuk Password, 1 buah tombol dan 1 buah label.Berikut adalah isi file login.aspx
<%@ Page Language="VB" debug="true" AutoEventWireup="false" CodeFile="login.aspx.vb" Inherits="login" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Login Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<table width="300">
<tr>
<td style="width: 150px">
NIK</td>
<td style="width: 150px">
:
<asp:TextBox ID="NIK"
runat="server"
Width="120px"></asp:TextBox></td>
</tr>
<tr>
<td style="width: 150px">
PASSWORD</td>
<td style="width: 150px">
:
<asp:TextBox ID="PASSWORD"
runat="server"
TextMode="Password"
Width="120px"></asp:TextBox></td>
</tr>
<tr>
<td align="center" colspan="2">
<asp:Button ID="cmdOK"
runat="server"
Text="OK"
Width="88px" /></td>
</tr>
</table>
<br />
<asp:Label ID="Label1"
runat="server"></asp:Label><br />
<br />
</div>
</form>
</body>
</html>
Pada baris pertama file login.aspx terdapat
CodeFile="login.aspx.vb"Ini menunjukkan bahwa file login.aspx menyimpan file kode pada file login.aspx.vb.
Selain file login.aspx kita juga harus membuat file login.aspx.vb untuk memyimpan kode program proses login. Proses autentikasi login adalah user mngisi NIK dan Password kemudian mengklik tombol OK pada form login.
Pada event on Click dilakukan proses pemeriksaan NIK dan Password, apakah kombinasi NIK dan Password cocok dengan data di tabel Karyawan. Jika sesuai maka proses login berhasil, jika tidak maka proses login gagal.
Berikut kode program pada file login.aspx.vb
Imports System.Data
Imports System.Data.OleDb
Partial Class login
Inherits System.Web.UI.Page
Protected Sub cmdOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdOK.Click
Dim strConnection As String = _
ConfigurationManager.ConnectionStrings("AccessConnectionString").ConnectionString
Dim strNik As String
Dim strPwd As String
Dim strQuery As String = "SELECT * FROM karyawan WHERE NIK='" & Me.NIK.Text & "';"
Dim myConnection As New OleDbConnection(strConnection)
Dim myCommand As New OleDbCommand(strQuery, myConnection)
myConnection.Open()
Dim myDataReader As OleDbDataReader = myCommand.ExecuteReader()
strNik = ""
strPwd = ""
While myDataReader.Read()
strNik = myDataReader.GetString(0)
strPwd = myDataReader.GetString(5)
End While
myDataReader.Close()
myConnection.Close()
If strNik = "" Then
Me.Label1.Text = "NIK tidak ada!"
Else
If strPwd <> Me.PASSWORD.Text Then
Me.Label1.Text = "Password anda salah!"
Else
Me.Label1.Text = "Login sukses!"
End If
End If
End Sub
End Class
1 comment:
gan :D ane numpang baca2 ya gan :D ane lagi belajar2 buat asp gan ...mohon bimbingannya :D terima kasih gan :D
Post a Comment