kbmMWClientQuery判断一个字段是否修改？

佚名 6年前 (2019-05-10) 随笔 1880人围观抢沙发百度已收录

function TForm5.IsFieldChanged(aDataSet: TkbmMWCustomClientQuery; aFieldName: string): Boolean;
var
  i: TkbmNativeInt;
  pRec, pOrigRec, pOldRec: PkbmRecord;
  aOldV, aNewV: Variant;
  IsFieldValueChanged:Boolean;
begin
    if ADataSet.FindField(aFieldName)=nil then
      raise EMemTableError.Create('当前数据集无此字段.');

    IsFieldValueChanged:=False;
    pRec := pkbmRecord(aDataSet.ActiveBuffer);
    if pRec = nil then
       Exit;
    pOrigRec:=pRec;
    while pOrigRec^.PrevRecordVersion <> nil do
    begin
         pOrigRec := pOrigRec^.PrevRecordVersion;
    end;

    if pRec^.UpdateStatus = usModified then
    with aDataSet do
    begin
        pOldRec := OverrideActiveRecordBuffer;
        try
              OverrideActiveRecordBuffer := pRec; // 指向修改后的数据
              aNewV := FieldByName(aFieldName).Value;
              OverrideActiveRecordBuffer := pOrigRec; // 指向修改前的数据
              aOldV := FieldByName(aFieldName).Value;
              if aNewV <> aOldV then
              begin
                IsFieldValueChanged:=True;
              end;
        finally
          OverrideActiveRecordBuffer := pOldRec;
        end;
    end;
    result:=IsFieldValueChanged;

end;