Welcome to Jima's Blog...
Kali ini saya akan memposting sebuah program database pelanggan untuk tempat laundry atau toko, sesuai kebutuhan, Tanpa berlama - lama lagi langsung saja...
1. Deskripsi Program :
Program ini dibuat untuk memudahkan tempat laundry mengorganisir data para pelanggannya, karena bukan hanya mini market saja yang menggunakan jasa antar - jemput, akan tetapi tempat laundry juga sudah menggunakan jasa antar-jemput untuk memudahkan pelanggan mencuci bajunya.
Untuk itu saya membuat sebuah program untuk menyimpan data pelanggannya. Program ini terdiri 2 Page/WebForm :
- MainMenu (Halaman Utama, menu ini juga digunakan untuk memasukkan data pelanggan baru)
- Nama
- Jenis Kelamin(Berbentuk Check Box)
- Tanggal lahir
- Alamat
- No Telephon/Handphone
- CustomerDatabasePage (Halaman untuk melihat jumlah data pelanggan sekaligus untuk mencari, meng-edit dan menghapus data pelanggan)
Setelah itu terdapat juga Hyperlink pada Halaman Utama untuk menuju Halaman Database Pelanggan.
Seluruh data yang di masukkan tentu saja akan langsung tersimpan kedalam Database....
2. Capture Program :
Ini adalah halaman dimana pegawai laundry bisa memasukkan data dari pelanggan mereka..
Dan ini adalah halaman untuk menghapus, mencari, dan mengubah data dari pelanggan mereka.
3.Source Code HTML + ASP.NET :
a. Source Code HTML
- Main Menu.aspx
<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/MasterPage.Master" CodeBehind="MainMenu.aspx.vb" Inherits="WebFormLaundry.MainMenu" %>
<asp:Content ID="Content1" ContentPlaceHolderID="head" runat="server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" runat="server">
<h2>Please Input Customer Data Here</h2>
<p>
<br />
Email : <asp:TextBox ID="txtemail" runat="server" Width="200px"></asp:TextBox>
<br />
<br />
Name : <asp:TextBox ID="txtnama" runat="server" Width="200px"></asp:TextBox>
<br />
<br />
Sex :
<asp:CheckBox ID="chkboxman" runat="server" /> <asp:CheckBox ID="chkboxwmn" runat="server" />
<br />
<br />
Birth Date : <asp:TextBox ID="txttgl" runat="server" Width="200px"></asp:TextBox>
*Format dd/mm/yyyy<br />
<br />
Address : <asp:TextBox ID="txtalamat" runat="server" Width="200px"></asp:TextBox>
<br />
<br />
Phone : <asp:TextBox ID="txtphone" runat="server" Width="200px"></asp:TextBox>
<br />
<br />
<asp:Button ID="btntambah" runat="server" Text="Add" Width="50px" />
<asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="~/CustomerDatabasePage.aspx">Check The Customer Database? Click Here!</asp:HyperLink>
<br />
<br />
</p>
</asp:Content>
- CustomerDatabasePage.aspx
<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/MasterPage.Master" CodeBehind="CustomerDatabasePage.aspx.vb" Inherits="WebFormLaundry.CustomerDatabasePage" %>
<asp:Content ID="Content1" ContentPlaceHolderID="head" runat="server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" runat="server">
<h2>You Can Edit, Delete or Find Customer Data Here</h2>
<p>
<br />
Email : <asp:TextBox ID="txtemail" runat="server" Width="200px"></asp:TextBox>
<br />
<br />
Name : <asp:TextBox ID="txtnama" runat="server" Width="200px"></asp:TextBox>
<br />
<br />
Sex :
<asp:CheckBox ID="chkboxman" runat="server" /> <asp:CheckBox ID="chkboxwmn" runat="server" />
<br />
<br />
Birth Date : <asp:TextBox ID="txttgl" runat="server" Width="200px"></asp:TextBox>
*Format dd/mm/yyyy
<br />
<br />
Address : <asp:TextBox ID="txtalamat" runat="server" Width="200px"></asp:TextBox>
<br />
<br />
Phone : <asp:TextBox ID="txtphone" runat="server" Width="200px"></asp:TextBox>
<br />
<br />
<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" BackColor="#CCCCCC" BorderColor="#999999" BorderStyle="Solid" BorderWidth="3px" CellPadding="4" CellSpacing="2" DataKeyNames="Email" DataSourceID="AccessDataSource1" ForeColor="Black" Width="852px">
<Columns>
<asp:BoundField DataField="Email" HeaderText="Email" ReadOnly="True" SortExpression="Email" />
<asp:BoundField DataField="Nama" HeaderText="Nama" SortExpression="Nama" />
<asp:BoundField DataField="Jenis_Kelamin" HeaderText="Jenis_Kelamin" SortExpression="Jenis_Kelamin" />
<asp:BoundField DataField="Tanggal_Lahir" HeaderText="Tanggal_Lahir" SortExpression="Tanggal_Lahir" />
<asp:BoundField DataField="Alamat" HeaderText="Alamat" SortExpression="Alamat" />
<asp:BoundField DataField="No_HP" HeaderText="No_HP" SortExpression="No_HP" />
</Columns>
<FooterStyle BackColor="#CCCCCC" />
<HeaderStyle BackColor="Black" Font-Bold="True" ForeColor="White" />
<PagerStyle BackColor="#CCCCCC" ForeColor="Black" HorizontalAlign="Left" />
<RowStyle BackColor="White" />
<SelectedRowStyle BackColor="#000099" Font-Bold="True" ForeColor="White" />
<SortedAscendingCellStyle BackColor="#F1F1F1" />
<SortedAscendingHeaderStyle BackColor="#808080" />
<SortedDescendingCellStyle BackColor="#CAC9C9" />
<SortedDescendingHeaderStyle BackColor="#383838" />
</asp:GridView>
<br />
<br />
<asp:Button ID="btnedit" runat="server" Text="Edit" Width="50px" Enabled="False" /> <asp:Button ID="tbndel" runat="server" Text="Delete" Enabled="False"/> <asp:Button ID="btnfind" runat="server" Text="Find" Width="50px" /> <asp:Button ID="btnclear" runat="server" Text="Clear" Width="50px" />
<asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="~/MainMenu.aspx">Back to Registration Page?</asp:HyperLink>
<br />
<br />
<asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="D:\File Kampus\Semester 4\Pemrograman\database\dbheaven.accdb" DeleteCommand="DELETE FROM `tbl_customer` WHERE `Email` = ?" InsertCommand="INSERT INTO `tbl_customer` (`Email`, `Nama`, `Jenis_Kelamin`, `Tanggal_Lahir`, `Alamat`, `No_HP`) VALUES (?, ?, ?, ?, ?, ?)" SelectCommand="SELECT `Email`, `Nama`, `Jenis_Kelamin`, `Tanggal_Lahir`, `Alamat`, `No_HP` FROM `tbl_customer`" UpdateCommand="UPDATE `tbl_customer` SET `Nama` = ?, `Jenis_Kelamin` = ?, `Tanggal_Lahir` = ?, `Alamat` = ?, `No_HP` = ? WHERE `Email` = ?">
<DeleteParameters>
<asp:Parameter Name="Email" Type="String" />
</DeleteParameters>
<InsertParameters>
<asp:Parameter Name="Email" Type="String" />
<asp:Parameter Name="Nama" Type="String" />
<asp:Parameter Name="Jenis_Kelamin" Type="String" />
<asp:Parameter Name="Tanggal_Lahir" Type="String" />
<asp:Parameter Name="Alamat" Type="String" />
<asp:Parameter Name="No_HP" Type="String" />
</InsertParameters>
<UpdateParameters>
<asp:Parameter Name="Nama" Type="String" />
<asp:Parameter Name="Jenis_Kelamin" Type="String" />
<asp:Parameter Name="Tanggal_Lahir" Type="String" />
<asp:Parameter Name="Alamat" Type="String" />
<asp:Parameter Name="No_HP" Type="String" />
<asp:Parameter Name="Email" Type="String" />
</UpdateParameters>
</asp:AccessDataSource>
</p>
</asp:Content>
b. Source Code ASP.NET
- MainMenu.aspx.vb
Imports System.Data
Imports System.Data.OleDb
Public Class MainMenu
Inherits System.Web.UI.Page
Dim constring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\File Kampus\Semester 4\Pemrograman\database\dbheaven.accdb"
Dim con As New OleDb.OleDbConnection(constring)
Dim reader As OleDb.OleDbDataReader
Dim gender As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
chkboxman.Text = "Man"
chkboxwmn.Text = "Woman"
End Sub
Protected Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
If chkboxman.Checked = True Then
gender = "Man"
ElseIf chkboxwmn.Checked = True Then
gender = "Woman"
End If
con.Open()
Dim add As String = "INSERT INTO tbl_customer values ('" + txtemail.Text + " ', '" + txtnama.Text + "', '" + gender + "','" + txttgl.Text + "','" + txtalamat.Text + "','" + txtphone.Text + "')"
Dim cmd = New OleDbCommand(add, con)
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Add Success!")
End Sub
End Class
- CustomerDatabasePage.aspx.vb
Imports System.Data
Imports System.Data.OleDb
Public Class CustomerDatabasePage
Inherits System.Web.UI.Page
Dim constring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\File Kampus\Semester 4\Pemrograman\database\dbheaven.accdb"
Dim con As New OleDb.OleDbConnection(constring)
Dim reader As OleDb.OleDbDataReader
Dim gender As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
chkboxman.Text = "Man"
chkboxwmn.Text = "Woman"
End Sub
Protected Sub btnedit_Click(sender As Object, e As EventArgs) Handles btnedit.Click
con.Open()
Dim edit As String = "Update tbl_customer set Email = '" + txtemail.Text + "' where Nama = '" + txtnama.Text + "'"
Dim cmd = New OleDbCommand(edit, con)
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Edit Success!")
End Sub
Protected Sub tbndel_Click(sender As Object, e As EventArgs) Handles tbndel.Click
con.Open()
Dim delete As String = "DELETE * From tbl_customer WHERE Email = '" + txtemail.Text + "'"
Dim cmd = New OleDbCommand(delete, con)
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Delete Success!")
End Sub
Protected Sub btnfind_Click(sender As Object, e As EventArgs) Handles btnfind.Click
If Not Len(txtemail.Text) = 0 Then
con.Close()
con.Open()
Dim cmd As New OleDb.OleDbCommand("SELECT * From tbl_customer WHERE Email = '" + txtemail.Text + "'", con)
reader = cmd.ExecuteReader()
If reader.HasRows Then
reader.Read()
txtnama.Text = reader("Nama")
'---------------------------------------------
If reader("Jenis_Kelamin") = "Man" Then
chkboxman.Checked = True
Else
chkboxwmn.Checked = True
End If
'---------------------------------------------
txttgl.Text = reader("Tanggal_Lahir")
txtalamat.Text = reader("Alamat")
txtphone.Text = reader("No_HP")
tbndel.Enabled = True
btnedit.Enabled = True
Else
MsgBox("Data Not Found!")
End If
End If
End Sub
Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
txtemail.Text = ""
txtnama.Text = ""
txttgl.Text = ""
txtalamat.Text = ""
txtphone.Text = ""
chkboxman.Checked = False
chkboxwmn.Checked = False
tbndel.Enabled = False
btnedit.Enabled = False
End Sub
End Class
Sekian Postingan Saya Kali ini, Kurang lebihnya Mohon Maaf...
Wassallam...
Tidak ada komentar:
Posting Komentar