testprogress.prg

来自「固定资产管理系统源码..用于企业资产管理,用VFP编码」· PRG 代码 · 共 35 行

lnTotleFetchRec=0
nHandle=SQLSTRINGCONNECT("Driver=SQL Server;Server=CCB-ZHJNOTEBOOK;UID=sa;PWD=;Database=Northwind")
?nHandle
IF USED("curorders")
    USE IN curorders
ENDIF 
n=SECONDS()
nRecordNumber=0
        cSQLString="EXECUTE p_getrecordnumber 'orders','',?@nRecordNumber"

 
    = CursorSetprop([FetchAsNeeded], .T., 0)
    = CursorSetprop([FetchSize], 1, 0)
    = Sqlsetprop(nHandle,[Asynchronous], (.T.))
    Do while not used("curOrders")
        lnSqlReturn = SQLEXEC(nHandle,"SELECT * FROM Orders", "curOrders")
    Enddo

CursorSetProp("FetchAsNeeded",.F.,0)

    lnFetchRec = CursorGetprop([FetchSize],"curorders")
    lnTotleFetchRec = lnTotleFetchRec + lnFetchRec

    Do while lnSqlReturn = 0
    lnFetchRec = CursorGetprop([FetchSize],"curorders")
        lnTotleFetchRec = lnTotleFetchRec + lnFetchRec
        Set MESSAGE TO [正在获取考勤数据表...] + allt(str(lnTotleFetchRec)) 
        lnSqlReturn = SQLEXEC(nHandle,"SELECT * FROM orders","curorders")
    Enddo
?SECONDS()-n
    = Sqlsetprop(nHandle,[Asynchronous], (.F.))
    = sqldisconnect(nHandle)