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