WITH query3 do
begin
Params.clear;
close;
Params.CreateParam(ftInteger, 'yf',ptinput);
Params.CreateParam(ftDate, 'fhrq',ptinput);
SQL.Clear;
SQL.Add('select 批销单表体.书代号,书名,sum(批销单表体.册数) as 销售总册数, '
+'库存册数,定价,作者,出版日期,版次,印次,印数 from 批销单表体'
+' join 批销表头 on 批销单表体.提书单编号=批销表头.提书单编号'
+' join (select 书代号,sum(册数-残破书册数) as 库存册数 from 图书库存,仓库'
+' where 图书库存.仓库号=仓库.仓库号'
+' and 仓库.功能=''可售'' group by 书代号) as aa'
+' on aa.书代号= 批销单表体.书代号 join 书 on 书.书代号= 批销单表体.书代号 '
+' where 发货日期 between '
+' dateadd(month,:yf,:fhrq) and '''+formatdatetime('yy/mm/dd',Form1.RzTimePicker1.Time)
+''' and 库存册数<='+editkccs.text+' group by 批销单表体.书代号,书名,'
+' 库存册数,定价,作者,版次,印次,印数,出版日期 having sum(批销单表体.册数)>='
+editcs.text); Params[0].asinteger:=-strtoint(edityf.text);
Params[1].asdate:=Form1.RzTimePicker1.Time;
open;
// params.clear;
label10.visible:=true;
label10.caption:='上面查询共有'+inttostr(recordcount)+'条记录!';我想问这种写法对不对呀?
begin
Params.clear;
close;
Params.CreateParam(ftInteger, 'yf',ptinput);
Params.CreateParam(ftDate, 'fhrq',ptinput);
SQL.Clear;
SQL.Add('select 批销单表体.书代号,书名,sum(批销单表体.册数) as 销售总册数, '
+'库存册数,定价,作者,出版日期,版次,印次,印数 from 批销单表体'
+' join 批销表头 on 批销单表体.提书单编号=批销表头.提书单编号'
+' join (select 书代号,sum(册数-残破书册数) as 库存册数 from 图书库存,仓库'
+' where 图书库存.仓库号=仓库.仓库号'
+' and 仓库.功能=''可售'' group by 书代号) as aa'
+' on aa.书代号= 批销单表体.书代号 join 书 on 书.书代号= 批销单表体.书代号 '
+' where 发货日期 between '
+' dateadd(month,:yf,:fhrq) and '''+formatdatetime('yy/mm/dd',Form1.RzTimePicker1.Time)
+''' and 库存册数<='+editkccs.text+' group by 批销单表体.书代号,书名,'
+' 库存册数,定价,作者,版次,印次,印数,出版日期 having sum(批销单表体.册数)>='
+editcs.text); Params[0].asinteger:=-strtoint(edityf.text);
Params[1].asdate:=Form1.RzTimePicker1.Time;
open;
// params.clear;
label10.visible:=true;
label10.caption:='上面查询共有'+inttostr(recordcount)+'条记录!';我想问这种写法对不对呀?
解决方案 »
- 关于变体记录类型
- ADO的问题
- 两个基本问题提问,求助!
- 问题不难,可我不会.
- 用递归的算法解决约瑟夫问题,请进来聊聊.............看者也有分
- 怎样调用帮助abc.chm中的某一个页面
- 关于调用静态dll
- 如何用Delphi的sql monitor来判断oracle表中的记录是否违背唯一性原则?
- "sp_attech_file_data mnewdatebasename,物理文件路径名"这个命令是什么意思?
- quickrep建立的报表,一对多表如何设置,为什么我设置报表的dataset属性为从表时,预览出现主表数据无法显示出现unkown错误,而从表可以。
- 如何得到一块硬盘的总容量?
- 给定一个区域,如何在其中画图
如果還是0 那就真的是0