Membuat Program Transaksi Sederhana Menggunakan Delphi 7 Part 2 - Berikut adalah lanjutan dari pembuatan Program Transaksi Sederhana Dengan Delphi 7 dari Part 1.
6. Double klick tombol Baru, ketikan kode program berikut :
procedure TForm1.BtBaruClick(Sender: TObject); beginJbaru := True;Btbaru.Enabled := False;EdNoTransaksi.Enabled:= True;EdNoTransaksi.Color := clWindow;StTanggal.Caption := DateToStr(date);rgPaket.Enabled := True;CmbMakanan.Enabled := True;CmbMinuman.Enabled := True;CmbMakanan.Color := clWindow;CmbMinuman.Color := clWindow;LstDaftar.Enabled := True;LstHarga.Enabled := True;LstDaftar.Color := clWindow;LstHarga.Color := clWindow;BtHapusDaftar.Enabled:= True;
BtHitung.Enabled := True;
EdNoTransaksi.SetFocus;
end;
7. Double klick tombol Batal, ketikan kode program berikut :
procedure TForm1.BtBatalClick(Sender: TObject);beginJbaru := False;Btbaru.Enabled := True;EdNoTransaksi.Text := '';EdNoTransaksi.Enabled:= False;EdNoTransaksi.Color := clBtnFace;StTanggal.Caption := '';rgPaket.Enabled := False;StMakanan1.Caption := '';StMakanan2.Caption := '';StMinuman.Caption := '';StHargaPaket.Caption := '';cmbMakanan.Text := '';CmbMinuman.Text := '';cmbMakanan.Enabled := False;CmbMinuman.Enabled := False;cmbMakanan.Color := clBtnFace;CmbMinuman.Color := clBtnFace;LstDaftar.Clear;LstHarga.Clear;LstDaftar.Enabled := False;LstHarga.Enabled := False;LstDaftar.Color := clBtnFace;LstHarga.Color := clBtnFace;StBayarBiasa.Caption := '';BtHapusDaftar.Enabled:= False;BtHitung.Enabled := False;StPajak.Caption := '';
StTotal.Caption := '';
end;
8. Klick Form pada bagian yang kosong, isi event onActive dengan BtBatalClick
9. Double Klick Tombol Keluar, tuliskan kode program berikut:
procedure TForm1.BtKeluarClick(Sender: TObject);begin if application.MessageBox('Yakin mau keluar ?','Konfirmasi', MB_IconQuestion Or MB_YesNo)=IdYes Thenhaltelseexit;end;
10. Double Klick pada objek PageControl, tuliskan kode program berikut :
Procedure Tform1.PcMenuChange(Sender: TObject);Begin if Jbaru=True thenbegin if application.MessageBox('Anda maumembatalkan transaksi...','Konfirmasi',Mb_IconQuestion Or Mb_YesNo)=IdYes ThenBeginStPajak.Caption:='';StTotal.Caption:='';Case Pcmenu.ActivePageIndex Of0: BegincmbMakanan.Text:=''; CmbMinuman.Text:='';LstDaftar.Clear;LstHarga.Clear; StBayarBiasa.Caption:='';end;1: BeginStMakanan1.Caption:='';StMakanan2.Caption:='';StMinuman.Caption:='';StHargaPaket.Caption:='';End;End;endelseexit;endelseexit;end;
11. Double klick RadioGroup yang ada pada pagesheet1,
tuliskan kode program berikut :
procedure TForm1.RgPaketClick(Sender: TObject);Var Makanan1,Makanan2,Minuman:String;HargaP:String;beginCase RgPaket.ItemIndex of0:BeginMakanan1:='2 Kentang Goreng';Makanan2:='Sayap Ayam, Paha Ayam';Minuman:='SoftDrink';HargaP:='4500';End;1:BeginMakanan1:='Nasi, Kentang Goreng';Makanan2:='2 Paha Ayam';Minuman:='SoftDrink';HargaP:='5500';EndElseBeginMakanan1:='Burger Ayam';Makanan2:='Kentang Goreng';Minuman:='Es Buah';HargaP:='6500';End;End;StMakanan1.Caption:=Makanan1;StMakanan2.Caption:=Makanan2;StMinuman.Caption:=Minuman;StHargaPaket.Caption:=HargaP;StPajak.Caption:='';
StTotal.Caption:='';end;
12. Double klick combobox makanan yang ada pada pagesheet2, tuliskan kode program berikut :
procedure TForm1.CmbMakananChange(Sender: TObject);var x:integer;beginx:=CmbMakanan.ItemIndex;LstDaftar.Items.Add(CmbMakanan.Items.Strings[X]); case x of0:lstharga.Items.Append('1000');1:lstharga.Items.Append('700');2:lstharga.Items.Append('1500');3:lstharga.Items.Append('1750');4:lstharga.Items.Append('2000');5:lstharga.Items.Append('3000');6:lstharga.Items.Append('3500');elseexit;end;HitungBayarBiasa;end;
13. Double klick combobox minuman yang ada pada pagesheet2, tuliskan kode program berikut :
procedure TForm1.CmbMinumanChange(Sender: TObject);var y:Integer;beginy:=CmbMinuman.ItemIndex;LstDaftar.Items.Add(CmbMinuman.Items.Strings[y]);case y of0:lstharga.Items.Append('700');1:lstharga.Items.Append('1500');2:lstharga.Items.Append('1000');3:lstharga.Items.Append('2000');4:lstharga.Items.Append('2000');5:lstharga.Items.Append('2500'); 6:lstharga.Items.Append('3000');elseexit;end;HitungBayarBiasa;
end;
14. Double Klick ListBox Daftar Pesanan, tuliskan kode program berikut :
procedure TForm1.lstDaftarClick(Sender: TObject);beginlstharga.ItemIndex:=lstDaftar.ItemIndex;end;
procedure TForm1.LstHargaClick(Sender: TObject);beginlstDaftar.ItemIndex:=lstharga.ItemIndex;end;
procedure TForm1.BtHapusDaftarClick(Sender: TObject);Var HargaM, TotHarga, Hasil:Real;z:Integer;beginz:=LstHarga.ItemIndex;HargaM:=strtofloat(LstHarga.Items.Strings[z]);TotHarga:=StrToFloat(stbayarbiasa.Caption);Hasil:=TotHarga-HargaM;stbayarbiasa.Caption:=FloatToStr(Hasil);LstDaftar.DeleteSelected;LstHarga.DeleteSelected;end;
procedure TForm1.BtHitungClick(Sender: TObject);var TBayar, Pajak, Total:Real;beginCase pcMenu.ActivePageIndex Of0: TBayar:=StrToFloat(StHargaPaket.Caption);1: TBayar:=StrToFloat(StBayarBiasa.Caption);end;Pajak:=(5/100)*TBayar;Total:= TBayar + Pajak;StPajak.Caption:=FloatToStr(Pajak); StTotal.Caption:=FloatToStr(Total);end;
Coding selesai, sekarang coba jalankan program dengan menekan tombol F9 ^^