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.
