DELPHI中调用带有日期型参数的存储过程
SQL code:
CREATE PROCEDURE 合计
@date1 datetime,@date2 datetime
AS select top 20 a.物料代码,sum(a.总数量)as 数量合计,sum(a.总金额)as 金额合计,a.物料名称,a.型号 from
(SELECT dbo.sbilldet.itemno AS 物料代码, SUM(dbo.sbilldet.qty) AS 总数量 ,
SUM(dbo.sbilldet.sellsum) AS 总金额, dbo.itemdata.itemname AS 物料名称,
dbo.itemdata.descript AS 型号,dbo.sbillmst.carddt as 日期
from dbo.sbilldet INNER JOIN
dbo.sbillmst ON dbo.sbilldet.sysno = dbo.sbillmst.sysno INNER JOIN
dbo.enterprise ON dbo.sbillmst.compno = dbo.enterprise.compno INNER JOIN
dbo.itemdata ON dbo.sbilldet.itemno = dbo.itemdata.itemno
GROUP BY dbo.sbilldet.itemno, dbo.itemdata.itemname, dbo.itemdata.descript,
dbo.sbillmst.carddt, dbo.sbillmst.ischeck
HAVING (SUM(dbo.sbilldet.qty) >= 0) AND (dbo.sbillmst.ischeck = 1) AND
(dbo.sbillmst.carddt >=@date1 AND
dbo.sbillmst.carddt <= @date2)) a
group by a.物料代码,a.物料名称,a.型号
order by 数量合计 desc
GO
---------------------
Delphi(Pascal) code:
procedure TForm1.Button1Click(Sender: TObject);
begin
if datetimepicker1.Date >datetimepicker2.Date then
begin
showmessage('开始日期大于终止日期');
datetimepicker1.SetFocus ;
exit
相关问答:
已知Python 中:
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢?
找到个方法
......
就是一个服务端和一个客户端,里边有一些共用单元 ,我在 工程的SEARCH PATH里设置的路径,
里边有个结构体,我在服务端打开,加了成员,但是我在客户端其他单元访问不到我新加的,我在客户端打开那个单元,确实加� ......
一直想使用dll,但delphi的dll子窗体经常有各种问题,比如主窗口与dll子窗口的焦点问题,子窗口中控件的tab键、热键、enter键等的问题,子窗口退出的问题、平面按钮问题等等,网站上进行了搜索,没有比较完美的解决� ......
具体要求与报酬QQ729851670
771234717
“拼音编程”是什么意思
引用
“拼音编程”是什么意思
1.给一个字可以显示拼音,多音字的话能显示对应的多个拼音
2.对包含多音字的词语智能识别给出拼音。
3.对一段 ......
老师布置了一个课题,需要用Delphi做一个影院售票管理系统,但是我们还没有学过Delphi,各位高手能否指点一下,如何进行系统设计,时间比较紧急,谢谢啊
我也不懂,也想学!
我也是啊,感觉Delphi挺好的,现 ......