Cara membuat Kodingan Data barang pada sebuah toko mengunakan borland delphi

Berikut ini langkah-langkah membuat data Toko mengunakan aplikasi Borland delphi

1. Langkah pertama buat form data seperti dibawah

2. jika sudah membuat form seperti diatas lalu masukkan kodingan seperti dibawah ini pada setiap button

procedure TForm1.EJUMLAHChange(Sender: TObject);
VAR
DISKON : STRING[30];
HARGA,JUMLAH,DISK:SINGLE;
INT : INTEGER ;
begin
VAL (EJUMLAH.Text,JUMLAH,INT);
VAL (EHARGA.Text,HARGA,INT);
IF JUMLAH>5 THEN
begin
DISK := (JUMLAH*HARGA)*0.05;
end
else
begin
DISK := (JUMLAH*HARGA)*0;
end;
STR (DISK : 30 : 0,DISKON);
EDISKON.Text:= DISKON;

end;

procedure TForm1.Button1Click(Sender: TObject);
VAR
BAYAR : STRING[30];
HARGA,JUMLAH,DISKON,SBAYAR:SINGLE;
INT:INTEGER;
begin
VAL (EHARGA.Text,HARGA,INT);
VAL (EJUMLAH.Text,JUMLAH,INT);
VAL (EDISKON.Text,DISKON,INT);
SBAYAR := (HARGA*JUMLAH)-DISKON;
STR (SBAYAR : 30 : 0,BAYAR);
EBAYAR.Text:=BAYAR;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
EDIT1.Text := '';
EDIT2.Text := '';
EHARGA.Text := '';
EJUMLAH.Text := '';
EDISKON.Text := '';
EBAYAR.Text := '';
EDIT1.SetFocus
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
APPLICATION.Terminate
end;

end.

3. Jika sudah memasukkan semua kodingan , maka RUN aplikasi tersebut

Sekian penjelasan mengenai cara membuat Data sebuah Toko mengunakan Borland Delphi, Semoga bermanfaat bagi para pembaca sekalin. terimakasih sudah membaca ^^