Membuat Aplikasi Kasir Sederhana Menggunakan Delphi 7 - ShareItCare Blog

Oke guys, disini saya akan berbagi pengalaman saat otak-atik bahasa pemrogramman delphi 7 ^-^

Saya membuat Aplikasi Kasir Sederhana, mudah kok guys tinggal copas syntax aja jadi deh, hehe...

Hal pertama yang harus kalian siapin adalah software delphi 7 nya yang pasti guys :v

Jangan lupa niat dan doa biar lancar nanti buat programnya. Tenang, udah saya kasih link download buat delphi nya juga kok bro and sist ... (Ini full version ya guys, dalam rar udah ada cracknya)

Download

Delphi-7

Size : 272 MB

Oh iya, buat kalian newbie yang belum tau untuk install delphi 7 nya.., next saya akan buat tutorialnya juga kok, sabar.... :v

Langsung aja deh, pertama setelah install delphi 7, kalian buka seperti biasa delphi 7 kalian dan nanti pasti akan langsung keluar form atau project baru disana, kalian buat persis aja seperti pada gambar ini ya buat yang newbie, kalo kalian udah pro ya tambah-tambah in juga gak masalah guys :)

Aplikasi Kasir Cafe Latte = Ganti di nama Form1

Share It Care - Cafe Latte = Gunakan GroupBox

Nama Kasir dan seterusnya = Gunakan Label (Untuk isi an nama kasir juga menggunakan label)

Isi-an tanggal pembelian = Gunakan DateTimePicker (Ada di tools Win32 - untuk newbie)

Isi-an jenis dan nama produk = Gunakan ComboBox

Isi-an harga, total pembayaran, bayar, dan kembalian = Gunakan Edit

Isi-an jumlah pembelian = Gunakan Edit dan UpDown (Ada di tools Win32 - untuk newbie)

Total, hitung, reset, dan login = Gunakan Button

*Ganti nama caption atau text persis seperti gambar diatas...

Untuk di ComboBox1 (Pilih Jenis Makanan) masukkan item barang atau makanan yang kalian jual terlebih dahulu seperti gambar diatas..

Atur UpDown kalian seperti pada gambar diatas (Klik UpDown lalu pilih Associate lalu pilih edit3 kalo digambar saya tdi - newbie) 

Sekarang kita masuk ke codingnya ya guys :)

1. Klik pada ComboBox1 dan tambahkan Event OnSelect lalu copy kan code ini..

procedure TForm1.ComboBox1Select(Sender: TObject); begin if combobox1.ItemIndex=0 then begin ComboBox2.Items.Clear; ComboBox2.Text:=’Pilih Nama Produk’; ComboBox2.Items.Add(‘Magelangan’); ComboBox2.Items.Add(‘Mie Dok-Dok’); end else if ComboBox1.ItemIndex=1 then begin ComboBox2.Items.Clear; ComboBox2.Text:=’Pilih Nama Produk’; ComboBox2.Items.Add(‘Teh Anget’); ComboBox2.Items.Add(‘Es Teh’); end else if ComboBox1.ItemIndex=2 then begin ComboBox2.Items.Clear; ComboBox2.Text:=’Pilih Nama Produk’; ComboBox2.Items.Add(‘Kerupuk Bundar’); ComboBox2.Items.Add(‘Kerupuk Rambak’); end; end;

Untuk code ComboBox2.Items.Add(‘Nama Item’); bisa kalian tambahin kok nama barang, makanan, ataupun minuman jualan kalian sebanyak-banyaknya ^-^

2. Klik pada ComboBox2 dan tambahkan Event OnSelect lalu copy kan code ini..

procedure TForm1.ComboBox2Select(Sender: TObject); begin if ComboBox1.ItemIndex=0 then begin if ComboBox2.ItemIndex=0 then Edit2.Text:=’7500′ else if ComboBox2.ItemIndex=1 then Edit2.Text:=’8000′; end else if ComboBox1.ItemIndex=1 then begin if ComboBox2.ItemIndex=0 then Edit2.Text:=’2000′ else if ComboBox2.ItemIndex=1 then Edit2.Text:=’2500′; end else if ComboBox1.ItemIndex=2 then begin if ComboBox2.ItemIndex=0 then Edit2.Text:=’1000′ else if ComboBox2.ItemIndex=1 then Edit2.Text:=’2000′; end; end;

Untuk code if ComboBox2.ItemIndex=Urutan Barang then Edit2.Text:=’Harga Barang′ bisa kalian rumah kok harga barang kalian ^-^

3. Klik 2 kali pada Button Total dan copy kan code ini..

procedure TForm1.Button1Click(Sender: TObject); var harga,jum_pemb,tot_byr:Integer; begin if Edit3.Text=’0′ then begin ShowMessage(‘Total Harga Tidak Boleh 0’); end else begin harga:=StrToInt(Edit2.Text); jum_pemb:=StrToInt(Edit3.Text); tot_byr:=harga*jum_pemb; Edit4.Text:=IntToStr(tot_byr); end; end;

Code ini adalah untuk menghitung jumlah harga total yang harus dibayarkan ^-^

4. Klik 2 kali Button Hitung dan copy kan code ini..

procedure TForm1.Button2Click(Sender: TObject); var tot_byr,bayar,kembalian:Integer; begin if Edit4.Text=” then begin ShowMessage(‘Maaf Lengkapi Data yang Sebelumnya’); end else begin tot_byr:=StrToInt(Edit4.Text); bayar:=StrToInt(Edit5.Text); kembalian:=bayar-tot_byr; Edit6.Text:=IntToStr(kembalian); end; end;

Code ini untuk menghitung jumlah kembalian ^-^

5. Selanjutnya Klik 2 kali Button Reset dan copy kan code ini..

procedure TForm1.Button3Click(Sender: TObject); begin ComboBox1.Text:='Pilih Jenis Produk'; ComboBox2.Text:='Pilih Nama Produk'; Edit2.Clear; Edit3.Text:='0'; Edit4.Clear; Edit5.Clear; Edit6.Clear; end;

Code ini digunakan untuk button reset (Clear program untuk memulai dari awal - newbie)

!!! Ingat kalau kalian mau copy, dari var sampai end yang kedua dari bawah guys.

Oke guys, mungkin sampai sini dulu share saya hari ini.. Oh iya, untuk Button Loginnya akan saya next post ya guys, sekarang diabaikan saja gak masalah.. Program sudah bisa berjalan kok, selamat mencoba, Form Login sudah saya buat ya guys di sini ^-^

Note: Jangan lupa share dan kasih tau ke temen-temen kalian yang lagi cari nih aplikasi :v Jika ada penulisan code dan link broken bisa komen dibawah ya, semoga bermanfaat guys..