membuat aplikasi penjualan dengan deplhi

aplikasi tersebut akan diperlukan untuk membantu dalam sistem penjualan toko modern, berikut kami bagikan cara membuat pos kasir sederhana.

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.