Delphi, Membuat Form Pembelian Barang

 

Kapan hari, saya mendapat tugas dari dosen untuk membuat latihan form seperti di atas, dengan ketentuan:

• Nama Barang dan Harga akan tampil setelah dipilih salah satu kodenya,..

• Tombol oke akan menampilkan :

            Jika tunai dan total di atas lebih dari 1.000.000 maka discount 10 % dari total.



Berikut Scriptnya:

1. Buatlah items combobox dari kode barang dan jumlah barang yang dipilih, klik pada form 2 kali lalu tulislah kode penambah items combobox
begin
  ComboBox1.Items.Add('001');
  ComboBox1.Items.Add('002');
  ComboBox1.Items.Add('003');

  ComboBox2.Items.Add('1');
  ComboBox2.Items.Add('2');
  ComboBox2.Items.Add('3');
  ComboBox2.Items.Add('4');
  ComboBox2.Items.Add('5');
end;

2. Buatlah action pada combobox1, karena saat memilih item akan menampilkan hasil pada nama barang dan harga barang
var
  namabarang,hargabarang:string;
begin
 if ComboBox1.Text= '001' then
 begin
 namabarang:=' monitor ';
 hargabarang:='1000000';
 end;

 if ComboBox1.Text= '002' then
 begin
 namabarang:=' memory ';
 hargabarang:='240000';
 end;

 if ComboBox1.Text= '003' then
 begin
 namabarang:=' hardisk ';
 hargabarang:='900000';
 end;
 Edit1.Text:=(namabarang);
 Edit2.Text:=(hargabarang);

end;

3. setelah itu berikan proses pada button oke untuk menampilkan hasil pemrosesan pembelian barang beserta diskonnya

var
 pernyataan,kodebarang,namabarang:string;
 hargabarang,jumlah,hargaawal:integer;
 diskon,hargaakhir:real;
begin
  kodebarang:=(ComboBox1.Text);
  namabarang:=(Edit1.Text);
  hargabarang:=strtoint(Edit2.Text);
  jumlah:=strtoint(ComboBox2.Text);
  hargaawal:=hargabarang*jumlah;

//percabangan
if (RadioButton1.Checked=True) and (hargaawal>=1000000) then
  begin
    diskon:=hargaawal*0.1;
    hargaakhir:=hargaawal-diskon;
    pernyataan:='Diskon 10%  : ';
  end;

  if (RadioButton1.Checked=True) and (hargaawal<=1000000) then
  begin
     hargaakhir:=hargaawal;
  end;

  if RadioButton2.Checked=True then
  begin
    hargaakhir:=hargaawal;
  end;

  if (RadioButton1.Checked=False) and (RadioButton2.Checked=false) then
  begin
    hargaakhir:=hargaawal;
  end;

  //hasil
  label7.Caption:=(pernyataan)+floattostr(hargaakhir);
  Label8.Caption:=(kodebarang);
  Label9.Caption:=(namabarang);
end;

jika ingin mendownload aplikasi yang telah saya buat, silahkan klik link download di bawah ini