SHORT CODE Fungsi Keuangan Kasir Menggunakan Delphi7

SHORT CODE FUNGSI KEUANGAN KASIR DENGAN DELPHI7

LEBIH LENGKAP TONTON JUGA VIDIO DI BAWA INI!!

procedure TFungsi_keuangan_Kasir.Button1Click(Sender: TObject);
var
harga,bayar,kembalian,total : Real;
jumlah : Integer;
begin
if ((Edit1.Text ='') or (Edit2.Text ='') or (Edit3.Text = '')) then
begin
MessageDlg('Maaf Data Yang Anda Masukan Belum Semua , Mohon Di Cek Kembali!',mtError,[mbOK],0);
Edit1.SetFocus;
Exit;
end;

//pemasukan

harga:= StrToFloat(Edit1.Text);
jumlah:=StrToInt(Edit2.Text);
bayar:=StrToFloat(Edit3.Text);

total := harga * jumlah;
kembalian:= bayar-total;

//keluaran secara otomatis
Label7.Caption:=FormatFloat('Rp #,###,#0.00',total);
Label8.Caption:=FormatFloat('Rp #,###,#0.00',kembalian);
end;

procedure TFungsi_keuangan_Kasir.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Label7.Caption:='';
Label8.Caption:='';
end;

procedure TFungsi_keuangan_Kasir.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

VIDIO: