計算機等級考試二級VFP上機試題及解題思路(81)

　　二、簡單應用(另參考)

　　FOUR.PRG代碼如下：

　　close all

　　open database db

　　use taba

　　do while not eof()

　　x=b*b-4*a*c

　　if x>=0

　　repl x1 with (-b+sqrt(x))/(2*a),x2 with (-b-sqrt(x))/(2*a)

　　else

　　repl note with "無實數(shù)解"

　　endif

　　skip

　　enddo

　　三、綜合應用(另參考)

　　表單居中是設置AUTOCENTER屬性為邏輯真值

　　查詢按鈕的CLICK事件：

　　CLOSE ALL

　　DELE FROM TABE

　　PACK

　　CLOSE ALL

　　DATE=ALLT(THISFORM.TEXT1.VALUE)

　　SET DATE TO YMD

　　DATE=CTOD(DATE)

　　THISFORM.GRID1.RECORDSOURCETYPE=4

　　THISFORM.GRID1.RECORDSOURCE="SELE * FROM 學生表 WHERE 注冊日期=DATE ORDER BY 年齡 DESC INTO CURSOR AA"

　　SELE * FROM 學生表 WHERE 注冊日期=DATE ORDER BY 年齡 DESC INTO ARRAY BB

　　INSERT INTO TABE FROM ARRAY BB