UAS Lab SMBD

TabelWaiter

JadwalReservasi

Database ini adalah database restoran dalam jadwal reservasi tempat oleh pelanggan dan siapa yang akan menjadi waiter utama dalam melayani pelanggan tersebut.

Trigger:
Jika ada pelanggan baru yang mereservasi tempat.
CREATE TRIGGER TambahJadwal on JadwalReservasi
for insert
as
update data set data.JamReservasi = data.JamReservasi = mdl.JamReservasi
from JadwalReservasi mdl join inserted data on data.KodeWaiter = mdl.KodeWaiter

Stored Procedure:
 CREATE PROCEDURE TambahWaiter
 @KodeWaiter Short Text(50), @Nama Short Text (50), @Alamat Short Text (50)
AS
BEGIN
SET NOCOUNT ON
INSERT INTO DataWaiter
(
KodeWaiter, Nama, Alamat
)
VALUES
(
@KodeWaiter, @Nama, @Alamat
)
 END

UTS Lab. SMBD

1NF
Table_Penjualan (ID_Pelanggan, Nama_Pelanggan, ID_Merk, Merk_Barang, Kondisi_Barang, Harga_Barang)

2NF dan 3NF
Table_Penjualan (ID_Pelanggan, Nama_Pelanggan, ID_Merk, Kondisi_Barang)
Table_Harga (Kondisi_Barang, Harga_Barang)
Table_Barang (ID_Merk, Merk_Barang)

Database:






WebForm:

Source:

Imports System.Data
Imports System.Data.OleDb

Public Class WebForm2
    Inherits System.Web.UI.Page

    Public constring As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
    Public oConn As New OleDbConnection(constring)
    Public oTbl As New DataTable
    Public xReader As OleDbDataReader

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        oConn.Close()
        oConn.Open()
        Dim Cmd As New OleDbCommand("SELECT * FROM Table_Penjualan where ID_Pelanggan ='" + TxtIDPelanggan.Text + "'", oConn)
        xReader = Cmd.ExecuteReader
        If xReader.HasRows Then
            xReader.Read()
            TxtNamaPelanggan.Text = xReader("Nama_Pelanggan")
            TxtIDMerk.Text = xReader("ID_Merk")
            TxtKondisiBrg.Text = xReader("Kondisi_Barang")


        Else
            MsgBox("Kode Buku Tidak Ada")
            TxtIDPelanggan.Text = ""
            TxtNamaPelanggan.Text = ""
            TxtIDMerk.Text = ""
            TxtKondisiBrg.Text = ""

            Exit Sub
        End If
        xReader.Close()


    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim sql As String = "INSERT INTO Tabel_Pelanggan VALUES ('" & TxtIDPelanggan.Text & "','" & TxtNamaPelanggan.Text & "','" & TxtIDMerk.Text & "','" & TxtKondisiBrg.Text & "')"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim sql As String = " UPDATE Tabel_Pelanggan set Nama_Pelanggan  ='" & TxtNamaPelanggan.Text & "', ID_Merk = " & TxtIDMerk.Text & ", Kondisi_Barang = '" & TxtKondisiBrg.Text & "' where ID_Pelanggan = '" & TxtIDPelanggan.Text & "'"

        Dim oCmd As New OleDbCommand
        oConn.Close()
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim hapus = MsgBox("Konfirmasi", MsgBoxStyle.YesNo, "Hapus")

        If hapus = vbYes Then
            oConn.Close()
            oConn.Open()
            Dim delet As String = "DELETE FROM Tabel_Pelanggan where ID_Pelanggan ='" + TxtIDPelanggan.Text + "'"
            Dim oCmd As New OleDbCommand
            oConn.Close()
            oConn.Open()
            oCmd.Connection = oConn
            oCmd.CommandText = delet
            oCmd.ExecuteNonQuery()
            MsgBox("Sudah terhapus", vbArchive)

            TxtIDPelanggan.Text = ""
            TxtNamaPelanggan.Text = ""
            TxtIDMerk.Text = ""
            TxtKondisiBrg.Text = ""

        End If

    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Response.Redirect("WebForm1.aspx")
    End Sub
End Class

UAS Pemrograman Bisnis 2

Saya membuat aplikasi database Rental DVD.

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If TextBox1.Text = "Admin" Then

            TextBox2.Text = "admin"

            Form2.Show()

            Me.Hide()

        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Me.Hide()

    End Sub

End Class

Imports System.Data

Imports System.Data.Sql

Imports System.Data.OleDb

Public Class Form2

    Dim connection As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Lukman Hakim\Documents\dhany.accdb"

    Dim objekkoneksi As New OleDb.OleDbConnection(connection)

    Dim xreader As OleDbDataReader

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        objekkoneksi.Close()

        objekkoneksi.Open()

        Dim add As String = "INSERT INTO TableTransaksi values('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox5.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "', '" & TextBox4.Text & "')"

        Dim ocmd = New OleDbCommand(add, objekkoneksi)

        ocmd.ExecuteNonQuery()

        objekkoneksi.Close()

        MsgBox("Berhasil")

        Form3.Show()

    End Sub

End Class

UTS Pemrograman Bisnis 2

Form Pembelian

Design:























 buatlah variable harga barang dan harga kirim terlebih dahulu

Public Class Form1
    Public hrgbarang, hrgkirim As Integer

Lalu mulailah kodingnya:

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Select Case ComboBox1.Text
            Case "Kipas Angin"

                TextBox1.Text = "Rp. 50000"

                hrgbarang = 50000
            Case "Mesin Cuci"

                TextBox1.Text = "Rp. 80000"

                hrgbarang = 80000
            Case "Televisi"

                TextBox1.Text = "Rp. 120000"

                hrgbarang = 120000
        End Select
    End Sub

lalu untuk pengirimannya:

Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

        Select Case ComboBox2.Text
            Case "Jabodetabek"

                TextBox2.Text = "Rp. 15000"

                hrgkirim = 15000
            Case "Luar Jabodetabek"

                TextBox2.Text = "Rp. 25000"

                hrgkirim = 25000
        End Select
    End Sub

koding tombol "Hitung" :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim banyakbarang, total As Integer

        banyakbarang = TextBox3.Text

        total = (hrgbarang * banyakbarang) + hrgkirim

        TextBox4.Text = hrgbarang * banyakbarang
        TextBox4.Text = hrgkirim
        TextBox4.Text = "Rp" & total.ToString

    End Sub

untuk checkbox :

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
 If CheckBox1.Enabled = False Then
            ComboBox2.Visible = False

        End If

        If CheckBox1.Enabled = True Then

            ComboBox2.Visible = True

            Label3.Visible = True

        End If
    End Sub

dan terakhir untuk tombol "Simpan" yang akan menyimpan data ke MS Excel:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MyExcelBook = excelApp.Workbooks.Open("D:\Pemesanan.xlsx")

        excelApp.Range("A2").Value = ComboBox1.Text
        excelApp.Range("B2").Value = ComboBox2.Text
        excelApp.Range("C2").Value = TextBox1.Text
        excelApp.Range("D2").Value = TextBox2.Text
        excelApp.Range("E2").Value = TextBox3.Text
        excelApp.Range("F2").Value = TextBox4.Text

        MyExcelBook.SaveAs("D:\Pemesanan.xlsx")

        excelApp.Visible = True

    End Sub
End Class

yang akan menampilkan seperti ini:








Terima Kasih

UAS Pemrograman Bisnis

Muhammad Dhany Arrozie
1506760952
Akuntansi TSI

Penghitung Nilai Mahasiswa

Design:

Disini kita akan menjumlahkan nilai dan menentukan mahasiswa tersebut lulus atau tidak

Sebagai contoh dalam program ini, keseluruhan nilai tugas akan ditambah dan dikali 25% (2.5/10), dan Absensi dikali 5% (0.5?10) .Nilai Uts dan Nilai Uas masing-masing diberi nilai 30% (3/10) dan 40%(4/10)

Lalu total nilai akan dihitung , bila nilai tersebut kurang dari 65 ,maka mahasiswa tersebut tidak lulus.

File Excel untuk data - datanya:

Source Code:

Public Class Form1

    Private Sub Button2_Click(sender As Object, e As EventArgs) HandlesButton2.Click

        TextTotal.Text = ((TextAbsen.Text) * 0.5 / 10 + ((TextTugas.Text) * 2.5 / 10) + ((TextUTS.Text) * 3 / 10) + ((TextUAS.Text) * 4 / 10)

        If TextTotal.Text >= 65 Then

            TextKeterangan.Text = "Lulus"

        Else  TextKeterangan.Text = "Tidak Lulus"

        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) HandlesButton1.Click

              Dim nilai8 As Object

        Dim nilai7 As Object

        Dim nilai6 As Object

        Dim nilai5 As Object

        Dim nilai4 As Object

        Dim nilai3 As Object

        Dim nilai2 As Object

        Dim nilai1 As Object

        Dim noFile As Short

        noFile = FreeFile()

        FileOpen(noFile, "D: \MHS.csv", OpenMode.Append)

        nilai1 = TextMahasiswa.Text

        nilai2 = TextNPM.Text

        nilai3 = TextAbsen.Text

        nilai4 = TextTugas.Text

        nilai5 = TextUTS.Text

        nilai6 = TextUAS.Text

        nilai7 = TextTotal.Text

        nilai8 = TextKeterangan.Text

        ListBox1.Items.Add(nilai1 & "---" & nilai2 & "---" & nilai3 & "---" & nilai4 & "--" & nilai5 & "---" & nilai6 & "---" & nilai7 & "---" & nilai8 & "---")

        WriteLine(1, nilai1, nilai2, nilai3, nilai4, nilai5, nilai 6)

        FileClose(1)

    End Sub

 

    Private Sub Button3_Click(sender As Object, e As EventArgs) HandlesButton3.Click

        Dim x = MsgBox("Anda Mau Keluar?", MsgBoxStyle.YesNo +MsgBoxStyle.Question, "Konfirmasi")

        If x = vbYes Then

            Me.Close()

        End If

    End Sub

End Class