第10套

　　一、

　　ALTER TABLE TABB ADD COLUMN 日期 D

　　在文件two.prg中存放：

　　UPDATE TABB SET 日期 = {^2005.10.01}

　　在文件three.prg中存放：

　　SELECT DISTINCT * FROM TABA INTO TABLE TABC

　　1. 单击“工具/向导/报表”菜单项，并显示“向导选取”对话框。

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

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

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

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

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

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

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

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

　　二、

　　在文件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

　　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”语句，并关闭编辑窗口。