Wednesday, October 19, 2016

Cara Membuat Aplikasi Penjualan Sederhana dengan Delphi 7

 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. 


Read more