UAS PSQL

selasa, 20 Juni 2017 

haiii sobat blogger, kali ini di UAS PSQL saya dan kelompok saya membuat program yang menggunakan database SQL Server  dengan aplikasi berbasis dekstop dengan judul Sistem Informasi Pembayaran SPP :

1.   Form Login

 

2. Form Menu Utama

Didalam form menu utama :

1. Form Menu Data Master

 

Didalam data form Master terdapat 3 Menu

• Data Siswa

•  Data petugas  
  

• Data Kelas
  

2. Form data Transaksi pembayaran

3. Form Laporan
 

Selasa, 30 Mei 2017

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 👱

Membuat Tabel Retur

Selasa, 23 Mei 2017

create table retur(

Noretur varchar(10) primary key,

Nonota varchar(10),

Tanggalretur date,

Jumlahretur int,

Keterangancacat varchar(50),

foreign key (Nonota) references Penjualan (Nonota))

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

 

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

 

 

 

4. Jumlah retur tidak melebihi jumlah jual

5. Tanggal retur tidak boleh sebelum tanggal jual

6. Tambahkan 5 data retur

 

 

7. Update 3 data retur

 

 

8. Delete record 1 data retur

 

 

9. Tambahkan field jenis_paket

 

 

10. Isi Jenispaket

 

 

 

Tugas Kelompok 

02 Mei 2017

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

1. Form Menu

Berikut codingnya:

-Form Menu

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

Berikut codingnya:

-Form Barang

-         # 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

 Berikut codingnya:

-Form  Supplier

-          #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

Berikut codingnya:

-form pembelian

-          #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