A
admin2008
Unregistered / Unconfirmed
GUEST, unregistred user!
有效期报警是这样的:可以自由让用户设定天数与当前库存中的有效期进行比较,自动过滤<br>我的代码是这样写的<br>procedure Tyxq_call.SpeedButton1Click(Sender: TObject);<br>begin<br> with adoquery2 do<br> begin<br> close;<br> sql.Clear ;<br> sql.Text:='select * from cgstore';<br> open;<br> end;<br> while not adoquery2.Eof do<br> begin<br> with adoquery1 do<br> begin<br> close;<br> sql.Clear ;<br> sql.Text:='select * from v_cgstore_check where DATEDIFF(day,'''+adoquery2.fieldByName('yxq').AsString+''',left(convert(char(10),getdate()),10))>='''+edit1.Text+'''';<br> memo1.Lines.Text:=sql.Text ;<br> open;<br> end;<br> adoquery2.Next ;<br> end;<br>end;<br>当我在edit1中输入天数 发现不报警 我的库存表的有三条数据 有效期分别是 2006-10-31 2007-10-31 2000-01-01<br><br><br>我就到查询分析器里测试 发现也不行,三条数据全部显示 <br><br>select * from v_cgstore_check where DATEDIFF(day,'2007-10-31',left(convert(char(10),getdate()),10))>='15'