procedure TNHJJJZBXX.filterDataSetYFYDQKLJ(tbdw:string;tjn,tjy:integer);
// var whereStr:string;
begin
DataSetYFYDQKLJ.SQLFilter:=' tbdw='''+tbdw+''' and tjn='+SysUtils.IntToStr(tjn)+' and tjy<='+SysUtils.IntToStr(tjy);
DataSetYFYDQKLJ.SQLFiltered:=true;
end;