解决一定给分

解决方案 »

  1.   

    写个计算字断或直接+%
    给个例子: 计算百分比procedure Tdata.jlCalcFields(DataSet: TDataSet);
    var
      s1, s2, s3,s4:string;
    begin
      s1:=data.jl.FieldByName ('非法').value;
      s2:=data.jl.FieldByName ('合法').value;
      s3:=inttostr(strtoint(s1)+strtoint(s2));
      s4:=copy(floattostr(strtoint(s1)/strtoint(s3)),pos('.',floattostr(strtoint(s1)/strtoint(s3)))+1,2);
      data.jl.FieldByName ('bl').value:=s4+'%';
    end;
      

  2.   

    我的解决办法是:在adoquery的afterinsert事件中写:
      DataSet.FieldByName('DISCOUNT').AsFloat := 100.00;{折扣}
     设置DisCount字段的显示格式(displayformat):0.00%在保存到数据之前,也就是BeforePost事件中写
    CodeQuery.Parameters.ParamByName('DISCOUNT').Value := (FieldByName('DISCOUNT').AsFloat)/100;