Praktek Pemrogaman SQL

Haii Sobat kali ini kita sudah diahir pertemuan, tidak terasa ya?? disini kita dikasih tugas membuat aplikasi beserta databasenya, namun sebelum keaplikasinya kita akan membuat tabel relasi, HIPO, dan desain yang akan kita terapkan di aplikasinya nanti,, yuk langsung ke intinya...

1. Gambar dibawah ini adalah relasi tabel pada database yang akan kita terapkan ke aplikasi nantinya. 

2. Dan, gambar dibawah ini adalah gambar HIPO dari aplikasi kita.
 

3. Gambar dibawah ini adalah gambar desain yang akan kita terapkan pada aplikasi.
- Form Login

- Form Menu

- Form Profil Mahasiswa

- Form Dosen

-Form Info matkul

- Form Detail Pembayaran

- Form KRS

- Form Laporan

- Form pembayaran

Semoga bermanfaat 👱

 

Praktek Pemrograman SQL

PRAKTEK RETUR BARANG

Hai sobat blogger :)

pada praktek kali ini kita akan membuat tabel retur barang , sebelum kita ke soal - soal yang diberikan terlebih dahulu kita akan membuat tabel returnya terlebih dahulu...

create table retur(

noretur varchar(10) primary key,

nonota varchar(10),

tanggalretur date,

jumlahretur int,

ketcacat varchar(50),

foreign key (nonota) references penjualan (nonota))

setelah kita selesai membuat tabel retur, kita akan mengerjakan soal - soal yang telah diberikan

1. Isi data, ambil dari data penjualan, 2 record untuk di retur

insert into retur values ('rt001','JUAL001','2017/04/18',7,'kadaluarsa')

insert into retur values ('rt002','JUAL002','2017/05/21',5,'rusak')

2. Browsing operasi matematika menggunakan SQL untuk penambahan stok barang

     karena disini tidak mendapatkan operasi matematikanya maka kita lewati nomer 2 ini

3. Alternative lain, update stok barang

update barang set jumlah=70 where kdbrg='001'

update barang set jumlah=120 where kdbrg='002'

update barang set jumlah=90 where kdbrg='003'

update barang set jumlah=160 where kdbrg='004'

update barang set jumlah=1800 where kdbrg='005'

4. Jumlah retur tidak melebihi jumlah jual

5. Tanggal retur tidak boleh sebelum tanggal jual

6. Tambahkan 5 data retur

insert into retur values ('rt003','JUAL003','2017/06/01',3,'sobek')

insert into retur values ('rt004','JUAL004','2017/10/08',5,'kadaluarsa')

insert into retur values ('rt005','JUAL005','2017/10/21',8,'rusak')

insert into retur values ('rt006','JUAL006','2017/05/11',15,'kadaluarsa')

insert into retur values ('rt007','JUAL007','2017/04/21',20,'rusak')

7. Update 3 data retur

update retur set jumlahretur=5 where nonota='rt001'

update retur set jumlahretur=7 where nonota='rt002'

update retur set jumlahretur=4 where nonota='rt003'

8. Delete record 1 data retur

delete from retur where noretur='rt001'

9. Tambahkan field jenis_paket

alter table retur add jenis_paket varchar(20)

10. Isi jenis_paket

update retur set jenis_paket='Pos' where noretur='rt002'

update retur set jenis_paket='JNE' where noretur='rt003'

update retur set jenis_paket='J&T' where noretur='rt004'

update retur set jenis_paket='Pos' where noretur='rt005'

update retur set jenis_paket='JNE' where noretur='rt006'

update retur set jenis_paket='J&T' where noretur='rt007'

Praktek Pemrograman SQL

Tugas Kelompok 

02 Mei 2017

kali ini kita akan membuat desain form beserta codingnya dengan menggunkan Visual Studio

1. Form menu

codingnya;

Public Class form_menu

    Private Sub KeluarToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles KeluarToolStripMenuItem.Click

        Close()

    End Sub

    Private Sub DataBarangToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DataBarangToolStripMenuItem.Click

        form_barang.MdiParent = Me

        form_barang.Show()

        form_supplier.Hide()

    End Sub

    Private Sub DataSupplierToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DataSupplierToolStripMenuItem.Click

        form_supplier.MdiParent = Me

        form_supplier.Show()

        form_pembelian.Hide()

    End Sub

    Private Sub DataPembelianToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DataPembelianToolStripMenuItem.Click

        form_pembelian.MdiParent = Me

        form_pembelian.Show()

        form_barang.Hide()

    End Sub

End Class

 

2. Form Barang

codingnya;


# Save

Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click

        buka_koneksi()

       

        Sql = "insert into barang values ('" & kdbrg.Text & "', '" & nmbrg.Text & "', '" & jnsbrg.Text & "', '" & harga.Text & "', '" & jumlah.Text & "', '" & kadaluarsa.Text & "')"

            comSQL = New SqlCommand(Sql, conn)

            Try

                comSQL.ExecuteNonQuery()

                MsgBox("Data Berhasil Disimpan")

               

            Catch ex As Exception

                MsgBox("Data Gagal Disimpan !!!")

        End Try

        Call updatedata()

        Call bersih()

        tutup_koneksi()

    End Sub

 

  #  Edit

Private Sub btnedit_Click(sender As Object, e As EventArgs) Handles btnedit.Click

        buka_koneksi()

        Sql = "UPDATE barang SET nmbrg='" & nmbrg.Text & "', jnsbrg='" & jnsbrg.Text & "', harga='" & harga.Text & "', jumlah='" & jumlah.Text & "', kadaluarsa='" & kadaluarsa.Text & "' WHERE kdbrg='" & kdbrg.Text & "'"

        comSQL = New SqlCommand(Sql, conn)

        Try

            comSQL.ExecuteNonQuery()

            MsgBox("Update berhasil")

            kdbrg.Enabled = True

            btnsave.Enabled = True

        Catch ex As Exception

            MsgBox("Update gagal !!")

        End Try

        Call updatedata()

        Call bersih()

        tutup_koneksi()

    End Sub

 # Delete

Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click

        Dim pesan As String

        pesan = MsgBox("Apakah Anda Ingin Menghapus Data ini ?", vbYesNo, "Konfirmasi")

        If pesan = 6 Then

            hapusbarang()

            kdbrg.Enabled = True

            btnsave.Enabled = True

        End If

    End Sub

# Laporan

    Private Sub btnlap_Click(sender As Object, e As EventArgs) Handles btnlap.Click

        laporanbrg.Show()

    End Sub

 # Close

Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click

        Close()

    End Sub

3. Form Supplier

 

codingnya;

# Edit

Imports System.Data.SqlClient

Public Class form_supplier

    Sub updatedata()

        buka_koneksi()

        Sql = "select *from supplier"

        Dim da As New SqlDataAdapter(Sql, conn)

        Dim ds As New DataSet

        da.Fill(ds)

        Dim dt As New DataTable

        For Each dt In ds.Tables

            dgvsupplier.DataSource = dt

        Next

        tutup_koneksi()

    End Sub

 # Simpan

Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click

        buka_koneksi()

        Sql = "insert into supplier values ('" & kdsup.Text & "', '" & nmsup.Text & "', '" & tgllhr.Text & "', '" & alamat.Text & "', '" & tlpkntr.Text & "', '" & cbjekel.Text & "', '" & email.Text & "', '" & txtjnsproduk.Text & "')"

        comSQL = New SqlCommand(Sql, conn)

        Try

            comSQL.ExecuteNonQuery()

            MsgBox("Data Berhasil Disimpan")

        Catch ex As Exception

            MsgBox("Data Gagal Disimpan !!!")

        End Try

        Call updatedata()

        Call bersih()

        tutup_koneksi()

    End Sub

 # Hapus

Private Sub btndelete_Click(sender As Object, e As EventArgs) Handlesbtndelete.Click

        Dim pesan As String

        pesan = MsgBox("Apakah Anda Ingin Menghapus Data ini ?", vbYesNo, "Konfirmasi")

        If pesan = 6 Then

            hapussupplier()

            kdsup.Enabled = True

            btnsave.Enabled = True

        End If

    End Sub

# Laporan

Private Sub btnlaporan_Click(sender As Object, e As EventArgs) Handles btnlaporan.Click

        lapsupplier.Show()

     End Sub

# Close

Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click

        Close()

    End Sub

 4. Form Pembelian

 codingnya ;

# Save

Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click

        buka_koneksi()

        Sql = "insert into pembelian values ('" & nonota.Text & "', '" & kodebrg.Text & "', '" & kodesup.Text & "', '" & tglbeli.Text & "', '" & jumlahbeli.Text & "', '" & hargabeli.Text & "', '" & total.Text & "')"

        comSQL = New SqlCommand(Sql, conn)

        Try

            comSQL.ExecuteNonQuery()

            MsgBox("Data Berhasil Disimpan")

        Catch ex As Exception

            MsgBox("Data Gagal Disimpan !!!")

        End Try

        Call updatedata()

        Call bersih()

        tutup_koneksi()

    End Sub

# Edit

Private Sub btnedit_Click(sender As Object, e As EventArgs) Handles btnedit.Click

        buka_koneksi()

        Sql = "UPDATE supplier SET kdbrg='" & kodebrg.Text & "', kdsup='" & kodesup.Text & "', tanggalbeli='" & tglbeli.Text & "', jumlahbeli='" & jumlahbeli.Text & "', hargabeli='" & hargabeli.Text & "', total='" & total.Text & "' WHERE nonota='" & nonota.Text & "'"

        comSQL = New SqlCommand(Sql, conn)

        Try

            comSQL.ExecuteNonQuery()

            MsgBox("Update berhasil")

            nonota.Enabled = True

            btnsave.Enabled = True

        Catch ex As Exception

            MsgBox("Update gagal !!")

        End Try

        Call updatedata()

        Call bersih()

        tutup_koneksi()

    End Sub

 #  Delete

Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click

        Dim pesan As String

        pesan = MsgBox("Apakah Anda Ingin Menghapus Data ini ?", vbYesNo, "Konfirmasi")

        If pesan = 6 Then

            hapuspembelian()

            nonota.Enabled = True

            btnsave.Enabled = True

        End If

    End Sub

 # Laporan

Private Sub btnlap_Click(sender As Object, e As EventArgs) Handles btnlap.Click

        lappembelian.Show()

    End Sub

# Close

Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click

        Close()

    End Sub

SELAMAT MENCOBA :-)