Latihan Visual Basic 11

Rancangan Form
Komponent dan Propertinya
Coding
 

1. Rancangan Form
Rancanglah sebuah form seperti berikut :

1. Komponen dan Properti Rancangan Form
Komponen dan properti yang digunakan dalam rancangan tersebut adalah sebagai berikut :


component	name
textbox1	nip
textbox2	nama_karyawan
combobox1	jabatan_karyawan
combobox2	status_karyawan
textbox3	gaji_pokok
textbox4	tunjangan_keluarga
textbox5	tunjangan_keluarga
textbox6	pph
textbox7	gaji_kotor
textbox8	gaji_bersih
button1	simpan
datagridview	gridme
textbox9	total_gaji

2. Ketentuan operasi proram ;

* Isilah kolom kolom gaji

-Jika jabatan Kabag gaji = 500000

-Jika jabatan Staff gaji = 400000

-Jika jabatan Adm gaji = 250000

* Isilah kolom tunjangan keluarga = jika menikah 15% x gaji pokok

* Isilah kolom PPh = 2,5% x gaji pokok

* Isilah kolom gaji kotor = gaji pokok + tunjangan keluarga

* Isilah kolom gaji bersih = gaji kotor - pph

3. Codingnya :

Public Class latihanexcell11 Sub total() Dim HitungHarga As Integer = 0 For I As Integer = 0 To gridme.Rows.Count - 1 HitungHarga = HitungHarga + Val(gridme.Rows(I).Cells(8).Value) total_gaji.Text = HitungHarga Next End Sub Private Sub jabatan_karyawan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan_karyawan.SelectedIndexChanged If jabatan_karyawan.Text = "Kabag" Then gaji_pokok.Text = 500000 ElseIf jabatan_karyawan.Text = "Staff" Then gaji_pokok.Text = 400000 ElseIf jabatan_karyawan.Text = "Adm" Then gaji_pokok.Text = 250000 Else MsgBox("Nama Jabatan Salah !") End If End Sub Private Sub status_karyawan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status_karyawan.SelectedIndexChanged If status_karyawan.Text = "Nikah" Then tunjangan_keluarga.Text = (15 / 100) * Val(gaji_pokok.Text) Else tunjangan_keluarga.Text = 0 End If End Sub Private Sub gaji_pokok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji_pokok.TextChanged pph.Text = (2.5 / 100) * Val(gaji_pokok.Text) End Sub Private Sub tunjangan_keluarga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunjangan_keluarga.TextChanged gaji_kotor.Text = Val(gaji_pokok.Text) + Val(tunjangan_keluarga.Text) End Sub Private Sub gaji_kotor_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji_kotor.TextChanged gaji_bersih.Text = Val(gaji_kotor.Text) + Val(pph.Text) End Sub Private Sub no_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load jabatan_karyawan.Items.Add("Staff") jabatan_karyawan.Items.Add("Kabag") jabatan_karyawan.Items.Add("Adm") status_karyawan.Items.Add("Nikah") status_karyawan.Items.Add("Belum Menikah") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click gridme.Rows.Add(1) gridme.Rows(gridme.RowCount - 2).Cells(0).Value = NIP.Text gridme.Rows(gridme.RowCount - 2).Cells(1).Value = nama_karyawan.Text gridme.Rows(gridme.RowCount - 2).Cells(2).Value = jabatan_karyawan.Text gridme.Rows(gridme.RowCount - 2).Cells(3).Value = status_karyawan.Text gridme.Rows(gridme.RowCount - 2).Cells(4).Value = gaji_pokok.Text gridme.Rows(gridme.RowCount - 2).Cells(5).Value = tunjangan_keluarga.Text gridme.Rows(gridme.RowCount - 2).Cells(6).Value = pph.Text gridme.Rows(gridme.RowCount - 2).Cells(7).Value = gaji_kotor.Text gridme.Rows(gridme.RowCount - 2).Cells(8).Value = gaji_bersih.Text gridme.Update() Call total() End Sub End Class

Mendefinisikan Koneksi Data Base MySql (NetBeans)

public class Menu_Laporan extends javax.swing.JFrame {
public Connection conn;

Report Query dengan Parameter AND dan YEAR (iReport)

WHERE
produksi.id_kar=$P{ID_KARYAWAN}
AND produksi.kode_produk=$P{KODE_PRODUK}
AND YEAR(produksi.tgl_produksi)=$P{TAHUN}

Report Query dengan Parameter AND dan BETWEEN (iReport)

WHERE
produksi.id_kar=$P{id_karyawan}
AND produksi.tgl_produksi BETWEEN $P{dari_tgl} AND $P{ke_tgl}

Memanggil Prosedur (NetBeans)

    public Menu_Laporan() {
        initComponents();
        tampil_id_karyawan();
        tampil_tanggal();
        tampil_kode_produk();
    }

Memanggil Laporan Berparameter dengan jButton (NetBeans)

 private void jButton_bulananActionPerformed(java.awt.event.ActionEvent evt) {                                               
        // TODO add your handling code here:
        try {
            String nmFile = "D:/Java_Produksi/lap_bulanan_produksi.jasper";
            sambung_db();
            HashMap hash = new HashMap(2);
            hash.put("id_karyawan",jComboBox_id_Jaryawan.getSelectedItem());
            hash.put("tahun",jComboBox_tahun.getSelectedItem());
            hash.put("bulan",jComboBox_bulan.getSelectedItem());
            File file=new File(nmFile);
            JasperReport jasperReport=(JasperReport)JRLoader.loadObject(file.getPath());
            JasperPrint jasperPrint=JasperFillManager.fillReport(jasperReport,hash,conn);
            JasperViewer.viewReport(jasperPrint,false);
            JasperViewer.setDefaultLookAndFeelDecorated(true);
        } catch (Exception e) {
            JOptionPane.showMessageDialog(null, "Laporan Tidak Dapat Dicetak !\n" +
                e.getMessage(), "Cetak Laporan", JOptionPane.ERROR_MESSAGE);
        }
    }                                              

Prosedur Menampilkan Isi Data Base Ke JComboBox (NetBeans)

private  void tampil_tanggal(){
    try {
            sambung_db();
            String sql="SELECT tgl_produksi FROM produksi";
            Statement stat=conn.createStatement();
            ResultSet res=stat.executeQuery(sql);
            while (res.next()){
                jComboBox_dari_tgl.addItem(res.getString(1));
                jComboBox_ke_tgl.addItem(res.getString(1));
            }       
    } catch (Exception e) {
    }
}

Koneksi NetBean ke Data Base MySql (NetBean)

private void sambung_db(){
    try {
        String driver="com.mysql.jdbc.Driver";
            String konek="jdbc:mysql://localhost/db_produksi";
            String user="root";
            String password="";
            Class.forName(driver);
            conn=DriverManager.getConnection(konek,user,password);
    } catch (Exception e) {
    }
}

Macam-macam library yang perlu di import ke NetBean untuk pemanggilan report di Ireport (NetBean)

package menu_laporan_produksi;
import java.sql.ResultSet;
import java.io.File;
import java.sql.Connection;
import java.sql.DriverManager;
import java.sql.Statement;
import java.util.HashMap;
import javax.swing.JOptionPane;
import net.sf.jasperreports.engine.JasperFillManager;
import net.sf.jasperreports.engine.JasperPrint;
import net.sf.jasperreports.engine.JasperReport;
import net.sf.jasperreports.engine.util.JRLoader;
import net.sf.jasperreports.view.JasperViewer;

Modul Koneksi ke Database MySql (Vb.Net 2008)

Imports System.Data.Odbc
Imports System.Data

Module Module1
     Public conn As OdbcConnection
     Public da As OdbcDataAdapter
     Public ds As DataSet
     Public dtreader As OdbcDataReader
     Public cmd As OdbcCommand
     Public strcon As String

Public Sub koneksi()
    strcon = “Dsn=mydbbrg”
    conn = New OdbcConnection(strcon)
    If conn.State = ConnectionState.Closed Then
       conn.Open()
    End If
End Sub

End Module

Memperbaiki Data (Vb.Net 2008)

Sub perbaiki_data()

        Dim perbaiki As String = ("UPDATE kota SET nama='" & txt_nama_kota.Text & "',id_negara='" & combo_id_negara.Text & "' WHERE id_kota='" & txt_id_kota.Text & "'")

        Cmd = New Odbc.OdbcCommand(perbaiki, Conn)

        Cmd.ExecuteNonQuery()

        btn_simpan.Enabled = False

    End Sub

Menghapus Data (VB.Net 2008)

    Sub hapus_data()

        Dim hapus As String = "DELETE FROM kota WHERE id_kota='" & txt_id_kota.Text & "'"

        Cmd = New Odbc.OdbcCommand(hapus, Conn)

        Cmd.ExecuteNonQuery()

    End Sub

Menyimpan Data (VB.Net 2008)

    Sub simpan_data()

        'Dim tgl As String = DTP.Value.ToString("yyyy/MM/dd")

        Dim simpan As String = "INSERT INTO rental (tgl_trans,no_trans,kd_pell,kd_mobil,lama_pinjam,sub_total)VALUES('" & Format(Now.Date, "yyyy-MM-dd") & "','" & txt_no_trans.Text & "','" & cmb_kd_pell.Text & "','" & cmb_kd_mobil.Text & "','" & txt_lama_pinjam.Text & "','" & txt_sub_total.Text & "')"

        Cmd = New OdbcCommand(simpan, Conn)

        Cmd.ExecuteNonQuery()

    End Sub

Membersihkan atau Mereset Isian Form (Vb.Net 2008)

    Sub bersih_item()

        cmb_kd_mobil.Text = "--Pilih--"

        txt_tipe_mobil.Clear()

        txt_tarif.Clear()

        txt_lama_pinjam.Clear()

        txt_sub_total.Clear()

        cmb_kd_mobil.Focus()

    End Sub

Menampilkan Isi Data Grid ke Text Box Setelah Data Grid diKlik (Vb.Net 2008)

    Sub dgv_klik()

        On Error Resume Next

        Dim baris As Integer

        With DGV_Kota

            baris = .CurrentRow.Index

            txt_id_kota.Text = .Item(0, baris).Value

            txt_nama_kota.Text = .Item(1, baris).Value

            combo_id_negara.Text = .Item(2, baris).Value

        End With

        btn_simpan.Enabled = False

        btn_perbaiki.Enabled = True

        btn_hapus.Enabled = True

    End Sub