Membuat Aplikasi Penjualan Sederhana dengan Delphi 7

Nama : Alwi Pratama Rahman

NIM : 19330011

Jurusan : TI Janabadra

STUDI KASUS

Buatlah program sederhana untuk penjualan, misalnya seperti dibawah ini

PENYELESAIAN KASUS

Langkah ke-1: Membuat design layout terlebih dahulu

Beberapa Komponen yang dibutuhkan untuk membuat Design Layout Aplikasi Kasir diantaranya sebagai berikut:

Komponen	Name	Text	Caption
Label1	Label1	-	Aplikasi Kasir Sederhana
Label2	Label2	-	Harga(Rp)
Label3	Label3	-	Jumlah Barang (Q)
Label4	Label4	-	Input Pembayaran
Label5	Label5	-	Total Bayar
Label6	Label6	-	Kembalian
Label7	Label7	-	Rp
Label8	Label8	-	Rp
Edit1	Edit1	-	-
Edit2	Edit2	-	-
Edit3	Edit3	-	-
GroupBox1	GroupBox1	-	Panel Button
GroupBox1	GroupBox1	-	Rincian Pembelian
Button1	Button1	-	Hitung
Button2	Button2	-	New
Button3	Button3	-	Keluar

Berikut tampilan design dengan menggunakan komponen diatas:

Langkah ke-2: Membuat Source Code untuk Button Hitung

Pada langkah kedua tutoriallwee akan membuat source code untuk button hitung berikut source code nya untuk membuat button hitung supaya memproses perhitungan total bayar dan kembalian, serta menampilkan angka dengan format Rp. #.###,# seperti pada kasus diatas:

Var
jbarang : integer ;
hsatu, ipemb, total, kembalian : real ;
begin
hsatu:= StrToFloat(Edit1.Text);
jbarang:= StrToInt(Edit2.Text);
ipemb:= StrToFloat(Edit3.Text);

total:= hsatu*jbarang;
kembalian:= ipemb-total;

Label7.Caption := FormatFloat('Rp #,###,#0.00',total);
Label8.Caption := FormatFloat('Rp #,###,#0.00',kembalian);
end;
end.

Langkah ke-3: Membuat Source Code Button New:

Pada langkah ketiga tutoriallwee membuat source code untuk button New, konsep button new hampir sama saat kita membuat button hapus, berikut source codenya:

begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit1.SetFocus;
Label7.Caption := '';
Label8.Caption := '';
end;

Langkah ke-4 : Membuat Source Code Button Keluar

Pada Langkah ke-empat tutoriallwee akan memberikan Source code untuk button keluar, dengan menggunakan fungsi IF supaya pada saat user aplikasi menekan tombol keluar akan muncul opsi untuk pilihan yes atau no, berikut source codenya:

begin
If(Application.MessageBox('Apakah Anda Yakin Keluar? ','konfirmasi',MB_YesNo)=ID_Yes)then
Application.Terminate;
end;

OUTPUT

Tampilan Awal Running :

Tampilan Saat User Memasukkan Data

Tampilan Saat User Menekan Tombol Hitung

Tampilan Saat User Menekan Tombol New

Tampilan Saat User Menekan Tombol Keluar

Bagaimana sangat mudah kan membuat aplikasi penjualan sederhana menggunakan delphi di tutoriallwee. Untuk pertanyaan atau saran, atau yang mau minta filenya untuk referensi tugas bisa meninggalkan komentar.