顶一下,真的希望有人能回答,一定给分!
SIGH,难道人人都是为了分才回答吗?
SIGH,难道人人都是为了分才回答吗?
解决方案 »
- 做MODBUS的时候,采用SPCOMM以16进制方式发送数据的问题,着急
- TWWDBlookupcombox有沒有什麼方法,可以判斷它狀態是正處在下拉狀態,droping.
- 菜鸟问题:保存时为什么老是丢失后缀为dcu的文件
- 在线等待,急
- ACCESS2000的数据库压缩函数CompactDatabase只能压缩整理数据库,如果想修复数据库用什么方法或函数呢?
- 请问socket.data怎么用,有知道的吗?
- 通过两个modem连接两台计算机,实现文件共享,在线等待!
- 怎样知道自己的程序被CTRL+ALT+DEL结束,并在此之前调用函数
- 困了!累了!睡觉了!我叫你睡不着
- 谁能比较详细的介绍一下Hook的概念和使用方法?(分数不够可再加)
- 为什么有的控件没有*.dpk文件呢?那如何安装呀?
- 菜鸟请教delphi数据库编程,高手请进。。。
@paraHBLX char (3),
@ZYUE FLOAT OUTPUT
ASDECLARE @SUM1 Float
DECLARE @SUM2 FLoat
Set @ZYUE=0If @paraHBLX='001'
Begin
SELECT @SUM1=SUM (YUE)
FROM TBLYUE
WHERE (INPUTDATE=@paraCXRQ) AND
(HBLX=@paraHBLX) AND
KJHSM IN (SELECT HSM FROM TBLHSMQT)
End
ELSE
Begin
SELECT @SUM1=SUM (YUE)
FROM TBLYUE
WHERE (INPUTDATE=@paraCXRQ) AND
(HBLX=@paraHBLX) AND
KJHSM IN (SELECT HSM FROM TBLHSMQT)
EndSELECT @SUM2=SUM (YUE) FROM TBLYUE
WHERE (INPUTDATE=@paraCXRQ) AND
(ZHANGH IN ('90226608023001','90227508023001'))Set @ZYUE=@SUM1-@SUM2
SQL.Text :=
'select SumValue = Sum(Field1) + Sum(Field2) - Sum() from tablename where ...'
SQL.Open;
ShowMessage(Fields[0].AsString);
要么:sql.text:= 'exec mystore @Param1, @Param2 OUTPUT' ;
ExecSQL;
ShowMessage(ParamByName('@Parma2').AsString)