华南俳烁实业有限公司

簡(jiǎn)單應(yīng)用（2小題，每題20分，計(jì)40分）

在考生文件夾下，打開DB數(shù)據(jù)庫(kù)，完成如下簡(jiǎn)單應(yīng)用：

1. 編寫文件名為FOUR.PRG的程序，根據(jù)表TABA中所有記錄的a,b,c三個(gè)字段的值，計(jì)算各記錄的一元二次方程的兩個(gè)根x1和x2，并將兩個(gè)根x1和x2寫到對(duì)應(yīng)的字段x1和x2中，如果無(wú)實(shí)數(shù)解，在note字段中寫入“無(wú)實(shí)數(shù)解”。注意：平方根函數(shù)為SQRT()；程序編寫完成后，運(yùn)行該程序計(jì)算一元二次方程的兩個(gè)根。注意：一元二次方程公式如下：

解題思路：

在文件four.prg中存放：

USE TABA

SCAN

X = B**2 - 4*A*C

IF X >= 0

XX1 = (-B + SQRT(X))/(2*A)

XX2 = (-B - SQRT(X))/(2*A)

REPLACE x1 with xx1,x2 with xx2

ELSE

REPLACE NOTE WITH "無(wú)實(shí)數(shù)解"

ENDIF

ENDSCAN

**********************************************************************

2. 打開文件名為testA的表單，表單界面上有兩個(gè)命令按鈕，界面要求如下：

1) 設(shè)置兩個(gè)按鈕的高度為：30；寬度為：80；"退出"按鈕與"查詢"按鈕頂邊對(duì)齊；

2) "查詢"按鈕：在該按鈕的Click事件中使用SQL的SELECT命令從表TABA中查詢“無(wú)實(shí)數(shù)解”的記錄存儲(chǔ)到表TABD中；

3）"退出"按鈕：關(guān)閉并釋放表單。

請(qǐng)按要求完成表單的設(shè)計(jì)，表單設(shè)計(jì)完成后，運(yùn)行該表單，單擊"查詢"按鈕進(jìn)行查詢。

解題思路：

1. 打開并修改表單，先按住Shift鍵，同時(shí)選中“查詢”和“退出”兩個(gè)按鈕，在其“屬性”的Width處輸入“80”，在Height處輸入“30”，在Top處輸入某一個(gè)數(shù)即可。雙擊“查詢”按鈕，在Command1.Click編輯窗口中輸入“SELECT * FROM TABA WHERE note= "無(wú)實(shí)數(shù)解" into table TABD”語(yǔ)句，并關(guān)閉編輯窗口。雙擊“退出”按鈕，在Command2.Click編輯窗口中輸入“RELEASE THISFORM”語(yǔ)句，并關(guān)閉編輯窗口。

**********************************************************************