strhao:=dm1.adoQuery.fieldbyname('hao').AsString;
        dm1.adoInfoquery.Active:=false;
        dm1.adoInfoquery.SQL.Clear();
        dm1.adoInfoquery.SQL.Add('select * from '+strCurrTable+' where hao='+strhao);
        dm1.adoInfoquery.Open();