Newest Post
Pada hari ini saya akan membahas tentang Rekayasa Perangkat Lunak (RPL). Dimana untuk tugas mata kuliah Rekayasa perangkat lunak (RPL).
Pengertian Rekayasa Perangkat Lunak - Rekayasa Perangkat Lunak atau sering yang kita kenal dengan nama RPL. Rekayasa Perangkat Lunak pasti bukan hal yang asing digunakan di dunia digital seperti saat ini. Rekayasa perangkat lunak sangat berhubungan dengan adanya perangkat lunak.
Rekayasa Perangkat Lunak tentu bukan hal yang asing digunakan di dunia digital seperti saat ini. Rekayasa perangkat lunak sangat berhubungan dengan adanya perangkat lunak.
Microsoft word, Google music, Whatsapp, Facebook, dan Instagram merupakan beberapa contoh perangkat lunak yang sering kita digunakan. kita mungkin termasuk salah satu pengguna dari perangkat lunak ini.
Namun, pernahkah kita bertanya-tanya Seperti ini?
Dari
Gambar di atas dapat diartikan bahwa bidang rekayasa akan selalu
berusaha menghasilkan output yang kinerjanya tinggi, biaya rendah dan
waktu penyelesaian yang tepat. Secara lebih khusus kita dapat menyatakan
tujuan RPL adalah:
RUANG LINGKUP REKAYASA PERANGKAT LUNAK (RPL)
Secara umum, kita dapat merangkum materi rekayasa perangkat lunak ke dalam beberapa ruang lingkup ilmu. Berikut ini ruang lingkup RPL secara umum
Microsoft Windows sangat di butuhkan dalam sebuah komputer ataupun laptop dimana kita bisa memilih untuk menggunakan sistem operasi untuk komputer dan laptop kita.
Driver komputer adalah sebuah perangkat lunak yang bertugas mengontrol setiap perangkat keras yang terpasang di komputer.
5. Perangkat Lunak Game
sekian pembahasan tentang rekayasa perangkat lunak, kurang dan salahnya mohon di koreksi dan tinggalkan pesan di kolom komentar :D.. Thank You...
Pengertian Rekayasa Perangkat Lunak - Rekayasa Perangkat Lunak atau sering yang kita kenal dengan nama RPL. Rekayasa Perangkat Lunak pasti bukan hal yang asing digunakan di dunia digital seperti saat ini. Rekayasa perangkat lunak sangat berhubungan dengan adanya perangkat lunak.
Rekayasa Perangkat Lunak tentu bukan hal yang asing digunakan di dunia digital seperti saat ini. Rekayasa perangkat lunak sangat berhubungan dengan adanya perangkat lunak.
Microsoft word, Google music, Whatsapp, Facebook, dan Instagram merupakan beberapa contoh perangkat lunak yang sering kita digunakan. kita mungkin termasuk salah satu pengguna dari perangkat lunak ini.
Namun, pernahkah kita bertanya-tanya Seperti ini?
- Bagaimana proses penciptaan perangkat lunak yang sering anda gunakan?
- Bagaimana Instagram dapat selalu mengetahui bagian mana yang harus diperbaharui dari aplikasi yang sudah mereka upload?
- Berapa biaya yang dikeluarkan Mark Zuckerberg dalam merawat Facebook hingga saat ini?
- Bagaimana Youtube bisa menghasilkan keuntungan hingga triliunan rupiah?
 |
| RPL |
Apa itu Rekayasa perangkat Lunak (RPL)?
 |
| Rekayasa perangkat lunak |
Sebelum mempelajari tentang RPL atau Rekayasa Perangkat Lunak, ada baiknya kita mengetahui pengertian perangkat lunak terlebih dahulu.
Perangkat lunak adalah data yang sudah diformat dan disimpan secara digital di dalam suatu perangkat digital (komputer, smartphone, atau perangkat digital lainnya) yang memiliki informasi yang bisa dibaca serta bisa ditulis dengan menggunakan perangkat digital.Perangkat lunak bisa juga disebut sebagai sistem komputer yang tidak berwujud. Suatu komputer tanpa perangkat lunak hanyalah perangkat keras yang tidak bisa digunakan. Jadi, komputer anda bisa berjalan dan berfungsi karena keberadaan perangkat lunak di dalamnya.
TUJUAN REKAYASA PERANGKAT LUNAK
Secara umum tujuan RPL tidak berbeda dengan bidang rekayasa yang lain. Hal ini dapat kita lihat pada Gambar di bawah ini- Memperoleh biaya produksi perangkat lunak yang rendah
- Menghasilkan perangkat lunak yang kinerjanya tinggi, andal dan tepat waktu
- Menghasilkan perangkat lunak yang dapat bekerja pada berbagai jenis platform
- Menghasilkan perangkat lunak yang biaya perawatannya rendah
RUANG LINGKUP REKAYASA PERANGKAT LUNAK (RPL)
Secara umum, kita dapat merangkum materi rekayasa perangkat lunak ke dalam beberapa ruang lingkup ilmu. Berikut ini ruang lingkup RPL secara umum
- Software Requirements berhubungan dengan spesifikasi kebutuhan dan persyaratan perangkat lunak.
- Software desain mencakup proses penampilan arsitektur, komponen, antar muka, dan karakteristik lain dari perangkat lunak.
- Software construction berhubungan dengan detail pengembangan perangkat lunak, termasuk. algoritma, pengkodean, pengujian dan pencarian kesalahan.
- Software testing meliputi pengujian pada keseluruhan perilaku perangkat lunak.
- Software maintenance mencakup upaya-upaya perawatan ketika perangkat lunak telah dioperasikan.
- Software configuration management berhubungan dengan usaha perubahan konfigurasi perangkat lunak untuk memenuhi kebutuhan tertentu.
- Software engineering management berkaitan dengan pengelolaan dan pengukuran RPL, termasuk perencanaan proyek perangkat lunak.
- Software engineering tools and methods mencakup kajian teoritis tentang alat bantu dan metode RPL.
- Microsoft Windows
 |
| Microsoft Windows |
2. Perangkat Lunak Driver
 |
| Perangkat Lunak Driver |
3. Perangkat Lunak Aplikasi
 |
| Perangkat Lunak Aplikasi |
- Word processing software, seperti : MS Word, Wordpad dan Notepad
- Database software : Oracle, MS Access dan sebagainya
- Spreadsheet software : Apple Numbers, Microsoft Excel
- Multimedia software : Real Player, Media Player
- Presentation software : Microsoft Power Point, Keynotes
- Enterprise software : Customer relationship management system
- Information Worker Software : Documentation tolls, resource management tools
- Educational software : Dictionaries: Encarta, BritannicaMathematical: MATLABOthers: Google Earth, NASA World Wind
- Simulation software : Flight and scientific simulation
- Content Access Software : Accessing content through media players web browsers
- Application Suites : OpenOffice, Microsoft Office
- Software for Engineering and Product Development : IDE or Integrated Development Environtments
 |
| Perangkat Lunak Pengolah Gambar |
- Adobe Photoshop adalah software yang dibuat oleh perusahaan Adobe System, yang dikhususkan untuk pengeditan foto atau gambar dan pembuatan effect.
- CorelDraw adalah software yang dibuat oleh perusahaan Corel Corp yang digunakan untuk membuat, mengolah dan mencetak objek grafis berformat vektor.
 |
| Perangkat Lunak Game |
sekian pembahasan tentang rekayasa perangkat lunak, kurang dan salahnya mohon di koreksi dan tinggalkan pesan di kolom komentar :D.. Thank You...
Slip Pembayaran Dengan Koneksi SQL SERVER
Slip / bukti pembayaran kuliah melalui Bank. tugas ini untuk memenuhi nilai UASMataKuliah BasisDataII. Dan menggunakan apalikasi visual studio Berikut adalah penjelasan dan contoh gambar dari slip pembayaran kuliah.
 |
| Bukti Slip Pembayaran |
Diatas adalah gambar bukti pembayaran kuliah.
1. Relasi
 |
| Relasi |
Relasi adalah sebagai hubungang.
selanjutnya adalah kita buat form dengan menggunakan VB.net dari visual studio berikut adalah gambar dari form slip pembayaran.
2. View DataBase
 |
| View DataBase |
3. Form Slip Pembayaran
Di atas adalah tampilan dari form slip pembayaran. dimana mempunyai inputan seperti, Tanggal/Jam , Jenis transaksi , data rekening , pembayaran kepada , no.tagihan , jumlah , biaya , no.referensi dan status.
4. Tampilan SQL SERVER
 |
| SQL SERVER |
5. Bentuk dari 1nf
Gambar Diatas adalah bentuk dari 1nf
- Merubah dari bentuk tabel tidak normal (unnormalized table) menjadi bentuk normal pertama (1NF)
6. bentuk dari 2nf
Gambar diatas adalah bentuk dari 2nf
- Menghilangkan duplikasi kolom dari tabel yang sama.
- Buat tabel terpisah untuk masing-masing kelompok data terkait dan mengidentifikasi setiap baris dengan kolom yang unik (primary key).
7.Bentuk dari 3nf
Gambar di atas adalah bentuk dari 3nf
normalisasi data dalam bentuk ketiga bertujuan untuk menghilangkan
seluruh atribut atau field yang sama sekali tidak berhubungan dengan
primary key.8. Source Code Dari Manipulasidata
Imports System.Data
Imports System.Data.SqlClient
Partial Class SlipPembayaran
Inherits System.Web.UI.Page
Dim Conn As SqlConnection
Dim Da As SqlDataAdapter
Dim Ds As DataSet
Dim Cmd As SqlCommand
Dim RD As SqlDataReader
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "data source=DESKTOP-BQBB64M\SQLEXPRESS;initial catalog=DB_KELVINGUNAWAN_161021450233;integrated security =true"
Conn = New SqlConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Call Koneksi()
Dim simpan As String = "insert into slipPembayaran values ('" & txtjam.Text & "','" & txtjenis.Text & "','" & txtdari.Text & "', '" & txtpembayaran.Text & "','" & txtnotag.Text & "','" & txtjumlah.Text & "','" & txtbiaya.Text & "','" & txtref.Text & "','" & txtstatus.Text & "')"
Cmd = New SqlCommand(simpan, Conn)
Cmd.ExecuteNonQuery()
MsgBox("Input data berhasil")
End Sub
Protected Sub btnview_Click(sender As Object, e As EventArgs) Handles btnview.Click
Response.Redirect("view.aspx")
End Sub
Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
txtbiaya.Text = ""
txtdari.Text = ""
txtjam.Text = ""
txtjenis.Text = ""
txtjumlah.Text = ""
txtnotag.Text = ""
txtpembayaran.Text = ""
txtref.Text = ""
txtstatus.Text = ""
End Sub
Protected Sub btnsearch_Click(sender As Object, e As EventArgs) Handles btnsearch.Click
Call Koneksi()
Dim search As String = "select * from slipPembayaran where NoTagihan like '%" & TextCari.Text & "'"
Cmd = New SqlCommand(search, Conn)
Dim xReader As SqlDataReader
xReader = Cmd.ExecuteReader()
If xReader.HasRows Then
xReader.Read()
txtjam.Text = xReader("TanggalJam")
txtjenis.Text = xReader("JenisTransaksi")
txtdari.Text = xReader("DariRekening")
txtpembayaran.Text = xReader("PembayaranKepada")
txtnotag.Text = xReader("NoTagihan")
txtjumlah.Text = xReader("Jumlah")
txtbiaya.Text = xReader("Biaya")
txtref.Text = xReader("NoReferensi")
txtstatus.Text = xReader("Status")
btnsearch.Enabled = True
Else
MsgBox("Data Tidak Ditemukan")
Exit Sub
End If
Conn.Close()
End Sub
Imports System.Data.SqlClient
Partial Class SlipPembayaran
Inherits System.Web.UI.Page
Dim Conn As SqlConnection
Dim Da As SqlDataAdapter
Dim Ds As DataSet
Dim Cmd As SqlCommand
Dim RD As SqlDataReader
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "data source=DESKTOP-BQBB64M\SQLEXPRESS;initial catalog=DB_KELVINGUNAWAN_161021450233;integrated security =true"
Conn = New SqlConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Call Koneksi()
Dim simpan As String = "insert into slipPembayaran values ('" & txtjam.Text & "','" & txtjenis.Text & "','" & txtdari.Text & "', '" & txtpembayaran.Text & "','" & txtnotag.Text & "','" & txtjumlah.Text & "','" & txtbiaya.Text & "','" & txtref.Text & "','" & txtstatus.Text & "')"
Cmd = New SqlCommand(simpan, Conn)
Cmd.ExecuteNonQuery()
MsgBox("Input data berhasil")
End Sub
Protected Sub btnview_Click(sender As Object, e As EventArgs) Handles btnview.Click
Response.Redirect("view.aspx")
End Sub
Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
txtbiaya.Text = ""
txtdari.Text = ""
txtjam.Text = ""
txtjenis.Text = ""
txtjumlah.Text = ""
txtnotag.Text = ""
txtpembayaran.Text = ""
txtref.Text = ""
txtstatus.Text = ""
End Sub
Protected Sub btnsearch_Click(sender As Object, e As EventArgs) Handles btnsearch.Click
Call Koneksi()
Dim search As String = "select * from slipPembayaran where NoTagihan like '%" & TextCari.Text & "'"
Cmd = New SqlCommand(search, Conn)
Dim xReader As SqlDataReader
xReader = Cmd.ExecuteReader()
If xReader.HasRows Then
xReader.Read()
txtjam.Text = xReader("TanggalJam")
txtjenis.Text = xReader("JenisTransaksi")
txtdari.Text = xReader("DariRekening")
txtpembayaran.Text = xReader("PembayaranKepada")
txtnotag.Text = xReader("NoTagihan")
txtjumlah.Text = xReader("Jumlah")
txtbiaya.Text = xReader("Biaya")
txtref.Text = xReader("NoReferensi")
txtstatus.Text = xReader("Status")
btnsearch.Enabled = True
Else
MsgBox("Data Tidak Ditemukan")
Exit Sub
End If
Conn.Close()
End Sub
Sekian pembahasan saya dari bentuk normalisasi kurang lebihnya saya mohon maaf terimaaksih..
Tag :// UAS
Slip / bukti pembayaran kuliah melalui Bank. tugas ini untuk memenuhi nilai UTS MataKuliah BasisDataII. Dan menggunakan apalikasi visual studio Berikut adalah penjelasan dan contoh gambar dari slip pembayaran kuliah.
 |
| Bukti Pembayaran |
Diatas adalah gambar bukti pembayaran kuliah.
- Bentuk Tidak Normal (UnNormalized)
 |
| Bentuk Tidak Normal |
Gambar diatas adalah contoh dari bentuk yang tidak normal..
2. Bentuk dari 1nf
Gambar Diatas adalah bentuk dari 1nf
- Merubah dari bentuk tabel tidak normal (unnormalized table) menjadi bentuk normal pertama (1NF)
3. bentuk dari 2nf
Gambar diatas adalah bentuk dari 2nf
- Menghilangkan duplikasi kolom dari tabel yang sama.
- Buat tabel terpisah untuk masing-masing kelompok data terkait dan mengidentifikasi setiap baris dengan kolom yang unik (primary key).
4..Bentuk dari 3nf
Gambar di atas adalah bentuk dari 3nf
normalisasi data dalam bentuk ketiga bertujuan untuk menghilangkan seluruh atribut atau field yang sama sekali tidak berhubungan dengan primary key.
5. Relasi Dan Query
Relasi adalah sebagai hubungang.
selanjutnya adalah kita buat form dengan menggunakan VB.net dari visual studio berikut adalah gambar dari form slip pembayaran.
1. Form Slip Pembayaran
Di atas adalah tampilan dari form slip pembayaran. dimana mempunyai inputan seperti, Tanggal/Jam , Jenis transaksi , data rekening , pembayaran kepada , no.tagihan , jumlah , biaya , no.referensi dan status.
2. Form view
Diatas adalah gambar dari form view dari bentuk normalisasi yang sudah di buat sebelumnya dan hasilnya sebagai berikut.
Sekian pembahasan saya dari bentuk normalisasi kurang lebihnya saya mohon maaf terimaaksih..
Aplikasi WebSite DataBase Perpustakaan, Aplikasi ini saya buat menggunakan Visaul Studio. saya akan memberika penjelasan tentang Aplikasi WebSite DataBase Perpustakaan dalam rangka memenuhi Tugas Ujian Akhir Semester (UAS) Pemograman.
- Judul Project Dan Penjelasan
Aplikasi WebSite DataBase Perpustakaan.
Website aplikasi ini dibuat untuk mempermudah kita / orang lain yang menggunakan aplikasi ini dimana nama program ini adalah database perpustakaan kita dapat mencari buku yang kita cari dengan mudah kita bisa Search bisa dari kode buku atau juga dari nama penulis bukunya
Website ini sudah dilengkapi dengan fitur :
- Database
- Form Login
- Report To Word
- Report To Excel
Ada Beberapa Button
- Save
- Update
- Delete
- Clear
- View
- Search
Design Form Login
Form Login
Form Login Ini tampilan awal untuk masuk ke WebSite DataBase Perpustakaan.
- Database
- Form Login
- Report To Word
- Report To Excel
Ada Beberapa Button
- Save
- Update
- Delete
- Clear
- View
- Search
Design Form Login
 |
| Form Login |
Form Login Ini tampilan awal untuk masuk ke WebSite DataBase Perpustakaan.
Design Dari Tampilan Home
 |
| HOME |
Gambar diatas adalah tampilan home dari website database perpustakaan, dimana di tampilan home tersebut ada button HOME, About Us , DataBase , Input Data , Contacts.
Design Dari DataBase
 |
| DataBase |
Gambar Diatas adalah tampilan dari database perpustakaan dimana kita bisa input data yang baru atau juga kita bisa update.
Design Input Data
 |
| Input Data |
Gambar diatas adalah tampilan dari input data dimana kita bisa input data- data yang baru dari kode buku , judul buku lokasi penyimpanan , nama pengarang , Tahun Terbit.. dan ada beberapa button untuk mesupportnya seperti Tombol SAVE ,UPDATE , DELETE ,CLEAR , VIEW Dan Search. Tombol Search ini kita bisa mencari data- data dengan mengetik kode bukunya saja dan lokasi buku tersebut akan tertera atau di ketehui.
Source Code dari Form Input Data
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class WebForm3
Inherits System.Web.UI.Page
Dim koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Kelvin\Documents\dbkaryawan.mdb"
Dim objKoneksi 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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
objKoneksi.Close()
objKoneksi.Open()
Dim sql1 As String = "insert into tblkaryawan values ('" & TextKode.Text & "','" & TextJudul.Text & "','" & TextLokasi.Text & "', '" & TextPengarang.Text & "','" & TextTahun.Text & "')"
Dim ocmd = New OleDbCommand(sql1, objKoneksi)
ocmd.ExecuteNonQuery()
objKoneksi.Close()
Response.Redirect("WebForm2.aspx")
End Sub
Protected Sub btnupdate_Click(sender As Object, e As EventArgs) Handles btnupdate.Click
objKoneksi.Close()
objKoneksi.Open()
Dim rubah As String = "update tblkaryawan set Tahun_Terbit = '" + TextTahun.Text + "' where Kode_Buku='" + TextKode.Text + "'"
Dim ocmd = New OleDbCommand(rubah, objKoneksi)
ocmd.ExecuteNonQuery()
objKoneksi.Close()
Response.Redirect("WebForm2.aspx")
End Sub
Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
TextKode.Text = ""
TextJudul.Text = ""
TextPengarang.Text = ""
TextLokasi.Text = ""
TextTahun.Text = ""
End Sub
Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
objKoneksi.Close()
objKoneksi.Open()
Dim sql4 As String = "delete from tblkaryawan where Kode_Buku = '" & TextKode.Text & "'"
Dim ocmd As New OleDbCommand(sql4, objKoneksi)
ocmd.ExecuteNonQuery()
objKoneksi.Close()
MsgBox("Data Telah Dihapus")
Response.Redirect("WebForm2.aspx")
End Sub
Protected Sub txtcari_Click(sender As Object, e As EventArgs) Handles btnsearch.Click
objKoneksi.Close()
objKoneksi.Open()
Dim sql As String = "select * from tblkaryawan where Kode_Buku like '%" & TextCari.Text & "'"
Dim ocmd As New OleDbCommand(sql, objKoneksi)
Dim xReader As OleDbDataReader
xReader = ocmd.ExecuteReader()
If xReader.HasRows Then
xReader.Read()
TextKode.Text = xReader("Kode_Buku")
TextJudul.Text = xReader("Judul_Buku")
TextPengarang.Text = xReader("Nama_Pengarang")
TextLokasi.Text = xReader("Lokasi_Penyimpanan")
TextTahun.Text = xReader("Tahun_Terbit")
btnupdate.Enabled = True
Else
MsgBox("Data Tidak Ditemukan!!!")
Exit Sub
End If
objKoneksi.Close()
End Sub
Protected Sub btnview_Click(sender As Object, e As EventArgs) Handles btnview.Click
Response.Redirect("WebForm2.aspx")
End Sub
Protected Sub TextCari_TextChanged(sender As Object, e As EventArgs) Handles TextCari.TextChanged
End Sub
Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles btnword.Click
Dim aplikasi As New word.Application
Dim dokumen As New word.Document
dokumen = aplikasi.Documents.Open("E:\Tugas_Uas\filemaster.docx")
dokumen.Bookmarks("kb").Select()
aplikasi.Selection.TypeText(TextKode.Text)
dokumen.Bookmarks("jb").Select()
aplikasi.Selection.TypeText(TextJudul.Text)
dokumen.Bookmarks("lp").Select()
aplikasi.Selection.TypeText(TextLokasi.Text)
dokumen.Bookmarks("np").Select()
aplikasi.Selection.TypeText(TextPengarang.Text)
dokumen.Bookmarks("tt").Select()
aplikasi.Selection.TypeText(TextTahun.Text)
dokumen.SaveAs2("E:\Tugas_Uas\Laporan.docx")
aplikasi.Visible = True
End Sub
Protected Sub btnexcel_Click(sender As Object, e As EventArgs) Handles btnexcel.Click
Dim aplikasiExcel As New excel.Application
Dim fileExcelnya As excel.Workbook
Dim gabungan As String
gabungan = (TextKode.Text + " " + TextJudul.Text)
fileExcelnya = aplikasiExcel.Workbooks.Open("E:\Tugas_Uas\FileMaster2.xlsx")
aplikasiExcel.Range("A3").Value = TextKode.Text
aplikasiExcel.Range("B3").Value = TextJudul.Text
aplikasiExcel.Range("C3").Value = TextLokasi.Text
aplikasiExcel.Range("D3").Value = TextPengarang.Text
aplikasiExcel.Range("E3").Value = TextTahun.Text
fileExcelnya.SaveAs("E:\Tugas_Uas\Laporan.xlsx" + gabungan + ".xlsx")
MsgBox("Sukses")
aplikasiExcel.Visible = True
End Sub
End Class
Sekian pembahasan saya untuk Aplikasi Website DataBase Perpustakaan dengan berbasis ASP.Net Visual BAsic sekiranya ada tambahan kalian bisa tinggalkan di kolom komentar.
Aplikasi Form Inventory Barang
Aplikasi Form Inventory barang, Aplikasi ini saya buat menggunakan Visaul Studio. saya akan memberika penjelasan tentang Aplikasi Form Inventori Barang dalam rangka memenuhi Tugas Ujian Tengah Semester (UTS) Pemograman.
- Judul Project Dan Penjelasan
Aplikasi Form Inventory Barang.
Aplikasi ini untuk menginput data barang yang masuk kedalam gudang. adanya aplikasi Form Inventori Barang kita dapat mengecek dengan mudah. aplikasi ini mempunyai input, kode barang, nama barang, banyak barang, harga barang, nama pengecek dan tanggal pengiriman.
- Design Form Inventory Barang
 |
| Tampilan Awal |
- Design Save To Word
 |
| Save To Word |
tombol ini berfungsi untuk save hasil data yang sudah diinput lalu save to word . berikut saya sertekan Source Code dari tombol save to word.
Dim aplikasi As New word.Application
Dim dokumen As New word.Document
Dim gabungan As String
gabungan = Txtkode.Text + " " + TxtNama.Text
dokumen = aplikasi.Documents.Open("E:\Tugas_uts\FORM PENJUALAN TOKO.docx")
dokumen.Bookmarks("BTP").Select()
aplikasi.Selection.TypeText(cmbtanggal.Text + cmbbulan.Text + cmbtahun.Text)
dokumen.Bookmarks("BKB").Select()
aplikasi.Selection.TypeText(Txtkode.Text)
dokumen.Bookmarks("BNB").Select()
aplikasi.Selection.TypeText(TxtNama.Text)
dokumen.Bookmarks("BSB").Select()
aplikasi.Selection.TypeText(TxtStock.Text)
dokumen.Bookmarks("BHB").Select()
aplikasi.Selection.TypeText(TxtHarga.Text)
dokumen.Bookmarks("BNP").Select()
aplikasi.Selection.TypeText(TxtPembeli.Text)
dokumen.SaveAs2("E:\Tugas_uts\" + gabungan + ".docx")
MsgBox("Sukses")
aplikasi.Visible = True
Dim dokumen As New word.Document
Dim gabungan As String
gabungan = Txtkode.Text + " " + TxtNama.Text
dokumen = aplikasi.Documents.Open("E:\Tugas_uts\FORM PENJUALAN TOKO.docx")
dokumen.Bookmarks("BTP").Select()
aplikasi.Selection.TypeText(cmbtanggal.Text + cmbbulan.Text + cmbtahun.Text)
dokumen.Bookmarks("BKB").Select()
aplikasi.Selection.TypeText(Txtkode.Text)
dokumen.Bookmarks("BNB").Select()
aplikasi.Selection.TypeText(TxtNama.Text)
dokumen.Bookmarks("BSB").Select()
aplikasi.Selection.TypeText(TxtStock.Text)
dokumen.Bookmarks("BHB").Select()
aplikasi.Selection.TypeText(TxtHarga.Text)
dokumen.Bookmarks("BNP").Select()
aplikasi.Selection.TypeText(TxtPembeli.Text)
dokumen.SaveAs2("E:\Tugas_uts\" + gabungan + ".docx")
MsgBox("Sukses")
aplikasi.Visible = True
- Design Save To Excel
 |
| Save To Excel |
Gambar diatas adalah hasil dari tombol save to excel, tombol ini sama dengan tombol save to word hanya saja ini menggunakan Ms. Excel. Berikut saya sertakan Sourcode dari tombol save to excel.
Dim aplikasiExcel As New Excel.Application
Dim fileExcelnya As Excel.Workbook
Dim gabungan As String
gabungan = Txtkode.Text + " " + TxtNama.Text
fileExcelnya = aplikasiExcel.Workbooks.Open("E:\Tugas_uts\Form Penjualan Toko excel.xlsx")
aplikasiExcel.Range("A3").Value = Txtkode.Text
aplikasiExcel.Range("B3").Value = TxtNama.Text
aplikasiExcel.Range("C3").Value = TxtStock.Text
aplikasiExcel.Range("D3").Value = TxtHarga.Text
aplikasiExcel.Range("E3").Value = TxtPembeli.Text
aplikasiExcel.Range("G3").Value = cmbtanggal.Text + cmbbulan.Text + cmbtahun.Text
fileExcelnya.SaveAs("E:\Tugas_uts\" + gabungan + "Form Penjualan Toko excel.xlsx")
MsgBox("Sukses")
aplikasiExcel.Visible = True
End Sub
Dim fileExcelnya As Excel.Workbook
Dim gabungan As String
gabungan = Txtkode.Text + " " + TxtNama.Text
fileExcelnya = aplikasiExcel.Workbooks.Open("E:\Tugas_uts\Form Penjualan Toko excel.xlsx")
aplikasiExcel.Range("A3").Value = Txtkode.Text
aplikasiExcel.Range("B3").Value = TxtNama.Text
aplikasiExcel.Range("C3").Value = TxtStock.Text
aplikasiExcel.Range("D3").Value = TxtHarga.Text
aplikasiExcel.Range("E3").Value = TxtPembeli.Text
aplikasiExcel.Range("G3").Value = cmbtanggal.Text + cmbbulan.Text + cmbtahun.Text
fileExcelnya.SaveAs("E:\Tugas_uts\" + gabungan + "Form Penjualan Toko excel.xlsx")
MsgBox("Sukses")
aplikasiExcel.Visible = True
End Sub
- Tombol Exit
Fungsi Tombol ini adalah untuk keluar dan menutup aplikasi
 |
| Tombol Exit |
Sourcode dari tombol exit
Dim x = MsgBox("Yakin Sudah Selesai?", vbYesNo + MsgBoxStyle.Question, "Komfirmasi")
If x = vbYes Then
Me.Close()
End If
End Sub
If x = vbYes Then
Me.Close()
End If
End Sub
- Tombol Clear
Fungsi dari tombol Clear ini yaitu untuk menghapus data yang ada pada kolom aplikasi, pada saat aplikasi sedang berjalan.
Sourcode dari Tombol Clear
Dim ctl As Control
For Each ctl In Me.Controls 'Untuk setiap Control di Aplikasi ini
If TypeOf ctl Is TextBox Then 'Jika control adalah textbox maka
ctl.Text = "" 'Kosongkan Isinya
End If
Next
End Sub
For Each ctl In Me.Controls 'Untuk setiap Control di Aplikasi ini
If TypeOf ctl Is TextBox Then 'Jika control adalah textbox maka
ctl.Text = "" 'Kosongkan Isinya
End If
Next
End Sub
- Sourcode Combo Box Tanggal
Fungsi Combo box ini adalah untuk memilih tanggal, bulan dan tahun secara otomatis.
 |
| Combo Box Tanggal |
Dim i As Integer
For i = 1 To 31
cmbtanggal.Items.Add(i)
Next
Dim b As Integer
For b = 1 To 12
Dim a As String
a = MonthName(b)
cmbbulan.Items.Add(a)
Next
Dim c As Integer
For c = 1997 To Year(Now)
cmbtahun.Items.Add(c)
Next
End Sub
For i = 1 To 31
cmbtanggal.Items.Add(i)
Next
Dim b As Integer
For b = 1 To 12
Dim a As String
a = MonthName(b)
cmbbulan.Items.Add(a)
Next
Dim c As Integer
For c = 1997 To Year(Now)
cmbtahun.Items.Add(c)
Next
End Sub
- Flow Chart
Sekian pembahasan saya untuk Aplikasi Form Inventory Barang dengan berbasis java sekiranya ada tambahan kalian bisa tinggalkan di kolom komentar.
Aplikasi Sistem Penjualan
Aplikasi Sistem Penjualan, aplikasi ini saya buat menggunakan netbeans dengan menggunakan bahasa pemrograman java. Saya akan memberikan penjelasan tentang Aplikasi Sistem Penjualan dalam rangka memenuhi tugas Ujian Akhir Semester (UAS) Algoritma pemrograman 2.
- Judul project Dan penjelasan
Aplikasi Sistem Penjualan.
Aplikasi ini mempermudah kita untuk menginput data penjualan yang kita sudah jual jadi kita bisa menghitung barang apa saja yang stocknya sudah habis atau masih tersedia. dan mempermudah kita untuk menjual barang tanpa harus menggunakan pen lalu kita catat di kertas. sekarang adanya aplikasi sistem penjualan kita sekarang hanya input di nama barang langsung include kode barang, harga barang dan jumlah harga. sebelum kita masuk kedalam transaksi beli barang aplikasi ini pertama kita jalankan akan ada form login dimana form login ini kita sudah input username dan passwordnya di database. jadi kalian bisa custom username dan password anda sendiri. untuk aplikasi ini ada enam form jadi ada apa aja dari ke enam form itu nanti saya jelaskan di bawah.
- Design Form Login
 |
| Login |
Gambar Diatas adalah Design dari form login dimana pertama kita run aplikasi ini kita di minta input username dan password untuk menjalankan aplikasi sistem penjualan ini dimana form ke dua master data barang. dan berikut source code dari Form Login.
if(txtUsername.getText().equals("") || txtPassword.getText().equals("")){
JOptionPane.showMessageDialog(null, "Inputkan username dan password","Pesan",JOptionPane.INFORMATION_MESSAGE);
} else {
try{
listLogin = pc.cariLogin(txtUsername.getText(), EnkripsiKeSH1.getSHA1(txtPassword.getText()));
if(listLogin.size()>=1) {
if(listLogin.get(0).getHakakses().equalsIgnoreCase("administrator")){
MenuUtama mnu=new MenuUtama();
//mnu.setExtendedState(JFrame.MAXIMIZED_BOTH);
mnu.setVisible(true);
mnu.tampilUser(txtUsername.getText());
mnu.hakAksesAdmin();
dispose();
} else {
MenuUtama mnu=new MenuUtama();
mnu.setVisible(true);
mnu.tampilUser(txtUsername.getText());
mnu.hakAksesKasir();
dispose();
}
} else {
JOptionPane.showMessageDialog(null, "Username atau Password tidak ditemukan \nHarap ulangi","Ami Market",
JOptionPane.WARNING_MESSAGE);
txtUsername.requestFocus();
}
} catch(Exception a){
JOptionPane.showMessageDialog(null, "Terjadi kesalahaan enkripsi");
}
}
- Design Form Master Data Barang
 |
| Master Data Barang |
Gambar Diatas adalah design dari form Master data barang dimana kita bisa input nama-nama barang yang kita mau tambah atay jika ada stock baru yang ingin di tambah. berikut source code dari Form Master Data Barang.
private void btnTambahActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
if(btnTambah.getText().equalsIgnoreCase("tambah")){
btnTambah.setText("Batal");
bersih();
siapIsi(true);
buatKdBarang();
txtNmBrg.requestFocus();
btnTambah.setEnabled(true);
btnSimpan.setEnabled(true);
btnHapus.setEnabled(false);
btnEdit.setEnabled(false);
btnKeluar.setEnabled(false);
btnCari.setEnabled(false);
} else{
btnTambah.setText("Tambah");
bersih();
siapIsi(false);
tombolNormal();
}
}
private void btnSimpanActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
if(txtNmBrg.getText().isEmpty() || cmbSatuan.getSelectedItem().equals("") ||txtStok.getText().isEmpty()||txtHarga.getText().isEmpty()){
JOptionPane.showMessageDialog(null, "Inputkan semua data barang","Ami Market",JOptionPane.INFORMATION_MESSAGE);
} else{
eb.setKdbarang(txtKdBrg.getText());
eb.setNmbarang(txtNmBrg.getText());
eb.setSatuan(cmbSatuan.getSelectedItem().toString());
eb.setStok(Integer.parseInt(txtStok.getText()));
eb.setHarga(Integer.parseInt(txtHarga.getText()));
if(btnTambah.getText().equalsIgnoreCase("batal")){
if(bc.tambahBarang(eb)==1){
JOptionPane.showMessageDialog(null, "Simpan data berhasil","Ami Market",JOptionPane.INFORMATION_MESSAGE);
} else{
JOptionPane.showMessageDialog(null, "Simpan data gagal, periksa kembali","Ami Market",JOptionPane.INFORMATION_MESSAGE);
}
}
if(btnEdit.getText().equalsIgnoreCase("batal")){
if(bc.editBarang(eb)==1){
JOptionPane.showMessageDialog(null, "Edit data berhasil","Ami Market",JOptionPane.INFORMATION_MESSAGE);
} else{
JOptionPane.showMessageDialog(null, "Edit data gagal, periksa kembali","Ami Market",JOptionPane.INFORMATION_MESSAGE);
}
}
bersih();
siapIsi(false);
btnTambah.setText("Tambah");
btnEdit.setText("Edit");
tombolNormal();
}
}
private void txtStokKeyPressed(java.awt.event.KeyEvent evt) {
// TODO add your handling code here:
// NumberFormat rubah=NumberFormat.getInstance();
// rubah.setMaximumFractionDigits(3);
//rubah.setGroupingUsed(true);
// txtStok.setText(rubah.format(Integer.parseInt(txtStok.getText())));
}
private void txtStokKeyTyped(java.awt.event.KeyEvent evt) {
// TODO add your handling code here:
char c = evt.getKeyChar();
if (!((c >= '0') && (c <= '9') && txtStok.getText().length() < 3
|| (c == KeyEvent.VK_BACK_SPACE)
|| (c == KeyEvent.VK_DELETE )|| (c==KeyEvent.VK_ENTER))) {
getToolkit().beep();
evt.consume();
}
}
private void txtHargaKeyTyped(java.awt.event.KeyEvent evt) {
// TODO add your handling code here:
char c = evt.getKeyChar();
if (!((c >= '0') && (c <= '9') && txtHarga.getText().length() < 15
|| (c == KeyEvent.VK_BACK_SPACE)
|| (c == KeyEvent.VK_DELETE )|| (c==KeyEvent.VK_ENTER))) {
getToolkit().beep();
evt.consume();
}
}
private void btnCariActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
String cari=null;
cari=JOptionPane.showInputDialog("Inputkan kriteria pencarian");
model.getDataVector().removeAllElements();
model.fireTableDataChanged();
listBarang.clear();
listBarang=bc.cariBarang(cari);
for(x=0;x<listBarang.size();x++){
Object[] data=new Object[5];
data[0]=listBarang.get(x).getKdbarang();
data[1]=listBarang.get(x).getNmbarang();
data[2]=listBarang.get(x).getSatuan();
data[3]=listBarang.get(x).getStok();
data[4]=listBarang.get(x).getHarga();
model.addRow(data);
}
}
private void tblBarangMouseClicked(java.awt.event.MouseEvent evt) {
// TODO add your handling code here:
int baris = tblBarang.getSelectedRow();
txtKdBrg.setText(tblBarang.getModel().getValueAt(baris, 0).toString());
txtNmBrg.setText(tblBarang.getModel().getValueAt(baris, 1).toString());
cmbSatuan.setSelectedItem(tblBarang.getModel().getValueAt(baris, 2).toString());
txtStok.setText(tblBarang.getModel().getValueAt(baris, 3).toString());
txtHarga.setText(tblBarang.getModel().getValueAt(baris, 4).toString());
siapIsi(false);
tombolNormal();
btnHapus.setEnabled(true);
btnEdit.setEnabled(true);
}
private void btnHapusActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
eb.setKdbarang(txtKdBrg.getText());
int pesan=JOptionPane.showConfirmDialog(null, "Yakin data akan dihapus ?","Konfirmasi",JOptionPane.YES_NO_OPTION
,JOptionPane.QUESTION_MESSAGE);
if(pesan==JOptionPane.YES_OPTION){
if(bc.deleteBarang(eb)==1){
JOptionPane.showMessageDialog(null, "Hapus data sukses");
bersih();
siapIsi(false);
tombolNormal();
} else{
JOptionPane.showMessageDialog(null, "Hapus data gagal");
}
}
}
private void btnEditActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
if(btnEdit.getText().equalsIgnoreCase("edit")){
btnEdit.setText("Batal");
siapIsi(true);
txtKdBrg.setEnabled(false);
txtNmBrg.requestFocus();
btnTambah.setEnabled(false);
btnSimpan.setEnabled(true);
btnHapus.setEnabled(false);
btnEdit.setEnabled(true);
btnKeluar.setEnabled(false);
btnCari.setEnabled(false);
} else{
btnEdit.setText("Edit");
bersih();
siapIsi(false);
tombolNormal();
}
}
- Design Form Menu Utama
 |
| Menu Utama |
Gambar diatas adalah design menu utama dimana disana ada logout, barang, penjualan, backup and restore
form ini muncul jika kita berhasil login dari form login. dan di form ini ada menu logout untuk keluar lagi ke form login, barang untuk menginput nama barang dan kita juga bisa edit jika ada kesalahan memberi nama. untuk menu penjualan pasti sudah pada tahu menu tersebut untuk menjual barang. berikut source code untuk Menu Utama.
if(btnTambah.getText().equalsIgnoreCase("tambah")){
btnTambah.setText("Batal");
siapIsi(true);
bersih();
buatNoNota();
txtPembeli.requestFocus();
btnSimpan.setEnabled(true);
btnTambahBrg.setEnabled(true);
btnKurangBrg.setEnabled(true);
btnCariBrg.setEnabled(true);
}else{
bersih();
siapIsi(false);
btnTambah.setText("Tambah");
tombolNormal();
}
}
private void btnCariBrgActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
buatTabelBarang();
showTabelBarang();
txtCariBrg.setText(null);
//frmBarang.setSize(472,390);
frmBarang.setBounds(300, 300, 472, 390);
frmBarang.setVisible(true);
txtCariBrg.requestFocus();
}
private void txtCariBrgKeyPressed(java.awt.event.KeyEvent evt) {
// TODO add your handling code here:
if(evt.getKeyCode()==10){
model.getDataVector().removeAllElements();
model.fireTableDataChanged();
listBarang.clear();
listBarang=brgc.cariBarang(txtCariBrg.getText());
for(int x=0;x<listBarang.size();x++){
Object[] data=new Object[5];
data[0]=listBarang.get(x).getKdbarang();
data[1]=listBarang.get(x).getNmbarang();
data[2]=listBarang.get(x).getSatuan();
data[3]=listBarang.get(x).getStok();
data[4]=listBarang.get(x).getHarga();
model.addRow(data);
}
}
}
private void tblMasterBarangMouseClicked(java.awt.event.MouseEvent evt) {
// TODO add your handling code here:
int baris = tblMasterBarang.getSelectedRow();
txtKdBrg.setText(tblMasterBarang.getModel().getValueAt(baris, 0).toString());
txtNmBrg.setText(tblMasterBarang.getModel().getValueAt(baris, 1).toString());
txtStok.setText(tblMasterBarang.getModel().getValueAt(baris, 3).toString());
txtHarga.setText(tblMasterBarang.getModel().getValueAt(baris, 4).toString());
txtJml.requestFocus();
frmBarang.setVisible(false);
}
private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
model.getDataVector().removeAllElements();
model.fireTableDataChanged();
listBarang.clear();
listBarang=brgc.cariBarang(txtCariBrg.getText());
for(int x=0;x<listBarang.size();x++){
Object[] data=new Object[5];
data[0]=listBarang.get(x).getKdbarang();
data[1]=listBarang.get(x).getNmbarang();
data[2]=listBarang.get(x).getSatuan();
data[3]=listBarang.get(x).getStok();
data[4]=listBarang.get(x).getHarga();
model.addRow(data);
}
}
private void btnTambahBrgActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
if(txtKdBrg.getText().equals("") || txtNota.getText().equals("") || txtPembeli.getText().equals("")){
JOptionPane.showMessageDialog(null, "Lengkapi inputan pembelian barang");
} else{
int jml=Integer.parseInt(txtJml.getText());
int stok=Integer.parseInt(txtStok.getText());
if(jml>stok){
JOptionPane.showMessageDialog(null, "Stok barang tidak mencukupi");
}else{
listEDB=dbc.CekBarang(txtNota.getText(), txtKdBrg.getText());
if(listEDB.size()>0){
JOptionPane.showMessageDialog(null, "Barang ini sudah anda beli, silahkan pilih yang lain");
} else{
int harga=Integer.parseInt(txtHarga.getText());
EntitasDetailBeli edb=new EntitasDetailBeli();
edb.setNonota(txtNota.getText());
edb.setKdbarang(txtKdBrg.getText());
edb.setNmbarang(txtNmBrg.getText());
edb.setHarga(harga);
edb.setJml(jml);
edb.setTotal(harga*jml);
if (dbc.tambahDetailBeli(edb)==0){
JOptionPane.showMessageDialog(null, "Simpan detail data barang gagal, Mohon periksa kembali");
} else{
int sisaStok=stok-jml;
brgc.updateStok(sisaStok, txtKdBrg.getText());
buatTabelBeli();
tampilBarang();
int total=Integer.parseInt(txtTotal.getText());
int totalBayar=total+(harga*jml);
txtTotal.setText(Integer.toString(totalBayar));
txtKdBrg.setText("");
txtNmBrg.setText("");
txtHarga.setText("");
txtJml.setText("");
txtStok.setText("");
}
}
}
}
- Design Form Pembelian
 |
| Form Pembelian |
Gambar diatas adalah design form pembelian disana kita input nama barang yang kita mau beli, sebelum kita mau input nama barang seblumnya kita klik tombil tambah yang ada di design, jika sudah input nama barang kita tinggal klik simpan untuk print struk pembelian tersebut. berikut source code untuk Form Pembelian.
if(btnTambah.getText().equalsIgnoreCase("tambah")){
btnTambah.setText("Batal");
siapIsi(true);
bersih();
buatNoNota();
txtPembeli.requestFocus();
btnSimpan.setEnabled(true);
btnTambahBrg.setEnabled(true);
btnKurangBrg.setEnabled(true);
btnCariBrg.setEnabled(true);
}else{
bersih();
siapIsi(false);
btnTambah.setText("Tambah");
tombolNormal();
}
}
private void btnCariBrgActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
buatTabelBarang();
showTabelBarang();
txtCariBrg.setText(null);
//frmBarang.setSize(472,390);
frmBarang.setBounds(300, 300, 472, 390);
frmBarang.setVisible(true);
txtCariBrg.requestFocus();
}
private void txtCariBrgKeyPressed(java.awt.event.KeyEvent evt) {
// TODO add your handling code here:
if(evt.getKeyCode()==10){
model.getDataVector().removeAllElements();
model.fireTableDataChanged();
listBarang.clear();
listBarang=brgc.cariBarang(txtCariBrg.getText());
for(int x=0;x<listBarang.size();x++){
Object[] data=new Object[5];
data[0]=listBarang.get(x).getKdbarang();
data[1]=listBarang.get(x).getNmbarang();
data[2]=listBarang.get(x).getSatuan();
data[3]=listBarang.get(x).getStok();
data[4]=listBarang.get(x).getHarga();
model.addRow(data);
}
}
}
private void tblMasterBarangMouseClicked(java.awt.event.MouseEvent evt) {
// TODO add your handling code here:
int baris = tblMasterBarang.getSelectedRow();
txtKdBrg.setText(tblMasterBarang.getModel().getValueAt(baris, 0).toString());
txtNmBrg.setText(tblMasterBarang.getModel().getValueAt(baris, 1).toString());
txtStok.setText(tblMasterBarang.getModel().getValueAt(baris, 3).toString());
txtHarga.setText(tblMasterBarang.getModel().getValueAt(baris, 4).toString());
txtJml.requestFocus();
frmBarang.setVisible(false);
}
private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
model.getDataVector().removeAllElements();
model.fireTableDataChanged();
listBarang.clear();
listBarang=brgc.cariBarang(txtCariBrg.getText());
for(int x=0;x<listBarang.size();x++){
Object[] data=new Object[5];
data[0]=listBarang.get(x).getKdbarang();
data[1]=listBarang.get(x).getNmbarang();
data[2]=listBarang.get(x).getSatuan();
data[3]=listBarang.get(x).getStok();
data[4]=listBarang.get(x).getHarga();
model.addRow(data);
}
}
private void btnTambahBrgActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
if(txtKdBrg.getText().equals("") || txtNota.getText().equals("") || txtPembeli.getText().equals("")){
JOptionPane.showMessageDialog(null, "Lengkapi inputan pembelian barang");
} else{
int jml=Integer.parseInt(txtJml.getText());
int stok=Integer.parseInt(txtStok.getText());
if(jml>stok){
JOptionPane.showMessageDialog(null, "Stok barang tidak mencukupi");
}else{
listEDB=dbc.CekBarang(txtNota.getText(), txtKdBrg.getText());
if(listEDB.size()>0){
JOptionPane.showMessageDialog(null, "Barang ini sudah anda beli, silahkan pilih yang lain");
} else{
int harga=Integer.parseInt(txtHarga.getText());
EntitasDetailBeli edb=new EntitasDetailBeli();
edb.setNonota(txtNota.getText());
edb.setKdbarang(txtKdBrg.getText());
edb.setNmbarang(txtNmBrg.getText());
edb.setHarga(harga);
edb.setJml(jml);
edb.setTotal(harga*jml);
if (dbc.tambahDetailBeli(edb)==0){
JOptionPane.showMessageDialog(null, "Simpan detail data barang gagal, Mohon periksa kembali");
} else{
int sisaStok=stok-jml;
brgc.updateStok(sisaStok, txtKdBrg.getText());
buatTabelBeli();
tampilBarang();
int total=Integer.parseInt(txtTotal.getText());
int totalBayar=total+(harga*jml);
txtTotal.setText(Integer.toString(totalBayar));
txtKdBrg.setText("");
txtNmBrg.setText("");
txtHarga.setText("");
txtJml.setText("");
txtStok.setText("");
}
}
}
}
- Design Form Pengguna
 |
| Data Pengguna |
if(txtId.getText().isEmpty() || txtUsername.getText().isEmpty() || txtPass.getText().isEmpty() ||
txtUlangiPass.getText().isEmpty() || cmbHakAkses.toString().equals(null)){
JOptionPane.showMessageDialog(null, "Lengkapi inputan data","Pesan",JOptionPane.INFORMATION_MESSAGE);
} else{
//validasi password dan ketik ulang password
if(txtPass.getText() == null ? txtUlangiPass.getText() != null : !txtPass.getText().equals(txtUlangiPass.getText())){
JOptionPane.showMessageDialog(null, "Pengetikan password tidak sama, periksa kembali","Pesan",JOptionPane.WARNING_MESSAGE);
txtPass.requestFocus();
} else {
//validasi id pengguna
listPengguna=pc.cariId(Integer.parseInt(txtId.getText()));
if(listPengguna.size()==1){
JOptionPane.showMessageDialog(null, "ID Pengguna sudah digunakan user lain","Pesan",JOptionPane.WARNING_MESSAGE);
txtId.requestFocus();
} else {
try{
ep.setIdpengguna(Integer.parseInt(txtId.getText()));
ep.setUsername(txtUsername.getText());
ep.setPassword(EnkripsiKeSH1.getSHA1(txtPass.getText()));
ep.setHakakses(cmbHakAkses.getSelectedItem().toString());
if(pc.tambah(ep)==1){
JOptionPane.showMessageDialog(null, "SImpan pengguna berhasil");
} else{
JOptionPane.showMessageDialog(null, "Simpan data gagal");
}
bersih();
} catch(Exception a){
JOptionPane.showMessageDialog(null, "Tidak dapat enkripsi password");
}
}
}
Gambar diatas adalah design form pengguna, form pengguna ini untuk menambahkan username dan password baru. tidak hanya menambahkan tapi juga bisa edit username dan password yang sudah ada / sebelumnya yang sudah kita input. berikut source code Diatas.
- Design Form Report Barang/ Laporan Barang
 |
| Laporan Barang |
Gambar diatas adalah form terakhir dari aplikasi Sistem Penjualan. laporan barang ini kita bisa lihat hasil penjualan, dan juga bisa melihat barang yang masih ada stock atau tidak. berikut source code untuk report barang.
// TODO add your handling code here:
if(optSemua.isSelected()){
rc.cetakSeleruhBarang();
} else if(optSatuan.isSelected()){
rc.cetakPerSatuan(cmbSatuan.getSelectedItem().toString());
} else{
JOptionPane.showMessageDialog(null, "Pilih kriteria cetak barang");
}
}
private void btnKeluarActionPerformed(java.awt.event.ActionEvent evt) {
// TODO add your handling code here:
dispose();
}
- FlowChart
 |
| FlowChart |
Sekian pembahasan saya untuk Aplikasi Sistem Penjual dengan berbasis java sekiranya ada tambahan kalian bisa tinggalkan di kolom komentar.
