Hallo, kali ini saya ingin berbagi tentang pemrograman delphi. Disini saya 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.berharap kalau anda semua sebelumnya sudah pernah belajar tentang dasar-dasar pemrograman delphi. Supaya anda nanti bisa mengerti dengan tips kali ini. 
langsung saja yuk........

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,sekarang anda tinggal memasukkan coding nya.


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) 




[font=Georgia, Utopia, "Palatino Linotype", Palatino, serif][php]procedure TForm1.btnHitungClick(Sender: TObject); 
[/font]

PHP Code:

var 


PHP Code:

  harga,pembayaran,kembali,total: real; 


PHP Code:

  jumlah: integer; 


PHP Code:

begin 


PHP Code:

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


PHP Code:

    begin 


PHP Code:

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


PHP Code:

      edtHarga.SetFocus ; 


PHP Code:

      exit; 


PHP Code:

    end; 


PHP Code:

 


PHP Code:

  harga:= StrToFloat(edtHarga.Text ); 


PHP Code:

  jumlah:= StrToInt(edtJumlah.Text); 


PHP Code:

  pembayaran:= StrToFloat(edtPembayaran.Text); 


PHP Code:

 


PHP Code:

  total:=harga*jumlah; 


PHP Code:

  kembali:=pembayaran-total; 


PHP Code:

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


PHP Code:

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


PHP Code:

end; 


PHP Code:

 


PHP Code:

Dobel klik pada btnKeluar (Keluar) 


PHP Code:

 


PHP Code:

 


PHP Code:

procedure TForm1.btnKeluarClick(Sender: TObject);[font=Georgia, Utopia, "Palatino Linotype", Palatino, serif][/font]
[font=Georgia, Utopia, "Palatino Linotype", Palatino, serif][b][php]begin 
[/b]

PHP Code:

  Application.Terminate ; 


PHP Code:

end; 


PHP Code:

 


PHP Code:

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


PHP Code:

 


PHP Code:

 


PHP Code:

silahkan mencoba,semoga ilmu nya bermanfaat bagi anda.... 


PHP Code:

 


PHP Code:

https://rahmanaddres.blogspot.com/2018/05/program-aplikasi-penjualan-sederhana.html 
[/php][/font][/php]