（急求）一条SQL语句把本人搞郁闷了 ( 积分: 0 )

procedure&nbsp;TForm1.FormCreate(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;&nbsp;TimeIni&nbsp;:TIniFile;<br>&nbsp;&nbsp;&nbsp;FilePath&nbsp;:string;<br>&nbsp;&nbsp;&nbsp;CountID,i,j:Integer;<br>&nbsp;&nbsp;&nbsp;Date1,date2,date3:TDateTime;<br>begin<br>&nbsp;&nbsp;//&nbsp;CountID:=0;<br>&nbsp;&nbsp;&nbsp;i:=0;<br>&nbsp;&nbsp;&nbsp;FilePath&nbsp;:=ExtractFilePath(ParamStr(0))+'ini/SetTime.ini';<br>&nbsp;&nbsp;&nbsp;TimeIni:=TIniFile.Create(FilePath);<br><br>&nbsp;&nbsp;&nbsp;Date1:=TimeIni.ReadDateTime('记录时间','今天',Date);<br>&nbsp;&nbsp;&nbsp;date2:=TimeIni.ReadDateTime('记录时间','今天',Date-1);<br>&nbsp;&nbsp;&nbsp;date3:=TimeIni.ReadDateTime('记录时间','今天',Date-2);<br><br><br>&nbsp;&nbsp;&nbsp;KeepTime;<br><br>&nbsp;&nbsp;&nbsp;with&nbsp;qry1&nbsp;do<br>&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Close;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQL.Clear;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQL.Add('select&nbsp;*&nbsp;from&nbsp;INVSYSL');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQL.Add('where&nbsp;DTTR70&nbsp;like&nbsp;'''+datetimetostr(Date1)+'%''');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Open;<br>&nbsp;&nbsp;&nbsp;end;<br><br>&nbsp;&nbsp;&nbsp;with&nbsp;qry2&nbsp;do<br>&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Close;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQL.Clear;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQL.Add('select&nbsp;*&nbsp;from&nbsp;INVSYSL');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQL.Add('where&nbsp;DTTR70&nbsp;like&nbsp;'''+datetimetostr(Date2)+'%''');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Open;<br>&nbsp;&nbsp;&nbsp;end;<br><br>&nbsp;&nbsp;&nbsp;with&nbsp;qry3&nbsp;do<br>&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Close;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQL.Clear;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQL.Add('select&nbsp;*&nbsp;from&nbsp;INVSYSL');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQL.Add('where&nbsp;DTTR70&nbsp;like&nbsp;'''+datetimetostr(Date3)+'%''');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Open;<br>&nbsp;&nbsp;&nbsp;end;<br><br>&nbsp;&nbsp;&nbsp;CountID:=&nbsp;(qry1.RecordCount-1)&nbsp;+&nbsp;(qry2.RecordCount-1)&nbsp;+&nbsp;(qry3.RecordCount-1);<br><br>&nbsp;&nbsp;&nbsp;lbl1.Caption:='记录数为：'+inttostr(CountID)+'条'+'&nbsp;&nbsp;&nbsp;';<br><br><br>&nbsp;&nbsp;&nbsp;with&nbsp;ADOQuery1&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Close;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQL.Clear;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQL.Add('select&nbsp;top&nbsp;''CountID''&nbsp;*&nbsp;from&nbsp;INVSYSL');//问题就在这里，出错啦<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Open;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>end;

怎么修改。朋友们拉。给提示我啦。明天就要交工了啊。

SQL.Add('select&nbsp;top&nbsp;''CountID''&nbsp;*&nbsp;from&nbsp;INVSYSL')<br><br>countid是Integer型，'select&nbsp;top&nbsp;'+inttostr(countid)+'&nbsp;*&nbsp;from&nbsp;Invsysl'<br>或者<br>sql.add('select&nbsp;top&nbsp;:a&nbsp;*&nbsp;from&nbsp;invsysl');<br>params.paramByName('a').value=countid;

太感谢了。。感谢。。。楼上的朋友。