Program Penjualan sederhana menggunakan Delphi 7

Ass...
Saya akan membagikan sebuah code dari aplikasi penjualan sederhana menggunakan delphi 7.
pertama tama bukalah aplikasi delphi 7,,, 
dan mulailah mendesain form seperti berikut.

Jika sudah ubahlah nama dari edittext
edit1 : enama,
edit2 : eharga,
edit3 : ejumlah
edit4 : ebayar


Setelah itu double click pada button bayar dan masukan coding berikut.

procedure TForm1.btn1Click(Sender: TObject);
var
  hrg, jum, byr: Integer;
begin
  hrg:=StrToInt(eharga.Text);
  jum:=StrToInt(ejumlah.Text);
  byr:= jum * hrg;
  ebayar.Text:=IntToStr(byr);
end;

Setelah itu double click pada button clear, serta masukan coding berikut.

procedure TForm1.btn2Click(Sender: TObject);
begin
  enama.Clear;
 eharga.Clear;
 ejumlah.Clear;
 ebayar.Clear;
 enama.SetFocus;
end;

Dan yang terakhir double click pada button Exit, masukkan coding berikut.

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


jika sudah selesai maka jalankanlah Project, dan bandingkan dengan hasil d bawah ini.

Sekian dari saya semoga bermanfaat sobat semua,, Salam teknologi....