第10套

第10套：
一、基本操作题（共4小题，第1和2题是7分、第3和4题是8分）
在考生文件夹下，打开DB数据库，完成如下基本操作：
1. 给表TABB增加一个字段，字段名为"日期"，数据类型为日期型。

解题思路：
ALTER TABLE TABB ADD COLUMN 日期D
2. 使用SQL Update语句将表TABB中所有记录的字段"日期"的值修改为2005-10-01，并将SQL语句存储到名为TWO.PRG的文件中。

解题思路：
在文件two.prg中存放：
UPDATE TABB SET 日期= {^2005.10.01}
3. 表TABA中有重复的记录，用SQL语句将表TABA中的记录复制到另外一个与它具有相同结构的表TABC中，并消除重复的记录（对于重复多次的记录，只复制一条记录的数据）。

并将SQL的SELECT语句存储到名为THREE.PRG的文件中。

解题思路：
在文件three.prg中存放：
SELECT DISTINCT * FROM TABA INTO TABLE TABC
4. 使用报表向导建立一个简单报表。

要求选择TABA中所有字段；记录不分
组；报表样式为随意式；列数为1，字段布局为"列"，方向为"横向"；排序字段
为No，升序；报表标题为"计算结果一览表"；报表文件名为P_ONE。

解题思路：
1. 单击“工具\向导\报表”菜单项，并显示“向导选取”对话框。

2. 在“向导选取”对话框中，选择“报表向导”并单击“确定”按钮，并显示“报表向导”对话框。

3. 在“报表向导”对话框的“步骤1-字段选取”中，首先要选取表“taba”，在“数据库和表”列表框中，选择表“taba”，接着在“可用字段”列表框中显示表taba的所有字段名，并选定所有字段名至“选定字段”列表框中，单击“下一步”按钮。

4. 在“报表向导”对话框的“步骤2-分组记录”中，单击“下一步”按钮。

5. 在“报表向导”对话框的“步骤3-选择报表样式”中，在“样式”中选择“随意式”，单击“下一步”按钮。

6. 在“报表向导”对话框的“步骤4-定义报表布局”中，在“列数”处选择为“1”，在“方向”处选择“横向”，在“字段布局”处选择“列”，单击“下一步”按钮。

7. 在“报表向导”对话框的“步骤5-排序次序”中，选定“No”字段并选择“升序”，再单击“添加”按钮，单击“完成”按钮。

8. 在“报表向导”对话框的“步骤6-完成”中，在“报表标题”文本框中输入“计算结果一览表”，单击“完成”。

9. 在“另存为”对话框中，输入保存报表名“p_one”，再单击“保存”按钮，最后报表就生成了。

二、简单应用（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 x1 with .null.,x2 with .null.,NOTE WITH "无实数解"
ENDIF
ENDSCAN
2. 打开文件名为testA的表单，表单界面上有两个命令按钮，界面要求如下：
1) 设置两个按钮的高度为：30；宽度为：80；"退出"按钮与"查询"按钮顶
边对齐；
2) "查询"按钮：在该按钮的Click事件中使用SQL的SELECT命令从表TABA
中查询“无实数解”的记录存储到表TABD中；
3）"退出"按钮：关闭并释放表单。

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

解题思路：
1. 打开并修改表单
MODIFY FORM testA
2. 先按住Shift键，同时选中“查询”和“退出”两个按钮，在其“属性”的Width处输入“80”，在Height处输入“30”，在Top处输入某一个数即可。

3. 双击“查询”按钮，在Command1.Click编辑窗口中输入“SELECT * FROM TABA WHERE note
= "无实数解" into table TABD”语句，并关闭编辑窗口。

4. 双击“退出”按钮，在Command2.Click编辑窗口中输入“RELEASE THISFORM”语句，并关闭编辑窗口。

三、综合应用（1小题，计30分）
在考生文件夹下，打开SDB数据库，完成如下应用：
创建一个标题名为"查询"、文件名为testb的表单，如下图所示。

表单要求如下：
1. 为表单建立数据环境，向数据环境添加"学生表"。

2. 表单启动后自动居中。

3. 在该表单中设计一个标签、一个文本框、一个表格和两个命令按钮。

1) 标签对象标题文本为"学生注册日期"(Label1)；文本框用于输入学生
注册日期(Text1)；表格控件用于显示结果(Grid1)。

2) 命令按钮的功能如下：
①"查询"按钮(Command1)：在该按钮的Click事件中使用SQL的SELECT
命令从"学生表"中查询学生注册日期等于文本框中指定的注册日期的学生的学号、
姓名、年龄、性别、班级和注册日期，查询结果按年龄降序排序，并将查询结果
在表格控件中显示，同时将查询结果存储到表TABE中。

注意：查询结果存储到表TABE之前，应将表TABE中记录清空。

TABE表是已经
建立好的表，它与学生表的结构不完全一样，多两个字段。

②"退出"按钮(Command2)：的功能是"关闭和释放表单"。

注意：表格控件的RecordSourceType属性设置为"4－SQL说明"；
表单设计完成后，运行该表单，查询注册日期等于2005年9月2日的学生信息。

解题思路：
1. 新建表单
CREATE FORM testb
2. 在“表单设计器”中，在“属性”的Caption处输入“查询”，在AutoCenter 处选择“.T.
- 真”。

3. 单击“显示\数据环境”菜单项，在“打开”对话框中双击表“学生表”，再单击“关
闭”来关闭“添加表或视图”对话框。

4. 在“表单设计器-testb.scx”中，添加一个标签Label1，在其“属性”的Caption 处输
入“学生注册日期”。

5. 在“表单设计器-testb.scx”中，添加一个文本框Text1。

6. 在“表单设计器-testb.scx”中，添加一个表格Grid1，在其“属性”的RecordSourceType
处选择“4 - SQL 说明”。

7. 在“表单设计器-testb.scx”中，添加两个命令按钮，在第1个命令按钮“属性”窗口
的Caption处输入“查询”，在第2个命令按钮“属性”窗口的Caption处输入“退出”。

8. 在“表单设计器”中，双击“查询”命令按钮，在“Command1.Click”编辑窗口中输入
下列语句，接着关闭编辑窗口。

ThisForm.Grid1.RecordSource = "SELECT 学号,姓名,年龄,性别,班级,注册日期FROM
学生表;
WHERE 注册日期= CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年龄DESC INTO
CURSOR lsb"
SELECT 学号,姓名,年龄,性别,班级,注册日期;
FROM 学生表;
WHERE 注册日期= CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年龄DESC
INTO table ls
USE TABE
ZAP
APPEND FROM ls
USE
9. 在“表单设计器”中，双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入
“Release Thisform”语句，接着关闭编辑窗口。