Wednesday, June 21, 2017

PRAKTEK PEMROGRAMAN SQL

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
 







Tuesday, May 30, 2017

PRAKTEK PEMROGRAMAN SQL

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. 


https://2.bp.blogspot.com/-PD-Q3Zr0D0c/WS2CYx3h92I/AAAAAAAAAME/JPNpgEvDFQQP0ZUGZbVothgYvWCLRidnACLcB/s1600/relasi.png


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 👱

Tuesday, May 23, 2017

Praktek Pemrograman SQL

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
 
 
 

Tuesday, May 2, 2017

Praktek Pemrograman SQL

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
 






Template by:

Free Blog Templates