APLIKASI SEDERHANA PEMESANAN PRODUK

Program ini adalah program sederhana untuk melakukan pemesanan, program ini membantu untuk menentukan besaran jumlah yang harus dibayarkan oleh konsumen dan memberikan perhitungan mengenai besaran ongkos pengiriman. Dan data yang sudah diinput bisa dilihat dengan mudah dengan memasukan kode yang diberikan pada saat pemesanan. Cara kerja program ini sangan sederhana, dimana konsumen melakukan pemesanan dan pihak operator melakukan penginputan data konsumen dan produk apa yang akan dibeli, lalu pihak operator atau penjual memberikan kode produk kepada konsumen.

KONSUMEN MELAKUKAN PEMESANAN

OPERATOR ATAU PENJUAL MELAKUKAN PENGINPUTAN DATA KONSUMEN DAN PRODUK APA YANG KAN DIBELI

APLIKASI MENGHITUNG BESAR TOTAL BIAYA YANG HARUS DIBAYARKAN ( BESARAN ONGKOS KIRIM SUDAH TERSETTING DIDALAM APLIKASI BESARANNYA SESUAI KOTA)

OPEATOR MEMBERIKAN KODE BARANG KEPADA KONSUMEN SEBAGAI REFERENSI PENGECEKAN PEMESANAN

SIMPAN

Dengan menggunakan Kode Produk bisa melihat order yang sudah tersimpan. Masukkan kode barang ke dalam kolom kode barang dan klik cari.

 

Seperti ini sourch code nya :

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Partial Public Class _Default
    Inherits System.Web.UI.Page
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\kuliah\UTS PAK AGUS SMSTR5\DBpemesanan.accdb"
    Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)
    Protected Sub save_Click(ByVal sender As Object, ByVal e As EventArgs) Handles save.Click
        objekkoneksi.Open()
        Dim sqlTambah = "Insert Into pemesanan values ('" & kdbarang.Text & "','" & nmbarang.Text & "','" & harga.Text & "','" & jmpesanan.Text & "','" & alamat.Text & "','" & kota.Text & "','" & tglpemesanan.Text & "','" & ongkir.Text & "','" & total.Text & "')"
        Dim ocmd = New OleDbCommand(sqlTambah, objekkoneksi)
        ocmd.ExecuteNonQuery()
        objekkoneksi.Close()
    End Sub
    Protected Sub cari_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cari.Click
        Dim caridata As String = "SELECT* From pemesanan where Kode_Barang='" & kdbarang.Text & "'"
        Try
            Dim conn As New OleDbConnection(koneksi)
            conn.Open()
            Dim cmdData As New OleDbCommand(caridata, conn)
            Dim reader As OleDbDataReader = cmdData.ExecuteReader
            reader.Read()

            If reader.HasRows Then
                nmbarang.Text = reader("Nama_Barang")
                harga.Text = reader("Harga")
                jmpesanan.Text = reader("Jumlah_Pesanan")
                alamat.Text = reader("Alamat_Pemesan")
                kota.Text = reader("Kota_Pemesan")
                tglpemesanan.Text = reader("Tanggal_Pemesanan")
                ongkir.Text = reader("Ongkos_kirim")
                total.Text = reader("Total_Pembayaran")
            Else
                MsgBox("Data Tidak Ditemukan...!", MsgBoxStyle.Exclamation, "Perhatian")

            End If

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")

        End Try

    End Sub
    Protected Sub buat_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buat.Click
        kdbarang.Text = ""
        nmbarang.Text = ""
        harga.Text = ""
        jmpesanan.Text = ""
        alamat.Text = ""
        tglpemesanan.Text = ""
        ongkir.Text = ""
        total.Text = ""
    End Sub
   Protected Sub kota_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles kota.SelectedIndexChanged
        Select Case kota.Text
            Case "Jakarta"
                ongkir.Text = "0"
                total.Text = Val(harga.Text) + Val(ongkir.Text)
            Case "Sumatra"
                ongkir.Text = "20000"
                total.Text = Val(harga.Text) + Val(ongkir.Text)
            Case "Bali"
                ongkir.Text = "25000"
                total.Text = Val(harga.Text) + Val(ongkir.Text)
            Case Else
                ongkir.Text = "8000"
                total.Text = Val(harga.Text) + Val(ongkir.Text)



        End Select
    End Sub
End Class

Aplikasi UAS Universitas Bhayangkara Sore : Aplikasi database seleksi penerimaan karyawan tahap awal

Aplikasi ini adalah aplikasi yang digunakan untuk menginput data seleksi penerimaan karyawan tahap awal yang dilakukan oleh sebuah perusahaan. Dimana didalam aplikasi ini berisi nomor registrasi, nama, alamat, nilai materi yang diujikan pada saat test seleksi penerimaan. Dan pada aplikasi ini juga dapat menjumlah nilai-nilai secara otomatis dengan meng-klik tombol proses, dan pada tabel keterenagan juga akan muncul keterangan "LULUS" atau "TIDAK LULUS".

Yang pertama dilakakukan adalah membuat database. Pada Service > Database > klik kanan pada MySQL > Create database

Beri nama database misalkan "penerimaan" > klik OK

Dan pada database yang telah kita buat Klik kanan pada Table > Create Table

Kemudian beri nama Table  

Kemudian tambahkan kolom pada table yang telah dibuat dengan cara Add column > kemudian berinama column sesuai dengan namanya : 

Nomor Registrasi; Type : int ; primary key

Nama ; Type: Varchar size : 20

Tanggal lahir ; Type: Date 

Kode Bagian ; Type: Varchar size : 20

Alamat ; Type: Varchar size : 20

Nilai matematika ; Type: Varchar size : 20

Nilai b.indonesia ; Type: Varchar size : 20

Nilai b.inggris ; Type: Varchar size : 20

Nilai p.umum ; Type: Varchar size : 20

Jumlah Nilai ; Type: Varchar size : 20

Keterangan ; Type: Varchar size : 20

Setelah itu klik OK, maka form database sudah kita buat dan sudah siap kita gunakan.

Sekarang kita buat New project > Java > Java Aplication > beri nama "penerimaan"

 

Pada Project cari project yang telah kita buat lalu klik kanan > New >Master/Detail Sampla Form > Beri Nama pada Class Name > pada Package pilih database yang sudah kita buat tadi > Klik Finish

Akan muncul tampilan Form yang berisikan kolom yang telah kita buat pada saat membuat database tadi. Pada form tersebut kita tambahkan sebuah Button. Pilih Button > letakkan sejajar dengan Button yang sudah ada > klik kanan pada Button > edit text > ganti dengan nama Proses > OK

Kemudian klik 2x pada Button Proses > dan isikan dengan dengan kode berikut :

int matematika=Integer.parseInt(mtk.getText());

        int indo=Integer.parseInt(bindo.getText());

        int ing=Integer.parseInt(bing.getText());

        int umum=Integer.parseInt(pumum.getText());

        int jumlah=matematika+indo+ing+umum;

        jum.setText(""+jumlah);

    

    

        if(jumlah<=240){

            ket.setText("TIDAK LULUS");

        }else if (jumlah>=240){

            ket.setText("LULUS");

        }

Setelah selesai memasukkan coding nya klik kanan > run file.

Kolom jumlah nilai dan keterangan akan terisi saat kita mengklik tombol proses, tapi dengan syarat semua kolom sudah terisi semua.

sourch :
https://www.dropbox.com/sh/keyqlj71znodbpy/AAAl1AFhNZ9RWYVL08yGefhEa

Aplikasi UTS Universitas Ubhara Teknik Informatika

Program ini adalah program untuk menginput data mesin EDC ( Electronic Data Capture ) yang dapat digunakan pada admin perusahaan penyedia barang dan jasa mesin EDC, pada aplikasi ini diinput Terminal ID, Merchant ID, Nama Merchant, Kota, dan Alamat Merchant. Pada bagian paket menu adalah informasi menu yang ada pada sebuah mesin EDC.

1. code pada class pertama ( membuat variable ) : 

public class UTS {
  
    String tid, mid, merchant, kota, alamat, paket;
    public UTS (){}
  
    public UTS (String ti, String mi, String mc, String kt, String alm, String pk){
        setData (ti, mi, mc, kt, alm, pk);
    }
   private void setData (String ti, String mi, String mc, String kt, String alm, String pk)
   {
       tid = ti;
       mid = mi;
       merchant = mc;
       kota = kt;
       alamat = alm;
       paket = pk;
   }

    private void setData(String ti, String mi, String kt, String alm, String pk) {
        throw new UnsupportedOperationException("Not supported yet."); //To change body of generated methods, choose Tools | Templates.
    }
}

2. code pada class kedua ( tombol ADD ) :

private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {                                         

new UTS2 (this, rootPaneCheckingEnabled).show();

        // TODO add your handling code here:

    }                                        

3. code pada class ketiga ( kolom isian data ) :

private void formWindowActivated(java.awt.event.WindowEvent evt) {                                     

        // TODO add your handling code here:

        for (int i=1;i<32;i++){

        cmbtg.addItem(""+i);

        for (int t=2000;t<2101;t++){

            cmbthn.addItem(""+t);

        }

    }

        

       

                 

        

               

    }                                    

    private void cmbpaketActionPerformed(java.awt.event.ActionEvent evt) {                                         

        // TODO add your handling code here:

        if(cmbpaket.getSelectedItem()=="1"){

            txtpaket.setText("PURCHASE");

            }else if(cmbpaket.getSelectedItem()=="2"){

            txtpaket.setText("PURCHASE,E-MONEY");

            }else if(cmbpaket.getSelectedItem()=="3"){

            txtpaket.setText("PURCHASE,MINI ATM");

            }else if(cmbpaket.getSelectedItem()=="4"){

            txtpaket.setText("MINI ATM,E-MONEY");

            }

    }                                        

    private void txtcancelActionPerformed(java.awt.event.ActionEvent evt) {                                          

        // TODO add your handling code here:

        new UTS1().show();

 dispose();

    }                                         

    private void txtsaveActionPerformed(java.awt.event.ActionEvent evt) {                                        

        // TODO add your handling code here:

        String TID = txttid.getText();

        String MID = txtmid.getText();

        String MERCHANT = txtmerchant.getText();

        String KOTA = txtkota.getText();

        String ALAMAT = txtalamat.getText();

        String PAKET = txtpaket.getText();

        UTS m = new UTS (TID, MID, MERCHANT, KOTA, ALAMAT, PAKET);

        

        JOptionPane.showMessageDialog(rootPane, "DATA YANG ANDS MASUKKAN:\n"

        + "TID: " + m.tid + "\n"

         + "MID:" + m.mid + "\n"

        + "MERCHANT: " + m.merchant + "\n"

        + "KOTA: " + m.kota + "\n"

        + "ALAMAT: " + m.alamat + "\n"

        + "PAKET: " + m.paket);

                

        

        

        

    }                                       

Membuat Table GUI Input Data Sederhana

Pada posting yang pertama ini saya ingin berbagi tentang bagaimana cara membuat Table GUI Input Data sederhana pada aplikasi JAVA Netbeans.

1. Pada jendela natbeans kita buat project baru

 New Project > Java > Java aplication > Next, pada project name beri nama misalkan   "CASEMONITOR" > klik Finish.
2. Buat file kelas
File > New file > Swing GUI Forms > Java Class > Next, pada class name beri nama misalkan "CASE".
> Klik Finish.
3. Edit kode pada kelas CASE seperti dibawah ini


* To change this license header, choose License Headers in Project Properties.
 * To change this template file, choose Tools | Templates
 * and open the template in the editor.
 */

package casemonitor;

/**
 *
 * @author user
 */
public class CASE {
    String tid, mid, merchant, kasus;
    public CASE (){}
  
    public CASE (String ti, String mi, String mc, String ks){
        setData (ti, mi, mc, ks);
    }
   private void setData (String ti, String mi, String mc, String ks)
   {
       tid = ti;
       mid = mi;
       merchant = mc;
       kasus = ks;
   }
}

4. Selanjutnya buat Form
File > New File > Swing GUI Forms > JFrame Form > Klik next, pada class name beri nama misalkan "GUI" > Klik Finish.
5. Buat table GUI seperti ini

NB: Cara memasang object-object kontrol:
Klik, tahan dan seret object kontrol ke atas frame
Klik kanan pada object kontrol, klik Edit Text, untuk mengubah tulisan yang tampil.

6.Klik kanan pada Text Field 1, pilih Change Variable Name isikan txtTID
7.Klik kanan pada Text Field 2, pilih Change Variable Name isikan txtMID
8.Klik kanan pada Text Field 3, pilih Change Variable Name isikan txtMERCHANT
9.Klik kanan pada Text Field 4, pilih Change Variable Name isikan txtCASE
10.Klik kanan pada Botton, pilih Change Variable Name isikan tombolProses
11.Klik object tombolProses, klik: Window → Properties
       Klik: Events

12.Klik actionPerformed, klik Browse

13.Klik "Add" lalu pada  "New hendler name" isikan klikTombolProses > Klik OK > Klik OK

14.Selanjutnya ketikan kode

private void kliktombolproses(java.awt.event.ActionEvent evt) {                                  

        // TODO add your handling code here:

        String TID = txtTID.getText();

        String MID = txtMID.getText();

        String MERCHANT = txtMERCHANT.getText();

        String KASUS = txtCASE.getText();

        CASE m = new CASE (TID, MID, MERCHANT, KASUS);

        

        JOptionPane.showMessageDialog(rootPane,

                "DATA MERCHANT YANG ANDA MASUKAN:\n"

        + "TID: " + m.tid + "\n"

        + "MID:" + m.merchant + "\n"

        + "MERCHANT: " +m.merchant + "\n"

        + "CASE: " + m.kasus);

15. Kembali pada CASEMONITOR buat kode seperti ini

public static void main(String[] args) {

        // TODO code application logic here

        new gui().setVisible(true);

    }

16. Setelah di RUN maka tampilannya akan seperti ini