打开考生文件夹下的DB数据库，完成如下简单应用： 1．编写一个名为FOUR．PRG的程序，根据表TABA中所有记录的a，b，c三个字段的值，计算各记录的一元二次方程的两个根x1和x2，并将两个根x1和x2写到对应的字段x1和x2中，如果无实数解，在note字段中写入“无实数解”。提示：平方根函数为SQRT；程序编写完成后，运行该程序计算一元二次方程的两个根。注意：一元二次方程公式如下：2．打开名为testA的表单，其中有两个命令按钮，界面要求如下： (1)设置两个按钮的高度均为30，宽度均为80，“退出”
题目
打开考生文件夹下的DB数据库，完成如下简单应用： 1．编写一个名为FOUR．PRG的程序，根据表TABA中所有记录的a，b，c三个字段的值，计算各记录的一元二次方程的两个根x1和x2，并将两个根x1和x2写到对应的字段x1和x2中，如果无实数解，在note字段中写入“无实数解”。提示：平方根函数为SQRT；程序编写完成后，运行该程序计算一元二次方程的两个根。注意：一元二次方程公式如下：
2．打开名为testA的表单，其中有两个命令按钮，界面要求如下： (1)设置两个按钮的高度均为30，宽度均为80，“退出”按钮与“查询”按钮顶边对齐。 (2)“查询”按钮的功能是在该按钮的Click事件中使用SQL的SELECT命令从表TABA中查询“无实数解”的记录并存储到表TABD中。 (3)“退出”按钮的功能是关闭并释放表单。 请按要求完成表单的设计，表单设计完成后，运行该表单，并单击“查询”按钮进行查询。
相似考题
更多“ 打开考生文件夹下的DB数据库，完成如下简单应用： 1．编写一个名为FOUR．PRG的程序，根据表TABA中所有记录的a，b，c三个字段的值，计算各记录的一元二次方程的两个根x1和x2，并将两个根x1和x2写到对应”相关问题
-
第1题：
对考生文件夹下的数据库“职员管理”中的“员工信息”表和“职称”表完成如下操作：
（1）为表“职称”增加两个字段“人数”和“明年人数”，字段类型均为整型。
（2）编写命令程序“cx2”，查询职员中拥有每种职称的人数，并将其填入表“职称”的“人数”字段中，根据职称表中的“人数”和“增加百分比”，计算“明年人数”的值，如果增加的人数不足一个，则不增加。
（3）运行该程序。
正确答案：
【考点指引】本大题主要考查利用SQL语句对数据表的结构和数据进行修改，重点是分组命令的使用及数值字段的计算。
【操作步骤】
①在命令窗口中输入命令：MODICOMMcx2(回车执行)，打开程序文件编辑窗口，在程序文件编辑窗口中输入以下程序代码：
ALTERTABLE职称ADD人数INT
ALTERTABLE职称ADD明年人数INT
SELECT职称编号，COUNT(*)INTOARRAYaaFROM员工信息GROUPBY职称编号
FORi=1TOALEN(aa)／2
UPDATE职称SET人数=aa(i，2)WHERE职称编号=aa(i，1)
NEXT
UPDATE职称SET明年人数=IIF(人数*增加百分比<1，0，人数*增加百分比)
关闭程序文件编辑窗口并保存程序文件。
②在命令窗口中输入命令：DOcx2(回车执行)，执行程序文件。
-
第2题：
对考生文件夹下表“客户”和“定货”完成如下操作：
①为表客户增加一个字段，字段名为“应付款”，字段类型为数值型，宽度为10，小数位数为2。
②编写程序myp统计表“定货”中每个客户的费用总和，并将该值写入表“客户”的对应客户的“应付款”字段。
③运行该程序。
正确答案：在命令窗口中输入命令：MODIFY COMMAND myp在弹出的程序编辑窗口中输入如下程序段： ******程序文件myp. prg中的程序段************************* ALTER TABLE 客户 ADD 应付款N(102) SELECT 客户编号SUM(金额)AS 应付款 FROM 定货； GROUP BY 客户编号INTO CURSOR atemp DO WHILE NOT EOF () UPDATE 客户 SET 应付款= atemp.应付款； WHERE 客户.客户编号=atemp.客户编号 SKIP ENDDO ********************************************************* 在命令窗口输入命令：DO myp执行程序结果如图3-89所示。
图3-89
在命令窗口中输入命令：MODIFY COMMAND myp，在弹出的程序编辑窗口中输入如下程序段： ******程序文件myp. prg中的程序段************************* ALTER TABLE 客户 ADD 应付款N(10,2) SELECT 客户编号,SUM(金额)AS 应付款 FROM 定货； GROUP BY 客户编号INTO CURSOR atemp DO WHILE NOT EOF () UPDATE 客户 SET 应付款= atemp.应付款； WHERE 客户.客户编号=atemp.客户编号 SKIP ENDDO ********************************************************* 在命令窗口输入命令：DO myp，执行程序，结果如图3-89所示。
图3-89 解析：本大题主要考查的是SQL语句的应用，字段的增加用到数据表的定义语句，在SQL语句设计过程中可利用临时表来存放查询结果，再利用DO循环语句对表中的记录逐条更新。
-
第3题：
在考生文件夹中有“订货”表和“商品”表。商品表中的“单价”表与“订货”表的“数量”之积应等于订货表中的“金额”。
现在有部分“订货”表记录的“金额”字段值不正确，请编写程序挑出这些记录，并将这些记录存放到一个名为“修正订货”的表中（与订货表结构相同，自己建立），根据商品表中的“单价”字段和“订货”表的“数量”字段修改“修正订货”表的“金额”字段（注意：一个修正记录可能对应几条订货记录）。
编写的程序最后保存为“CX．prg”。
正确答案：
【考点指引】本大题考查的是数据表数据的修改，注意要用到INTOTABLE和INTOCURSOR保存中间查询结果。
【操作步骤】
①在命令窗口中输人命令：MODI COMM cx(回车执行)，打开程序文件编辑窗口，在程序文件编辑窗口中输入以下程序代码：
SELECT订货．*INTO TABLE修正订货FROM订货，商品WHERE订货．商品编码=商品．商品编码AND金额<>单价*数量
USE修正订货
GO TOP
DO WHILE．NOT．EOF()
a1=商品编码
bl=订单编号
SELECT*INTO CURSOR aa FROM商品WHERE商品编码=al
SELECT修正订货
REPLACE金额WITH aa．单价*数量
SKIP
ENDDO
USE
关闭程序文件编辑窗口并保存程序文件。
②在命令窗口中输入命令：DO cx(回车执行)，执行程序文件。
-
第4题：
对考生文件夹下的数据库“员工管理”中的“员工信息”表和“职称信息”表完成如下操作：
①为表“职称信息”增加两个字段“人数”和“明年人数”，字段类型均为整型。
②编写命令程序myp，查询职工中拥有每种职称的人数，并将其填入表“职称”的“人数”字段中，根据职称表中的“人数”和“增加百分比”，计算“明年人数”的值，如果增加的人数不足一个，则不增加。
③运行该程序。
正确答案：从菜单栏里单击“文件”并选择“打开”或直接单击工具栏上的“打开”图标在弹出的对话框中选择要打开的数据库文件“员工信息管理.dbc”。 在数据库设计器中右键单击数据库表“职称信息”在弹出的快捷菜单中选择“修改”菜单命令进入“职称信息”的数据表设计器界面在“字段”选项卡中单击右边的“插入”命令按钮在字段名中输入“人数”类型为“整型”用同样的方法增加“明年人数”字段。单击右边“确定”按钮。 在命令窗口中输入命令：MODIFY COMMANDmyp在弹出的程序编辑窗口中输入如下代码： ***********文件myp.prg中的程序代码********** SELECT员工信息.职称代码增加百分比COUNT(*)AS人数； FROM员工信息职称信息； WHERE员工信息．职称代码：职称信息．职称代码； GROUP BY员工信息.职称代码； INTO CURSOR atemp DO WHILE NOT EOF() UPDATE职称信息 SET 人数=atemp.人数明年人数=atemp.人数+； atemp.人数*atemp.增加百分比/100； WHERE职称信息．职称代码=atemp.职称代码 单击菜单中的“程序”—“运行”来运行程序结果如图3-132所示。
从菜单栏里单击“文件”并选择“打开”，或直接单击工具栏上的“打开”图标，在弹出的对话框中选择要打开的数据库文件“员工信息管理.dbc”。 在数据库设计器中，右键单击数据库表“职称信息”，在弹出的快捷菜单中选择“修改”菜单命令，进入“职称信息”的数据表设计器界面，在“字段”选项卡中，单击右边的“插入”命令按钮，在字段名中输入“人数”，类型为“整型”，用同样的方法增加“明年人数”字段。单击右边“确定”按钮。 在命令窗口中输入命令：MODIFY COMMANDmyp，在弹出的程序编辑窗口中输入如下代码： ***********文件myp.prg中的程序代码********** SELECT员工信息.职称代码，增加百分比,COUNT(*)AS人数； FROM员工信息，职称信息； WHERE员工信息．职称代码：职称信息．职称代码； GROUP BY员工信息.职称代码； INTO CURSOR atemp DO WHILE NOT EOF() UPDATE职称信息 SET 人数=atemp.人数，明年人数=atemp.人数+； atemp.人数*atemp.增加百分比/100； WHERE职称信息．职称代码=atemp.职称代码 单击菜单中的“程序”—“运行”来运行程序，结果如图3-132所示。 解析：本大题主要考查的是字段的增加以及记录的更新，字段的增加可在表设计器中完成，更新记录可以利用SQL语句，设计过程中可利用临时表来存放查询结果，再利用DO循环语句对表中的记录逐条更新。
-
第5题：
在考生文件夹中有“销售管理”数据库，内有“定货信息”表和“货物信息”表。货物表中的“单价”与“数量”之积应等于定货表中的“总金额”。
现在有部分“定货信息”表记录的“总金额”字段值不正确，请编写程序挑出这些记录，并将这些记录存放到一个名为“修正”的表中(与定货表结构相同，自己建立)，根据货物表的“单价”和“数量”字段修改“修正”表的“总金额”字段(注意一个修正记录可能对应几条定货记录)。
编写的程序最后保存为myp. prg。
正确答案：在命令窗口中输入命令：MODIFY COMMAND myp在程序文件编辑器窗口输入如下程序段： ********文件Myp. prg中的程序段******** &&查找错误记录 SELECT 订单号SUM(单价*数量)AS 总金额； FROM 货物信息； GROUP BY 订单号； DNTO CURSOR atemp SELECT 定货信息.*； FROM atemp定货信息； WHERE atemp.订单号；定货信息．订单号； AND atemp.总金额＞定货信息.总金额； INTO TABLE 修正 &&修订“修正”表中的记录 SELECT 订单号SUM(单价*数量)AS 总金额； FROM 货物信息； GROUP BY 订单号； INTO CURSOR atemp DO WHILE NOT EOF() UPDATE 修正 SET 总金额=atemp.总金额； WHERE 修正.订单号=atemp.订单号 SKIP ENDDO *************************************** 在命令窗口执行命令：DO myf运行程序结果如图3-98所示。
图3-98
在命令窗口中输入命令：MODIFY COMMAND myp，在程序文件编辑器窗口输入如下程序段： ********文件Myp. prg中的程序段******** &&查找错误记录 SELECT 订单号，SUM(单价*数量)AS 总金额； FROM 货物信息； GROUP BY 订单号； DNTO CURSOR atemp SELECT 定货信息.*； FROM atemp,定货信息； WHERE atemp.订单号；定货信息．订单号； AND atemp.总金额＞定货信息.总金额； INTO TABLE 修正 &&修订“修正”表中的记录 SELECT 订单号，SUM(单价*数量)AS 总金额； FROM 货物信息； GROUP BY 订单号； INTO CURSOR atemp DO WHILE NOT EOF() UPDATE 修正 SET 总金额=atemp.总金额； WHERE 修正.订单号=atemp.订单号 SKIP ENDDO *************************************** 在命令窗口执行命令：DO myf，运行程序，结果如图3-98所示。
图3-98 解析：本大题主要考查的是SQL语句的应用，设计过程中可利用临时表来存放查询结果，通过“订单号”建立两个表之间的联系，再利用DO 循环语句对表中的记录逐条更新。