作者FollowTheRabbit

我不是讀財經的

show一下專業
-----------------------------------------------------------------------------------------------

procedure tsnout.calvalue;
var
bmon,bmon1,bmon2,bmon3,bmon4,bmon5:real;
begin
wwliout1.BeforeEdit:=nil;
bmon:=0;bmon1:=0;bmon2:=0;bmon3:=0;bmon4:=0;bmon5:=0;
wwliout2_1.Refresh;
wwliout2_1.Locate('num',wwliout1.fieldbyname('num').asstring,[]);
while (wwliout2_1.FieldByName('num').asstring=wwliout1.FieldByName('num').asstring) and (not wwliout2_1.Eof) do
begin
bmon:=bmon+(wwliout2_1qly.AsFloat+wwliout2_1qly1.AsFloat)*wwliout2_1unp.AsFloat;
bmon1:=bmon1+(wwliout2_1qly.AsFloat+wwliout2_1qly1.AsFloat)*wwliout2_1imp.AsFloat;
bmon2:=bmon2+(wwliout2_1qly.AsFloat+wwliout2_1qly1.AsFloat)*...