select StorageInfo.goodsname as 商品名称,goodsSale.SaleNum as 销售量 from goodsSale,StorageInfo where [goodsSale].goodsoid=[StorageInfo].goodsoid and [GoodsSale].SaleTime between * and **处该怎么写?
query1.clear; query1.sql.clear; query1.sql.add('select * from a.dbf where convert(char(10),进货日期,120) bwteen d1: and d2:); query1.parambyname('d1'):=Datetimepicker1.date; query1.parambyname('d2'):=Datetimepicker2.date; query1.open;
sql.add('select * from tbl_cgd where 采购日期 between '''+datetimetostr(datetimepicker1.date)+''' and '''+datetimetostr(datetimepicker2.date)+'''');
var str : string; begin With query1 do begin str := 'select StorageInfo.goodsname as 商品名称,goodsSale.SaleNum as 销售量 from goodsSale,StorageInfo where [goodsSale].goodsoid=[StorageInfo].goodsoid and [GoodsSale].SaleTime between :a and :b'; close; sql.clear; sql.add(str); parameters.parambyname('a').value :=Datetimepicker1.date; parameters.parambyname('b').value := Datetimepicker2.date; open; end; end;
s,s1:string; s := formatdatetime('yyyy-mm-dd',Datetimepicker1.date); s1:= formatdatetime('yyyy-mm-dd',Datetimepicker2.date); with query1 do begin close; sql.clear; sql.add('select StorageInfo.goodsname as 商品名称,goodsSale.SaleNum '); sql.add('as 销售量 from goodsSale,StorageInfo where [goodsSale].'); sql.add('goodsoid=[StorageInfo].goodsoid and [GoodsSale].SaleTime between '); sql.add(s1+' and '+s2); open; end; 'yyyy-mm-dd'应该视你的数据系统而定。
query1.sql.clear;
query1.sql.add('select * from a.dbf where convert(char(10),进货日期,120) bwteen d1: and d2:);
query1.parambyname('d1'):=Datetimepicker1.date;
query1.parambyname('d2'):=Datetimepicker2.date;
query1.open;
begin
With query1 do
begin
str := 'select StorageInfo.goodsname as 商品名称,goodsSale.SaleNum as 销售量 from goodsSale,StorageInfo where [goodsSale].goodsoid=[StorageInfo].goodsoid and [GoodsSale].SaleTime between :a and :b';
close;
sql.clear;
sql.add(str);
parameters.parambyname('a').value :=Datetimepicker1.date;
parameters.parambyname('b').value := Datetimepicker2.date;
open;
end;
end;
将起变量赋值的地方改为
parameters.parambyname('a').value := FormatDateTime(DateTimePicker1.Date)+ ' 00:00:00';
parameters.parambyname('b').value := FormatDateTime(DateTimePicker2.Date)+ ' 23:59:59';
试一下
Delphi通过编译,但是ACCESS里不行
s := formatdatetime('yyyy-mm-dd',Datetimepicker1.date);
s1:= formatdatetime('yyyy-mm-dd',Datetimepicker2.date);
with query1 do
begin
close;
sql.clear;
sql.add('select StorageInfo.goodsname as 商品名称,goodsSale.SaleNum ');
sql.add('as 销售量 from goodsSale,StorageInfo where [goodsSale].');
sql.add('goodsoid=[StorageInfo].goodsoid and [GoodsSale].SaleTime between ');
sql.add(s1+' and '+s2);
open;
end;
'yyyy-mm-dd'应该视你的数据系统而定。