Penjualan dengan Delphi7

.Sekarang sudah sedikit rumit sobat...!!!
.tanpa banyak kata...
.langsung saja kita praktekkan ya...
.catatan:
-biar sobat benar-benar bisa membuat suatu aplikasi...
.saya sarankan sobat untuk tidak mencopy paste koding-kodingnya...
.kalau dicopas., maka sobat tidak akan mengerti alur pembacaan programnya...
.yaaaa hitung-hitung belajar sabar gitu.! ;-)
.tpi itu semua saya serahkan kepada keinginan sobat...
.namun untuk mengerti dan menguasai suatu hal., sobat harus mau belajar dan bekerja keras...
.Okkk... ini koding.!

..:: selamat mencoba ya ::..

[jangan pernah patah semangat]

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
   case ComboBox1.ItemIndex of
   0:Edit1.Text:='Buku';
   1:Edit1.Text:='Tas';
   2:Edit1.Text:='Sepatu';
   3:Edit1.Text:='Seragam';
   4:Edit1.Text:='Pena';
   end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
  0:Edit2.Text:='1000';
  1:Edit2.Text:='2000';
  2:Edit2.Text:='3000';
  3:Edit2.Text:='4000';
  4:Edit2.Text:='5000';
  end;
  begin
  Edit3.SetFocus;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Add('R001');
  ComboBox1.Items.Add('R002');
  ComboBox1.Items.Add('R003');
  ComboBox1.Items.Add('R004');
  ComboBox1.Items.Add('R005');
end;

procedure TForm1.prosesClick(Sender: TObject);
var
  a,b,c:integer;
begin
if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text = '') then
    begin
 Application.MessageBox('Data masih ada yang kosong' +sLineBreak+'Isi dulu semua data!','Informasi',MB_ICONINFORMATION);
Edit2.SetFocus;
end
     else
   a:=strtoint(Edit2.Text);
   b:=strtoint(Edit3.Text);
    c:=a*b;
    Edit4.Text:=IntToStr(c);
     Edit5.SetFocus;
end;

procedure TForm1.bayarClick(Sender: TObject);
var
  a,b,c:integer;
begin
if (Edit5.Text = '') then
    begin
 Application.MessageBox('Data masih ada yang kosong' +sLineBreak+'Isi dulu semua data!','Informasi',MB_ICONINFORMATION);
Edit2.SetFocus;
end
else
     a:=strtoint(Edit4.Text);
     b:=strtoint(Edit5.Text);
     c:=b-a;
       Edit6.Text:=IntToStr(c);
end;

procedure TForm1.KeluarClick(Sender: TObject);
begin
Close;
end;

procedure TForm1.UlangClick(Sender: TObject);
begin
  ComboBox1.Text:='';
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Edit5.Text:='';
  Edit6.Text:='';
  ComboBox1.SetFocus;
  end;
end.