sql.txt

VFP 在SQL 2000中的应用

SELECT clei, COUNT(*) AS sss
FROM cardmoney
WHERE (cdate > '2008 - 8 - 17 15 : 50 : 50')
GROUP BY clei

SELECT SUM(cmoney) AS Expr1
FROM cardmoney
WHERE (cdate >= '2008 - 08 - 18 00 : 00 : 00') AND (cdate <= '2008-08-21 23:59:59')
GROUP BY clei

SELECT cno AS 卡号, clei AS 卡类, cdate AS 消费日期, cmoney AS 消费金额, 
      oper AS 操作员
FROM cardmoney
WHERE (cdate >= '2008-01-01 00:00:00') AND (cdate <= '2008-08-21 23:59:59')

-----------------------------------------------------------------------------------
按洗车卡类别汇总：

SELECT clei AS 洗车卡类, SUM(cmoney) AS 消费金额
FROM cardmoney
WHERE (cdate >= '2008-01-01 00:00:00') AND (cdate <= '2008-08-21 23:59:59')
GROUP BY clei
----------------------------------------------------------------------------
洗车卡金额查询

SELECT cno AS 洗车卡号, clei AS 洗车卡类别, cmoney AS 初始金额, cyu AS 剩余金额 FROM cardlist WHERE (cno = '9000004552')
------------------------------------------------------
SELECT cno AS 洗车卡号 clei AS 洗车卡类别, FROM cardmoney WHERE (cno = '9000004552') and (cdate >= ?RQ AND cdate <= ?RQZ) GROUP BY cdate








public lnHandle 
lnHandle=SQLConnect("mcs","sa","")
If lnHandle>0 &&连接成功
     = SQLSETPROP(lnHandle, 'Transactions',2)  
    lnReturn=SQLExec(lnHandle," SELECT clei AS 洗车卡类, SUM(cmoney) AS 消费金额 FROM cardmoney WHERE (cdate >= '2008-08-10') GROUP BY clei ","TmpEmp")
  If lnReturn>0 &&运行成功
  EndIf
Else &&连接失败
  MessageBox("连接SERVER失败")
EndIf