STUDI KASUS
Buatlah program sederhana untuk penjualan, misalnya seperti dibawah ini
Gambar 1.1 Contoh Aplikasi Penjualan
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
|
Edtharga
|
-
|
-
|
Edit2
|
Edtjml
|
-
|
-
|
Edit3
|
Edtbyr
|
-
|
-
|
GroupBox1
|
GroupBox1
|
-
|
Panel Button
|
GroupBox1
|
GroupBox1
|
-
|
Rincian Pembelian
|
Button1
|
Button1
|
-
|
Hitung
|
Button2
|
Button2
|
-
|
New
|
Button3
|
Button3
|
-
|
Keluar
|
Berikut tampilan design dengan menggunakan komponen diatas:
Gambar 1.2 Tampilan Design Layout
Langkah ke-2: Membuat Source Code untuk Button Hitung
Gambar 1.3 Source Code Button Hitung
Pada langkah kedua kita 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:
procedure TForm1.Button1Click(Sender: TObject);
var
harga, bayar, kembalian, total : real;
jumlah: integer;
begin
if((Edtharga.Text = ' ') or (Edtjml.Text = ' ') or (Edtbyr.Text = ' ')) then
begin
messageDlg('Maaf Ada Data yang Belum Terisi, Mohon Cek kembali!!!',
mtError,[mbOk],0);
Edtharga.SetFocus;
exit;
end;
harga:= StrtoFloat(Edtharga.Text);
jumlah:= StrtoInt(Edtjml.Text);
bayar:= StrtoFloat(Edtbyr.Text);
total:=harga*jumlah;
kembalian:=bayar-total;
lblbayar.Caption := FormatFloat('Rp #,###,#0.00',total);
lblkembali.Caption := FormatFloat('Rp #,###,#0.00',kembalian);
Langkah ke-3: Membuat Source Code Button New:
Gambar 1.4 Source Code Button New
Pada langkah ketiga kita membuat source code untuk button New, konsep button new hampir sama saat kita membuat button hapus, berikut source codenya:
procedure TForm1.Button2Click(Sender: TObject);
begin
Edtharga.Text:= ' ';
Edtjml.Text:= ' ';
Edtbyr.Text:= ' ';
lblbayar.Caption:= ' ';
lblkembali.Caption:= ' ';
end;
Langkah ke-4 Ã Membuat Source Code Button Keluar
Gambar 1.5 Source Code Button Keluar
Pada Langkah ketiga kita akan membuat 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:
procedure TForm1.Button3Click(Sender: TObject);
begin
If(Application.MessageBox('Apakah Anda Yakin Keluar? ','konfirmasi',MB_YesNo)=ID_Yes)then
Application.Terminate;
end;
OUTPUT
Gambar 1.6 Tampilan Awal Running
Gambar 1.7 Tampilan Saat User Memasukkan Data
Gambar 1.8 Tampilan Saat User Menekan Tombol Hitung
Gambar 1.9 Tampilan Saat User Menekan Tombol New
Gambar 2.1 Tampilan Saat User Menekan Tombol Keluar
Bagaimana sangat mudah kan membuat aplikasi penjualan sederhana menggunakan delphi?? . Untuk pertanyaan atau saran, atau yang mau minta filenya untuk referensi tugas bisa meninggalkan komentar.
ConversionConversion EmoticonEmoticon