FCal := TfrParser.Create;
  FCal.OnGetValue := GetValue;
  FList := TList.Create;
  New(ListPoint); 
  

 
function TDmdPayDtlRecord.CalPayTemp: Boolean;
var
  I: Integer;
  P: TBookmark;
begin
  result := False;
  IsAddList := False;
  if QryMaster.Active = False then
    QryMaster.Active := True;
  QryMaster.First;
  QryMaster.Filtered := False;      for I := 1 to QryMaster.RecordCount do
  begin
    if QryMaster.FieldByName('CalcuSign').AsBoolean then //有表达式就进行运算 如:G0005的表达式是G0001*G0002 那就从G0001和G0002得到相乘的积来付给G0005的PAYMENT字段 
    begin
      P := nil;
      try
        P := QryMaster.GetBookmark;
        if QryMaster.State = dsBrowse then QryMaster.Edit;
        QryMaster.FieldByName('PayAmnt').Value :=
          FCal.Calc(QryMaster.FieldByName('Expression').AsString);
      finally
        QryMaster.GotoBookmark(P);
        LocateParamQry;
      end;
      if IsAddList then
      begin
        FList.Add(P);
        IsAddList := False;
      end;
    end;
    QryMaster.Next;
  end;      while FList.Count > 0 do
  begin
    ListNum := FList.Count;
    CalListPro;
    if FList.Count = ListNum then
      Break;
  end;
end;
 

 
procedure TDmdPayDtlRecord.GetValue(const s: string; var v: Variant);
begin
  if QryCalParam.Locate('EmplyNum;PayCode;FiscaYear;AccoPerd',
    VarArrayOf([QryMaster.FieldByName('EmpLyNum').AsString, S,
    QryMaster.FieldByName('FiscaYear').AsString, QryMaster.FieldByName('AccoPerd').AsInteger]),
      [loCaseInsensitive]) then
  begin
    if QryMaster.State = dsBrowse then QryMaster.Edit;        if (QryCalParam.FieldBYName('CalcuSign').AsBoolean = False) or
      (QryCalParam.FieldBYName('CalFinsh').AsBoolean) then
    begin
      v := QryCalParam.FieldByName('PayAmnt').value;
      QryMaster.FieldBYName('CalFinsh').AsBoolean := True;
    end else
    begin
      QryMaster.FieldBYName('CalFinsh').AsBoolean := False;
      IsAddList := True;
      IsDelList := True;
    end;
  end else
    v := 0;
end;
 

procedure TDmdPayDtlRecord.CalListPro;
var
  I: Integer;
begin
  I := 0;
  IsDelList := False;
  while I < Flist.Count do
  begin
    QryMaster.GotoBookmark(FList.Items[I]);
    ListPoint := FList.Items[I];        if QryMaster.State = dsBrowse then QryMaster.Edit;
    QryMaster.FieldByName('PayAmnt').Value :=
      FCal.Calc(QryMaster.FieldByName('Expression').AsString);
    FList.Delete(FList.IndexOf(ListPoint));        LocateParamQry;
    I := I;
    if IsDelList then
    begin
      I := I   1;
      IsDelList := False;
    end;
  end;
end;    procedure TDmdPayDtlRecord.LocateParamQry;
begin
  if QryCalParam.Locate('EmplyNum;PayCode;FiscaYear;AccoPerd',
    VarArrayOf([QryMaster.FieldByName('EmpLyNum').AsString,
    QryMaster.FieldByName('PayCode').AsString,
      QryMaster.FieldByName('FiscaYear').AsString,
      QryMaster.FieldByName('AccoPerd').AsInteger]), [loCaseInsensitive]) then
  begin
    if QryCalParam.State = dsBrowse then QryCalParam.Edit;
    QryCalParam.FieldByName('PayAmnt').Value :=
      QryMaster.FieldByName('PayAmnt').Value;
    QryCalParam.FieldByName('CalFinsh').AsBoolean := True;
    QryCalParam.Post;
  end;
end;