易截截图软件、单文件、免安装、纯绿色、仅160KB

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中的Unicode在Delphi如何还原成Gb2312?

已知Python 中:
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试

在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢?
找到个方法
......

DELPHI这种情况怎么办? - Delphi / Windows SDK/API

就是一个服务端和一个客户端,里边有一些共用单元 ,我在 工程的SEARCH PATH里设置的路径,
里边有个结构体,我在服务端打开,加了成员,但是我在客户端其他单元访问不到我新加的,我在客户端打开那个单元,确实加� ......

delphi的dll子窗体问题的解决 - Delphi / 非技术区

一直想使用dll,但delphi的dll子窗体经常有各种问题,比如主窗口与dll子窗口的焦点问题,子窗口中控件的tab键、热键、enter键等的问题,子窗口退出的问题、平面按钮问题等等,网站上进行了搜索,没有比较完美的解决� ......

付费求delphi拼音编程 - Delphi / 非技术区

具体要求与报酬QQ729851670
771234717

“拼音编程”是什么意思

引用
“拼音编程”是什么意思
1.给一个字可以显示拼音,多音字的话能显示对应的多个拼音
2.对包含多音字的词语智能识别给出拼音。
3.对一段 ......

用Delphi做一个影院售票管理系统

老师布置了一个课题,需要用Delphi做一个影院售票管理系统,但是我们还没有学过Delphi,各位高手能否指点一下,如何进行系统设计,时间比较紧急,谢谢啊
我也不懂,也想学!

我也是啊,感觉Delphi挺好的,现 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号