delphi代码问题,请高手指点
为什么这两段代码不起作用??(这段代码用于判断工号是否在表里,如果在,则MaskEdit2.Text的值为65,否则为0,另外一段类同,但是他们都不起作用,也就是不管工号在不在表里,MaskEdit2.Text的值都为0,怎么回事?)
procedure TformSal.edtEmpNOExit(Sender: TObject);
begin
formDateModule.CDSGetInsuranceByNo.Active:=False;
formDateModule.CDSGetInsuranceByNo.Params.ParamByName('@parNo').Value:=Trim(edtEmpNo.Text);
formDateModule.CDSGetInsuranceByNo.Active:=True;
if formdateModule.CDSGetInsuranceByNo.RecordCount>0 then
MaskEdit2.Text:='65' else MaskEdit2.Text:='0';
end;
DBEdit5.Text:=Trim(edtYear.Text);
formDateModule.CDSGetBreadByGh.Active:=false;
formDateModule.CDSGetBreadByGH.Params.ParamByName('@parGH').Value:=Trim(edtEmpNo.Text);
formDateModule.CDSGetBreadByGH.Active:=True;
if formDateModule.CDSGetBreadByGH.RecordCount>0 then
DBEdit3.Text:='0' else DBEdit3.Text:='70';
end;