Contoh Program Penjualan Menggunakan Delphi7

Contoh Program Penjualan Menggunakan Delphi7 ~ Delpi merupakan salah satu bahasa pemrograman dekstop yang digemari dan banyak digeluti setiap orang,karena delphi merupakan software pemrograman yang mempunyai banyak fitur-fitur yang sangat di butuhkan,dan hampir semua komponen-komponen yang di Delphi sudah lengkap.maka dari itu,pada kesempatan kali ini,saya akan memberikan Contoh Program Penjualan Menggunakan Delphi7 beserta kodenya.Contoh program ini belum seberapa dan tidak ada
artinya bagi programmer delphi yang profesional,tapi bisa bermanfaat bagi seorang pemula yang ingin menggeluti dunia Delphi7.


Desainlaf form seperti gambar dibawah ini :

Untuk kodenya,ketik perintah berikut :
procedure Tpenjualan.FormCreate(Sender: TObject);
begin
edit1.enabled:=false;
edit2.enabled:=false;
edit3.enabled:=false;
edit4.enabled:=false;
edit5.enabled:=false;
edit6.enabled:=false;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
end;

procedure Tpenjualan.MulaiClick(Sender: TObject);
begin
edit1.enabled:=true;
edit2.enabled:=true;
edit3.enabled:=true;
edit4.enabled:=true;
edit5.enabled:=true;
end;

procedure Tpenjualan.Edit2Change(Sender: TObject);
var
sjumlah:string;
harga,banyak,jumlah:Single;
kode:integer;
begin
val(edit2.Text,harga,kode);
val(edit3.Text,banyak,kode);
jumlah:=harga*banyak;
str(jumlah:20:0,sjumlah);
edit4.Text:=sjumlah;
end;

procedure Tpenjualan.Edit3Change(Sender: TObject);
var
sjumlah:string;
harga,banyak,jumlah:single;
kode:integer;
begin
val(edit2.Text,harga,kode);
val(edit3.Text,banyak,kode);
jumlah:=harga*banyak;
str(jumlah:20:0,sjumlah);
edit4.Text:=sjumlah;
end;

procedure Tpenjualan.Edit5Change(Sender: TObject);
var
sjumlah:string;
harga,bayar,jumlah:single;
kode:integer;
begin
val(edit4.Text,jumlah,kode);
val(edit5.Text,bayar,kode);
jumlah:=bayar-jumlah;
str(jumlah:20:0,sjumlah);
edit6.Text:=sjumlah;
end;

procedure Tpenjualan.SelesaiClick(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.text:='';
edit6.text:='';
end;
end.

Selesai > Run or F9



Sekian pembahasan dari saya. Thanks sahabat blogger