C
cf83325
Unregistered / Unconfirmed
GUEST, unregistred user!
今天再解决一个数据查询的问题。是这样的的。现在数据库里面的记录很多。查询的时速度很慢。经理叫我这样去解决。那就是让用户自己在INI里面设置天数。按天数查询。<br>我的INI格式如下:<br>[设置]<br>天数=2//这里用户可以自己动态改变的。<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>var<br> SetIni:TIniFile;<br> FilePath,m :string;<br> i,j,k,CountID:Integer;<br>begin<br><br> FilePath :=ExtractFilePath(ParamStr(0)) + 'ini/SetTime.ini';<br> SetInI :=TIniFile.Create(FilePath);<br> j:=SetIni.ReadInteger('设置','天数',k); //setdate:=Now;<br><br> m:=datetimetostr(Now-j);<br> with qry1 do<br> begin<br> Close;<br> SQL.Clear;<br> SQL.Add('select * from INVSYSL where DTTR70>='''+m'''');//问题就在这里,这个参数没有传进去啊。。查询来的是数据库的说要记录啊。我要的是2前到今天的记录显示啊。高手求救啊。。。。。。<br> Open;<br> end;<br><br> CountID :=qry1.RecordCount;<br> lbl1.Caption:='记录数为:'+inttostr(CountID)+'条'+' ';<br>end;