procedure TYWXX1.FIELD_BZSJJ2_ZD2Exit(Sender: TDataField);
begin
if Business.System.Variants.VarToStr(DataSetBZSJJ2.FieldByName('ZD2').OldValue)<>
DataSetBZSJJ2.FieldByName('Zd2').AsString then
begin
if jsdialogs.ConfirmBox('确定修改吗?','提示',1) then
...
else
...
end;
end;