if qry_s.isempty then
begin
messagedlg('对不起,无数据,无法操作,',MTWARNING,[MBOK],0);
EXIT
end;
IF NOT QRY_S.ISEMPTY THEN
BEGIN
messagedlg('数据存在,',MTWARNING,[MBOK],0);
END;
if dbgrid1.DataSource.DataSet.recordcount>0 then
showmessage('有')
else
showmessage('没有');
dbgrid.datasource.dataset=nil