contoh program penjualan dengan delphi 7

kali ini semut junior akan memberikan contoh program delphi yang di pelajari di kuliah hari ini dan itu untuk ujian tengah semester dari pada data ilang mendingan saya share ke temen teman agar bisa belajar bersama-sama nah langsung saja ini dia gambar programnya dan source codenya maaf cuma bisa ngasih source code karena jika saya kasih udah jadi maka kalian hanya akan diam tidak berkembang..

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

  if ComboBox1.ItemIndex = 0 then

  begin

  Lnama.Caption := 'Genteng Multiroof';

  Lharga.Caption := '50000';

  end;

   if ComboBox1.ItemIndex = 1 then

  begin

  Lnama.Caption := 'Gypsum Standar';

  Lharga.Caption := '45000';

  end;

   if ComboBox1.ItemIndex = 2 then

  begin

  Lnama.Caption := 'Gypsum WaterProof';

  Lharga.Caption := '85000';

  end;

   if ComboBox1.ItemIndex = 3 then

  begin

  Lnama.Caption := 'Baja Ringan';

  Lharga.Caption := '175000';

  end;

end;

procedure TForm1.NewClick(Sender: TObject);

begin

  ComboBox1.Text := 'Pilih';

  Lnama.Caption := '-';

  Lharga.Caption :='-';

  Lbeli.Caption :='0';

  Lsubtotal.Caption := '-';

  Ldiskon.Caption := '-';

  Ltotal.Caption := '-';

  Lbonus.Caption := '-';

  Lkupon.Caption := '-';

  Memo1.Clear;

  Memo1.Lines.Append('semutjunior.blogspot');

  Memo1.Lines.Append('');

end;

procedure TForm1.ExitClick(Sender: TObject);

begin

  close;

end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);

begin

  Lbeli.Caption := IntToStr(UpDown1.Position);

end;

procedure TForm1.ProsesClick(Sender: TObject);

var harga, beli :integer;

     subtotal, diskon, total, kupon : real;

     bonus : string;

begin

  harga := StrToInt(Lharga.Caption);

  beli := UpDown1.Position;

  subtotal := harga*beli;

//diskon

  case beli of

  0..15 : diskon := 5/100*subtotal;

  16..25 : diskon := 15/100*subtotal;

  end;

  total := subtotal-diskon;

//bonus

  if (ComboBox1.ItemIndex = 3) and (StrToInt(Lbeli.Caption) >30) then

  begin

  Lbonus.Caption := '1 kaleng cat tembok 15 L';

  end

  else

  Lbonus.Caption := '-';

//kupon

  if total > 100000 then

  Lkupon.Caption := '1 kupon'

  else

  Lkupon.Caption := '-';

//untuk menampilkan

  Lsubtotal.Caption := FloatToStrF(subtotal,ffCurrency, 12,0);

  Ldiskon.Caption := FloatToStrF(diskon,ffCurrency, 12,0);

  Ltotal.Caption := FloatToStrF(total,ffCurrency, 12,0);

  //menampilkan ke memo

  Memo1.Clear;

  Memo1.Lines.Append('semutjunior.blogspot');

  Memo1.Lines.Append('');

  Memo1.Lines.Append('nama ='+Lnama.Caption);

  Memo1.Lines.Append('harga ='+Lharga.Caption);

  Memo1.Lines.Append('beli ='+Lbeli.Caption);

  Memo1.Lines.Append('subtotal ='+Lsubtotal.Caption);

  Memo1.Lines.Append('diskon ='+Ldiskon.Caption);

  Memo1.Lines.Append('total ='+Ltotal.Caption);

  Memo1.Lines.Append('bonus ='+Lbonus.Caption);

  Memo1.Lines.Append('kupon ='+Lkupon.Caption);

end;

end.