Contoh Program Penjualan Menggunakan Delphi7
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
Penulis berharap agar Contoh Program Penjualan Menggunakan Delphi7 dapat bermanfaat untuk semua..
Salam berbagi..
The rules of Baccarat | Best Casino & Table Games
BalasHapusOne of the most common variants of poker is baccarat, one of the most 카지노사이트 commonly played casino games. 바카라 사이트 Baccarat variants are 제왕 카지노 played at table