Membuat Program Transaksi Sederhana Menggunakan Delphi 7 Part 2

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.

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);

download now

download