coba kalau begini
var rupiah, dollar : double;
begin
with frmCetakJualPerPeriode.Query1 do
begin
sql.Clear;
sql.Add('select * from jual ');
sql.Add('where
tgl>='''+FormatDateTime('mm/dd/yyyy',DateTimePicker1.Date)+''' and ');
sql.Add('
tgl<='''+FormatDateTime('mm/dd/yyyy',DateTimePicker2.Date)+'''');
open;
end;
rupiah:=0; dollar:=0;
while not frmCetakJualPerPeriode.Query1.Eof do
begin
if
(frmCetakJualPerPeriode.Query1.FieldByName('kurs').AsString='Rupiah') then
begin
rupiah:=rupiah +
frmCetakJualPerPeriode.Query1.Fields['harga'].value;
end;
frmCetakJualPerPeriode.Query1.Next;
end;
frmCetakJualPerPeriode.qrlabel10.caption:=formatfloat('#,##0.00',rupiah);
frmCetakJualPerPeriode.QuickRep1.Preview;
end;
"NOTICE
This e-mail and any attachment is intended only for the exclusive and
confidential use of the addressee(s).
If you are not the intended recipient, any use, interference with,
disclosure or copying of this material is unauthorised and prohibited.
If you have received this message in error, please notify the sender by
return e-mail immediately and delete the message from your computer without
making any copies."
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Save up to 80% on top-quality inkjet cartridges and get your order fast!
FREE shipping on orders $50 or more to the US & Canada. Shop at Myinks.com!
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/v2G7ND/KfUGAA/ySSFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
