Membuat Program Transaksi Sederhana Menggunakan Delphi 7

Membuat Program Transaksi Sederhana Menggunakan Delphi 7 - Sebelum membuat program dengan database, program berikut merupakan contoh dasar penyelesaian untuk pembuatan form transaksi, yang biasanya digunakan dalam pembuatan program untuk aplikasi Database.

Pada contoh kasus yang akan dibuat pada pembuatan program kali ini adalah menyelesaikan transaksi pada Rumah Makan Fast Food. Untuk membuat program Rumah Makan pendataan transaksi dilakukan berdasarkan aturan :

o   Nomor Transaksi, karena belum menggunakan tabel, nomor transaksi diinputkan secara manual oleh user.

o   Tanggal Transaksi, diambil dari sistem o Jenis Menu, jenis menu terbagi atas 2 macam, yaitu menu paket hemat dan menu biasa o Daftar Makanan dan Minuman untuk Menu Paket Hemat

 

Paket	Makanan1	Makanan2	Minuman	Harga
A	2 Kentang Goreng	Sayap & Paha Ayam	Softdrink	4500
B	Nasi, Kentang Goreng	2 Paha Ayam	Softdrink	5500
C	Burger Ayam	Kentang Goreng	Es Buah	6500

o   Daftar Makanan dan Minuman untuk Menu Biasa

 

Makanan	Harga	Minuman	Harga
Nasi	1000	Teh Kotak	700
Kentang	700	Teh Botol	1500
Sayap Ayam	1500	Kopi	1000
Paha Ayam	1750	Kopi Susu	2000
Dada Ayam	2000	Softdrink	2000
Burger Keju	3000	Cappucino	2500
Burger Ayam	3500	Es Buah	3000

o   Jumlah Bayar untuk Paket Hemat sama dengan Jumlah Harga Paket o Jumlah Bayar untuk menu biasa berdasarkan total harga makanan dan minuman o Pajak sebesar 5% dari Jumlah Bayar o Total Bayar didapat dari Jumlah Bayar + Pajak

 Penyelesaian :

1.Buat desain form seperti dibawah ini :

 

2. Atur Properti sebagai berikut :

Component Pallete		Object Inspector
Tab	Nama Object	Properties	Keterangan
Standard	Panel1	Caption	(Kosongkan)
	Panel2	Caption	(Kosongkan)
	Edit1	Name	EdNoTransaksi
	Button1	Name	BtBaru
		Caption	&Baru
	Button2	Name	BtBatal
		Caption	&Batal
	Button3	Name	BtKeluar
		Caption	&Keluar
	Button4	Name	BtHitung
		Caption	&Hitung
Additional	StaticText1	Name	StTanggal
		AutoSize	False
		BorderStyle	sbsSunken
	StaticText6	Name	StPajak
		AutoSize	False
		BorderStyle	sbsSunken
	StaticText7	Name	StTotal
		AutoSize	False
		BorderStyle	sbsSunken
Win32	PageControl1 Buat 2 Halaman	Name	PcMenu
		HotTrack	True
		Style	tsButtons
	TabSheet1	Caption	Paket Hemat
	TabSheet2	Caption	Menu Biasa
Objek dib awah ini dibuat didalam PageControl ha laman 1 (TabSheet1)
Standard	Panel3	Caption	(Kosongkan)
	RadioGroup	Name	RdPaket
		Caption	Jenis Paket
		Items	Paket A Paket B Paket C
Additional	StaticText2	Name	StMakanan1
		AutoSize	False
		BorderStyle	sbsSunken
	StaticText3	Name	StMakanan2
		AutoSize	False
		BorderStyle	sbsSunken
	StaticText4	Name	StMinuman
		AutoSize	False
		BorderStyle	sbsSunken
	StaticText5	Name	StHargaPaket
		AutoSize	False
		BorderStyle	sbsSunken
Objek dibawah ini dibuat didalam PageControl halaman 2 (TabSheet2)
Standard	Panel4	Caption	(Kosongkan)
	ComboBox1	Name	CmbMakanan
		Items	Nasi Kentang Sayap Ayam Paha Ayam Dada Ayam Burger Keju Burger Ayam
	ComboBox2	Name	CmbMinuman
		Items	Teh Kotak Teh Botol Kopi Kopi Susu Softdrink Cappucino Es Buah
	ListBox1	Name	LstDaftar
	ListBox2	Name	LstHarga
	Button5	Name	BtHapusDaftar
		Caption	Hapus dari Daftar
Additional	StaticText8	Name	StBayarBiasa
		AutoSize	False
		BorderStyle	sbsSunken

 

3. Deklarasikan atau buat secara manual sebuah procedure dengan nama HitungBayarBiasa dalam class TForm1. Procedure ini nantinya akan digunakan untuk mencari Total Harga Makanan dan Minuman yang akan dibeli.

Setelah mendeklarasikan Procedure tersebut, ketik kode program berikut di bawah Implementation Unit. 

procedure TForm1.HitungBayarBiasa; var harga, jbayar:real; begin

jbayar:=0; harga:=0;

  for i:=0 to (lstharga.Items.Count-1) do

begin

 //Ambil nilai yang ada pada Listbox harga     harga:=strtofloat(LstHarga.Items.Strings[i]);  //Jumlahkan Harga dan simpan dalam variable jbayar     jbayar:=jbayar+harga;   end;   stbayarbiasa.Caption:=floattostr(jbayar); end; 

 

4. Buat/deklarasikan beberapa variabel global dibawah ini : 

var

  Form1 : TForm1;

  i,n        : integer; //untuk index dalam perulangan

  Jbaru   : Boolean; //untuk pengecekan transaksi baru  

5. Double klick pada bagian kosong form, ketikan kode program berikut : 

procedure TForm1.FormCreate(Sender: TObject); 

begin    

   Jbaru:=False; 

end;

LANJUT KE PART 2 >