VFP 愛用者社區

[goto-dream]

原文：http://www.meizibbs.3322.org/bbs/dispbbs.asp?boardID=2&ID=18741

控件用VB的 MSFLEXGRID
原碼：
LOCAL USERID AS Character,;
PWD AS Character,;
DSNSOURCE AS Character,;
CN AS Object ,;
CMD AS Object ,;
RS AS Object,;
CMDTXT AS Character,;
cMaxdate as Character,;
cMindate as Character
THISFORM.WAit()
SCREENSTATBAR.STATE="正在查詢......"
cMaxdate=DTOC(thisform.dtcn2.txtbox1.value)
cMindate=DTOC(thisform.dtcn1.txtbox1.value )
USERID=DBGETPROP("RETAILCONNECTION","CONNECTION","USERID")
PWD=DBGETPROP("RETAILCONNECTION","CONNECTION","PASSWORD")
DSNSOURCE=DBGETPROP("RETAILCONNECTION","CONNECTION","DATASOURCE")
IF TYPE("CN")<>"O"
CN=CREATEOBJECT("ADODB.CONNECTION")
CN.Provider = "MSDataShape"
CN.OPEN("Data Provider=MSDASQL;DSN="+DSNSOURCE+";UID="+USERID+";PWD="+PWD)
CMD=CREATEOBJECT("ADODB.COMMAND")
CMD.ActiveConnection=CN
RS=CREATEOBJECT("ADODB.RECORDSET")
ENDIF
CMDTXT=" SHAPE ( SHAPE {SELECT 零售主表.日期, 零售主表.單號, 零售主表.客戶, 零售主表.地址, "
CMDTXT=CMDTXT+" 零售主表.聯繫電話, 零售主表.備註, SUM(零售子表.金額) "
CMDTXT=CMDTXT+" AS 合計金額 FROM 零售主表 INNER JOIN 零售子表 ON "
CMDTXT=CMDTXT+"零售主表.單號 = 零售子表.單號 GROUP BY 零售主表.日期, 零售主表.單號, "
CMDTXT=CMDTXT+"零售主表.客戶, 零售主表.地址, 零售主表.聯繫電話, 零售主表.備註 "
CMDTXT=CMDTXT+" HAVING (零售主表.日期 <= '"+cMaxdate+"' AND 零售主表.日期>='"+cMindate+"')}"
CMDTXT=CMDTXT+" AS Command1 APPEND ({SELECT 零售子表.單號, 零售子表.名稱, 零售子表.單位, "
CMDTXT=CMDTXT+" 零售子表.數量, 零售子表.單價, 零售子表.金額, 零售子表.件數, 零售子表.備註 "
CMDTXT=CMDTXT+" FROM 零售子表 INNER JOIN 零售主表 ON 零售子表.單號 = 零售主表.單號} "
CMDTXT=CMDTXT+" AS Command2 RELATE '單號' TO '單號') AS Command2) COMPUTE Command1, "
CMDTXT=CMDTXT+"SUM(Command1.'合計金額') AS 當天金額 BY '日期'"
CMD.CommandText=CMDTXT
RS=CMD.Execute
THISFORM.MSHFLEXGRID.Recordset=RS
THISFORM.TXTbox1.value=0
DO WHILE NOT RS.EOF()
THISFORM.TXtbox1.value=THISFORM.TXTbox1.value+RS.FIELDS("當天金額").value
RS.MOVENEXT
ENDDO
THISFORM.WAIT(.F.)
SCREENSTATBAR.STATE="就緒"