Skip to main content

Contoh Program Penjualan Barang Delphi Sederhana

Contoh Program Penjualan Barang Delphi Sederhana - Tidak jauh berbeda dengan Visual Basic, Delphi juga memiliki tampilan yang mirib dengan VB. Jadi bagi kamu yang sudah pernah menggunakan VB pasti akan jauh lebih mudah membuat program dengan Delphi.

Pada tutorial hari ini, kita akan belajar membuat aplikasi Delphi tentang penjualan barang sederhana tanpa database. Tanpa database aja dulu karena nanti jika pakai database tidak akan sulit lagi, soalnya sudah punya basic tentang Delphi.

Aplikasi sederhana ini tentang pusat penjualan barang grosir. Misalnya sebuah toko barang menjual berbagai jenis produk yang melayani pembelian grosir.

Contoh Program Penjualan Barang Delphi Sederhana


Untuk lebih jelasnya, berikut ini tutorial cara membuat program penjualan barang Delphi sederhana.

1. Buka aplikasi Delphi, terserah versi berapa yang kamu punya. Banyak tutorial yang pakai Delphi 7 namun saya sendiri menggunakan Delphi 10.3.2.

2. Buat project Delphi baru dengan cara klik File > New > Windows VCL Application Delphi

3. Pada menu Palette, pilih Standard dan masukkan 3 komponen utama dalam aplikasi penjulana ini, yakni ComboBox, Edit, dan Button dengan rincian sebagai berikut.

1 TComboBox

TComboBox1 = Nama barang

Bagi kamu yang masih bingung cara membuat combobox di Delphi, bisa lihat tutorial sebelumnya tentang Cara Mengisi Item ComboBox Delphi.

6 TEdit

TEdit1 = Harga barang
TEdit2 = Jumlah barang
TEdit3 = Total harga
TEdit4 = Diskon
TEdit5 = Total Bayar
TEdit6 = Bonus

2 TButton

TButton1 = Tombol beli
TButton2 = Tombol kosongkan

4. Deklarasikan variabel yang akan digunakan dalam aplikasi ini.

Cari kode var dan nama Form-nya. Kebetulan saya menggunakan Form2 jadinya secara otomatis yang dideklarasikan juga Form2.

Kemudian tambahkan deklarasi variabel baru untuk tipe data string dan real.

var
Form2: TForm2;
var a, b, c, d, e, f, aa, bb, cc, dd, ee, ff:string;

var a1, a2, a3, a4, a5, a6, aa1, aa2, diskon, ttlharga, ttlbayar:real;

5. Klik 2 kali pada ComboBox1 dan masukkan kode berikut ini.

// Jenis-jenis item yang dijual
a:= 'KULKAS';
b:= 'TV LED';
c:= 'DISPENSER';
d:= 'MICROWAVE';
e:= 'OVEN';
f:= 'TUPPERWARE';

// Harga setiap item
a1:=750000;
a2:=450000;
a3:=150000;
a4:=100000;
a5:=45000;
a6:=25000;

// Konversi tipe data real ke string agar bisa ditampilkan di edit1.Text.
aa := FloatToStr(a1);
bb := FloatToStr(a2);
cc := FloatToStr(a3);
dd := FloatToStr(a4);
ee := FloatToStr(a5);
ff := FloatToStr(a6);

if ComboBox1.Text=a then
edit1.Text:=aa;
if ComboBox1.Text =b then
edit1.Text := bb;
if ComboBox1.Text =c then
edit1.Text := cc;
if ComboBox1.Text =d then
edit1.Text := dd;
if ComboBox1.Text =e then
edit1.Text := ee;
if ComboBox1.Text =f then
edit1.Text := ff;

Script terakhir dalam ComboBox1 dengan fungsi if yang berfungsi untuk menampilkan item pada ComboBox1 dan otomatis menampilkan harga barang di edit1.Text

6. Klik 2 kali pada Button1 dan copy paste kode program berikut ini.

aa1:=StrToFloat(edit1.Text);
aa2:=StrToFloat(edit2.Text);

// script total harga diperoleh dari harga barang x total barang

ttlharga := aa1*aa2;
edit3.Text :=FloattoStr(ttlharga);

// diskon 0 sampai 20% tergantung total harga

if (ttlharga >= 500000)then
diskon := 20/100 * ttlharga;
edit4.Text := FloattoStr(diskon);

if (ttlharga >= 200000) and (ttlharga < 500000) then
diskon := 15/100 * ttlharga;
edit4.Text := FloattoStr(diskon);

if (ttlharga >= 100000) and (ttlharga < 200000) then
diskon := 10/100 * ttlharga;
edit4.Text := FloattoStr(diskon);

if (ttlharga >= 50000) and (ttlharga < 100000) then
diskon := 5/100 * ttlharga;
edit4.Text := FloattoStr(diskon);

if ttlharga < 50000 then
diskon := 0 * ttlharga;
edit4.Text := FloattoStr(diskon);

// total bayar diperoleh dari total harga - diskon

ttlbayar := ttlharga - diskon;
edit5.Text := FloattoStr(ttlbayar);

// bonus didapatkan berdasarkan jumlah total harga

if (ttlharga >= 500000)then
edit6.Text := 'TV 14 Inch';
if (ttlharga >= 200000) and (ttlharga < 500000) then
edit6.Text := 'HP Samsung A3';
if (ttlharga >= 100000) and (ttlharga < 200000) then
edit6.Text := 'Hp Nokia 205';
if (ttlharga >= 50000) and (ttlharga < 100000) then
edit6.Text := '1 Lusin Cangkir';
if ttlbayar < 50000 then
edit6.Text := 'Tidak Ada';

7. Klik 2 kali pada Button2 dan copy paste script Delphi berikut ini.

ComboBox1.Text:='';
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';

Kode pada Button2 (kosongkan keranjang) berfungsi untuk menghapus semua tulisan pada ComboBox1, edit1 sampai edit6 sehingga menjadi bersih kembali.

Ketika program dijalankan, maka tampilan output program akan seperti berikut ini.

Contoh Program Penjualan Barang Delphi Sederhana
Contoh Program Penjualan Barang Delphi Sederhana

Jadi pengguna aplikasi akan memilih item di ComboBox1 dan secara otomatis harga barang akan muncul di Edit1.Text. Setelah itu, program akan meminta user memasukkan jumlah barang (kuantitas) yang ingin dibeli.

Setelah tombol beli diklik, maka akan tampil total harga, diskon, total bayar dan bonus. Silahkan lihat kode komentar dalam script untuk memahami penjelasan kode program di atas.

Ini hanya contoh program penjualan barang sederhana tanpa database Delphi. Kalau mau pakai database juga tidak terlalu sulit dan lebih mudah menggunakan Microsoft Access sebagai database Delphi.

Jika dilihat dari studi kasus, aplikasi di atas bisa diterapkan saat transaksi penjualan di toko grosir yang melayani pembelian dalam jumlah yang banyak. Tentu saja sesuai dengan tambahan yang dibutuhkan dan dengan database agar lebih mudah dikelola, terutama saat menginput data barang baru.

Lihat juga Cara Konversi Tipe Data Delphi

Demikianlah contoh program penjualan barang sederhana Delphi. Semoga bermanfaat!
Contact Us: Komentar, saran dan masukan melalui WA 085396717324 dan Gmail Lara4store@gmail.com.