简单应用（2小题，每题20分，计40分）

在考生文件夹下，打开DB数据库，完成如下简单应用：

1. 编写文件名为FOUR.PRG的程序，根据表TABA中所有记录的a,b,c三个字段的值，计算各记录的一元二次方程的两个根x1和x2，并将两个根x1和x2写到对应的字段x1和x2中，如果无实数解，在note字段中写入“无实数解”。注意：平方根函数为SQRT()；程序编写完成后，运行该程序计算一元二次方程的两个根。注意：一元二次方程公式如下：

解题思路：

在文件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 "无实数解"

ENDIF

ENDSCAN

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

2. 打开文件名为testA的表单，表单界面上有两个命令按钮，界面要求如下：

1) 设置两个按钮的高度为：30；宽度为：80；"退出"按钮与"查询"按钮顶边对齐；

2) "查询"按钮：在该按钮的Click事件中使用SQL的SELECT命令从表TABA中查询“无实数解”的记录存储到表TABD中；

3）"退出"按钮：关闭并释放表单。

请按要求完成表单的设计，表单设计完成后，运行该表单，单击"查询"按钮进行查询。

解题思路：

1. 打开并修改表单，先按住Shift键，同时选中“查询”和“退出”两个按钮，在其“属性”的Width处输入“80”，在Height处输入“30”，在Top处输入某一个数即可。双击“查询”按钮，在Command1.Click编辑窗口中输入“SELECT * FROM TABA WHERE note= "无实数解" into table TABD”语句，并关闭编辑窗口。双击“退出”按钮，在Command2.Click编辑窗口中输入“RELEASE THISFORM”语句，并关闭编辑窗口。

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