HTML :
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="WEBCAMPUS._Default" %>
<!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>SISTEM
AKADEMIK</title>
<style type="text/css">
.style7
{
text-align:
center;
}
.style9
{
font-family:
"Courier New";
font-size:
small;
color:
#FFFFFF;
}
.newStyle1
{
font-family:
"Courier New", Courier, monospace;
font-size:
small;
}
.style12
{
font-size:
x-large;
color:
#333333;
font-weight:
bold;
}
.style13
{
font-size:
small;
font-style:
italic;
}
.style14
{
text-align:
justify;
}
.style15
{
font-size:
small;
font-style:
italic;
font-family:
Arial, Helvetica,
sans-serif;
font-weight:
bold;
}
</style>
</head>
<body>
<form id="form1" runat="server">
<div style="width:800px; height:610px; margin:auto; background:#999999; padding-top:10px; border:1px; " >
<div style="width:780px; height:125px; margin:auto; background:white; padding-top:5px; " >
<div style ="width:770px; height:110px; background:gray; margin:auto; padding-top:0px; padding-bottom:0px;">
<img src="logoip.jpg" width="770" height
="120" alt
=""/>
</div>
</div>
<div style ="width:780px; height:415px; margin:auto; background:#999999; margin-top:5px; padding-bottom :5px; " >
<div style="width:230px; height:415px; float:left; background:white; " >
<div style =" width:215px; height:400px; background:#333333; margin:auto; padding-left:5px; padding-bottom:5px; margin-top:5px; ">
</div>
</div>
<div style ="width:545px; height:415px; float:right; background:white;" >
<div style =" width:515px; height:20px; background:silver; margin:auto; padding-right :10px; padding-left:10px; padding-top:5px; padding-bottom:5px; margin-top:5px;">
<table align="center"
>
<tr align="center"
valign="middle">
<td align="center" valign="middle">OLAH DATA MAHASISWA</td>
</tr>
</table>
</div>
<div style =" width:525px; height:225px; background:silver; margin:auto; padding-right :10px; padding-left:0px; padding-top:5px; padding-bottom:5px; margin-top:5px; ">
<table align="center"
>
<tr>
<td width="150px">NIM</td>
<td>:</td>
<td>
<asp:TextBox ID="txtNim" runat="server"
Width="159px"></asp:TextBox>
</td>
</tr>
<tr>
<td width="150px">NAMA</td>
<td>:</td>
<td>
<asp:TextBox ID="txtNama"
runat="server"
Width="159px"></asp:TextBox>
</td>
</tr>
<tr>
<td width="150px">ALAMAT</td>
<td>:</td>
<td>
<asp:TextBox ID="txtAlamat"
TextMode="MultiLine"
runat="server"
Width="159px"></asp:TextBox>
</td>
</tr>
<tr>
<td width="150px">JURUSAN</td>
<td>:</td>
<td>
<asp:TextBox ID="txtJurusan"
runat="server"
Width="159px"></asp:TextBox>
</td>
</tr>
<tr>
<td width="150px">NO.
TELPHONE</td>
<td>:</td>
<td>
<asp:TextBox ID="txtTelpon"
runat="server"
Width="159px"></asp:TextBox>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<table align="center"
>
<tr align="center"
>
<td>
<asp:Button ID="btnSave"
Width="80px"
runat="server"
Text="Save"
/>
</td>
<td>
<asp:Button ID="btnUpdate"
Width="80px"
runat="server"
Text="Update"
/>
</td>
<td>
<asp:Button ID="btnDelete"
Width="80px"
runat="server"
Text="Delete"
/>
</td>
<td>
<asp:Button ID="btnReset"
Width="80px"
runat="server"
Text="Reset"
/>
</td>
</tr>
</table>
</div>
<div style =" width:525px; height:120px; background:silver; margin:auto; padding-right :10px; padding-left:0px; padding-top:5px; padding-bottom:5px; margin-top:5px; overflow:auto ; ">
<asp:GridView ID ="grdList" runat
="server" AutoGenerateColumns
="false"
ShowFooter ="false"
Width ="600px"
>
<Columns >
<asp:CommandField ControlStyle-ForeColor="Blue"
HeaderText ="Select"
ShowHeader="true"
ShowSelectButton ="true"
>
<ControlStyle ForeColor ="Blue"
/>
</asp:CommandField>
<asp:BoundField DataField ="NIM_MHS"
HeaderText ="NIM"
ItemStyle-Width ="40px"
>
<HeaderStyle Wrap ="false"
/>
<ItemStyle Wrap ="false"
/>
</asp:BoundField >
<asp:BoundField DataField ="NM_MHS"
HeaderText ="NAMA"
ItemStyle-Width ="150px"
>
<HeaderStyle Wrap ="false"
/>
<ItemStyle Wrap ="false"
/>
</asp:BoundField >
<asp:BoundField DataField ="ALAMAT_MHS"
HeaderText ="ALAMAT"
ItemStyle-Width ="200px"
>
<HeaderStyle Wrap ="false"
/>
<ItemStyle Wrap ="false"
/>
</asp:BoundField >
<asp:BoundField DataField ="JUR_MHS"
HeaderText ="JURUSAN"
ItemStyle-Width ="100px"
>
<HeaderStyle Wrap ="false"
/>
<ItemStyle Wrap ="false"
/>
</asp:BoundField >
<asp:BoundField DataField ="TELP_MHS"
HeaderText ="TELPON"
ItemStyle-Width ="80px"
>
<HeaderStyle Wrap ="false"
/>
<ItemStyle Wrap ="false"
/>
</asp:BoundField >
</Columns>
</asp:GridView>
</div>
</div>
</div>
<div style="width:780px; height:40px; margin:auto; background:white; padding-top:5px;" class="style7" >
<div style ="width:770px; height:30px; background:#333333; margin:auto; padding-bottom:5px;" >
<span class="style9">Copyrights by STIE-STMIK INSAN
PEMBANGUNAN - TANGERANG</span><br class="style9" />
<span class="style9"><span
class="style9">© 2016 All Rights Reserved</span></span><span class="style9">
</span>
</div>
</div>
</div>
</form>
</body>
</html>
CODE BEHIND
Partial Public Class _Default
Inherits
System.Web.UI.Page
Private
m_clsMahasiswa As clsMahasiswa
Private Sub ListGrid()
Try
m_clsMahasiswa = New clsMahasiswa
grdList.DataSource =
m_clsMahasiswa.ListGrid
grdList.DataBind()
Catch
ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Protected Sub Page_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
Try
If Not IsPostBack Then
Call
TextKosong()
End
If
Call
ListGrid()
Catch
ex As Exception
End Try
End Sub
Private Sub TextKosong()
txtAlamat.Text = ""
txtJurusan.Text = ""
txtNama.Text = ""
txtNim.Text = ""
txtTelpon.Text = ""
End Sub
Private Sub btnSave_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles btnSave.Click
Try
If
txtNim.Text = "" Then
MsgBox("NIM
tidak boleh kosong")
txtNim.Focus()
ElseIf
txtNama.Text = "" Then
MsgBox("Nama
mahasiswa tidak boleh kosong")
txtNama.Focus()
ElseIf
txtAlamat.Text = "" Then
MsgBox("Alamat
tidak boleh kosong")
txtAlamat.Focus()
ElseIf
txtJurusan.Text = "" Then
MsgBox("Jurusan
tidak boleh kosong")
txtJurusan.Focus()
ElseIf
txtTelpon.Text = "" Then
MsgBox("Nomor
telpon tidak boleh kosong")
txtTelpon.Focus()
Else
m_clsMahasiswa = New clsMahasiswa
With
m_clsMahasiswa
.NimMhs = txtNim.Text
.NamaMhs = txtNama.Text
.AlamatMhs = txtAlamat.Text
.JurusanMhs =
txtJurusan.Text
.TelponMhs = txtTelpon.Text
If
.IsExist Then
MsgBox("Duplicate Data")
Else
If .IsSave Then
MsgBox("Data telah di simpan")
Call ListGrid()
Else
MsgBox("Data error di simpan")
End If
End
If
End
With
End
If
Catch
ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btnDelete_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles btnDelete.Click
Try
If
txtAlamat.Text = "" Or txtJurusan.Text = ""
Or txtNama.Text = ""
Or txtNim.Text = ""
Or txtTelpon.Text = ""
Then
MsgBox("Data
kosong")
Else
m_clsMahasiswa = New clsMahasiswa
With
m_clsMahasiswa
.NimMhs = txtNim.Text
.NamaMhs = txtNama.Text
.AlamatMhs = txtAlamat.Text
.JurusanMhs =
txtJurusan.Text
.TelponMhs = txtTelpon.Text
If
.IsDelete Then
MsgBox("Data telah dihapus")
Else
MsgBox("Hapus data gagal")
End
If
End
With
Call
TextKosong()
End
If
Catch
ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btnUpdate_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles btnUpdate.Click
Try
If
txtAlamat.Text = "" Or txtJurusan.Text = ""
Or txtNama.Text = ""
Or txtNim.Text = ""
Or txtTelpon.Text = ""
Then
MsgBox("Data
kosong")
Else
m_clsMahasiswa = New clsMahasiswa
With
m_clsMahasiswa
.NimMhs = txtNim.Text
.NamaMhs = txtNama.Text
.AlamatMhs = txtAlamat.Text
.JurusanMhs =
txtJurusan.Text
.TelponMhs = txtTelpon.Text
If
.IsUpdate Then
MsgBox("Data telah diupdate")
Else
MsgBox("Update data gagal")
End
If
End
With
Call
TextKosong()
End
If
Catch
ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btnReset_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles btnReset.Click
Call
TextKosong()
End Sub
Private Sub grdList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
grdList.SelectedIndexChanged
Try
txtNim.Text =
grdList.SelectedRow.Cells(1).Text
txtNama.Text =
grdList.SelectedRow.Cells(2).Text
txtAlamat.Text =
grdList.SelectedRow.Cells(3).Text
txtJurusan.Text =
grdList.SelectedRow.Cells(4).Text
txtTelpon.Text =
grdList.SelectedRow.Cells(5).Text
Catch
ex As Exception
End Try
End Sub
End Class
CLASS
Imports
System
Imports
System.Data
Imports
System.Data.OleDb
Public Class clsMahasiswa
Private
strSQL As String
Private
objDataTable As DataTable
Private
objReader As OleDbDataReader
Private
objAdapter As OleDbDataAdapter
Private
objDataset As DataSet
Private
myCon As OleDbConnection
Private
objCommand As OleDbCommand
Private Const strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=D:\MAHASISWA\Mahasiswa.mdb;"
Private
m_strNIM As String
Private
m_strNama As String
Private
m_strAlamat As String
Private
m_strJurusan As String
Private
m_strTelpon As String
Public Property NimMhs() As String
Get
Return
m_strNIM
End Get
Set(ByVal value As String)
m_strNIM = value
End Set
End Property
Public Property NamaMhs() As
String
Get
Return
m_strNama
End Get
Set(ByVal value As String)
m_strNama = value
End Set
End Property
Public Property AlamatMhs() As
String
Get
Return
m_strAlamat
End Get
Set(ByVal value As String)
m_strAlamat = value
End Set
End Property
Public Property JurusanMhs() As
String
Get
Return
m_strJurusan
End Get
Set(ByVal value As String)
m_strJurusan = value
End Set
End Property
Public Property TelponMhs() As
String
Get
Return
m_strTelpon
End Get
Set(ByVal value As String)
m_strTelpon = value
End Set
End Property
Public Function IsSave() As Boolean
Try
Dim
tmpRet As Boolean
myCon = New
OleDbConnection(strCon)
myCon.Open()
strSQL = "INSERT
INTO TBL_MAHASISWA (NIM_MHS,NM_MHS,ALAMAT_MHS,JUR_MHS,TELP_MHS) VALUES('"
& NimMhs & "','" &
NamaMhs & "','" &
AlamatMhs & "','" &
JurusanMhs & "','" &
TelponMhs & "')"
objCommand = New OleDbCommand(strSQL, myCon)
tmpRet =
objCommand.ExecuteNonQuery()
myCon.Close()
Return
tmpRet
Catch
ex As Exception
Return
False
End Try
End Function
Public Function IsUpdate() As
Boolean
Try
Dim
tmpRet As Boolean
myCon = New
OleDbConnection(strCon)
myCon.Open()
strSQL = "UPDATE
TBL_MAHASISWA SET NM_MHS = '" & NamaMhs & "', ALAMAT_MHS = '" & AlamatMhs
& "', JUR_MHS = '" &
JurusanMhs & "', TELP_MHS = '"
& TelponMhs & "' WHERE NIM_MHS =
'" & NimMhs & "'"
objCommand = New OleDbCommand(strSQL, myCon)
tmpRet =
objCommand.ExecuteNonQuery()
myCon.Close()
Return
tmpRet
Catch ex
As Exception
Return
False
End Try
End Function
Public Function IsDelete() As
Boolean
Try
Dim
tmpRet As Boolean
myCon = New
OleDbConnection(strCon)
myCon.Open()
strSQL = "DELETE
FROM TBL_MAHASISWA WHERE NIM_MHS = '" & NimMhs & "'"
objCommand = New OleDbCommand(strSQL, myCon)
tmpRet =
objCommand.ExecuteNonQuery()
myCon.Close()
Return
tmpRet
Catch ex
As Exception
Return
False
End Try
End Function
Public Function IsExist() As
Boolean
Try
Dim
tmpRet As Boolean
myCon = New
OleDbConnection(strCon)
myCon.Open()
strSQL = "SELECT
* FROM TBL_MAHASISWA WHERE NIM_MHS = '" & NimMhs & "'"
objCommand = New OleDbCommand(strSQL, myCon)
objReader =
objCommand.ExecuteReader
If
objReader.HasRows Then
tmpRet = True
Else
tmpRet = False
End
If
objReader.Close()
myCon.Close()
Return
tmpRet
Catch
ex As Exception
Return
False
End Try
End Function
Public Function ListGrid() As
DataSet
Try
objDataset = New DataSet
myCon = New
OleDbConnection(strCon)
myCon.Open()
strSQL = "SELECT
* FROM TBL_MAHASISWA ORDER BY NIM_MHS ASC"
objAdapter = New OleDbDataAdapter(strSQL, myCon)
objAdapter.Fill(objDataset)
myCon.Close()
Return
objDataset
Catch
ex As Exception
Return
Nothing
End Try
End Function
End Class
