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
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
一直想使用dll，但delphi的dll子窗体经常有各种问题，比如主窗口与dll子窗口的焦点问题，子窗口中控件的tab键、热键、enter键等的问题，子窗口退出的问题、平面按钮问题等等，网站上进行了搜索，没有比较完美的解决� ......
//DLL 放在EXE中没问题
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
skf:TbsBusinessSkinForm;
nskfrm:TForm;
begin
frmUUMain:=skfrm;
skf:=TbsBus ......
老师布置了一个课题，需要用Delphi做一个影院售票管理系统，但是我们还没有学过Delphi，各位高手能否指点一下，如何进行系统设计，时间比较紧急，谢谢啊
我也不懂，也想学！
我也是啊，感觉Delphi挺好的，现 ......
