UTS-VBnet

Aplikasi Sederhana VB 2008 menggunakan database microsoft acces 2007

contoh aplikasi tentang penjualan kosmetik,yaitu langkah pertama membuat database di microsoft access 2007 ,sebagai berikut:

1.Table Penjualan

2.Data Barang

3.Data Pelanggan

 

4.Data Vendor

Se

5.Query

 

Setelah itu buka program vb 2008 lalu klik create  web site project untuk membuat project baru ,kemudian klik ASP.NET Web Site lalu klik ok , kemudian klik design.Selanjutrnya design form menurut selera anda. contohnya sebagai berikut :
-> untuk form data barang 

-> untuk coding di view
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Partial Public Class de
    Inherits System.Web.UI.Page
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\heni\Documents\transaksi.accdb"
    Dim objekoneksi As New OleDb.OleDbConnection(koneksi)
    Protected Sub txtkode_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtkode.TextChanged
        objekoneksi.Open()
        Dim sqlTambah = "Insert Into data_barang values ('" & txtkode.Text & "','" & txtnama.Text & "','" & txtharga.Text & "','" & txtvendor.Text & "' )"
        Dim ocmd = New OleDbCommand(sqlTambah, objekoneksi)
        ocmd.ExecuteNonQuery()
        objekoneksi.Close()

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Response.Redirect("viewbarang.aspx")
    End Sub

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

    End Sub
End Class

-> kemudian menambah form dengan klik projectnya kemudian klik kanan lalu klik new item maka akan tampil form baru dan untuk design form baru menggunakan nama data pelanggan ,contohnya sebagai berikut :

-> untuk codingnya sebagai berikut :
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Partial Class datapelanggan
    Inherits System.Web.UI.Page
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\heni\Documents\transaksi.accdb"
    Dim objekoneksi As New OleDb.OleDbConnection(koneksi)
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub txtkode_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtkode.TextChanged
        objekoneksi.Open()
        Dim sqlTambah = "Insert Into data_pelanggan values ('" & txtkode.Text & "','" & txtnama.Text & "','" & txttlp.Text & "','" & txtemail.Text & "' )"
        Dim ocmd = New OleDbCommand(sqlTambah, objekoneksi)
        ocmd.ExecuteNonQuery()
        objekoneksi.Close()

    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Response.Redirect("viewpelanggan.aspx")
    End Sub

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

    End Sub
End Class

-> klik projectnya lagi kemudian klik kanan lalu klik new item dan design form menggunakan nama data vendor,contohnya sebagai berikut :

-> berikut codingnya
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Partial Class Default2
    Inherits System.Web.UI.Page
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\uts pa agus\transaksi.accdb"
    Dim objekoneksi As New OleDb.OleDbConnection(koneksi)
    Protected Sub txtkode_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtkode.TextChanged
        objekoneksi.Open()
        Dim sqlTambah = "Insert Into data_vendor values ('" & txtkode.Text & "','" & txtnama.Text & "','" & txttlp.Text & "','" & txtemail.Text & "' )"
        Dim ocmd = New OleDbCommand(sqlTambah, objekoneksi)
        ocmd.ExecuteNonQuery()
        objekoneksi.Close()
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Response.Redirect("viewvendor.aspx")
    End Sub
End Class

-> kemudian buat form baru lagi dengan nama rekaptransaksi, contoh sebagai berikut :

-> untuk codingnya sebagai berikut

Partial Class rekaptransaksi
    Inherits System.Web.UI.Page

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

    End Sub
End Class


->kemudian membuat form lagi dengan nama transaksi

-> Berikut Codingnya

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Partial Class Default2
    Inherits System.Web.UI.Page
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\uts pa agus\transaksi.accdb"
    Dim objekoneksi As New OleDb.OleDbConnection(koneksi)

    Protected Sub txtid_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtid.TextChanged
        objekoneksi.Open()
        Dim sqlTambah = "Insert Into tabel_jual values ('" & txtid.Text & "','" & txtkode.Text & "','" & txtqty.Text & "' )"
        Dim ocmd = New OleDbCommand(sqlTambah, objekoneksi)
        ocmd.ExecuteNonQuery()
        objekoneksi.Close()
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Response.Redirect("rekaptransaksi.aspx")
    End Sub
End Class

-> Kemudian membuat form baru dengan nama viewbarang, berikut contohnya

-> berikut codingnya

Partial Class viewbarang
    Inherits System.Web.UI.Page

    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged

    End Sub

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

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

    End Sub
End Class

-> Kemudian buat form baru lagi dengan nama viewpelanggan

-> Selanjutnya membuat form baru dengan nama viewvendor

Cukup sekian aplikasi sederhananya & semoga bermanfaat

Aplikasi Sederhana Java Netbean menggunakan database SQL

Contoh aplikasinya tentang penjualan hp.
Setelah membuat database di SQL dan menyambungkannya dengan masterdetail akan muncul form sebagai berikut:

Setelah itu klik kanan pada textfield jumlah -> pilih event -> Focus-> LostFocus,
lalu masukan codingnya :

Kemudian buat 1 tombol dan di beri nama print,lalu klik 2x dan condingannya sebagai berikut.

Untuk lokasi dan nama filenya tergantung anda menyimpannya.

Untuk hasil aplikasinya yang sudah di run

Untuk tombol print hasil screenshootnya

Cukup sekian contoh aplikasi sedehananya & semoga bermanfaat.

Membuat Aplikasi Program Java Data Mahasiswa/Siswa Pada Pemograman JAVA(Septiyan Heni Rahayu/semester4/kelas mlm/201210225029)

Langkah-langkah Membuat Contoh Program Java Data Mahasiswa/Siswa Pada Pemograman JAVA

• Buka program netbeans.
• Pilih file-New Project-java-java aplication klik next
• Project Name : terserah dan project lokasion : terserah misalnya di local disk D:\  klik browse untuk memilih mode penyimpanan.
• Hilangkan centang create main class dan hilangkan centang set as my project 
• Finish.
• Kemudian kik kanan nama project yang telah dibuat letaknya dipojok kiri atas. Klik kanan source packages-new-javapages kemudian buat nama : terserah klik finish.
• Kemudian klik kanan nama source pages yang telah dibuat tadi-new-Jframe Form.
• Buat nama frame : latihan1 klik finish.
• Klik kanan pada area form-klik set layout-absolute layout.
• Pilih label pada pilihan komponen palette ( swing containers). Klik geser ke area form-klik kanan label-ubah nama label atau klik edit text. Lakukan ini sebanyak yang dibutuhkan misalnya untuk Judul form, Nama, alamat,npm, fakultas, jurusan,ipk,peringkat Contoh :
  
• Berarti kita membutuhkan 8 label silahkan dibuat.
• Pilih text fields pada komponen palette(swing controlrs). Klik geser ke area form untuk nama, alamat, npm, fakultas, jurusan,ipk,peringkat berarti kita membutuhkan sebanyak 6 text field dan 1combo box untuk ipk,  hapus nama text field dan combo box klik kanan edit text hapus teksnya. contoh seperti dibawah ini :
  

• Tambahkan button 2 buah. Klik button pada komponen palette (swing contorls). Klik tahan geser ke area silahkan sesuai kan tempatnya. Ubah nama button klik kanan-edit text-ubah nama tampilkan, hapus dan keluar .seperti gambar dibawah ini.
  
  
  
  
  
  
  
  
  • Kemudian ubah nama variabel text field semuanya. Klik kanan text field-change variabel name-ubah nama sesuai ini : nama kita buat  nama variabelnya nm, alamat nama variabelnya al, npm nama variabelnya npm, fakultas nama variabelnya fak, dan jurusan kita ubah nama variabel jr,ipk namavariabelnya ipk,dan peringkat nama variabelnya pr.
  • Sekarang kita akan membuat scriptnya supaya bisa ditampilkan bila diklik button tampilkan.
  • Klik kanan button “Tampilkan”events-action-action performed maka akan keluar tampilan source code.
  • Tuliskan kode script dibawah tulisan// TODO add your handling code here:
            JOptionPane.showMessageDialog(null,"SELAMAT DATANG SAUDARA \n NAMA :"+nm.getText()
                    +"\n ALAMAT :"+al.getText()+"\n NPM :"+npm.getText()+"\n FAKULTAS :"+fak.getText()+"\n JURUSAN :"+jr.getText()
                    +"\n IPK :"+ipk.getSelectedItem()
                    +"\n Peringkat :"+pr.getText(),
                    "",JOptionPane.INFORMATION_MESSAGE);
    
  • Sebelumnya ketik script warna merah ini tepat pada
     * @author LENOVO
     */
    import javax.swing.JOptionPane;
    public class latihan1 extends javax.swing.JFrame 
  • Pilih run-clean and build jika tidak ada error dan ada succses full berarti project kita sukses.
  • Pilih run-fun file hingga tampil seperti gambar dibawah ini.
     
    • Silahkan isi data nya seperti hasil gambar dibawah ini
      
    
    

    
    
    
    

  •  Klik tampilkan Dan outputnya seperti gambar dibawah ini. 
    
    
    
    
    
  • Sekarang lengkapi button hapus dengan klik kanan button hapus-events-action-action performed
  • Isikan kode ini dibawah  // TODO add your handling code here:
            // TODO add your handling code here:
             nm.setText("");
            al.setText("");
            npm.setText("");
            fak.setText("");
            jr.setText("");
            ipk.setSelectedItem("");
            pr.setText("");
    
    
    Catatan : nm, al, npm, fak, jr,ipk,pr itu adalah nama variabel text field dan jika kita klik hapus maka semua data yang diisi dikolom field akan terhapus contoh nya :  jr.setText("berarti area ini telah dihpus atau dikosongkan");
  • Dan untuk button keluar silahkan buat lagi klik kanan-events-action-action performed ketikan this.dispose();
  • Oke project kita selesai

Program Data Mahasiswa

Program Data Mahasiswa


public static void main(String[] args) {
        // TODO code application logic here
String nama;
String jk ;
String kampus ;
String kelas;
String jurusan;
String npm;

Scanner inpt= new Scanner (System.in);
    System.out.print( " Masukan Nama : " );
nama = inpt.nextLine();
    System.out.print( " Masukan Jenis Kelamin : " );
jk = inpt.nextLine();
    System.out.print (" Masukan Kampus Ubhara : " );
kampus = inpt.nextLine();
    System.out.print( " Masukan Kelas : " );
kelas = inpt.nextLine();
    System.out.print( " Masukan Jurusan : " );
jurusan = inpt.nextLine();
    System.out.print( " Masukan NPM : " );
npm = inpt.nextLine();
    System.out.println("\n");
    System.out.println(" Data Mahasiswa Ubhara ");
    System.out.println("Nama Lengkap  : " + nama);
    System.out.println ("Kampus       : " + kampus);
    System.out.println("Jenis Kelamin : " + jk);
    System.out.println("Kelas         : " + kelas);
    System.out.println("Jurusan       : " + jurusan);
    System.out.println("Npm           : " + npm);

}

}


hasilnya :