Program Aplikasi penjualan sederhana menggunakan Delphi7

Sobat, kali ini pensil ingin berbagi tentang pemrograman delphi. Disini pensil ingin memberikan sedikit pengetahuan tentang Bagaimana  membuat program aplikasi penjualan. Namun program kali ini tidak menggunakan sebuah database. Lain kali kita akan mengembangkannya dengan menggunakan sebuah database. Oya sobat, pensil berharap kalau sobat semua sebelumnya sudah pernah belajar tentang dasar-dasar pemrograman delphi. Supaya sobat nanti bisa mengerti dengan tips kali ini. 

Kali ini Pak Lurah sedang keluar kota sobat, jadi tidak bisa menyampaikan tips ini. Jadi pensil yang akan mencoba memaparkannya. Hehehe .............. 

Yuk kita mulai dengan Bismillah... 

Pertama sobat buka dulu program delphinya. Kemudian siapkan komponen-komponen berikut :

Komponen	Name	Text	Caption
Label1	label1	-	Pensil Ajaib Store
Label2	label2	-	Harga Satuan (Rp)
Label3	label3	-	Jumlah Barang (Q)
Label4	label4	-	Input Pembayaran (Rp)
Label5	label5	-	Total Bayar
Label6	label6	-	Kembalian
Label7	label7	-	Rp
Label8	label8	-	Rp
Edit1	edtHarga	-	-
Edit2	edtJumlah	-	-
Edit3	edtPembayaran	-	-
GroupBox1	GroupBox1	-	Rincian Pembelian
GroupBox2	GroupBox2	-	Panel Button
Button1	btnNew	-	&New
Button2	btnHitung	-	&Hitung
Button3	btnKeluar	-	K&eluar
Form1	Form1	-	Aplikasi Penjualan Sederhana - Pensil Ajaib

Kemudian sobat buat sebuah User Interface seperti gambar berikut :

Kalau sudah, sobat tuliskan listing berikut :

Dobel klik pada btnNew (New)

procedure TForm1.btnNewClick(Sender: TObject);

begin

edtHarga.Text := '';

edtJumlah.Text := '';

edtPembayaran.Text := '';

edtHarga.SetFocus ;

end;

Dobel klik pada btnHitung (Hitung)

procedure TForm1.btnHitungClick(Sender: TObject);

var

  harga,pembayaran,kembali,total: real;

  jumlah: integer;

begin

  if((edtHarga.Text ='') or (edtJumlah.Text ='') or (edtPembayaran.Text ='')) then

    begin

      messageDlg('Ada yang belum terisi, cek kembali...',mtError,[mbOk],0);

      edtHarga.SetFocus ;

      exit;

    end;




  harga:= StrToFloat(edtHarga.Text );

  jumlah:= StrToInt(edtJumlah.Text);

  pembayaran:= StrToFloat(edtPembayaran.Text);




  total:=harga*jumlah;

  kembali:=pembayaran-total;

  lblTotal.Caption := FormatFloat('Rp #,###,#0.00',total);

  lblKembalian.Caption := FormatFloat('RP #,###,#0.00',kembali);

end;

Dobel klik pada btnKeluar (Keluar)

procedure TForm1.btnKeluarClick(Sender: TObject);

begin

  Application.Terminate ;

end;

Setalah itu sobat simpan semua ( Ctrl + Shift + S ). Kemudian jalankan Run (F9)

Bagaimana sobat, mudah bukan ?

Buat sobat yang mau softcopy nya disini dan program aplikasinya disini. Gratis Koq..

Lihat juga yang ini :

• Aplikasi Pengolahan Surat Masuk dan Surat Keluar Menggunakan Delphi7

1. Download Gratis Aplikasi Perpustakaan Sekolah Menggunakan Delphi7 - ZonaPerpus
2. Aplikasi Penjualan Buku Menggunakan Java – NetBeans dan Database Ms. Access
3. Source Code Aplikasi Penjualan Ayam Menggunakan VB6 dan Ms Access
4. Aplikasi Perpustakaan Sekolah menggunakan Delphi7 dan Database Access
5. Sistem Informasi Akademik - Pendataan Nilai dengan Java Netbeans dan Database MySQL

Posted on 3:27 PM / Read More