Leading portal for news, information, and resources for the Connected Generations

16/10/2014

Membuat Program Transaksi Sederhana Menggunakan Delphi 7 Part 2

Membuat Program Transaksi Sederhana Menggunakan Delphi 7 Part 2 - Berikut adalah lanjutan dari pembuatan Program Transaksi Sederhana Dengan Delphi 7 dari Part 1.

Membuat Program Transaksi Sederhana Menggunakan Delphi 7 Part 2_

6. Double klick tombol Baru, ketikan kode program berikut :


procedure TForm1.BtBaruClick(Sender: TObject); begin
    Jbaru            := 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); 
begin
    Jbaru            := 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 Then
  halt 
else    
exit;
end;
 

10. Double Klick pada objek PageControl, tuliskan kode program berikut :



Procedure Tform1.PcMenuChange(Sender: TObject); 
Begin if   Jbaru=True then    
begin     if application.MessageBox('Anda mau
                               membatalkan transaksi...',
'Konfirmasi',Mb_IconQuestion  Or Mb_YesNo)=IdYes Then
      Begin
        StPajak.Caption:='';
        StTotal.Caption:='';
        Case Pcmenu.ActivePageIndex Of
          0: Begin
              cmbMakanan.Text:='';               CmbMinuman.Text:='';
              LstDaftar.Clear;
              LstHarga.Clear;               StBayarBiasa.Caption:='';              
 end;
          1: Begin
              StMakanan1.Caption:='';
              StMakanan2.Caption:='';
              StMinuman.Caption:='';
              StHargaPaket.Caption:='';
             End;
        End;


end
 else 
 exit; 
end 
else 
exit; 
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; 
begin
  Case RgPaket.ItemIndex of
  0:Begin
      Makanan1:='2 Kentang Goreng';
      Makanan2:='Sayap Ayam, Paha Ayam';
      Minuman:='SoftDrink';
      HargaP:='4500';
    End;
  1:Begin
      Makanan1:='Nasi, Kentang Goreng';
      Makanan2:='2 Paha Ayam';
      Minuman:='SoftDrink';
      HargaP:='5500';
    End
  Else
    Begin
      Makanan1:='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; 
begin
  x:=CmbMakanan.ItemIndex;
  LstDaftar.Items.Add(CmbMakanan.Items.Strings[X]);   case x of
   0: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');   
 else      
exit;   
 end;

HitungBayarBiasa; 
end; 

13. Double klick combobox minuman yang ada pada pagesheet2, tuliskan kode program berikut : 


procedure TForm1.CmbMinumanChange(Sender: TObject); 
var y:Integer; 
begin
  y:=CmbMinuman.ItemIndex;
  LstDaftar.Items.Add(CmbMinuman.Items.Strings[y]);   
  case y of
   0: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');  
 else    
 exit;   
 end;
HitungBayarBiasa; 
end;

14.  Double Klick ListBox Daftar Pesanan, tuliskan kode program berikut :

procedure TForm1.lstDaftarClick(Sender: TObject); 
begin   
 lstharga.ItemIndex:=lstDaftar.ItemIndex; 
end;  

15.  Double Klick ListBox Daftar Harga, tuliskan kode program berikut :

procedure TForm1.LstHargaClick(Sender: TObject); 
begin    
lstDaftar.ItemIndex:=lstharga.ItemIndex; 
end; 

16.  Double Klick Tombol Hapus, tuliskan kode program berikut :

procedure TForm1.BtHapusDaftarClick(Sender: TObject); 
Var HargaM, TotHarga, Hasil:Real;     
 z:Integer; 
begin
    z:=LstHarga.ItemIndex;
    HargaM:=strtofloat(LstHarga.Items.Strings[z]);
    TotHarga:=StrToFloat(stbayarbiasa.Caption);     
    Hasil:=TotHarga-HargaM;
    stbayarbiasa.Caption:=FloatToStr(Hasil);
    LstDaftar.DeleteSelected;      
    LstHarga.DeleteSelected; 
end;

17. Double Klick Tombol Hitung, tuliskan kode program berikut :

procedure TForm1.BtHitungClick(Sender: TObject); 
var TBayar, Pajak, Total:Real; 
begin
  Case pcMenu.ActivePageIndex Of
   0: 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 ^^

Share on Facebook
Share on Twitter
Share on Google+

Related : Membuat Program Transaksi Sederhana Menggunakan Delphi 7 Part 2

Please enable / Bitte aktiviere JavaScript!
Veuillez activer / Por favor activa el Javascript![ ? ]