Tugas UTS Basis Data

Tugas UTS kali ini adalah membuat normalisasi database dengan menggunakan access 2010 dari sebuah faktur serta menampilkan database tersebut di dalam web dengan menggunakan visual studio  2012


faktur yang akan di normalisasi

1. Bentuk Unnormalized
Unnormalized Form adalah suatu kondisi dimana sebuah tabel yang memiliki rangkap atau data yang terduplikasi. Dalam perancangan sebuah database yang baik, hal ini tentunya akan mengurangi efisiensi.

contoh bentuk Unnormalized 

2. Normal From 1NF

Bentuk normal ke satu mempunyai ciri yaitu setiap data dibentuk dalam flat file (file data/ rata), data dibentuk dalam satu record demi satu record dan nilai dari field field berupa “atomic value”, tidak ada set atribute yang berulang-ulang atau atribute bernilai ganda (multivalue), serta tiap field hanya satu pengertian, bukan merupakan kumpulan kata yang mempunyai arti mendua, hanya satu arti saja dan juga bukanlah pecahan kata-kata sehingga artinya lain.

3. Bentuk From 2NF

Bentuk normal kedua mempunyai syarat yaitu bentuk data telah memenuhi kriteria bentuk normal kesatu, atribute bukan kunci haruslah bergantung secara fungsi pada kunci utama/ primary key, dan sudah ditentukan kunci-kunci field, dimana kunci field haruslah unik dan dapat mewakili atribute lain yang menjadi anggotanya.

3. Bentuk From 3NF

Untuk menjadi bentuk normal ketiga:

–Relasi haruslah dalam bentuk normal kedua dan semua atribute bukan primer tidak punya hubungan yang transitif.

–Setiap atribute bukan kunci haruslah bergantung hanya pada primary key dan pada primary key secara menyeluruh.

–Contoh pada bentuk normal kedua di atas termasuk juga bentuk normal ketiga karena seluruh atribute yang ada bergantung penuh pada kunci primernya.

4. Bentuk Hasil Query

5. Bentuk Tampilan Hasil Web Asp.Net

TUGAS UAS

Deskripsi Program 

program pemesanan makan pada sebuah tempat makan sederhana, yang dimana bertujuan untuk mempermudah membeli atau pengunjung dalam  memesan makanan yang ingin di pesan

Screenshot Program 

keterangan Program

pembeli cukup menuliskan pesanan pada field yang telah tersedia, lalu menekan tombol tambah untuk melakukan pesanan, yang kemudian akan tersimpan pada database.

• Tombol Tambah, yang juga berfungsi sebagai tombol pesan makanan, dimana makanan yang sudah di masukan oleh pembeli akan di simpan pada data base
• Tombol Hapus, berfungsi untuk menghapus data yang pernah di pesana atau yang sudah di pesan
• Tombol cari, berfungsi untuk mencari pesanan yang di pesan oleh pengunjung, cukup dengan memasukan nomor meja
• Tombol Ubah, berfungsi untuk melakukan perubahan pada pesanan yang pernah atau telah di pesan
• Tombol Clear, berfungsi untuk menghapus pesanan yang belum tersimpan pada data base

Souce Code Program 

Imports System.Data
Imports System.Data.OleDb
Public Class MenuUtama
    Inherits System.Web.UI.Page
    Dim sconn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\URDAL\Downloads\Eresha\UAS Pemrograman\Database1.accdb"
    Dim con As New OleDb.OleDbConnection(sconn)
    Dim reader As OleDb.OleDbDataReader
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        con.Open()
        Dim tambah As String = "INSERT INTO Apriansyah VALUES('" + txtmeja.Text + "', '" + txtmakanan.Text + "', '" + txtminuman.Text + "')"
        Dim cmd = New OleDbCommand(tambah, con)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Berhasil")
    End Sub

    Protected Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
        con.Open()
        Dim hapus As String = "DELETE*FROM Apriansyah Where NoMeja = '" + txtmeja.Text + "' "
        Dim cmd = New OleDbCommand(hapus, con)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Berhasil")
    End Sub

    Protected Sub btnubah_Click(sender As Object, e As EventArgs) Handles btnubah.Click
        con.Open()
        Dim ubah As String = "UPDATE Apriansyah set NoMeja = '" + txtmeja.Text + "'  WHERE Makanan = '" + txtmakanan.Text + "' & Minuman = '" + txtminuman.Text + "' "
        Dim cmd = New OleDbCommand(ubah, con)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Berhasil")
    End Sub

    Protected Sub btncari_Click(sender As Object, e As EventArgs) Handles btncari.Click
        con.Open()
        Dim cmd As New OleDb.OleDbCommand("SELECT *FROM Apriansyah Where NoMeja = '" + txtmeja.Text + "'", con)
        If reader.HasRows Then
            reader.Read()
            txtmakanan.Text = reader("Makanan")
            txtminuman.Text = reader("Minuman")
        Else
            MsgBox("Data Tidak Ditemukan")
        End If
    End Sub

    Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
        txtmeja.Text = ""
        txtmakanan.Text = ""
        txtminuman.Text = ""
    End Sub
End Class

program aplikasi sederhana untuk pemesanan makanan dengan visual studion 2012

1. Deskripsi program:

  program ntuk ini di buat untuk memudahkan pelanggan atau pembeli dalam memesan makanan
dengan aplikasi atau program ini pengunjung atau pembeli dapat memesan sendiri makanan yang di inginkan.

2. Contoh program

gambar tampilan program

tampilan program akan seperti ini saat di luncurkan

pengunjung dapat memilih menu yang tersedia di sini

sat pengunjung melilih beberapa item yang ingin di pesan

makan akan muncul pesanan di sebelah kanan bawah untuk memastikan kembali pesanan pembeli 

kemudia saat pengunjung klik pesan maka otomastis data pesanan pengunjung akan di input kedalam word kemudian di simpan dan di siapkan pesanannya 

3.  Source Code

Imports word = Microsoft.Office.Interop.Word

Imports excel = Microsoft.Office.Interop.Excel

 Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles CheckNasi.CheckedChanged
        If CheckNasi.Checked = True Then
            LabelNasi.Text = CheckNasi.Text
        ElseIf CheckNasi.Checked = False Then
            LabelNasi.Text = ""
        End If
    End Sub

    Private Sub CheckRendang_CheckedChanged(sender As Object, e As EventArgs) Handles CheckRendang.CheckedChanged
        If CheckRendang.Checked = True Then
            LabelLauk.Text = CheckRendang.Text
        ElseIf CheckRendang.Checked = False Then
            LabelLauk.Text = ""
        End If
    End Sub

    Private Sub CheckNasiUduk_CheckedChanged(sender As Object, e As EventArgs) Handles CheckNasiUduk.CheckedChanged
        If CheckNasiUduk.Checked = True Then
            LabelNasi.Text = CheckNasiUduk.Text
        ElseIf CheckNasiUduk.Checked = False Then
            LabelNasi.Text = ""
        End If
    End Sub

    Private Sub CheckCincang_CheckedChanged(sender As Object, e As EventArgs) Handles CheckCincang.CheckedChanged
        If CheckCincang.Checked = True Then
            LabelLauk.Text = CheckCincang.Text
        ElseIf CheckCincang.Checked = False Then
            LabelLauk.Text = ""
        End If
    End Sub

    Private Sub CheckAyam_CheckedChanged(sender As Object, e As EventArgs) Handles CheckAyam.CheckedChanged
        If CheckAyam.Checked = True Then
            LabelLauk.Text = CheckAyam.Text
        ElseIf CheckAyam.Checked = False Then
            LabelLauk.Text = ""
        End If
    End Sub

    Private Sub CheckGurame_CheckedChanged(sender As Object, e As EventArgs) Handles CheckGurame.CheckedChanged
        If CheckGurame.Checked = True Then
            LabelLauk.Text = CheckGurame.Text
        ElseIf CheckGurame.Checked = False Then
            LabelLauk.Text = ""
        End If
    End Sub

    Private Sub CheckEsTeh_CheckedChanged(sender As Object, e As EventArgs) Handles CheckEsTeh.CheckedChanged
        If CheckEsTeh.Checked = True Then
            LabelMinum.Text = CheckEsTeh.Text
        ElseIf CheckEsTeh.Checked = False Then
            LabelMinum.Text = ""
        End If
    End Sub

    Private Sub CheckEsJeruk_CheckedChanged(sender As Object, e As EventArgs) Handles CheckEsJeruk.CheckedChanged
        If CheckEsJeruk.Checked = True Then
            LabelMinum.Text = CheckEsJeruk.Text
        ElseIf CheckEsJeruk.Checked = False Then
            LabelMinum.Text = ""
        End If
    End Sub

    Private Sub CheckPuding_CheckedChanged(sender As Object, e As EventArgs) Handles CheckPuding.CheckedChanged
        If CheckPuding.Checked = True Then
            LabelMinum.Text = CheckPuding.Text
        ElseIf CheckPuding.Checked = False Then
            LabelMinum.Text = ""
        End If
    End Sub

    Private Sub CheckTawar_CheckedChanged(sender As Object, e As EventArgs) Handles CheckTawar.CheckedChanged
        If CheckTawar.Checked = True Then
            LabelMinum.Text = CheckTawar.Text
        ElseIf CheckTawar.Checked = False Then
            LabelMinum.Text = ""
        End If
    End Sub


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim aplikasi As New word.Application
        Dim dokumen As word.Document

        dokumen = aplikasi.Documents.Open("D:\kuliah\RumahMakan.docx")

        dokumen.Bookmarks("Nasi").Select()
        aplikasi.Selection.TypeText(LabelNasi.Text)

        dokumen.Bookmarks("Lauk").Select()
        aplikasi.Selection.TypeText(LabelLauk.Text)

        dokumen.Bookmarks("Minuman").Select()
        aplikasi.Selection.TypeText(LabelMinum.Text)

        dokumen.SaveAs("D:\kuliah\RumahMakanN.docx")
        aplikasi.Visible = True

Aplikasi Transaksi Sederhana

Program Transaksi sederhana berbasis GUI dengan Java Netbeans

pengguna dapat menggunakan Aplikasi ini untuk mepermudah proses transaksi penjualan berikut ini saya tampilkan hasil screenshot dan serta Source Code yang digunakan 

Tampilan Awal :

dilanjukan dengan mengklik pilihan barang yang tersedia, maka akan menampilkan barang yang di jual

jika anda memilih salah satu barang yang tersedia maka akan menampilkan harga dari barang yang anda pilih :

disini saya mencontohkan dengan memilih "TV" maka harga yang muncul adalah harga TV tersebut, begitupun jika anda memilih barang lainnya:

lalu anda masukan banyaknya barang yang ingin di beli pada kolom "Beli" lalu setelah itu anda klik tombol "Hitung" maka akan menampilkan "Total Harga" seperti gambar diatas:

jika anda memasukan nomilal yang dibayar pada kolom "Bayar" lalu mengklik tombol "Hitung" maka akan memunculkan jumlah "Kembalian" 

kemudian jika anda klik tombol "Batal" maka akan membatalkan semua proses dan mengkosongkan semua kolom yang terisi 

lalu tombol "keluar" untuk keluar dari aplikasi tersebut:

Berikut adalah Source Code yang saya gunakan pada aplikasi tersebut:

Buat design sebagai berikut;

lalu ganti isi jComboBox dengan yang anda inginkan, disini saya isi dengan TV, Kulkas, AC

pada Source awal masukan kode brikut:

pada jComboBox isikan Source brikut;

pada tombol "Hitung" masukan Source berikut;

PadaTextField "Bayar" isikan Source berikut:

Pada tombol "Batal" isikan Source berikut:

Lalu pada tombol "Keluar" isikan Source berikut:

Demikian pembuatan program aplikasi transaksi sederhan dengan Java Netbeans 

Selamat Mencoba :)