procedure TXLXX.DataSetQYLJSJJ2BeforePost(DataSet: TDataSet);
begin
DataSetQYLJSJJ2.Connection.ExecuteSQL('update QYLJB set XH=XH + 1 where QYLJB.XLID='''+DataSetXZXLSJJ.FieldByName('XLID').AsString+''' AND XH >= ' + DataSetQYLJSJJ2.FieldByName('XH').AsString);
end;
procedure TXLXX.DataSetQYLJSJJ2AfterPost(DataSet: TDataSet);
begin
//保存记录后,刷新
DataSetQYLJSJJ2.ApplyUpdates;
DataSetQYLJSJJ2.Refresh;
end;